/[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.25 by dpavlin, Fri Sep 6 23:48:41 2002 UTC revision 1.26 by dpavlin, Thu Oct 24 18:25:20 2002 UTC
# Line 3281  sub vGetSearchResults { Line 3281  sub vGetSearchResults {
3281                  $main::FormData{'Database'} = join("\0", keys(%Databases));                  $main::FormData{'Database'} = join("\0", keys(%Databases));
3282          }          }
3283    
3284            # now add all databases that had to be included always
3285            foreach (my $db = @main::always_selected_databases) {
3286                    $Databases{$db} = $Value{$db};
3287            }
3288    
3289          # Make sure that we send the header          # Make sure that we send the header
3290          &vSendHTMLHeader("Rezultati pretraživanja", undef);          &vSendHTMLHeader("Rezultati pretraživanja", undef);
3291          undef(%Value);          undef(%Value);
3292          &vSendMenuBar(%Value);          &vSendMenuBar(%Value);
3293    
   
3294          # Check that at least one database was selected          # Check that at least one database was selected
3295          if ( !defined($main::FormData{'Database'}) ) {          if ( !defined($main::FormData{'Database'}) && $#main::always_selected_databases < 0 ) {
3296                  print("<H3>Pretraživanje baza:</H3>\n");                  print("<H3>Pretraživanje baza:</H3>\n");
3297                  print("<H3><CENTER>Niste odabrali knjižnicu koju želite pretraživati.</CENTER></H3>\n");                  print("<H3><CENTER>Niste odabrali knjižnicu koju želite pretraživati.</CENTER></H3>\n");
3298                  print("<P>\n");                  print("<P>\n");
# Line 3324  sub vGetSearchResults { Line 3326  sub vGetSearchResults {
3326    
3327          # Convert all the '\0' to ','          # Convert all the '\0' to ','
3328          $Databases =~ tr/\0/,/;          $Databases =~ tr/\0/,/;
3329            
3330            # add always selected databases
3331            if (@main::always_selected_databases) {
3332                    $Databases .= ",".join(",",@main::always_selected_databases);
3333            }
3334    
3335          # Add the max doc restriction          # Add the max doc restriction
3336          if ( !defined($main::FormData{'Max'}) ) {          if ( !defined($main::FormData{'Max'}) ) {
# Line 7399  sub ShowDatabaseCheckBoxes { Line 7405  sub ShowDatabaseCheckBoxes {
7405          foreach my $ItemEntry ( @_ ) {          foreach my $ItemEntry ( @_ ) {
7406                  $Value{$ItemEntry} = $ItemEntry;                  $Value{$ItemEntry} = $ItemEntry;
7407          }          }
7408                    
7409          print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n");          print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n");
7410          print "<tr><td colspan=3 align=\"center\">          print "<tr><td colspan=3 align=\"center\">
7411                  <font size=-1>Označi                  <font size=-1>Označi
# Line 7443  sub ShowDatabaseCheckBoxes { Line 7449  sub ShowDatabaseCheckBoxes {
7449          }          }
7450    
7451          print("</TABLE>\n");          print("</TABLE>\n");
7452    
7453  }  }
7454    
7455  #--------------------------------------------------------------------------  #--------------------------------------------------------------------------
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.26