/[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 20 by dpavlin, Wed Jun 6 00:05:20 2007 UTC revision 22 by dpavlin, Wed Jun 6 09:17:05 2007 UTC
# Line 28  private template 'code_list' => sub { Line 28  private template 'code_list' => sub {
28                                          $code->name,                                          $code->name,
29                                  },                                  },
30                                  small { length( $code->source ), ' bytes ', $code->created_on },                                  small { length( $code->source ), ' bytes ', $code->created_on },
31                                    a {
32                                            attr { href => '/run?code=' . $code->id, }, 'run'
33                                    },
34                                  pre { $code->source },                                  pre { $code->source },
35                          }                          }
36                  }                  }
# Line 60  template '/upload' => page { Line 63  template '/upload' => page {
63          h1 { _("Upload new file") },          h1 { _("Upload new file") },
64          form {          form {
65                  my $action = new_action( class => 'Upload' );                  my $action = new_action( class => 'Upload' );
66                  render_action( $action => [ 'content', 'file', 'format' ] );                  render_action( $action => [ 'filename', 'content', 'file', 'format' ] );
67                  form_submit(                  form_submit(
68                          label => _('Upload'),                          label => _('Upload'),
69                  );                  );
# Line 68  template '/upload' => page { Line 71  template '/upload' => page {
71  };  };
72    
73  template '/run' => page {  template '/run' => page {
74          my $action = new_action( class => 'Run' );          my $action = new_action( class => 'Run', arguments => { input => get('input'), code => get('code') } );
75          h1 { _("Run code on some input") },          h1 { _("Run code on some input") },
76          form {          form {
77                  render_action( $action => [ 'input', 'code' ] );                  render_action( $action => [ 'input', 'code' ] );
Legend:
Removed from v.20  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.26