Added more provenance xml

svn path=/; revision=104

diff --git a/preecej/semantic_wiki/PS_TransformForImport.pl b/preecej/semantic_wiki/PS_TransformForImport.pl
index 9667f2b7332fdc93752fceb3a55462c6a9dbdd7a..496011d8c6b749bb5086bf35bc5be0b09f571098 100644 (file)
--- a/preecej/semantic_wiki/PS_TransformForImport.pl
+++ b/preecej/semantic_wiki/PS_TransformForImport.pl
@@ -233,11 +233,17 @@ sub write_xml
 
     $current_node = $xml->{Pages}{Page};
     $current_node->{Template} = {Name => 'Provenance'};
-
     $current_node = $current_node->{Template};    
-    $current_node->{Field} = {Name => 'Source Data Time Stamp'};
-    $current_node = $current_node->{Field};
+    
+    $current_node->{Field}[0] = {Name => 'Source Data Time Stamp'};
+    $current_node = $current_node->{Field}[0];
     $current_node->content(0,$provenance{'SourceDateTimeStamp'});
+    $current_node = $current_node->back();
+
+    $current_node->{Field}[1] = {Name => 'Source Database'};
+    $current_node = $current_node->{Field}[1];
+    $current_node->content(0,$provenance{'SourceDatabase'});
+    $current_node = $current_node->back();
     
     # iterate through the data