Changeset 2359 for trunk/gsdl/perllib/util.pm

Timestamp:

2001-05-04T11:15:58+12:00 (23 years ago)

Author:

sjboddie

Message:

Altered the help text a little for mkcol.pl, import.pl, buildcol.pl, and
build so that they now suggest using the "more" pager if the help text
scrolls off the screen (brought about by usability studies under DOS).
Note that this means some debug info that was once printed to STDERR is
now being printed to STDOUT.

File:

• trunk/gsdl/perllib/util.pm (modified) (3 diffs)

trunk/gsdl/perllib/util.pm

@@ -566 +566 @@
         $collection = $ENV{'GSDLCOLLECTION'};
     } else {
-        print STDERR "No collection specified\n";
+        print STDOUT "No collection specified\n";
         return "";
     }
@@ -572 +572 @@
     
     if ($collection eq "modelcol") {
-    print STDERR "You can't use modelcol.\n";
+    print STDOUT "You can't use modelcol.\n";
     return "";
     }
@@ -583 +583 @@
     # make sure this collection exists
     if (!-e $ENV{'GSDLCOLLECTDIR'}) {
-    print STDERR "Invalid collection ($collection).\n";
+    print STDOUT "Invalid collection ($collection).\n";
     return "";
     }