cvsuser 02/06/07 15:42:30
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML DataTable.pm
Log:
added translation of labels
Revision Changes Path
1.13 +5 -3 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DataTable.pm
Index: DataTable.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DataTable.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -w -r1.12 -r1.13
--- DataTable.pm 24 May 2002 17:23:26 -0000 1.12
+++ DataTable.pm 7 Jun 2002 22:42:30 -0000 1.13
@@ -1,10 +1,10 @@
######################################################################
-## $Id: DataTable.pm,v 1.12 2002/05/24 17:23:26 spadkins Exp $
+## $Id: DataTable.pm,v 1.13 2002/06/07 22:42:30 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::DataTable;
-$VERSION = do { my @r=(q$Revision: 1.12 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.13 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -196,10 +196,11 @@
my $self = shift;
$self->{context}->dbgprint("DataTable->get_headings()")
if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(1));
- my ($table, $headings, $heading, $columns, $column);
+ my ($table, $headings, $heading, $columns, $column, $lang);
$table = $self->get("table");
$columns = $self->get("columns");
$headings = $self->get("headings");
+ $lang = $self->{lang};
if (!defined $headings) {
$headings = [];
my ($repname, $context, $rep, $columnlabels);
@@ -210,6 +211,7 @@
foreach $column (@$columns) {
$heading = $columnlabels->{$column};
$heading = $column if (!defined $heading);
+ $heading = $self->translate($heading, $lang) if (defined $lang);
push(@$headings, $heading);
$self->{context}->dbgprint("DataTable->get_headings():
column=$column(",$#$columns,") heading=$heading(",$#$headings,")")
if ($P5EEx::Blue::DEBUG >= 6 && $self->{context}->dbg(6));
