Changeset 4743

Timestamp:

2003-06-20T14:09:21+12:00 (21 years ago)

Author:

sjboddie

Message:

Build code changes allowing mg collections containing no indexes to
be built (it in fact builds a small "dummy:text" index if none are
specified since we need an index for the runtime code to be able to
retrieve the compressed text).

Location:

trunk/gsdl/perllib

Files:

• mgbuilder.pm (modified) (1 diff)
• mgbuildproc.pm (modified) (1 diff)

trunk/gsdl/perllib/mgbuilder.pm

@@ -118 +118 @@
     }
 
-    # make sure that the same index isn't specified more than once
-    my %tmphash = ();
-    my @tmparray = @{$self->{'collect_cfg'}->{'indexes'}};
-    $self->{'collect_cfg'}->{'indexes'} = [];
-    foreach my $i (@tmparray) {
-    if (!defined ($tmphash{$i})) {
-        push (@{$self->{'collect_cfg'}->{'indexes'}}, $i);
-        $tmphash{$i} = 1;
-    }
+    if (defined($self->{'collect_cfg'}->{'indexes'})) {
+    # make sure that the same index isn't specified more than once
+    my %tmphash = ();
+    my @tmparray = @{$self->{'collect_cfg'}->{'indexes'}};
+    $self->{'collect_cfg'}->{'indexes'} = [];
+    foreach my $i (@tmparray) {
+        if (!defined ($tmphash{$i})) {
+        push (@{$self->{'collect_cfg'}->{'indexes'}}, $i);
+        $tmphash{$i} = 1;
+        }
+    }
+    } else {
+    $self->{'collect_cfg'}->{'indexes'} = [];
+    }
+
+    if (scalar(@{$self->{'collect_cfg'}->{'indexes'}}) == 0) {
+    # no indexes have been specified so we'll build a "dummy:text" index
+    push (@{$self->{'collect_cfg'}->{'indexes'}}, "dummy:text");    
     }
 

trunk/gsdl/perllib/mgbuildproc.pm

@@ -475 +475 @@
         if (!($real_field =~ s/^top//) || ($doc_section == 1)) {
             my $new_text = "";
-            if ($real_field eq "text") {
+            if ($level eq "dummy") {
+            # a dummy index is a special case used when no
+            # indexes are specified (since there must always be
+            # at least one index or we can't retrieve the
+            # compressed text) - we add a small amount of text
+            # to these dummy indexes which will never be seen
+            # but will overcome mg's problems with building
+            # empty indexes
+            $new_text = "this is dummy text to stop mg barfing";
+            $self->{'num_processed_bytes'} += length ($new_text);
+
+            } elsif ($real_field eq "text") {
             $new_text = $doc_obj->get_text ($section) if $self->{'store_text'};
             $self->{'num_processed_bytes'} += length ($new_text);