- Timestamp:
- 2010-09-03T17:56:17+12:00 (14 years ago)
- Location:
- main/trunk/greenstone2
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/exportcol.pl
r22360 r22849 51 51 'deft' => "exported_collections", 52 52 'reqd' => "no" }, 53 { 'name' => "collectdir", 54 'desc' => "{exportcol.collectdir}", 55 'type' => "string", 56 # parsearg left "" as default 57 #'deft' => &util::filename_cat ($ENV{'GSDLHOME'}, "collect"), 58 'deft' => "", 59 'reqd' => "no", 60 'hiddengli' => "yes" }, 53 61 { 'name' => "noinstall", 54 62 'desc' => "{exportcol.noinstall}", … … 95 103 my $xml = 0; 96 104 my $gli = 0; 105 # the default/fallback for collect directory if none is provided 106 # (no -collectdir option given) is the standard Greenstone collect directory 107 my $collectdir = &util::filename_cat ($ENV{'GSDLHOME'}, "collect"); 97 108 98 109 my $hashParsingResult = {}; … … 129 140 } 130 141 142 # var collectdir (dir from where selected collections are exported to the CD) 143 # may have been set at this point if it was specified with -collectdir 144 131 145 # can have more than one collection name, 132 146 # if the first extra option is -h, then output the help … … 157 171 my @valid_coll_list = (); 158 172 foreach my $c (@coll_list) { 159 my $colldir = &util::filename_cat ($ ENV{'GSDLHOME'}, "collect", $c);173 my $colldir = &util::filename_cat ($collectdir, $c); 160 174 if (! -d $colldir) { 161 175 &gsprintf($out, "{exportcol.coll_not_found}\n", $c, $colldir); … … 202 216 } 203 217 204 my $ collectdir = &util::filename_cat ($gsdldir, "collect");205 &util::mk_all_dir ($ collectdir);218 my $newcollectdir = &util::filename_cat ($gsdldir, "collect"); 219 &util::mk_all_dir ($newcollectdir); 206 220 my $etcdir = &util::filename_cat ($gsdldir, "etc"); 207 221 &util::mk_all_dir ($etcdir); … … 304 318 foreach my $c (@valid_coll_list) { 305 319 #old directories 306 my $colldir = &util::filename_cat ($ ENV{'GSDLHOME'}, "collect", $c);320 my $colldir = &util::filename_cat ($collectdir, $c); 307 321 my $colindexdir = &util::filename_cat ($colldir, "index"); 308 322 my $coletcdir = &util::filename_cat ($colldir, "etc"); … … 314 328 my $colflashdir = &util::filename_cat ($colldir, "flash"); 315 329 316 # new coll directory330 # new collection directory 317 331 # $c might be in a group, for now, copy to the top level. 318 332 my $new_c = $c; 319 333 $new_c =~ s/^.*[\/\\]//; # remove any folder info 320 my $newcoldir = &util::filename_cat ($ collectdir, $new_c);334 my $newcoldir = &util::filename_cat ($newcollectdir, $new_c); 321 335 322 336 &util::mk_all_dir ($newcoldir); -
main/trunk/greenstone2/perllib/strings.properties
r22804 r22849 210 210 exportcol.cddir:The name of the directory that the CD contents are exported to. 211 211 exportcol.cdname:The name of the CD-ROM -- this is what will appear in the start menu once the CD-ROM is installed. 212 exportcol.collectdir:The path of the "collect" directory. 212 213 exportcol.desc:PERL script used to export one or more collections to a Windows CD-ROM. 213 214 exportcol.noinstall:Create a CD-ROM where the library runs directly off the CD-ROM and nothing is installed on the host computer.
Note:
See TracChangeset
for help on using the changeset viewer.