- Timestamp:
- 2014-05-29T14:31:45+12:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm
r29084 r29086 168 168 $url_decoded_metavalue = join("",map(chr($_),@$unicode_array)); 169 169 $gsdl_cgi->param("metavalue",$url_decoded_metavalue); 170 171 # need to do the same with prevmetavalue 172 my $url_encoded_prevmetavalue = $gsdl_cgi->param("prevmetavalue"); 173 my $url_decoded_prevmetavalue = &unicode::url_decode($url_encoded_prevmetavalue,1); 174 my $prevunicode_array = &unicode::utf82unicode($url_decoded_prevmetavalue); 175 176 $url_decoded_prevmetavalue = join("",map(chr($_),@$prevunicode_array)); 177 $gsdl_cgi->param("prevmetavalue",$url_decoded_prevmetavalue); 170 178 171 179 my $self = new baseaction($action_table,$gsdl_cgi,$iis6_mode); … … 2221 2229 if ($status == 0) 2222 2230 { 2223 my $mess = " remove-archives-metadata successful:Key[$docid]\n";2231 my $mess = "\nremove-archives-metadata successful: \nKey[$docid]\n"; 2224 2232 $mess .= " $metaname"; 2225 2233 $mess .= "->[$metapos]" if (defined $metapos); 2226 2234 $mess .= " ($metavalue)" if (defined $metavalue); 2227 2235 $gsdl_cgi->generate_ok_message($mess); 2228 2236 } … … 2346 2354 2347 2355 # if overriding (for set-meta) but no metapos, then clear all the meta for this metaname 2348 if ((defined $parser->{'parameters'}->{'metamode'}) && ($parser->{'parameters'}->{'metamode'} eq "override") && (!defined $parser->{'parameters'}->{'metapos'}) ) {2356 if ((defined $parser->{'parameters'}->{'metamode'}) && ($parser->{'parameters'}->{'metamode'} eq "override") && (!defined $parser->{'parameters'}->{'metapos'}) &&(!defined $parser->{'parameters'}->{'metavalue'})) { 2349 2357 return []; 2350 2358 }
Note:
See TracChangeset
for help on using the changeset viewer.