Changeset 1948

Show
Ignore:
Timestamp:
12.02.2001 17:11:16 (19 years ago)
Author:
jrm21
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/classify/AZCompactList.pm

    r1839 r1948  
    313313        if (@metaname_list==0) 
    314314        { 
     315        my @args; 
     316        push @args, ("-metadata", "$metaname"); 
     317        push @args, ("-title", "$metavalue"); 
     318        push @args, ("-sort", "Date"); 
     319 
    315320        if ($doclevel =~ m/^top(level)?/i) 
    316321        { 
    317             my $args = "\"metadata=$metaname\""; 
    318             $args .= ", \"title=\$metavalue\""; 
    319             $args .= ", \"sort=Date\""; 
    320             eval ("\$listclassobj = new List($args)"); 
     322            eval ("\$listclassobj = new List(\@args)"); warn $@ if $@; 
    321323        } 
    322324        else 
    323325        { 
    324             my $args = "\"metadata=$metaname\""; 
    325             $args .= ", \"title=\$metavalue\""; 
    326             $args .= ", \"sort=Date\""; 
    327326            eval ("\$listclassobj = new SectionList($args)"); 
    328327        } 
     
    331330        { 
    332331        $metaname = join('/',@metaname_list); 
    333  
    334         my $args = "\"metadata=$metaname\""; 
    335         $args .= ", \"title=\$metavalue\""; 
    336         $args .= ", \"doclevel=\$doclevel\""; 
    337         $args .= ", \"recopt\""; 
     332         
     333        my @args; 
     334        push @args, ("-metadata", "$metaname"); 
     335        push @args, ("-title", "$metavalue"); 
     336        push @args, ("-doclevel", "$doclevel"); 
     337        push @args, "-recopt"; 
    338338 
    339339        eval ("\$listclassobj = new AZCompactList($args)");