/[webpac2]/Webpacus2/lib/Webpacus/Action/Search.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Webpacus2/lib/Webpacus/Action/Search.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 930 by dpavlin, Wed Oct 31 10:34:38 2007 UTC revision 931 by dpavlin, Wed Oct 31 10:35:07 2007 UTC
# Line 15  use Data::Dump qw/dump/; Line 15  use Data::Dump qw/dump/;
15  use Jifty::Param::Schema;  use Jifty::Param::Schema;
16  use Jifty::Action schema {  use Jifty::Action schema {
17    
18  param f =>  param field =>
19          label is _("Field name"),          label is _("Field name"),
20          available are defer {          available are defer {
21                  my $coll = Webpacus::Model::SearchCollection->new;                  my $coll = Webpacus::Model::SearchCollection->new;
# Line 28  param f => Line 28  param f =>
28          },          },
29          render as 'Select';          render as 'Select';
30    
31  param q =>  param query =>
32          label is _("Search for"),          label is _("Search for"),
33          is mandatory;          is mandatory;
34                    
# Line 45  sub sticky_on_failure { 1 } Line 45  sub sticky_on_failure { 1 }
45  sub take_action {  sub take_action {
46          my $self = shift;          my $self = shift;
47    
48          my $search = Perly::Model::Search->load( $self->argument_value( 'search' ) );          my $search = Webpacus::Model::Search->load( $self->argument_value( 'field' ) );
49    
50          warn "## search = ",dump( $search );          warn "## search = ",dump( $search );
51    
52          my $message = _('Results for query') . $self->argument_value( 'q' ) . _('on field') . $self->argument_value( 'v' );          my $message =
53                    _('Results for') . " '" . $self->argument_value( 'query' ) . "' " .
54                    _('on field') . ' ' . $search->name;
55    
56          $self->result->message( $message );          $self->result->message( $message );
57            
Legend:
Removed from v.930  
changed lines
  Added in v.931
  ViewVC Help
Powered by ViewVC 1.1.26