cvsuser 02/05/09 15:20:20
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML DateDropDowns.pm
Log:
updated to use changed API from parent
Revision Changes Path
1.4 +6 -6 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DateDropDowns.pm
Index: DateDropDowns.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DateDropDowns.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- DateDropDowns.pm 19 Apr 2002 14:45:23 -0000 1.3
+++ DateDropDowns.pm 9 May 2002 22:20:20 -0000 1.4
@@ -1,10 +1,10 @@
######################################################################
-## $Id: DateDropDowns.pm,v 1.3 2002/04/19 14:45:23 spadkins Exp $
+## $Id: DateDropDowns.pm,v 1.4 2002/05/09 22:20:20 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::DateDropDowns;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::Widget::HTML::StylizableContainer;
@ISA = ( "P5EEx::Blue::Widget::HTML::StylizableContainer" );
@@ -128,9 +128,9 @@
sub join_date {
my $self = shift;
my ($date, $day, $month, $year);
- $year = $self->get("year};
- $month = $self->get("month};
- $day = $self->get("day};
+ $year = $self->get("year");
+ $month = $self->get("month");
+ $day = $self->get("day");
$date = "${year}-${month}-$day";
$self->set_value($date);
}
@@ -157,7 +157,7 @@
$context->widget("${name}.day")->display() .
$context->widget("${name}.month")->display() .
$context->widget("${name}.year")->display() .
- $self->auto_event_tag("change");
+ $self->callback_event_tag("change");
}
1;