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 -> |
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> |
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 = |