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)

Author:

davidb

Message:

Implementation of saving 'frame.inf' added

File:

• gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm (modified) (1 diff)

gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm

@@ -90 +90 @@
     &util::mk_dir($output_dir);
     }
-    my $frame_filename = &util::filename_cat($output_dir,"$fn.exp");
 
-    my $expeditee_frame_io = new ExpediteeFrameIO();
+    my $expeditee_frame_io = new ExpediteeFrameIO($output_dir);
     
     $expeditee_frame_io->buildFrame($exp_frame_tree);
 
-    if ($expeditee_frame_io->saveFrame($frame_filename)) {
+    if ($expeditee_frame_io->saveFrame("$fn.exp")) {
     
     # write out next free frame num
-    $expeditee_frame_io->saveNextFreeFrame($fn+1);
+    $expeditee_frame_io->saveLastFrameNumber($fn);
 
     $gsdl_cgi->generate_message("html-to-expeditee saved frame $fn");
     }
     else {
-    $gsdl_cgi->generate_error("Failed to open $frame_filename for output");
+    $gsdl_cgi->generate_error("Failed to save frame number $fn");
     }
 }