cvs commit: p5ee/App-Widget/lib/App/Widget DataAnalysis.pm

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;