The same file multiple times should be allowed

diff --git a/xml-db/xml-db.pl b/xml-db/xml-db.pl
index aac9e0a907e605d3ded3982c18ee09e862d34bc2..6fa5e575aad6764e0f24859ddb47d10f8c952ba7 100755 (executable)
--- a/xml-db/xml-db.pl
+++ b/xml-db/xml-db.pl
@@ -42,7 +42,11 @@ sub Main {
   # load the unmerged database and the provided files
   my ($db,$files) = &LoadDBAndFiles;
 
-  foreach my $file (keys %$files) {
+  #print Dumper($files);
+  
+  foreach my $item (@$files) {
+    my $file = $item->[0];
+    my $doc = $item->[1];
     print "Working on $file...\n" if $verbose;
     
   }
@@ -51,11 +55,6 @@ sub Main {
   #DumpDatabase($db);
 }
 
-sub LoadFile() {
-  my $schema = XML::LibXML::Schema->new(location => "$db_dir/TrbNetSetup.xsd");
-
-
-}
 
 sub DumpDatabase($) {
   my $db = shift;
@@ -135,11 +134,11 @@ sub LoadDBAndFiles {
 
   # now, back in the normal working directoy, load and
   # validate the provided files
-  my $files = {};
+  my $files = [];
   for (@ARGV) {
     my $doc = $parser->parse_file($_);
     ValidateXML($doc, $schemas);
-    $files->{$_} = $doc;
+    push(@$files, [$_, $doc]);
     print "Loaded and validated <$_>\n" if $verbose;
   }