cvsuser 02/05/09 15:18:19
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML Label.pm
Log:
got labels to work right
Revision Changes Path
1.3 +3 -6 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Label.pm
Index: Label.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Label.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- Label.pm 19 Apr 2002 14:45:23 -0000 1.2
+++ Label.pm 9 May 2002 22:18:19 -0000 1.3
@@ -1,10 +1,10 @@
######################################################################
-## $Id: Label.pm,v 1.2 2002/04/19 14:45:23 spadkins Exp $
+## $Id: Label.pm,v 1.3 2002/05/09 22:18:19 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::Label;
-$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -65,10 +65,7 @@
sub html {
my $self = shift;
- my ($name, $value, $html);
- $name = $self->{name};
- $value = $self->get_value("");
- $html = "label ($name)";
+ my $html = $self->label();
$html;
}
