Re: might_have , has_many request

[prev] [thread] [next] [Date index for 2005/03/01]

--- Tony Bowden <tony-cdbitalk@xxxxx.xxx> wrote:

> On Mon, Feb 28, 2005 at 03:24:40PM -0800, Peter Speltz wrote:
> > One thing it doesn't look like you can provide the "foreign_key" ("third")
> > argument in your patch.  Just one more line of code in remap_args in the if
> > (ref $fkey eq "HASH") case would do it. 
> 
> Can you give a failing test case for this?
> 

Can't do it. It works. You guys are good. ONe thing that doesn't work is when
you say $obj->add_to_* without the constraint column , the constraint is not
filled in and that column gets default. Similaryly the constraint is not
enforced in an add_to_* call. 

I just tested this in my maypole app. Here's my code:

__PACKAGE__->has_many(computers => 'MyCDBI::Computer', 'cstmr_id',
{constraint=> [os => 'Linux']});

sub add_computers {
  my ($self, $r, $obj) = @_;
  my $puter = $obj->add_to_computers ( 
     { username => 'No_OS', pw => 'FAIL1' });
  # $puter->os is default "Windows XP" not "Linux". Should it be Linux????

  $puter =  $obj->add_to_computers ( { username => 'OSBad', pw => 'Windows, os
=> "Windows"} );
   # $puter->os is "Windows" not "Linux". Should it be????

  $r->objects([$obj->computers]); # Only Linux computers in list :)
  $r->redirect('/computer/list');
}





=====
pjs


		
__________________________________ 
Do you Yahoo!? 
Yahoo! Sports - Sign up for Fantasy Baseball. 
http://baseball.fantasysports.yahoo.com/