/[webpac-proto]/search/Search.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /search/Search.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dpavlin, Sat Jun 15 17:37:32 2002 UTC revision 1.3 by dpavlin, Sun Jun 16 18:11:16 2002 UTC
# Line 196  $main::MPSSession = 0; Line 196  $main::MPSSession = 0;
196          'database-for-SearchFieldDescriptions','ps',          'database-for-SearchFieldDescriptions','ps',
197  );  );
198    
199  # DbP: Define which fields you have in normal and advanced search  # read configuration fields
200  # first define all available fields and then how many fields of that  require "config.pl";
 # are visible.  
 @main::NormalSearchFieldNames = (  
         '700+',  
         '200+',  
         '610',  
         '210',  
         '10',  
   
 );  
 $main::NormalSearchDropdowns = 3 ;  
   
 @main::AdvancedSearchFieldNames = (  
         '700+',  
         '200+',  
         '610',  
         '210',  
         '225',  
         '300+',  
         '330',  
         '464',  
         '675',  
         '686',  
         '990',  
         '991',  
         '10',  
         '001',  
 );  
 $main::AdvancedSearchDropdowns = 4 ;  
   
201    
202  # List of required configuration settings  # List of required configuration settings
203  @main::RequiredSettings = (  @main::RequiredSettings = (
# Line 7487  sub fill_SearchFieldDescriptions_fromDB Line 7458  sub fill_SearchFieldDescriptions_fromDB
7458                  foreach my $FieldInformation ( split(/\n/, $Text) ) {                  foreach my $FieldInformation ( split(/\n/, $Text) ) {
7459                          my ($FieldName, $FieldDescription, undef) = split(/\t/, $FieldInformation, 3);                          my ($FieldName, $FieldDescription, undef) = split(/\t/, $FieldInformation, 3);
7460                          $main::SearchFieldDescriptions{$FieldName} = $FieldDescription;                          $main::SearchFieldDescriptions{$FieldName} = $FieldDescription;
7461                            print "-- $FieldName --<br>\n";
7462                  }                  }
7463          }          }
7464  }  }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26