[Bast-commits] r3374 - trunk/Anything/lib/Anything/InterfaceModel/Items/Action

[groditi at dev.catalyst.perl.org]

Author: groditi
Date: 2007-05-25 01:09:59 +0100 (Fri, 25 May 2007)
New Revision: 3374

Modified:
   trunk/Anything/lib/Anything/InterfaceModel/Items/Action/Create.pm
Log:
delayed_fields oops

Modified: trunk/Anything/lib/Anything/InterfaceModel/Items/Action/Create.pm
===================================================================
--- trunk/Anything/lib/Anything/InterfaceModel/Items/Action/Create.pm	2007-05-24 22:34:55 UTC (rev 3373)
+++ trunk/Anything/lib/Anything/InterfaceModel/Items/Action/Create.pm	2007-05-25 00:09:59 UTC (rev 3374)
@@ -19,10 +19,11 @@
     return $super->($self, @_) if $self->meta->is_anon_class;
     my $action_meta = $self->meta->create_anon_class(superclasses => [$class]);
 
+    my %delayed_fields;
     for my $val ($args{target_type}->typefields->all){
       my $attr_name = $val->FieldID->Name;
       $attr_name =~ s/ /_/g;  #TODO FIX FOR POSSIBLE COLLISIONS WHEN USING UNDERSCORES
-      $self->delayed_fields->{$attr_name} = $val;
+      $delayed_fields{$attr_name} = $val;
 
       $action_meta->add_attribute
         ($attr_name,
@@ -35,7 +36,7 @@
         );
     }
 
-    return $action_meta->new_object(@_);
+    return $action_meta->new_object(@_, delayed_fields => \%delayed_fields);
 
   };