Changeset 1917 for trunk/gsdl/perllib/mgppbuildproc.pm

Timestamp:

2001-02-07T13:09:29+13:00 (23 years ago)

Author:

kjm18

Message:

minor changes

File:

• trunk/gsdl/perllib/mgppbuildproc.pm (modified) (6 diffs)

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -324 +324 @@
     # output all the section metadata
     my $metadata = $doc_obj->get_all_metadata ($section);
-    foreach $pair (@$metadata) {
+    foreach my $pair (@$metadata) {
         my ($field, $value) = (@$pair);
 
@@ -482 +482 @@
 
     # see if this document belongs to this subcollection
-    foreach $indexexp (@{$self->{'indexexparr'}}) {
+    foreach my $indexexp (@{$self->{'indexexparr'}}) {
     $indexed_doc = 0;
     my ($field, $exp, $options) = split /\//, $indexexp;
@@ -525 +525 @@
     }
     my $doc_section = 0; # just for this document
-    my $text = "";
-    if ($self->{'num_docs'} == 1) {
-    $text = "<Document>\n";
-    }
-    else {
-    $text = "</Document><Document>\n";
-    }
-    my $text_extra = "";
-
+    my $text = "<Document>\n";
+   
     # get the text for this document
     my $section = $doc_obj->get_top_section();
@@ -544 +537 @@
     if ($indexed_doc) {
         $self->{'num_bytes'} += $doc_obj->get_text_length ($section);
-        foreach $field (split (/,/, $fields)) {
+        foreach my $field (split (/,/, $fields)) {
         # only deal with this field if it doesn't start with top or
         # this is the first section
@@ -618 +611 @@
             $self->filter_text ($field, $new_text);
 
-            #????????????????????
-            if ($self->{'indexing_text'} && 
-            $new_text =~ /[\(\)\{\}]/) {
-            }
             $self->{'num_processed_bytes'} += length ($new_text);
             $text .= "$new_text";
@@ -630 +619 @@
     $section = $doc_obj->get_next_section($section);
     } #while defined section
-    print $handle "$text"; 
+    print $handle "$text\n</Document>\n"; 
 }