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