/[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.1.1.1 by dpavlin, Thu Jun 13 17:01:56 2002 UTC revision 1.3 by dpavlin, Sun Jun 16 18:11:16 2002 UTC
# Line 191  $main::MPSSession = 0; Line 191  $main::MPSSession = 0;
191          'mailer-application','/usr/lib/sendmail',          'mailer-application','/usr/lib/sendmail',
192          'server-log','mps.log',          'server-log','mps.log',
193          'output-colums','yes',          'output-colums','yes',
194            'show-nr-colums',3,
195  #       'show-past-date-list','yes',  #       'show-past-date-list','yes',
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 3131  sub vGetSearch { Line 3103  sub vGetSearch {
3103    
3104    
3105                  $Flag = 0;                  $Flag = 0;
3106                  print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>\n");                  print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n");
3107    
3108                  my @html_database;                  my @html_database;
3109    
# Line 3150  sub vGetSearch { Line 3122  sub vGetSearch {
3122                  if ($main::ConfigurationData{'output-colums'}) {                  if ($main::ConfigurationData{'output-colums'}) {
3123                          # create database names in columns                          # create database names in columns
3124    
3125                          my $max = $#html_database+1 ;                          my $cols = $main::ConfigurationData{'show-nr-colums'};
3126                            my $next = int($#html_database/$cols) ;
3127    
3128                          my $j=0;                          for(my $i=0; $i <= $next ; $i++) {
3129                          for(my $i=0; $i < $max ; $i=$i+2) {                                  print("<tr>");
3130                                  print("<tr>",$html_database[$j],$html_database[$j+int($max/2)],"</tr>");                                  for(my $j=0; $j <= $cols; $j++) {
3131                                  $j++;                                          print($html_database[$i+$next*$j+$j]);
3132                                    }
3133                                    print("</tr>");
3134                          }                          }
3135    
3136                  } else {                  } else {
# Line 7483  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.1.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26