Changeset 3207 for trunk/protemix/perllib/plugins

Timestamp:

2002-07-03T12:57:49+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/protemix/perllib/plugins/ProtemixPlug.pm (modified) (4 diffs)

trunk/protemix/perllib/plugins/ProtemixPlug.pm

@@ -32 +32 @@
 sub BEGIN {
     @ISA = ('HTMLPlug');
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
 }
 
@@ -68 +69 @@
 
     # process the meta.xml file and set top level metadata
-    my $parser = new XML::Parser('Style' => 'Stream');
+    my $parser = new XML::Parser('Style' => 'Stream',
+                 'Handlers' => {'Char' => \&Char}
+                 );
     $self->{'section_metadata'} = {};
     $self->{'Page'} = "TopLevel";
@@ -131 +134 @@
 
         # add any section level metadata we have for this page (set from within the meta.xml file)
-
-# currently commented out as we're not using Class1, Class2, and Class3 metadata yet
-#       if (defined ($self->{'section_metadata'}->{$filesuf})) {
-#       foreach my $key (keys %{$self->{'section_metadata'}->{$filesuf}}) {
-#           $doc_obj->add_utf8_metadata ($cursection, $key, $self->{'section_metadata'}->{$filesuf}->{$key});
-#       }
-#       }
+        if (defined ($self->{'section_metadata'}->{$filesuf})) {
+        foreach my $key (keys %{$self->{'section_metadata'}->{$filesuf}}) {
+            $doc_obj->add_utf8_metadata ($cursection, $key, $self->{'section_metadata'}->{$filesuf}->{$key});
+        }
+        }
 
         $count ++;
@@ -199 +200 @@
 }
 
+# This Char function overrides the one in XML::Parser::Stream to overcome a
+# problem where $expat->{Text} is treated as the return value, slowing
+# things down significantly in some cases.
+sub Char {
+  $_[0]->{'Text'} .= $_[1];
+  return undef;
+}
+
 
 1;