Changeset 10253 for trunk/gsdl/perllib/classify/AZSectionList.pm
- Timestamp:
- 2005-07-19T16:18:25+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZSectionList.pm
r10218 r10253 41 41 use sorttools; 42 42 43 use strict; 44 no strict 'refs'; # allow filehandles to be variables and viceversa 45 43 46 sub BEGIN { 44 @ ISA = ('AZList');47 @AZSectionList::ISA = ('AZList'); 45 48 } 46 49 50 my $arguments = [ 51 ]; 47 52 my $options = { 'name' => "AZSectionList", 48 53 'desc' => "{AZSectionList.desc}", … … 92 97 93 98 # find the first available metadata 94 foreach $m (@{$self->{'meta_list'}}) {99 foreach my $m (@{$self->{'meta_list'}}) { 95 100 $metavalue = $doc_obj->get_metadata_element($section, $m); 96 101 $metaname = $m;
Note:
See TracChangeset
for help on using the changeset viewer.