- Timestamp:
- 2013-04-09T18:58:07+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm
r27160 r27162 2208 2208 my $metaname = $self->{'metaname'}; 2209 2209 my $metapos = $self->{'metapos'}; 2210 my $metavalue = $self->{'metavalue'} ;2210 my $metavalue = $self->{'metavalue'} || undef; # necessary to force fallback to undef here 2211 2211 2212 2212 # To people who know $collect_tail please add some comments … … 2244 2244 2245 2245 # Obtain the specified metadata pos 2246 $metapos = 0 if (!defined $metapos); 2246 if(!defined $metapos && !defined $metavalue) { #$metapos = 0 if (!defined $metapos); 2247 $metapos = 0; 2248 } 2247 2249 2248 2250 # consider check key is defined before deleting? … … 2254 2256 2255 2257 if (!defined $metavalue && $i != $metapos) { 2256 push(@$filtered_metadata,$metaval) 2258 push(@$filtered_metadata,$metaval); 2257 2259 } 2258 2260 2259 2261 if(defined $metavalue && !($metavalue eq $metaval)) 2260 2262 { 2261 push(@$filtered_metadata,$metavalue)2263 push(@$filtered_metadata,$metaval); 2262 2264 } 2263 2265 }
Note:
See TracChangeset
for help on using the changeset viewer.