- Timestamp:
- 2013-05-17T17:43:28+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm
r27336 r27366 663 663 if($metapos ne "all") { # get the value at a single metapos 664 664 665 $metavalue = $doc_rec->{$metaname}->[$metapos]; 665 $metavalue = $doc_rec->{$metaname}->[$metapos]; 666 667 # protect any double quotes and colons in the metavalue before putting it into JSON 668 $metavalue =~ s/\"/"/g if defined $metavalue; 669 $metavalue =~ s/\:/&58;/g if defined $metavalue; 670 666 671 $json_result_str .= "{\"metapos\":\"$metapos\",\"metavalue\":\"$metavalue\"}"; 667 672 … … 672 677 673 678 while (defined $metavalue) { 679 680 # protect any double quotes and colons in the metavalue before putting it into JSON 681 $metavalue =~ s/\"/"/g; 682 $metavalue =~ s/\:/&58;/g; 683 674 684 if($first_metaval) { 675 685 $first_metaval = 0; … … 681 691 682 692 $metapos++; 683 $metavalue = $doc_rec->{$metaname}->[$metapos]; 693 $metavalue = $doc_rec->{$metaname}->[$metapos]; 684 694 } 685 695 }
Note:
See TracChangeset
for help on using the changeset viewer.