cvsuser 05/11/07 20:51:31
Modified: App-Widget/lib/App/Widget DataTable2.pm
Log:
begin to add CSS classes to tags
Revision Changes Path
1.2 +5 -4 p5ee/App-Widget/lib/App/Widget/DataTable2.pm
Index: DataTable2.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Widget/lib/App/Widget/DataTable2.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- DataTable2.pm 20 Oct 2005 20:29:50 -0000 1.1
+++ DataTable2.pm 8 Nov 2005 04:51:31 -0000 1.2
@@ -620,14 +620,14 @@
my ($html, $row, $col, $elem);
my ($td_row_attrib, $td_col_attrib, $elem_begin, $elem_end,
$table_begin);
- $table_begin = "<table";
+ $table_begin = "<table class=\"App-DataTable-grid\"";
$table_begin .= " width=\"$width\"" if (defined $width && $width ne "");
$table_begin .= " border=\"$border\"" if (defined $border && $border ne
"");
$table_begin .= " cellspacing=\"$cellspacing\"" if (defined $cellspacing
&& $cellspacing ne "");
$table_begin .= " cellpadding=\"$cellpadding\"" if (defined $cellpadding
&& $cellpadding ne "");
$table_begin .= ">\n";
- $html = "<!-- -->";
+ $html = "<div id=\"$name\" class=\"App-DataTable\">\n";
if (defined $title) {
$title = $context->substitute($title);
$html .= $title;
@@ -1112,6 +1112,7 @@
$html .= $rep->{sql};
$html .= "-->\n";
}
+ $html .= "</div>\n";
&App::sub_exit("<html ...>") if ($App::trace);
$html;
}
