/[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.38 by spiralvoice, Sat Jul 23 14:19:48 2005 UTC revision 1.39 by spiralvoice, Thu Jul 28 18:22:31 2005 UTC
# Line 493  let html_mods_table_header buf n c l = Line 493  let html_mods_table_header buf n c l =
493      ) l;      ) l;
494      Printf.bprintf buf "\\</tr\\>"      Printf.bprintf buf "\\</tr\\>"
495    
496    (* Add colspan functionality to html_mods_table_header *)
497    
498    let html_mods_table_header_colspan buf n c l =
499        (* Name Class List *)
500        Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table id=\\\"%s\\\" name=\\\"%s\\\" class=\\\"%s\\\" cellspacing=0 cellpadding=0\\>\\<tr\\>"
501        c n n c;
502        List.iter (fun (v,w,x,y,z)  ->
503         (* Sort Class Title Value *)
504         Printf.bprintf buf "\\<td colspan=%s onClick=\\\"_tabSort(this,%s);\\\" class=\\\"%s\\\" title=\\\"%s\\\"\\>%s\\</td\\>"
505         v w x y z;
506        ) l;
507        Printf.bprintf buf "\\</tr\\>"
508    
509  let html_mods_table_no_header buf n c l =  let html_mods_table_no_header buf n c l =
510      (* 1 row * n cols *)      (* 1 row * n cols *)
511      (* Name Class List *)      (* Name Class List *)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

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