cvsuser 05/11/07 20:50:48
Modified: App-Widget/lib/App/Widget DataAnalysis.pm
Log:
add html_heading()
Revision Changes Path
1.2 +7 -2 p5ee/App-Widget/lib/App/Widget/DataAnalysis.pm
Index: DataAnalysis.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Widget/lib/App/Widget/DataAnalysis.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- DataAnalysis.pm 20 Oct 2005 20:56:47 -0000 1.1
+++ DataAnalysis.pm 8 Nov 2005 04:50:48 -0000 1.2
@@ -96,7 +96,8 @@
my $widget_names = $self->{widgets};
$widget_names = [ sort keys %$widget ] if (!$widget_names);
my ($args, $columns, $w);
- my $html = "<table border=0 cellspacing=2 cellpadding=2>\n";
+ my $html = $self->heading_html();
+ $html .= "<table border=0 cellspacing=2 cellpadding=2>\n";
foreach my $wname (@$widget_names) {
$html .= "<tr><td>\n";
$args = $widget->{$wname} || {};
@@ -115,5 +116,9 @@
$html;
}
+sub html_heading {
+ return("");
+}
+
1;
