Changeset 3158

Show
Ignore:
Timestamp:
21.06.2002 14:39:08 (17 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/mgppbuilder.pm

    r3144 r3158  
    900900    # store the indexfieldmap information 
    901901    my @indexfieldmap = (); 
    902     #add all fields bit 
    903     foreach $field (keys %{$self->{'buildproc'}->{'indexfields'}}) { 
     902    #add all fields bit - sort based on keys. text only is put at front 
     903    if (defined $self->{'buildproc'}->{'indexfields'}->{'TextOnly'}) { 
     904    push (@indexfieldmap, "TextOnly\-\>TX"); 
     905    } 
     906    foreach $field (sort keys %{$self->{'buildproc'}->{'indexfields'}}) { 
     907    next if $field eq "TextOnly"; 
    904908    push (@indexfieldmap, "$field\-\>$self->{'buildproc'}->{'indexfieldmap'}->{$field}"); 
    905909    }