Re: [CDBI] overloaded operator problem
Perrin Harkins <[email protected]>
| Newsgroups | gmane.comp.lang.perl.modules.class-dbi |
|---|---|
| Message-ID | <[email protected]> |
On Thu, 2006-06-01 at 15:53 +0200, Rolf Schaufelberger wrote:
> Operation `eq': no method found,
> left argument in overloaded package PW::DB::Company,
> right argument has no overloaded magic
> at /serv/perl/lib//PW/PermissionManager.pm line 15.
> context:
> ...
> 11:
> 12: sub grants($$$$) {
> 13: my ( $this, $user, $action, $resource ) = @_;
> 14: return 0 unless $action eq 'admin';
> 15: return 1 if ( $user->company_id() eq '1' || $user->company_id() eq
> '2' );
> 16: return 0;
> 17: }
Try changing those to $user->company_id()->id(). I always change my
accessor names for things with a has_a on them so that I can call
$user->company() instead.
Also, is company_id part of the primary key for $user?
- Perrin