Changeset 24938 for gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm
- Timestamp:
- 2012-01-11T10:35:25+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm
r24936 r24938 90 90 &util::mk_dir($output_dir); 91 91 } 92 my $frame_filename = &util::filename_cat($output_dir,"$fn.exp");93 92 94 my $expeditee_frame_io = new ExpediteeFrameIO( );93 my $expeditee_frame_io = new ExpediteeFrameIO($output_dir); 95 94 96 95 $expeditee_frame_io->buildFrame($exp_frame_tree); 97 96 98 if ($expeditee_frame_io->saveFrame( $frame_filename)) {97 if ($expeditee_frame_io->saveFrame("$fn.exp")) { 99 98 100 99 # write out next free frame num 101 $expeditee_frame_io->save NextFreeFrame($fn+1);100 $expeditee_frame_io->saveLastFrameNumber($fn); 102 101 103 102 $gsdl_cgi->generate_message("html-to-expeditee saved frame $fn"); 104 103 } 105 104 else { 106 $gsdl_cgi->generate_error("Failed to open $frame_filename for output");105 $gsdl_cgi->generate_error("Failed to save frame number $fn"); 107 106 } 108 107 }
Note:
See TracChangeset
for help on using the changeset viewer.