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

Timestamp:

2001-02-12T17:11:16+13:00 (23 years ago)

Author:

jrm21

Message:

Updated to now pass arguments using the new parsargv list format, rather
than the old string format.

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -313 +313 @@
         if (@metaname_list==0)
         {
+        my @args;
+        push @args, ("-metadata", "$metaname");
+        push @args, ("-title", "$metavalue");
+        push @args, ("-sort", "Date");
+
         if ($doclevel =~ m/^top(level)?/i)
         {
-            my $args = "\"metadata=$metaname\"";
-            $args .= ", \"title=\$metavalue\"";
-            $args .= ", \"sort=Date\"";
-            eval ("\$listclassobj = new List($args)");
+            eval ("\$listclassobj = new List(\@args)"); warn $@ if $@;
         }
         else
         {
-            my $args = "\"metadata=$metaname\"";
-            $args .= ", \"title=\$metavalue\"";
-            $args .= ", \"sort=Date\"";
             eval ("\$listclassobj = new SectionList($args)");
         }
@@ -331 +330 @@
         {
         $metaname = join('/',@metaname_list);
-
-        my $args = "\"metadata=$metaname\"";
-        $args .= ", \"title=\$metavalue\"";
-        $args .= ", \"doclevel=\$doclevel\"";
-        $args .= ", \"recopt\"";
+        
+        my @args;
+        push @args, ("-metadata", "$metaname");
+        push @args, ("-title", "$metavalue");
+        push @args, ("-doclevel", "$doclevel");
+        push @args, "-recopt";
 
         eval ("\$listclassobj = new AZCompactList($args)");