Changeset 6985 for trunk/gsdl/perllib/classify/AZCompactList.pm

Timestamp:

2004-03-09T15:13:29+13:00 (20 years ago)

Author:

kjdon

Message:

changed some error messages, and put sort type back to string - I forgot about the nosort option

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -53 +53 @@
       { 'name' => "sort",
     'desc' => "{AZCompactList.sort}",
-    'type' => "metadata",
+    'type' => "string",
     'deft' => "Title",
     'reqd' => "no" },
@@ -160 +160 @@
     if (!$metaname) {
     my $outhandle = $self->{'outhandle'};
-    print $outhandle "AZCompactList used with no metadata name to classify by\n";
-    die "\n";
+    print $outhandle "AZCompactList Error: required option -metadata not supplied\n";
+    $self->print_txt_usage("");  
+    die "AZCompactList Error: required option -metadata not supplied\n";
     }