Changeset 1712

Timestamp:

2000-11-29T05:40:07+13:00 (23 years ago)

Author:

say1

Message:

cleaned up metadata extraction.

File:

• trunk/gsdl/perllib/plugins/PSPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/PSPlug.pm

@@ -103 +103 @@
         if ($new_word ne "") {
             $doc->add_utf8_metadata($section, "Title", $new_word );
-            print "\"Title\" = \"$new_word\"\n";
             $title_found = 1;
         }
@@ -112 +111 @@
                 if ($word =~ m/ ([A-Za-z][A-Za-z][A-Za-z]) ([0-9 ][0-9])  ?[0-9: ]+ ([0-9]{4})/) {
                     $date = &sorttools::format_date($2,$1,$3);
-            $doc->add_utf8_metadata($section, "Date", $date );
-                    print "\"$word\" ===>>> \"Date\" = \"$date\"\n";
+            if (defined $date) {
+            $doc->add_utf8_metadata($section, "Date", $date );
+            }
                 }
                 if ($word =~ m/D:([0-9]{4})([0-9]{2})([0-9]{2})[0-9]{6}\)/) {
                     $date = &sorttools::format_date($3,$2,$1);
-            $doc->add_utf8_metadata($section, "Date", $date );
-                    print "\"$word\" ===>>> \"Date\" = \"$date\"\n";
+            if (defined $date) {
+            $doc->add_utf8_metadata($section, "Date", $date );
+            }
                 }
                 if ($word =~ m/CreationDate: ([0-9]{4}) ([A-Za-z][A-Za-z][A-Za-z]) ([0-9 ][0-9]) [0-9:]*/) {
                     $date = &sorttools::format_date($3,$2,$1);
-            $doc->add_utf8_metadata($section, "Date", $date );
-                    print "\"$word\" ===>>> \"Date\" = \"$date\"\n";
+            if (defined $date) {
+            $doc->add_utf8_metadata($section, "Date", $date );
+            }
                 }
         $date_found = 1;
@@ -134 +136 @@
         if ($digits ne "" && $digits ne "0") {
             $doc->add_utf8_metadata($section, "Pages", $digits );
-            print "\"$word\" ===>>> \"Pages\" = $digits\n";
             $pages_found = 1;
         }