[Bps-public-commit] r15334 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Thu Aug 21 06:57:50 2008
New Revision: 15334

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Record.pm

Log:
 r70157 at onn:  sartak | 2008-08-21 06:48:23 -0400
 Pass the handle in record reference accessors


Modified: Prophet/trunk/lib/Prophet/Record.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Record.pm	(original)
+++ Prophet/trunk/lib/Prophet/Record.pm	Thu Aug 21 06:57:50 2008
@@ -18,7 +18,7 @@
 =cut
 
 has app_handle => (
-    isa => 'Maybe[Prophet::App]',
+    isa      => 'Maybe[Prophet::App]',
     is       => 'rw',
     required => 0,
 );
@@ -181,6 +181,7 @@
         my $self       = shift;
         my $record = $record_class->new(
             app_handle => $self->app_handle,
+            handle     => $self->handle,
             type       => $record_class->type,
         );
         $record->load(uuid => $self->prop($args{by}));