Changeset 20104


Ignore:
Timestamp:
2009-07-29T14:54:56+12:00 (13 years ago)
Author:
kjdon
Message:

added back the assigned variable, modified DocType

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.