Index: gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm
===================================================================
--- gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm (revision 26753)
+++ gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm (revision 26760)
@@ -115,12 +115,22 @@
my $json_str_utf8 = Encode::encode("utf8",$json_str_unicode);
my $exp_frame_tree = decode_json $json_str_utf8;
+
+ #if (!-d $output_dir) {
+ #&util::mk_dir($output_dir);
+ #}
- #output frameset to a subfolder within export directory.
+ #Check for export directory. If it doesn't exist, create it.
+ my $export_dir = &util::filename_cat($collect_dir,$collect,"export");
+
+ if(!-d $export_dir){
+ &util::mk_dir($export_dir);
+ }
+
+ #create output subdirectory within export directory.
my $output_dir = &util::filename_cat($collect_dir,$collect,"export",$collect);
- #my $output_dir = &util::filename_cat($collect_dir,$collect,"export");
-
- if (!-d $output_dir) {
- &util::mk_dir($output_dir);
- }
+
+ if(!-d $output_dir){
+ &util::mk_dir($output_dir);
+ }
my $expeditee_frame_io = new ExpediteeFrameIO($output_dir);