Changeset 1706 for trunk/gsdl/perllib

Timestamp:

2000-11-27T15:37:22+13:00 (24 years ago)

Author:

say1

Message:

cleaned up the Title code to strip away standard prefixes inserted by MSWord etc

File:

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

trunk/gsdl/perllib/plugins/PSPlug.pm

@@ -94 +94 @@
     if ($self->{'extract_title'} && !$title_found) {
         foreach my $word ($line =~ m|Title: ([-A-Za-z0-9@/\/\(\):,. ]*)|g) {
-        if ($word ne "") {
-            $doc->add_utf8_metadata($section, "Title", $word );
-            print "\"$word\" ===>>> \"Title\" = \"$word\"\n";
+        my $new_word = $word; 
+        $new_word =~ s/\(Untitled\)//i;
+        $new_word =~ s/\(Microsoft Word\)//i;
+        $new_word =~ s/Microsoft Word//i;
+        $new_word =~ s/^\(//i;
+        $new_word =~ s/\)$//i;
+        $new_word =~ s/^ - //i;
+        if ($new_word ne "") {
+            $doc->add_utf8_metadata($section, "Title", $new_word );
+            print "\"Title\" = \"$new_word\"\n";
             $title_found = 1;
         }