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;
  
  
  


Reply via email to