/[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.24 by dpavlin, Wed Jul 17 18:37:39 2002 UTC revision 1.27 by dpavlin, Thu Oct 24 18:42:18 2002 UTC
# Line 2998  sub vGetSearch { Line 2998  sub vGetSearch {
2998    
2999          # Send the start of the form and the buttons          # Send the start of the form and the buttons
3000          print("<TD ALIGN=RIGHT VALIGN=TOP>\n");          print("<TD ALIGN=RIGHT VALIGN=TOP>\n");
3001          print("<FORM ACTION=\"$ENV{'SCRIPT_NAME'}/GetSearchResults\" NAME=\"Search\" METHOD=POST> <INPUT TYPE=SUBMIT VALUE=\"Pretra¾i bazu\"> <INPUT TYPE=RESET VALUE=\"Pobri¹i polja\">\n");          print("<FORM ACTION=\"$ENV{'SCRIPT_NAME'}/GetSearchResults\" NAME=\"Search\" METHOD=POST> <INPUT TYPE=SUBMIT VALUE=\"Pretra¾i bazu\"> <INPUT TYPE=RESET VALUE=\"Vrati poèetne vrijednosti\">\n");
3002          print("</TD></TR>\n");          print("</TD></TR>\n");
3003    
3004          print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><BR></TD></TR>\n");          print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><BR></TD></TR>\n");
# Line 3056  sub vGetSearch { Line 3056  sub vGetSearch {
3056          print("</SELECT> </TD></TR>\n");          print("</SELECT> </TD></TR>\n");
3057    
3058          print "<tr><td align=left valign=top> Prika¾i samo tip graðe: </td><td align=left valign=top colspan=2>";          print "<tr><td align=left valign=top> Prika¾i samo tip graðe: </td><td align=left valign=top colspan=2>";
3059          foreach my $tip (keys %default::tip) {          while (@default::tip_html) {
3060                  print '<input TYPE="checkbox" NAME="tip" VALUE="',nuke_accents($default::tip{$tip}),'" >',$default::tip{$tip},"&nbsp&nbsp;";                  print '<input TYPE="checkbox" NAME="tip" VALUE="',nuke_accents(shift @default::tip_html),'" >',shift @default::tip_html,"&nbsp&nbsp;";
3061          }          }
3062          print "</td></tr>\n";          print "</td></tr>\n";
3063    
# Line 3180  sub vGetSearch { Line 3180  sub vGetSearch {
3180    
3181    
3182          print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><HR WIDTH=50%></TD></TR>\n");          print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><HR WIDTH=50%></TD></TR>\n");
3183          print("<TR><TD ALIGN=RIGHT COLSPAN=3><INPUT TYPE=SUBMIT VALUE=\"Pretra¾i bazu\"> <INPUT TYPE=RESET VALUE=\"Pobri¹i polja\"></TD></TR>\n");          print("<TR><TD ALIGN=RIGHT COLSPAN=3><INPUT TYPE=SUBMIT VALUE=\"Pretra¾i bazu\"> <INPUT TYPE=RESET VALUE=\"Vrati poèetne vrijednosti\"></TD></TR>\n");
3184    
3185          print("</FORM>\n");          print("</FORM>\n");
3186          print("</TABLE>\n");          print("</TABLE>\n");
# 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 6885  sub vRunSavedSearches { Line 6891  sub vRunSavedSearches {
6891                          # Print out the message header (Content-Type)                          # Print out the message header (Content-Type)
6892                          if ( $DeliveryMethod eq "attachement" ) {                          if ( $DeliveryMethod eq "attachement" ) {
6893                                  print("Mime-Version: 1.0\n");                                  print("Mime-Version: 1.0\n");
                                 print("Content-Type: multipart/mixed; boundary=\"============_-1234567890==_============\"\n");  
6894                          }                          }
6895                          else {                          else {
6896                                  print("Mime-Version: 1.0\n");                                  print("Mime-Version: 1.0\n");
# Line 7399  sub ShowDatabaseCheckBoxes { Line 7404  sub ShowDatabaseCheckBoxes {
7404          foreach my $ItemEntry ( @_ ) {          foreach my $ItemEntry ( @_ ) {
7405                  $Value{$ItemEntry} = $ItemEntry;                  $Value{$ItemEntry} = $ItemEntry;
7406          }          }
7407                    
7408          print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n");          print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n");
7409          print "<tr><td colspan=3 align=\"center\">          print "<tr><td colspan=3 align=\"center\">
7410                  <font size=-1>Oznaèi                  <font size=-1>Oznaèi
# Line 7443  sub ShowDatabaseCheckBoxes { Line 7448  sub ShowDatabaseCheckBoxes {
7448          }          }
7449    
7450          print("</TABLE>\n");          print("</TABLE>\n");
7451    
7452  }  }
7453    
7454  #--------------------------------------------------------------------------  #--------------------------------------------------------------------------
7455  #  #
7456  sub nuke_accents {  sub nuke_accents {
7457          my $tmp = $_[0];          my $tmp = $_[0];
7458          $tmp =~ tr/Çüéâäùæç³ëÕõî¬ÄÆÉÅåôö¥µ¦¶ÖÜ«»£èáíóú¡±®¾Êê¼ÈºÁÂ̪¯¿ÃãðÐÏËïÒÍÎìÞÙÓÔÑñò©¹ÀÚàÛýÝþ´­½²·¢¸¨ÿØø/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'-".'',"'Rr/;          $tmp =~ tr/Çüéâäùæç³ëÕõî¬ÄÆÉÅåôö¥µ¦¶ÖÜ«»£èáíóú¡±®¾Êê¼ÈºÁÂ̪¯¿ÃãðÐÏËïÒÍÎìÞÙÓÔÑñò©¹ÀÚàÛýÝþ´½²·¢¸¨ÿØø/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'".'',"'Rr/;
7459          # convert search string to lower case -> make search case insensitive          # convert search string to lower case -> make search case insensitive
7460          $tmp =~ tr/A-Z/a-z/;          $tmp =~ tr/A-Z/a-z/;
7461          return $tmp;          return $tmp;
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.26