Changeset 16792

Timestamp:

2008-08-14T16:45:07+12:00 (16 years ago)

Author:

davidb

Message:

Comment out some debugging code

File:

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

gsdl/trunk/perllib/doc.pm

@@ -132 +132 @@
     $self->{'OIDtype'} = "hash";
     }
+
     if ($type =~ /^assigned$/) {
     if (defined $metadata) {
@@ -154 +155 @@
     # resulting string is ASCII (utf8).
     
-    print STDERR "******URLencoding the gsdl_source_filename $source_filename ";
+#    print STDERR "******URLencoding the gsdl_source_filename $source_filename ";
     
     # URLencode just the gsdl_source_filename, not the directory. Then prepend dir 
     my ($srcfilename,$dirname,$suffix) 
     = &File::Basename::fileparse($source_filename, "\\.[^\\.]+\$");
-    print STDERR "-> $srcfilename -> ";
+#    print STDERR "-> $srcfilename -> ";
     $srcfilename = &unicode::url_encode($srcfilename.$suffix);
     $source_filename = &util::filename_cat($dirname, $srcfilename);
-    print STDERR "$source_filename\n";
+#    print STDERR "$source_filename\n";
     
     $self->set_utf8_metadata_element ($self->get_top_section(),