Changeset 8071 for trunk/gsdl


Ignore:
Timestamp:
2004-08-26T13:33:22+12:00 (20 years ago)
Author:
davidb
Message:

When title metadata is derived from first 100 chars of text,
extra =~ s/... statement added to remove unicode byte order mark (FEFF).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/HTMLPlug.pm

    r7966 r8071  
    685685        # if no title use first 100 or so characters
    686686        $title = $$textref;
     687        $title =~ s/^\xFE\xFF//; # Remove unicode byte order mark       
    687688        $title =~ s/^.*?<body>//si;
    688689        # ignore javascript!
    … …  
    699700    $title =~ s/^\s*//;   # remove leading spaces
    700701    $title =~ s/\s*$//;   # remove trailing spaces
     702
    701703    $title =~ s/^$self->{'title_sub'}// if ($self->{'title_sub'});
    702704    $title =~ s/^\s+//s; # in case title_sub introduced any...
Note: See TracChangeset for help on using the changeset viewer.