/[mldonkey]/mldonkey/src/daemon/driver/driverInteractive.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/driver/driverInteractive.ml

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

revision 1.41 by spiralvoice, Thu Jul 14 14:00:20 2005 UTC revision 1.42 by spiralvoice, Sun Jul 17 16:06:25 2005 UTC
# Line 958  let old_print_search buf o results = Line 958  let old_print_search buf o results =
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)" ) ;
# Line 966  let old_print_search buf o results = Line 968  let old_print_search buf o results =
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
# Line 994  let old_print_search buf o results = Line 996  let old_print_search buf o results =
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;

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

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