/[Perly]/lib/Perly/View.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Perly/View.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 31 by dpavlin, Wed Jun 6 19:02:26 2007 UTC revision 33 by dpavlin, Wed Jun 6 19:29:56 2007 UTC
# Line 72  template '/upload' => page { Line 72  template '/upload' => page {
72  };  };
73    
74  template '/run' => page {  template '/run' => page {
75          my $action = new_action( class => 'Run', arguments => {          my $action = new_action( class => 'Run' );
                 input => get('input'),  
                 code => get('code'),  
         } );  
76          h1 { _("Run code on some input") },          h1 { _("Run code on some input") },
77          form {          form {
78                  render_action( $action => [ 'input', 'code' ] );                  render_param( $action => 'input', default_value => get('input') ),
79                    render_param( $action => 'code', default_value => get('code') ),
80                  form_submit(                  form_submit(
81                          label => _('Run'),                          label => _('Run'),
82                  );                  );
Legend:
Removed from v.31  
changed lines
  Added in v.33
  ViewVC Help
Powered by ViewVC 1.1.26