/[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 15 by dpavlin, Tue Jun 5 23:23:30 2007 UTC revision 17 by dpavlin, Tue Jun 5 23:45:02 2007 UTC
# Line 78  template '/run' => page { Line 78  template '/run' => page {
78                          label => _('Run'),                          label => _('Run'),
79                  );                  );
80          };          };
81          if ( $action->result->content ) {  
82                  h1 { _("Output") },          #warn dump( $action->result->content );
83                  pre {  
84                          $action->result->content( 'output' )          if ( my $input = $action->result->content( 'input' ) ) {
85                  }                  h2 { _("Input data") },
86                    pre { $input }
87            }
88    
89            if ( my $output = $action->result->content( 'output' ) ) {
90                    h2 { _("Output result") },
91                    pre { $output }
92          }          }
93  };  };
94    
Legend:
Removed from v.15  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.26