Changeset 13045
- Timestamp:
- 2006-10-06T14:30:21+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/doc.pm
r12448 r13045 1411 1411 my $metadatalist ='<MetadataList>'; 1412 1412 1413 foreach my $i (@topmetadata){ 1414 foreach my $j (@$i){ 1415 my %metaMap = @$j; 1416 foreach my $key (keys %metaMap){ 1417 $metadatalist .='<Metadata name='."\"$key\"".'>'.$metaMap{$key}.'</Metadata>'."\n"; 1418 } 1419 } 1420 } 1421 1422 $metadatalist .='</MetadataList>'; 1423 1424 return $metadatalist; 1413 foreach my $i (@topmetadata){ 1414 foreach my $j (@$i){ 1415 my %metaMap = @$j; 1416 foreach my $key (keys %metaMap){ 1417 $metadatalist .='<Metadata name='."\"$key\"".'>'.&_escape_text($metaMap{$key}).'</Metadata>'."\n"; 1418 } 1419 } 1420 } 1421 1422 $metadatalist .='</MetadataList>'; 1423 return $metadatalist; 1425 1424 } 1426 1425
Note:
See TracChangeset
for help on using the changeset viewer.