Changeset 4821

Timestamp:

2003-06-26T17:25:24+12:00 (21 years ago)

Author:

jrm21

Message:

corrected extract_first_NNNN function so that it doesn't get confused by

characters in javascript code

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -575 +575 @@
     foreach my $size (split /,/, $self->{'first'}) {
     my $tmptext =  $$textref;
+    # skip to the body
     $tmptext =~ s/.*<body[^>]*>//i;
-    $tmptext =~ s/$self->{'title_sub'}// if ($self->{'title_sub'});
+    # remove javascript
+    $tmptext =~ s@<script.*?</script>@ @sig;
     $tmptext =~ s/<[^>]*>/ /g;
     $tmptext =~ s/&nbsp;/ /g;
@@ -583 +585 @@
     $tmptext =~ s/\s+/ /gs;
     $tmptext = substr ($tmptext, 0, $size);
-    $tmptext =~ s/\s\S*$/&#8230;/;
+    $tmptext =~ s/\s\S*$/&#8230;/; # adds an ellipse (...)
     $doc_obj->add_utf8_metadata ($thissection, "First$size", $tmptext);
     }