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 *) |