Changeset 32782 for main/trunk/greenstone2
- Timestamp:
- 2019-02-18T20:27:42+13:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/modmetadataaction.pm
r32079 r32782 330 330 } 331 331 332 # the version of set_ index_meta that doesn't do authentication332 # the version of set_archives_meta that doesn't do authentication 333 333 sub _set_archives_metadata 334 334 { … … 970 970 971 971 if (ref($description_content)) { 972 # got some existing interesting nested content 973 push(@$description_content, " ", $append_metadata ,"\n");972 # got some existing interesting nested content 973 push(@$description_content, " ", $append_metadata, "\n "); 974 974 } 975 975 else { 976 976 #description_content is most likely a string such as "\n" 977 $attrHash->{'_content'} = [$description_content, " 977 $attrHash->{'_content'} = [$description_content, " ", $append_metadata ,"\n" ]; 978 978 } 979 979 … … 1007 1007 my $line; 1008 1008 while (defined ($line=<MIN>)) { 1009 $xml_in .= $line;1009 $xml_in .= $line if($line !~ m/^\s*$/); # preserve all but empty lines 1010 1010 } 1011 1011 close(MIN); … … 1413 1413 my $line; 1414 1414 while (defined ($line=<MIN>)) { 1415 $xml_in .= $line ;1415 $xml_in .= $line if($line !~ m/^\s*$/); # preserve all but empty lines 1416 1416 } 1417 1417 close(MIN); … … 1603 1603 } 1604 1604 1605 push(@$description_content, " ", $append_metadata ,"\n");1605 push(@$description_content, " ", $append_metadata, "\n "); 1606 1606 $parser->{'parameters'}->{'metamode'} = "done"; 1607 1607 } … … 1745 1745 my $line; 1746 1746 while (defined ($line=<MIN>)) { 1747 $xml_in .= $line ;1747 $xml_in .= $line if($line !~ m/^\s*$/); # preserve all but empty lines 1748 1748 } 1749 1749 close(MIN); … … 2154 2154 my $line; 2155 2155 while (defined ($line=<MIN>)) { 2156 $xml_in .= $line ;2156 $xml_in .= $line if($line !~ m/^\s*$/); # preserve all but empty lines 2157 2157 } 2158 2158 close(MIN);
Note:
See TracChangeset
for help on using the changeset viewer.