958 |
let user = o.conn_user in |
let user = o.conn_user in |
959 |
let counter = ref 0 in |
let counter = ref 0 in |
960 |
if use_html_mods o then |
if use_html_mods o then |
961 |
|
begin |
962 |
|
Printf.bprintf buf "\\<div id=\\\"object1\\\" style=\\\"position:absolute; background-color:FFFFDD;color:black;border-color:black;border-width:20; visibility:show; left:25px; top:-100px; z-index:+1\\\" onmouseover=\\\"overdiv=1;\\\" onmouseout=\\\"overdiv=0; setTimeout(\\\'hideLayer()\\\',1000)\\\"\\>pop up description layer\\</div\\>\n"; |
963 |
html_mods_table_header buf "resultsTable" "results" [ |
html_mods_table_header buf "resultsTable" "results" [ |
964 |
( "0", "srh", "Network", "Network" ) ; |
( "0", "srh", "Network", "Network" ) ; |
965 |
( "0", "srh", "File", "File (mouseover)" ) ; |
( "0", "srh", "File", "File (mouseover)" ) ; |
968 |
( "1", "srh ar", "Complete Sources", "C" ) ; |
( "1", "srh ar", "Complete Sources", "C" ) ; |
969 |
( "0", "srh", "Hash (click for bitzi lookup)", "Hash (bitzi click)" ) ; |
( "0", "srh", "Hash (click for bitzi lookup)", "Hash (bitzi click)" ) ; |
970 |
( "0", "srh", "Tags", "Tags (mouseover)" ) ] ; |
( "0", "srh", "Tags", "Tags (mouseover)" ) ] ; |
971 |
|
end; |
972 |
(try |
(try |
973 |
List.iter (fun (rs,r,avail) -> |
List.iter (fun (rs,r,avail) -> |
974 |
if !!display_downloaded_results || not r.result_done then begin |
if !!display_downloaded_results || not r.result_done then begin |
996 |
"--"; |
"--"; |
997 |
|
|
998 |
if o.conn_output = HTML then begin |
if o.conn_output = HTML then begin |
999 |
if !!html_mods then begin |
if !!html_mods then |
1000 |
Printf.bprintf buf "\\<td title=\\\""; |
begin |
1001 |
|
Printf.bprintf buf "\\<td onMouseOut=\\\"hideLayer()\\\" onMouseOver=\\\"popLayer('"; |
1002 |
|
begin |
1003 |
|
match r.result_names with |
1004 |
|
[] -> () |
1005 |
|
| name :: names -> |
1006 |
|
Printf.bprintf buf "%s" (Http_server.html_escaped name); |
1007 |
|
List.iter (fun s -> |
1008 |
|
if use_html_mods o then Printf.bprintf buf "\\<BR\\>"; |
1009 |
|
Printf.bprintf buf " %s" (Http_server.html_escaped s) |
1010 |
|
) names; |
1011 |
|
if use_html_mods o then Printf.bprintf buf "\\<BR\\>"; |
1012 |
|
end; |
1013 |
let nl = ref false in |
let nl = ref false in |
1014 |
List.iter (fun t -> |
List.iter (fun t -> |
1015 |
match t.tag_name with |
match t.tag_name with |
1016 |
| Field_UNKNOWN "FTH" | Field_UNKNOWN "urn" -> () |
| Field_UNKNOWN "FTH" | Field_UNKNOWN "urn" -> () |
1017 |
| _ -> |
| _ -> |
1018 |
Buffer.add_string buf ((if !nl then "\n" else begin nl := true;"" end) ^ |
Buffer.add_string buf ((if !nl then "<br>" else begin nl := true;"" end) ^ |
1019 |
"|| (" ^ |
"|| (" ^ |
1020 |
escaped_string_of_field t ^ "): " ^ get_tag_value t); |
escaped_string_of_field t ^ "): " ^ get_tag_value t); |
1021 |
) r.result_tags; |
) r.result_tags; |
1022 |
|
Printf.bprintf buf "')\\\" class=\\\"sr\\\"\\>\\<a href=results\\?d=%d target=\\\"$S\\\"\\>" r.result_num |
|
Printf.bprintf buf "\\\" class=\\\"sr\\\"\\>\\<a href=results\\?d=%d target=\\\"$S\\\"\\>" r.result_num |
|
1023 |
end |
end |
1024 |
else Printf.bprintf buf "\\<a href=results\\?d=%d $S\\>" r.result_num; |
else Printf.bprintf buf "\\<a href=results\\?d=%d $S\\>" r.result_num; |
1025 |
end; |
end; |