Changeset 20104

Show
Ignore:
Timestamp:
29.07.2009 14:54:56 (10 years ago)
Author:
kjdon
Message:

added back the assigned variable, modified DocType?

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/collConfigxml.pm

    r20102 r20104  
    169169    my $filter = $_{'filter'}; 
    170170     
     171    # was this just a flax thing?? 
     172    my $assigned = $_{'assigned'}; 
     173     
    171174    #@ Marking repeated block 
    172175    if ($element =~ /$repeatedBlock/) { 
     
    404407    } 
    405408} 
     409# is this actually used?? 
    406410sub Doctype { 
    407411    my ($expat, $name, $sysid, $pubid, $internal) = @_; 
    408412 
    409     # allow the short-lived and badly named "GreenstoneDirectoryMetadata" files  
    410     # to be processed as well as the "DirectoryMetadata" files which should now 
    411     # be created by import.pl 
    412     die if ($name !~ /^(Greenstone)?DirectoryMetadata$/); 
     413    die if ($name !~ /^CollectionConfig$/); 
    413414} 
    414415