cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue RepositoryObject.pm

[spadkins]

cvsuser     02/08/02 12:32:24

  Modified:    P5EEx/Blue/P5EEx/Blue RepositoryObject.pm
  Log:
  allowed for anonymous objects (really represent the classes or static methods)
  
  Revision  Changes    Path
  1.2       +4 -2      p5ee/P5EEx/Blue/P5EEx/Blue/RepositoryObject.pm
  
  Index: RepositoryObject.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/RepositoryObject.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- RepositoryObject.pm       30 Jul 2002 16:32:03 -0000      1.1
  +++ RepositoryObject.pm       2 Aug 2002 19:32:24 -0000       1.2
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: RepositoryObject.pm,v 1.1 2002/07/30 16:32:03 spadkins Exp $
  +## $Id: RepositoryObject.pm,v 1.2 2002/08/02 19:32:24 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::RepositoryObject;
  @@ -77,6 +77,7 @@
   
   sub get {
       my ($self, $attrib) = @_;
  +    return undef if (! defined $self->{key});
       return $self->{repository}->get_value($self->{table}, $self->{key}, $attrib);
   }
   
  @@ -103,7 +104,8 @@
   
   sub set {
       my ($self, $attrib, $value) = @_;
  -    $self->{repository}->set_value($self->{table}, $self->{key}, $attrib, $value);
  +    $self->{repository}->set_value($self->{table}, $self->{key}, $attrib, $value)
  +        if ($self->{key});
   }
   
   =head1 ACKNOWLEDGEMENTS