Changeset 13147

Timestamp:

2006-10-20T12:33:36+13:00 (18 years ago)

Author:

shaoqun

Message:

added method used by XMLPlug to check whether its subclass can parse this doc type

File:

• trunk/gsdl/perllib/plugins/GAPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/GAPlug.pm

@@ -83 +83 @@
 sub xml_end_document {
 }
+
+sub get_doctype {
+    my $self = shift(@_);
+    
+    return "(Greenstone)?Archive";
+}
+
 
 sub xml_doctype {