Changeset 7101 for trunk/gsdl/bin/script/exportcol.pl

Timestamp:

2004-03-22T13:27:17+12:00 (20 years ago)

Author:

kjdon

Message:

removed the old commented out print usage stuff, added gli arg if it didn't have it, if gli arg is set, output strings in utf-8

File:

• trunk/gsdl/bin/script/exportcol.pl (modified) (3 diffs)

trunk/gsdl/bin/script/exportcol.pl

@@ -61 +61 @@
 
 
-#sub print_usage {
-#    print STDERR "\n";
-#    print STDERR "exportcol.pl: Exports  collection for writing to CD-ROM.\n\n";
-#    print STDERR "  usage: $0 [options] collection-name\n\n";
-#    print STDERR "   -out    Filename or handle to print debug info to.\n";
-#    print STDERR "           The default is STDERR\n";
-#    print STDERR "   -cdname The name of the cd - this is what will appear in the start menu once the cd is installed.\n";
-#    print STDERR "           The default is 'Greenstone Collections'.\n\n";
-#}
-
 &main();
 
 sub main {
-    my ($out, $cdname);
+    my ($language, $out, $cdname, $gli);
 
     my $xml = 0;
@@ -82 +72 @@
              'out/.*/STDERR', \$out,
              'cdname/.*/', \$cdname,
+             'gli', \$gli,
              q^xml^, \$xml)) {
 
@@ -99 +90 @@
     }
 
+    if ($gli) { # the gli wants strings to be in UTF-8
+    &gsprintf::output_strings_in_UTF8; 
+    }
+    
     my $dirname=""; 
     if ($cdname eq "") {