Changeset 1653

Timestamp:

2000-11-03T11:35:33+13:00 (23 years ago)

Author:

paynter

Message:

Fixed a few bugs where incorrect variable names were used.

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -420 +420 @@
             my $title = $1;
             if ($title =~ /\w/) {
-            $tmptext =~ s/<[^>]*>/ /g;
-            $tmptext =~ s/&nbsp;/ /g;
+            $title =~ s/<[^>]*>/ /g;
+            $title =~ s/&nbsp;/ /g;
             $title =~ s/\s+/ /gs;
             $title =~ s/^\s+//;
@@ -444 +444 @@
         $tmptext =~ s/\s\S*$/.../;
         $doc_obj->add_utf8_metadata ($section, $field, $tmptext);
-        print $outhandle " extracted \"$field\" metadata \"$value\"\n" 
+        print $outhandle " extracted \"$field\" metadata \"$tmptext\"\n" 
         if ($self->{'verbosity'} >= 2);
         next;