Changeset 1730 for trunk/gsdl

Timestamp:

2000-11-30T18:37:07+13:00 (23 years ago)

Author:

jrm21

Message:

removed a debugging statement left in accidentally...

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -64 +64 @@
     if (!defined $metadata->{'Title'}) {
     my ($title) = $$textref =~ /^\s*([^\n]*)/;
-    print STDERR "Title: ^$title^\n";
     if (length($title) > 100) {
         $title = substr ($title, 0, 100);