/[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 37 by dpavlin, Thu Jun 7 09:44:58 2007 UTC
# Line 24  private template 'code_list' => sub { Line 24  private template 'code_list' => sub {
24                  while ( my $code = $coll->next ) {                  while ( my $code = $coll->next ) {
25                          li {                          li {
26                                  a {                                  a {
27                                          attr { href => '/edit?id=' . $code->id, },                                          attr { href => '/edit/id=' . $code->id, },
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                  }                  }
37          }          }
38  };  };
39    
40    sub codepress {
41            my $codepress = 1;
42            $codepress = current_user->user_object->codepress if ( current_user->id );
43            return { render_as => 'Textarea' } unless ( $codepress );
44    
45            return {
46                    render_as => 'Jifty::Plugin::CodePress::Textarea',
47                    submit => {
48                            onclick => [
49                                    { beforeclick => 'CodePress.beforeSubmit();'  },
50                            ],
51                    },
52            };
53    }
54    
55  private template 'code_editor' => sub {  private template 'code_editor' => sub {
56          my $op = 'Create';          my $op = 'Create';
57          my $code = Perly::Model::Code->new();          my $code = Perly::Model::Code->new();
# Line 42  private template 'code_editor' => sub { Line 60  private template 'code_editor' => sub {
60                  warn "loaded ", length( $code->source ), " bytes";                  warn "loaded ", length( $code->source ), " bytes";
61                  $op = 'Update';                  $op = 'Update';
62          }          }
63    
64            warn "## editor: ", dump( codepress );
65    
66          form {          form {
67                  my $action = new_action( class => $op . 'Code', arguments => { $code ? $code->as_hash : undef } );                  my $action = new_action( class => $op . 'Code', arguments => { $code ? $code->as_hash : undef } );
68                  render_param( $action => 'name' );                  render_param( $action => 'name' );
69                  render_param( $action => 'source', cols => 80, rows => 25, language => 'perl', render_as => 'Jifty::Plugin::CodePress::Textarea' );                  render_param( $action => 'source', cols => 80, rows => 25, language => 'perl', render_as => codepress->{render_as} );
70                  #render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );                  #render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
71                  form_submit(                  form_submit( label => _($op), %{ codepress->{submit} } );
72                          label => _($op),                  # IE problem http://support.microsoft.com/kb/281197
73                          onclick => [                  form_next_page( url => '/run/code=' . $action->argument_value('id') );
                                 { beforeclick => "CodePress.beforeSubmit();" },  
                         ],  
                 );  
74          }          }
75  };  };
76    
# Line 60  template '/upload' => page { Line 78  template '/upload' => page {
78          h1 { _("Upload new file") },          h1 { _("Upload new file") },
79          form {          form {
80                  my $action = new_action( class => 'Upload' );                  my $action = new_action( class => 'Upload' );
81                  render_action( $action => [ 'content', 'file', 'format' ] );                  render_action( $action => [ 'filename', 'content', 'file', 'format' ] );
82                  form_submit(                  form_submit(
83                          label => _('Upload'),                          label => _('Upload'),
84                  );                  );
# Line 71  template '/run' => page { Line 89  template '/run' => page {
89          my $action = new_action( class => 'Run' );          my $action = new_action( class => 'Run' );
90          h1 { _("Run code on some input") },          h1 { _("Run code on some input") },
91          form {          form {
92                  render_action( $action => [ 'input', 'code' ] );                  render_param( $action => 'input', default_value => get('input') ),
93                    render_param( $action => 'code', default_value => get('code') ),
94                  form_submit(                  form_submit(
95                          label => _('Run'),                          label => _('Run'),
96                  );                  );
# Line 90  template '/run' => page { Line 109  template '/run' => page {
109          }          }
110  };  };
111    
112    template '/prefs' => page {
113            my $action = new_action( class => 'UpdateUser', arguments => { id => current_user->id } );
114            h1 { _("My preferences") },
115            form {
116                    render_action( $action => [ 'name', 'email', 'codepress' ] );
117                    form_submit(
118                            label => _('Save changes'),
119                    );
120            };
121    };
122    
123  1;  1;
Legend:
Removed from v.20  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.26