Changeset 16792

Show
Ignore:
Timestamp:
14.08.2008 16:45:07 (11 years ago)
Author:
davidb
Message:

Comment out some debugging code

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/doc.pm

    r16670 r16792  
    132132    $self->{'OIDtype'} = "hash"; 
    133133    } 
     134 
    134135    if ($type =~ /^assigned$/) { 
    135136    if (defined $metadata) { 
     
    154155    # resulting string is ASCII (utf8). 
    155156     
    156     print STDERR "******URLencoding the gsdl_source_filename $source_filename "; 
     157#    print STDERR "******URLencoding the gsdl_source_filename $source_filename "; 
    157158     
    158159    # URLencode just the gsdl_source_filename, not the directory. Then prepend dir  
    159160    my ($srcfilename,$dirname,$suffix)  
    160161    = &File::Basename::fileparse($source_filename, "\\.[^\\.]+\$"); 
    161     print STDERR "-> $srcfilename -> "; 
     162#    print STDERR "-> $srcfilename -> "; 
    162163    $srcfilename = &unicode::url_encode($srcfilename.$suffix); 
    163164    $source_filename = &util::filename_cat($dirname, $srcfilename); 
    164     print STDERR "$source_filename\n"; 
     165#    print STDERR "$source_filename\n"; 
    165166     
    166167    $self->set_utf8_metadata_element ($self->get_top_section(),