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

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

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

revision 1.43 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC revision 1.44 by spiralvoice, Sun Aug 7 10:57:34 2005 UTC
# Line 509  let html_mods_commands buf n c l = Line 509  let html_mods_commands buf n c l =
509    
510  let html_mods_table_header buf n c l =  let html_mods_table_header buf n c l =
511      (* Name Class List *)      (* Name Class List *)
512      Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table id=\\\"%s\\\" name=\\\"%s\\\" class=\\\"%s\\\" cellspacing=0 cellpadding=0\\>\\<tr\\>"      Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table id=\\\"%s\\\" name=\\\"%s\\\" class=\\\"%s\\\" cellspacing=0 cellpadding=0\\>"
513      c n n c;      c n n c;
514      List.iter (fun (w,x,y,z)  ->      if List.length l > 0 then begin
515       (* Sort Class Title Value *)          Printf.bprintf buf "\\<tr\\>";
516       Printf.bprintf buf "\\<td onClick=\\\"_tabSort(this,%s);\\\" class=\\\"%s\\\" title=\\\"%s\\\"\\>%s\\</td\\>"          List.iter (fun (w,x,y,z)  ->
517       w x y z;           (* Sort Class Title Value *)
518      ) l;           Printf.bprintf buf "\\<td onClick=\\\"_tabSort(this,%s);\\\" class=\\\"%s\\\" title=\\\"%s\\\"\\>%s\\</td\\>"
519      Printf.bprintf buf "\\</tr\\>"           w x y z;
520            ) l;
521            Printf.bprintf buf "\\</tr\\>"
522          end
523  (* Add colspan functionality to html_mods_table_header *)  (* Add colspan functionality to html_mods_table_header *)
524    
525  let html_mods_table_header_colspan buf n c l =  let html_mods_table_header_colspan buf n c l =

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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