/[mldonkey]/mldonkey/src/daemon/common/commonSearch.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonSearch.ml

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

revision 1.14 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC revision 1.15 by spiralvoice, Thu Jul 14 14:00:19 2005 UTC
# Line 529  let custom_query buf query = Line 529  let custom_query buf query =
529        Printf.bprintf buf "No custom search %s" query        Printf.bprintf buf "No custom search %s" query
530    end    end
531    else    else
532    Printf.bprintf buf "      begin
533    (*       html_mods_table_header buf "searchTable" "search" [];
534          html_mods_td buf [
535            ("", "srh", "No searchable networks enabled"); ];
536     *)
537          Buffer.add_string buf "<div class=\"results\">
538    <table id=\"memstatsTable\" name=\"searchTable\" class=\"search\" cellspacing=0 cellpadding=0>
539    <tr><td class=\"srh\" >No searchable networks enabled</td>";
540    
541          Buffer.add_string buf "</tr></table></div>\n"
542        end
543    (*   Printf.bprintf buf "
544  <h3> No searchable networks enabled </h3>  <h3> No searchable networks enabled </h3>
545    "    "
546     *)
547  let complex_search buf =  let complex_search buf =
548    can_search := false;    can_search := false;
549    Hashtbl.iter (fun name net ->    Hashtbl.iter (fun name net ->
# Line 540  let complex_search buf = Line 551  let complex_search buf =
551              can_search := true;              can_search := true;
552        with _ -> ()        with _ -> ()
553    ) CommonNetwork.networks_by_name;    ) CommonNetwork.networks_by_name;
554      Buffer.add_string buf "<div class=\"results\">
555    <table id=\"memstatsTable\" name=\"searchTable\" class=\"search\" cellspacing=0 cellpadding=0>
556    <tr><td class=\"srh\" >";
557    
558    
559    Buffer.add_string  buf    Buffer.add_string  buf
560      "      "
561  <center>  <center>
562  <h2> Complex Search </h2>  <h2> Complex Search </h2>
563  </center>  </center>
564    </td>
565      ";      ";
566    
567    if !can_search then begin    if !can_search then begin
568    
569    Buffer.add_string  buf    Buffer.add_string  buf
570      "      "
571    <td>
572  <form action=\"submit\">  <form action=\"submit\">
573  <table border=0>  <table border=0>
574  <tr>  <tr>
# Line 725  Min bitrate Line 742  Min bitrate
742        with _ -> ()        with _ -> ()
743    ) CommonNetwork.networks_by_name;    ) CommonNetwork.networks_by_name;
744    Printf.bprintf buf "    Printf.bprintf buf "
745        </select></td></tr>";        </select></td></tr></table></form></td>";
746    end;    end;
747    if not !can_search then    if not !can_search then begin
748    (*       html_mods_table_header buf "searchTable" "search" [];
749          html_mods_td buf [
750            ("", "srh", "No searchable networks enabled"); ];
751     *)
752          Printf.bprintf buf "<td><div class=\"results\">
753    <table id=\"memstatsTable\" name=\"searchTable\" class=\"search\" cellspacing=0 cellpadding=0>
754    <tr><td class=\"srh\" >No searchable networks enabled</td>";
755    
756          Buffer.add_string buf "</tr></table></div></td>\n"
757        end;
758        (*
759    Printf.bprintf buf "    Printf.bprintf buf "
760  <h3> No searchable networks enabled </h3>  <h3> No searchable networks enabled </h3>
761    ";    ";
762      *)
763    Buffer.add_string buf    Buffer.add_string buf
764      "      "
765  </table>  </table>
766  </form>  </div>
767  "  "
768        
769  let search_forget user s =  let search_forget user s =

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26