[Bps-public-commit] r14089 - in Data-Plist: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Jul 14 16:28:30 2008
New Revision: 14089

Modified:
   Data-Plist/   (props changed)
   Data-Plist/lib/Foundation/ToDoAlarm.pm

Log:
 r34152 at kohr-ah:  chmrr | 2008-07-14 16:28:20 -0400
  * Fix alarm serialization


Modified: Data-Plist/lib/Foundation/ToDoAlarm.pm
==============================================================================
--- Data-Plist/lib/Foundation/ToDoAlarm.pm	(original)
+++ Data-Plist/lib/Foundation/ToDoAlarm.pm	Mon Jul 14 16:28:30 2008
@@ -8,7 +8,7 @@
 sub serialize {
     my $self = shift;
     my $ret  = $self->SUPER::serialize;
-    $ret->{"ToDo Alarm Enabled"} = $ret->{"ToDo Alarm Enabled"}[1] ? [ true => 1 ] : [ false => 0 ];
+    $ret->[1]{"ToDo Alarm Enabled"} = $ret->[1]{"ToDo Alarm Enabled"}[1] ? [ true => 1 ] : [ false => 0 ];
     return $ret;
 }