484 |
|
|
485 |
let html_mods_table_header buf n c l = |
let html_mods_table_header buf n c l = |
486 |
(* Name Class List *) |
(* Name Class List *) |
487 |
Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table id=\\\"%s\\\" name=\\\"%s\\\" class=\\\"%s\\\" cellspacing=0 cellpadding=0\\>" |
Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table id=\\\"%s\\\" name=\\\"%s\\\" class=\\\"%s\\\" cellspacing=0 cellpadding=0\\>\\<tr\\>" |
488 |
c n n c; |
c n n c; |
489 |
if List.length l > 0 then begin |
List.iter (fun (w,x,y,z) -> |
490 |
Printf.bprintf buf "\\<tr\\>"; |
(* Sort Class Title Value *) |
491 |
List.iter (fun (w,x,y,z) -> |
Printf.bprintf buf "\\<td onClick=\\\"_tabSort(this,%s);\\\" class=\\\"%s\\\" title=\\\"%s\\\"\\>%s\\</td\\>" |
492 |
(* Sort Class Title Value *) |
w x y z; |
493 |
Printf.bprintf buf "\\<td onClick=\\\"_tabSort(this,%s);\\\" class=\\\"%s\\\" title=\\\"%s\\\"\\>%s\\</td\\>" |
) l; |
494 |
w x y z; |
Printf.bprintf buf "\\</tr\\>" |
495 |
) l; |
|
|
Printf.bprintf buf "\\</tr\\>" |
|
|
end |
|
496 |
(* Add colspan functionality to html_mods_table_header *) |
(* Add colspan functionality to html_mods_table_header *) |
497 |
|
|
498 |
let html_mods_table_header_colspan buf n c l = |
let html_mods_table_header_colspan buf n c l = |