Changeset 20104

Timestamp:

2009-07-29T14:54:56+12:00 (15 years ago)

Author:

kjdon

Message:

added back the assigned variable, modified DocType

File:

• gsdl/trunk/perllib/collConfigxml.pm (modified) (2 diffs)

gsdl/trunk/perllib/collConfigxml.pm

@@ -169 +169 @@
     my $filter = $_{'filter'};
     
+    # was this just a flax thing??
+    my $assigned = $_{'assigned'};
+    
     #@ Marking repeated block
     if ($element =~ /$repeatedBlock/) {
@@ -404 +407 @@
     }
 }
+# is this actually used??
 sub Doctype {
     my ($expat, $name, $sysid, $pubid, $internal) = @_;
 
-    # allow the short-lived and badly named "GreenstoneDirectoryMetadata" files 
-    # to be processed as well as the "DirectoryMetadata" files which should now
-    # be created by import.pl
-    die if ($name !~ /^(Greenstone)?DirectoryMetadata$/);
+    die if ($name !~ /^CollectionConfig$/);
 }