cvs commit: p5ee/App-Repository/lib/App RepositoryObject.pm

cvsuser     04/09/02 14:01:03

  Modified:    App-Repository/lib/App RepositoryObject.pm
  Log:
  finally implemented this and it works
  
  Revision  Changes    Path
  1.2       +69 -31    p5ee/App-Repository/lib/App/RepositoryObject.pm
  
  Index: RepositoryObject.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/RepositoryObject.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- RepositoryObject.pm	12 Oct 2002 03:03:48 -0000	1.1
  +++ RepositoryObject.pm	2 Sep 2004 21:01:03 -0000	1.2
  @@ -1,13 +1,12 @@
   
   #############################################################################
  -## $Id: RepositoryObject.pm,v 1.1 2002/10/12 03:03:48 spadkins Exp $
  +## $Id: RepositoryObject.pm,v 1.2 2004/09/02 21:01:03 spadkins Exp $
   #############################################################################
   
   package App::RepositoryObject;
   
   use App;
  -use App::Service;
  -@ISA = ( "App::Service" );
  +use App::Repository;
   
   use strict;
   
  @@ -19,15 +18,7 @@
   
       use App::RepositoryObject;
   
  -    $context = App->context();
  -
  -    $rep = $context->service("Repository");  # or ...
  -    $rep = $context->repository();
  -
  -    $obj = $rep->object($table, $key);
  -
  -    $value  = $rep->get($attrib);
  -    $rep->set($attrib, $value);
  +    ...
   
   =cut
   
  @@ -36,15 +27,20 @@
   A RepositoryObject is an object whose state is stored in a repository.
   It is a base class for many business classes.
   
  -All RepositoryObjects are created using the $rep->object() method,
  +All RepositoryObjects are created using the $rep->get_object() or
  +$rep->get_objects() methods,
   and they all have the following attributes.
   
  -    $self->{repository} - the Repository which the object came from
  -    $self->{context}    - the Context the object is running in
  -    $self->{table}      - the table name associated with the object
  -    $self->{key}        - the unique identifier of the object in the
  +    $self->{_repository} - the Repository which the object came from
  +    $self->{_table}      - the table name associated with the object
  +    $self->{_key}        - the unique identifier of the object in the
                             table in the repository
   
  +I am considering adding the following standard attribute, but I have
  +not yet decided whether I should.
  +
  +    $self->{_context}    - the Context the object is running in
  +
   =cut
   
   #############################################################################
  @@ -62,8 +58,9 @@
   =head2 get()
   
       * Signature: $value = $obj->get($attrib);
  -    * Param:     $attrib      string
  -    * Return:    $value       any
  +    * Signature: $value = $obj->get($attrib, $options);
  +    * Param:     $attrib      string,ARRAY
  +    * Return:    $value       any,ARRAY
       * Throws:    App::Exception
       * Since:     0.01
   
  @@ -71,14 +68,41 @@
   
       $value = $obj->get($attrib);
   
  -Gets the value of an attribute of an object.
  +Gets the value of one or more attributes of an object.
   
   =cut
   
   sub get {
  -    my ($self, $attrib) = @_;
  -    return undef if (! defined $self->{key});
  -    return $self->{repository}->get_value($self->{table}, $self->{key}, $attrib);
  +    my ($self, $attrib, $options) = @_;
  +    my (@values, $value);
  +    if (ref($attrib) eq "ARRAY") {
  +        foreach my $column (@$attrib) {
  +            if (exists $self->{$attrib}) {
  +                push(@values, $self->{$attrib});
  +            }
  +            else {
  +                @values = ();
  +                last;
  +            }
  +        }
  +        if ($#values == -1) {
  +            @values = $self->{_repository}->get($self->{_table}, $self->{_key}, $attrib);
  +            for (my $i = 0; $i <= $#$attrib; $i++) {
  +                $self->{$attrib->[$i]} = $values[$i];
  +            }
  +        }
  +        return(@values);
  +    }
  +    else {
  +        if (exists $self->{$attrib}) {
  +            $value = $self->{$attrib};
  +        }
  +        else {
  +            $value = $self->{_repository}->get($self->{_table}, $self->{_key}, $attrib);
  +            $self->{$attrib} = $value;
  +        }
  +        return($value);
  +    }
   }
   
   #############################################################################
  @@ -88,9 +112,10 @@
   =head2 set()
   
       * Signature: $obj->set($attrib, $value);
  -    * Param:     $attrib      string
  -    * Param:     $value       any
  -    * Return:    void
  +    * Signature: $obj->set($attrib, $value, $options);
  +    * Param:     $attrib      string,ARRAY
  +    * Param:     $value       any,ARRAY
  +    * Param:     $options     any,ARRAY
       * Throws:    App::Exception
       * Since:     0.01
   
  @@ -98,14 +123,27 @@
   
       $obj->set($attrib, $value);
   
  -Sets the value of an attribute of an object.
  +Sets the value of one or more attributes of an object.
   
   =cut
   
   sub set {
  -    my ($self, $attrib, $value) = @_;
  -    $self->{repository}->set_value($self->{table}, $self->{key}, $attrib, $value)
  -        if ($self->{key});
  +    my ($self, $attrib, $value, $options) = @_;
  +    my $nrows = $self->{_repository}->set($self->{_table}, $self->{_key}, $attrib, $value);
  +    if (ref($attrib) eq "ARRAY") {
  +        for (my $i = 0; $i <= $#$attrib; $i++) {
  +            if ($nrows && exists $self->{$attrib->[$i]}) {
  +                $self->{$attrib->[$i]} = $value->[$i];
  +            }
  +        }
  +    }
  +    else {
  +        if ($nrows && exists $self->{$attrib}) {
  +            $self->{$attrib} = $value;
  +        }
  +    }
  +    die "can't set($attrib, $value) on object[$self->{_table}.$self->{_key}]" if (!$nrows);
  +    return($nrows);
   }
   
   =head1 ACKNOWLEDGEMENTS