Changeset 13045

Timestamp:

2006-10-06T14:30:21+13:00 (18 years ago)

Author:

kjdon

Message:

in get_top_metadata_list, need to escape the metadata values so that the resulting XML is valid, eg if we have srclink and /srclink these are not properly closed tags

File:

• trunk/gsdl/perllib/doc.pm (modified) (1 diff)

trunk/gsdl/perllib/doc.pm

@@ -1411 +1411 @@
     my $metadatalist ='<MetadataList>';
    
-     foreach my $i (@topmetadata){
-     foreach my $j (@$i){   
-         my %metaMap = @$j;
-         foreach my $key (keys %metaMap){
-         $metadatalist .='<Metadata name='."\"$key\"".'>'.$metaMap{$key}.'</Metadata>'."\n";
-         }        
-     }    
-     }
-
-  $metadatalist .='</MetadataList>';   
-
-   return $metadatalist;
+    foreach my $i (@topmetadata){
+    foreach my $j (@$i){    
+        my %metaMap = @$j;
+        foreach my $key (keys %metaMap){
+        $metadatalist .='<Metadata name='."\"$key\"".'>'.&_escape_text($metaMap{$key}).'</Metadata>'."\n";
+        }        
+    }    
+    }
+    
+    $metadatalist .='</MetadataList>';   
+    return $metadatalist;
 }