Webpacus/Action/Search.pm

use strict;
use warnings;

=head1 NAME

Webpacus::Action::Search

=cut

package Webpacus::Action::Search;
use base qw/Webpacus::Action Jifty::Action/;

use Data::Dump qw/dump/;

use Jifty::Param::Schema;
use Jifty::Action schema {

param f =>
        label is _("Field name"),
        available are defer {
                my $coll = Webpacus::Model::SearchCollection->new;
                $coll->unlimit;
                [ '', {  
                        display_from => 'name',
                        value_from => 'id',
                        collection => $coll,
                }];
        },
        render as 'Select';

param q =>
        label is _("Search for"),
        is mandatory;
        

};

sub sticky_on_success { 1 }
sub sticky_on_failure { 1 }

=head2 take_action

=cut

sub take_action {
        my $self = shift;

        my $search = Perly::Model::Search->load( $self->argument_value( 'search' ) );

        warn "## search = ",dump( $search );

        my $message = _('Results for query') . $self->argument_value( 'q' ) . _('on field') . $self->argument_value( 'v' );

        $self->result->message( $message );
    
        return 1;
}

1;

1	dpavlin	930	use strict;
2			use warnings;
3
4			=head1 NAME
5
6			Webpacus::Action::Search
7
8			=cut
9
10			package Webpacus::Action::Search;
11			use base qw/Webpacus::Action Jifty::Action/;
12
13			use Data::Dump qw/dump/;
14
15			use Jifty::Param::Schema;
16			use Jifty::Action schema {
17
18			param f =>
19			label is _("Field name"),
20			available are defer {
21			my $coll = Webpacus::Model::SearchCollection->new;
22			$coll->unlimit;
23			[ '', {
24			display_from => 'name',
25			value_from => 'id',
26			collection => $coll,
27			}];
28			},
29			render as 'Select';
30
31			param q =>
32			label is _("Search for"),
33			is mandatory;
34
35
36			};
37
38			sub sticky_on_success { 1 }
39			sub sticky_on_failure { 1 }
40
41			=head2 take_action
42
43			=cut
44
45			sub take_action {
46			my $self = shift;
47
48			my $search = Perly::Model::Search->load( $self->argument_value( 'search' ) );
49
50			warn "## search = ",dump( $search );
51
52			my $message = _('Results for query') . $self->argument_value( 'q' ) . _('on field') . $self->argument_value( 'v' );
53
54			$self->result->message( $message );
55
56			return 1;
57			}
58
59			1;
60