[Bio] / Sprout / CompileTemplate.pl Repository:
ViewVC logotype

Diff of /Sprout/CompileTemplate.pl

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

revision 1.3, Tue Nov 6 13:54:53 2007 UTC revision 1.5, Tue Feb 5 05:47:32 2008 UTC
# Line 70  Line 70 
70    
71  use strict;  use strict;
72  use Tracer;  use Tracer;
 use DocUtils;  
 use TestUtils;  
73  use Cwd;  use Cwd;
74  use File::Copy;  use File::Copy;
75  use File::Path;  use File::Path;
# Line 154  Line 152 
152    
153  =head3 CompileTemplate  =head3 CompileTemplate
154    
155  C<< CompileTemplate($ih, $oh, $copyName, $templateName, $style); >>      CompileTemplate($ih, $oh, $copyName, $templateName, $style);
156    
157  Compile a template from an input stream into a web page that can be used to generate code from  Compile a template from an input stream into a web page that can be used to generate code from
158  the template. The web page will contain a display of the template file plus a form allowing the  the template. The web page will contain a display of the template file plus a form allowing the
# Line 284  Line 282 
282      }      }
283      # Put in the file title row.      # Put in the file title row.
284      push @retVal, $cgi->Tr($cgi->td(["File Title", $cgi->textfield(-name => "fileTitle", -size => 40)]));      push @retVal, $cgi->Tr($cgi->td(["File Title", $cgi->textfield(-name => "fileTitle", -size => 40)]));
285        # Finally, add the description.
286        push @retVal, $cgi->Tr($cgi->td(["Description", $cgi->textarea(-name => 'desc', -rows => 10,
287                                                                       -cols => 80, -wrap => 'physical')]));
288      # Now for the submit button.      # Now for the submit button.
289      push @retVal, $cgi->Tr( $cgi->td({-colspan => 2, -align => "center" },      push @retVal, $cgi->Tr( $cgi->td({-colspan => 2, -align => "center" },
290                              $cgi->submit(-name => 'submit', -value => 'GENERATE')));                              $cgi->submit(-name => 'submit', -value => 'GENERATE')));

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3