/[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.5 by dpavlin, Mon Jun 24 13:47:06 2002 UTC revision 1.6 by dpavlin, Mon Jun 24 14:50:44 2002 UTC
# Line 2971  sub vGetSearch { Line 2971  sub vGetSearch {
2971    
2972          # Make sure that we send the header          # Make sure that we send the header
2973          $Value = ($ENV{'PATH_INFO'} eq "/GetExpandedSearch") ? "Pretraživanje s više kriterija" : "Jednostavno pretraživanje";          $Value = ($ENV{'PATH_INFO'} eq "/GetExpandedSearch") ? "Pretraživanje s više kriterija" : "Jednostavno pretraživanje";
2974          &vSendHTMLHeader($Value, undef);          my $JavaScript = '<SCRIPT LANGUAGE="JavaScript">
2975                    <!-- hide
2976                    function SetChecked(val) {
2977                            dml=document.Search;
2978                            len = dml.elements.length;
2979                            var i=0;
2980                            for( i=0 ; i<len ; i++) {
2981                                    if (dml.elements[i].name==\'Database\') {
2982                                            dml.elements[i].checked=val;
2983                                    }
2984                            }
2985                    }
2986                    // -->
2987                    </SCRIPT>
2988                    ';
2989    
2990            &vSendHTMLHeader($Value, $JavaScript);
2991    
2992          undef(%Value);          undef(%Value);
2993          $Value{'GetSearch'} = "GetSearch";          $Value{'GetSearch'} = "GetSearch";
# Line 3022  sub vGetSearch { Line 3038  sub vGetSearch {
3038    
3039          # Send the start of the form and the buttons          # Send the start of the form and the buttons
3040          print("<TD ALIGN=RIGHT VALIGN=TOP>\n");          print("<TD ALIGN=RIGHT VALIGN=TOP>\n");
3041          print("<FORM ACTION=\"$ENV{'SCRIPT_NAME'}/GetSearchResults\" 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=\"Pobriši polja\">\n");
3042          print("</TD></TR>\n");          print("</TD></TR>\n");
3043    
3044          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 3108  sub vGetSearch { Line 3124  sub vGetSearch {
3124    
3125    
3126                  $Flag = 0;                  $Flag = 0;
3127    
3128                    print('
3129                            <a href="javascript:SetChecked(1)">all</a>
3130                            <a href="javascript:SetChecked(0)">none</a>
3131                            ');
3132                    
3133                  print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n");                  print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n");
3134    
3135                  my @html_database;                  my @html_database;
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.26