[CDBI] overloaded operator problem

[Perrin Harkins]

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