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 = |