Changeset 3158 for trunk/gsdl/perllib/mgppbuilder.pm

Timestamp:

2002-06-21T14:39:08+12:00 (21 years ago)

Author:

kjdon

Message:

the indexfieldmap list is now in sorted order with TextOnly at the front. this
list becomes the valid values of queryfilteroption IndexFields, used by
queryaction to make the field list in mgpp form queries. IndexFields has
a default valid value of All Fields which is always present at the front
of the list.

File:

• trunk/gsdl/perllib/mgppbuilder.pm (modified) (1 diff)

trunk/gsdl/perllib/mgppbuilder.pm

@@ -900 +900 @@
     # store the indexfieldmap information
     my @indexfieldmap = ();
-    #add all fields bit
-    foreach $field (keys %{$self->{'buildproc'}->{'indexfields'}}) {
+    #add all fields bit - sort based on keys. text only is put at front
+    if (defined $self->{'buildproc'}->{'indexfields'}->{'TextOnly'}) {
+    push (@indexfieldmap, "TextOnly\-\>TX");
+    }
+    foreach $field (sort keys %{$self->{'buildproc'}->{'indexfields'}}) {
+    next if $field eq "TextOnly";
     push (@indexfieldmap, "$field\-\>$self->{'buildproc'}->{'indexfieldmap'}->{$field}");
     }