Changeset 20429 for gsdl/trunk/perllib/classify/AZCompactList.pm
- Timestamp:
- 2009-08-28T13:37:36+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/AZCompactList.pm
r20008 r20429 139 139 } 140 140 141 $self->{'metadata'} = $self->strip_ex_from_metadata($self->{'metadata'}); 141 142 # Manually set $self parameters. 142 143 $self->{'list'} = {}; … … 156 157 157 158 $self->{'recopt'} = ($self->{'recopt'} == 0) ? undef : "on"; 158 159 160 if (defined $self->{'sort'}) { 161 $self->{'sort'} = $self->strip_ex_from_metadata($self->{'sort'}); 162 } 159 163 # Clean out the unused keys 160 164 if($self->{"removeprefix"} eq "") {delete $self->{"removeprefix"};}
Note:
See TracChangeset
for help on using the changeset viewer.