Changeset 10165

Timestamp:

2005-06-23T11:37:04+12:00 (18 years ago)

Author:

davidb

Message:

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

File:

• trunk/gsdl/bin/script/lucene_passes.pl (modified) (1 diff)

trunk/gsdl/bin/script/lucene_passes.pl

@@ -79 +79 @@
     my @secs =  ($doc_xml =~ m/<Sec\s+gs2:id="\d+"\s*>.*?<\/Sec>/sg);
 
-    foreach my $sec (@secs) {
-    my ($docnum,$sec_text) = ($sec =~ m/<Sec\s+gs2:id="(\d+)"\s*>(.*?)<\/Sec>/s);
-    my $docnum_filename 
-        = &util::filename_cat($full_textdir,"$docnum.xml");
-    
-    open(SECOUT,">$docnum_filename") 
-        || die "Unable to open $docnum_filename";
-
-    print SECOUT &ghtml::unescape_html($sec_text);
-    close(SECOUT);
-    }
+
+# Currently not used, but consult with DB before removing
+#    foreach my $sec (@secs) {
+#   my ($docnum,$sec_text) = ($sec =~ m/<Sec\s+gs2:id="(\d+)"\s*>(.*?)<\/Sec>/s);
+#   my $docnum_filename 
+#       = &util::filename_cat($full_textdir,"$docnum.xml");
+
+#    
+#   open(SECOUT,">$docnum_filename") 
+#       || die "Unable to open $docnum_filename";
+
+#   print SECOUT &ghtml::unescape_html($sec_text);
+#   close(SECOUT);
+#    }
 
 }