Changeset 2925


Ignore:
Timestamp:
2002-01-30T14:23:31+13:00 (20 years ago)
Author:
sjboddie
Message:

Altered the format of the GreenstoneArchive and GreenstoneDirectoryMetadata
XML files slightly (they're now called Archive and DirectoryMetadata
respectively).

Location:
trunk/gsdl
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/collect/demo/import/metadata.xml

    r2838 r2925  
    11<?xml version="1.0" encoding="UTF-8" standalone="no"?>
    2 <!DOCTYPE GreenstoneDirectoryMetadata SYSTEM "http://greenstone.org/dtd/GreenstoneDirectoryMetadata/1.0/GreenstoneDirectoryMetadata.dtd">
     2<!DOCTYPE DirectoryMetadata SYSTEM "http://greenstone.org/dtd/DirectoryMetadata/1.0/DirectoryMetadata.dtd">
    33<DirectoryMetadata>
    44
  • trunk/gsdl/perllib/docsave.pm

    r2810 r2925  
    287287
    288288    print $handle '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' . "\n";
    289     print $handle '<!DOCTYPE GreenstoneArchive SYSTEM ' .
    290     '"http://greenstone.org/dtd/GreenstoneArchive/1.0/GreenstoneArchive.dtd">' . "\n";
    291     print $handle '<GreenstoneArchive>' . "\n";
     289    print $handle '<!DOCTYPE Archive SYSTEM "http://greenstone.org/dtd/Archive/1.0/Archive.dtd">' . "\n";
     290    print $handle "<Archive>\n";
    292291}
    293292
     
    296295    my ($handle) = @_;
    297296
    298     print $handle '</GreenstoneArchive>' . "\n";
     297    print $handle "</Archive>\n";
    299298}
    300299
  • trunk/gsdl/perllib/plugins/GAPlug.pm

    r2812 r2925  
    2424###########################################################################
    2525
    26 # Processes GreenstoneArchive XML documents. Note that this plugin does no
    27 # syntax checking (though the XML::Parser module tests for
    28 # well-formedness). It's assumed that the GreenstoneArchive files conform
    29 # to their DTD.
     26# Processes Greenstone Archive XML documents. Note that this plugin does no
     27# syntax checking (though the XML::Parser module tests for well-formedness).
     28# It's assumed that the Archive files conform to their DTD.
    3029
    3130package GAPlug;
     
    6059    my ($expat, $name, $sysid, $pubid, $internal) = @_;
    6160
    62     die "" if ($name ne "GreenstoneArchive");
     61    # allow the short-lived and badly named "GreenstoneArchive" files to be processed
     62    # as well as the "Archive" files which should now be created by import.pl
     63    die "" if ($name !~ /^(Greenstone)?Archive$/);
     64
    6365    my $outhandle = $self->{'outhandle'};
    6466    print $outhandle "GAPLug: processing $self->{'file'}\n";
  • trunk/gsdl/perllib/plugins/RecPlug.pm

    r2818 r2925  
    3535
    3636#<?xml version="1.0" encoding="UTF-8" standalone="no"?>
    37 #<!DOCTYPE GreenstoneDirectoryMetadata SYSTEM "http://greenstone.org/dtd/GreenstoneDirectoryMetadata/1.0/GreenstoneDirectoryMetadata.dtd">
     37#<!DOCTYPE DirectoryMetadata SYSTEM "http://greenstone.org/dtd/DirectoryMetadata/1.0/DirectoryMetadata.dtd">
    3838#<DirectoryMetadata>
    3939#  <FileSet>
     
    301301sub Doctype {
    302302    my ($expat, $name, $sysid, $pubid, $internal) = @_;
    303     die if ($name ne "GreenstoneDirectoryMetadata");
     303
     304    # allow the short-lived and badly named "GreenstoneDirectoryMetadata" files
     305    # to be processed as well as the "DirectoryMetadata" files which should now
     306    # be created by import.pl
     307    die if ($name !~ /^(Greenstone)?DirectoryMetadata$/);
    304308}
    305309
Note: See TracChangeset for help on using the changeset viewer.