Changeset 26986 for gs2-extensions
- Timestamp:
- 2013-03-05T10:22:04+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/plugouts/GreenstoneXMLPlugout.pm
r26965 r26986 140 140 my $doc_dir_rest = $OID; 141 141 142 # rint "!!GreenstoneXMLPlugout::get_new_doc_dir([working_info]," . $working_dir . "," . $OID . ")\n";142 ###rint "!!GreenstoneXMLPlugout::get_new_doc_dir([working_info]," . $working_dir . "," . $OID . ")\n"; 143 143 144 144 # Remove any \ and / from the OID because we are about to generate a path … … 159 159 $doc_dir_num++; 160 160 } 161 # rint "!! - testing Path: " . $doc_dir . "\n";161 ###rint "!! - testing Path: " . $doc_dir . "\n"; 162 162 $created_directory = &util::mk_all_dir(&util::filename_cat($working_dir, $doc_dir . '.dir')); 163 # rint "-> result: |" . $created_directory . "|\n";163 ###rint "-> result: |" . $created_directory . "|\n"; 164 164 } 165 165 while ($doc_dir_rest ne "" && $doc_dir_num < 32 && !$created_directory); … … 170 170 $i++; 171 171 $doc_dir = $doc_dir_base . '-' . $i; 172 # rint "!! - testing Path: " . $doc_dir . "\n";172 ###rint "!! - testing Path: " . $doc_dir . "\n"; 173 173 $created_directory = &util::mk_all_dir(&util::filename_cat($working_dir, $doc_dir . '.dir')); 174 ###rint "-> result: |" . $created_directory . "|\n"; 174 175 } 175 176 if (!$created_directory) … … 177 178 die("Error! Failed to create directory for document: " . $doc_dir_base . "\n"); 178 179 } 179 # rint "!! Final Path: " . $doc_dir . ".dir\n";180 ###rint "!! Final Path: " . $doc_dir . ".dir\n"; 180 181 return $doc_dir . '.dir'; 181 182 }
Note:
See TracChangeset
for help on using the changeset viewer.