in reply to CGI::Application next run mode buttons?
sub main_form { my $self = shift; # Format NEXTRMS the way H::T expects my @NEXTRMS = map +{NEXTRMS => $_}, @{$self->{__NEXTRMS}->{$self->get_current_runmode()} +}; $self->{template}->param(RUNMODE => $self->get_current_runmode(), HANDLER => (caller(1))[3], NEXTRMS => \@NEXTRMS, ); return $self->{template}->output(); } __DATA__ <html> <head> </head> <body> Runmode: <TMPL_VAR NAME=RUNMODE><br> Dispatched sub: <TMPL_VAR NAME=HANDLER> <form action="/cgi-bin/monktest.pl" method="POST" name="myform"> Test <input name="Test" type="text" /> <input name="_reset" type="reset" value="Reset" /> <TMPL_LOOP NAME=NEXTRMS> <input name="_submit" onClick="this.form._submit.value = this.value;" type="submit" value="<TMPL_VAR NAME=NEXTRMS>" /> </TMPL_LOOP> </form> </body> </html>
Thoughts?
--
Well, I suppose I could hotwire this thing.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: CGI::Application next run mode buttons?
by knowmad (Monk) on Apr 09, 2004 at 17:36 UTC |