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 field =>
        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 query =>
        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 = Webpacus::Model::Search->load( $self->argument_value( 'field' ) );

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

        my $message =
                _('Results for') . " '" . $self->argument_value( 'query' ) . "' " .
                _('on field') . ' ' . $search->name;

        $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	dpavlin	931	param field =>
19	dpavlin	930	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	dpavlin	931	param query =>
32	dpavlin	930	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	dpavlin	931	my $search = Webpacus::Model::Search->load( $self->argument_value( 'field' ) );
49	dpavlin	930
50			warn "## search = ",dump( $search );
51
52	dpavlin	931	my $message =
53			_('Results for') . " '" . $self->argument_value( 'query' ) . "' " .
54			_('on field') . ' ' . $search->name;
55	dpavlin	930
56			$self->result->message( $message );
57
58			return 1;
59			}
60
61			1;
62