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

[email protected] (Stephen Adkins)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
cvsuser     04/10/12 07:08:25

  Modified:    App-Repository/lib/App Repository.pm
  Log:
  make sure you load primary key info before using it for get_objects()
  
  Revision  Changes    Path
  1.12      +2 -2      p5ee/App-Repository/lib/App/Repository.pm
  
  Index: Repository.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -w -r1.11 -r1.12
  --- Repository.pm	2 Sep 2004 21:00:17 -0000	1.11
  +++ Repository.pm	12 Oct 2004 14:08:25 -0000	1.12
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Repository.pm,v 1.11 2004/09/02 21:00:17 spadkins Exp $
  +## $Id: Repository.pm,v 1.12 2004/10/12 14:08:25 spadkins Exp $
   #############################################################################
   
   package App::Repository;
  @@ -966,10 +966,10 @@
       my $tabledef = $self->{table}{$table};
       my $class = $tabledef->{class} || "App::RepositoryObject";
       App->use($class);
  +    my $objects = $self->get_hashes($table, $params, $cols, $options);
       my $primary_key = $tabledef->{primary_key};
       $primary_key = [$primary_key] if (ref($primary_key) eq "");
       my ($key);
  -    my $objects = $self->get_hashes($table, $params, $cols, $options);
       foreach my $object (@$objects) {
           $object->{_repository} = $self;
           $object->{_table} = $table;
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.