Changeset 10165 for trunk/gsdl/bin


Ignore:
Timestamp:
2005-06-23T11:37:04+12:00 (19 years ago)
Author:
davidb
Message:

Extra section of code (currently not needed) comment out for the meantime.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/bin/script/lucene_passes.pl

    r10163 r10165  
    7979    my @secs =  ($doc_xml =~ m/<Sec\s+gs2:id="\d+"\s*>.*?<\/Sec>/sg);
    8080
    81     foreach my $sec (@secs) {
    82     my ($docnum,$sec_text) = ($sec =~ m/<Sec\s+gs2:id="(\d+)"\s*>(.*?)<\/Sec>/s);
    83     my $docnum_filename
    84         = &util::filename_cat($full_textdir,"$docnum.xml");
    85    
    86     open(SECOUT,">$docnum_filename")
    87         || die "Unable to open $docnum_filename";
    88 
    89     print SECOUT &ghtml::unescape_html($sec_text);
    90     close(SECOUT);
    91     }
     81
     82# Currently not used, but consult with DB before removing
     83#    foreach my $sec (@secs) {
     84#   my ($docnum,$sec_text) = ($sec =~ m/<Sec\s+gs2:id="(\d+)"\s*>(.*?)<\/Sec>/s);
     85#   my $docnum_filename
     86#       = &util::filename_cat($full_textdir,"$docnum.xml");
     87
     88#   
     89#   open(SECOUT,">$docnum_filename")
     90#       || die "Unable to open $docnum_filename";
     91
     92#   print SECOUT &ghtml::unescape_html($sec_text);
     93#   close(SECOUT);
     94#    }
    9295
    9396}
Note: See TracChangeset for help on using the changeset viewer.