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

Timestamp:

2000-12-08T12:18:37+13:00 (23 years ago)

Author:

kjm18

Message:

removed Paragraph stuff - now only has Document and Section; added </Document>

tags at end of docs; the metadata fields that are indexed are written to

indexfields line in build.cfg

File:

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

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -69 +69 @@
 
     $self->{'indexing_text'} = 0;
+    $self->{'indexfields'} = {};
 
     return bless $self, $class;
@@ -439 +440 @@
 
     my $doc_section = 0; # just for this document
-    my $text = "<Document>\n";
+    my $text = "";
+    if ($self->{'num_docs'} == 1) {
+    $text = "<Document>\n";
+    }
+    else {
+    $text = "</Document><Document>\n";
+    }
     my $text_extra = "";
 
@@ -459 +466 @@
             if ($real_field eq "text") {
             #print STDERR "in text bit";
-            $new_text = "<Paragraph>";
+            #$new_text = "<Paragraph>";
             $new_text .= $doc_obj->get_text ($section);
-            $self->find_paragraphs($new_text);
+            #$self->find_paragraphs($new_text);
             } else { # metadata field
             if ($real_field eq "metadata") { # insert all metadata 
@@ -474 +481 @@
                     $mfield !~ /^gsdl/ && defined $mvalue && $mvalue ne "") {
                    
-                    $new_text .= "<Paragraph><$mfield>$mvalue</$mfield>\n";
+                    $new_text .= "<$mfield>$mvalue</$mfield>\n";
                     #print STDERR "metadata=$mfield:$mvalue";
-                    
+                    if (!defined $self->{'indexfields'}->{$mfield}) {
+                        $self->{'indexfields'}->{$mfield} = 1;
+                    }                   
                 }
                 }
@@ -482 +491 @@
             }
             else { #individual metadata specified
+                if (!defined $self->{'indexfields'}->{$real_field}) {
+                $self->{'indexfields'}->{$real_field} = 1;
+                }               
                 foreach $item (@{$doc_obj->get_metadata ($section, $real_field)}) {
-                $new_text .= "<Paragraph><$real_field>$item</$real_field>\n";
+                $new_text .= "<$real_field>$item</$real_field>\n";
                 }
             }