Changeset 1948
- Timestamp:
- 2001-02-12T17:11:16+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZCompactList.pm
r1839 r1948 313 313 if (@metaname_list==0) 314 314 { 315 my @args; 316 push @args, ("-metadata", "$metaname"); 317 push @args, ("-title", "$metavalue"); 318 push @args, ("-sort", "Date"); 319 315 320 if ($doclevel =~ m/^top(level)?/i) 316 321 { 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 $@; 321 323 } 322 324 else 323 325 { 324 my $args = "\"metadata=$metaname\"";325 $args .= ", \"title=\$metavalue\"";326 $args .= ", \"sort=Date\"";327 326 eval ("\$listclassobj = new SectionList($args)"); 328 327 } … … 331 330 { 332 331 $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"; 338 338 339 339 eval ("\$listclassobj = new AZCompactList($args)");
Note:
See TracChangeset
for help on using the changeset viewer.