oh yeah, the model_actions is Dave's that he posted way back. I didn't meant
to take credit for that. :) . i changed the name cause i use another version
.
--- Peter Speltz <peterspeltz at yahoo.com> wrote:
> # returns list of public actions for model class
> sub model_actions {
> my ($r, $model) = @_;
> #$model ||= $r->model_class;
> die "No model to get actions for." unless $model;
> use Class::Inspector;
> my $methods = Class::Inspector->methods($model);
> my @actions = ();
> for my $meth (@$methods) {
> push @actions, $meth if $model->is_public($meth);
> }
> @actions;
> }
>
> To use them i have this huge ugly sub prep_form_input in my permission class.
> It's like an AsForm but just for this one class. It be cool if this could be
> built into M:P:Authorization.pm somehow as its a lot of work to use it. I may
> try moving it to there and see what i come up with.
>
> # call this in pages that have addnew, edit, search forms
> # Permissions->prep_form_input($r);
> sub prep_form_input{
> my ($self, $r) = @_;
> my $params = $r->params;
> warn "params are " . Dumper($params);
> my $targs = $r->template_args;
> $targs->{classmetadata} ||= {};
> my $cgi = $targs->{classmetadata}->{cgi} = {}; # clean cgi input slate
>
> # get ready to make 3 inputs -- role and model class and method select
> box
> my $model = $params->{model_class};
> my @actions = $model ? $r->model_actions($model) : ();
> unshift @actions, '*' if @actions;
> my @ok_classes = $r->ok_model_classes;
>
> # make the input html elements
> my $role = $self->to_field('auth_role_id');
> warn Dumper($role);
> my $class= $self->a_select_box('model_class', \@ok_classes, $model);
> my $meth = $self->a_select_box('method', \@actions) ;
> $class->attr('onChange' => "do_reload()");
>
> # put in template args cgi slot
> $cgi->{auth_role} = $role;
> $cgi->{model_class} = $class;
> $cgi->{method} = $meth;
> $targs->{classmetadata}{columns} = ['auth_role', 'model_class',
> 'method'];
> }
>
>
>
> =====
> pjs
>
>
>
> __________________________________
> Do you Yahoo!?
> Meet the all-new My Yahoo! - Try it today!
> http://my.yahoo.com
>
>
>
> _______________________________________________
> maypole mailing list
> maypole at lists.netthink.co.uk
> http://lists.netthink.co.uk/listinfo/maypole
>
=====
pjs
__________________________________
Do you Yahoo!?
The all-new My Yahoo! - Get yours free!
http://my.yahoo.com
_______________________________________________
maypole mailing list
maypole at lists.netthink.co.uk
http://lists.netthink.co.uk/listinfo/maypole
This archive was generated by hypermail 2.1.3 : Thu Feb 24 2005 - 22:25:57 GMT