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

cvsuser     04/10/19 08:31:04

  Modified:    App-Repository/lib/App Repository.pm
  Log:
  added insert() as a synonym for insert_row()
  
  Revision  Changes    Path
  1.13      +10 -1     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.12
  retrieving revision 1.13
  diff -u -w -r1.12 -r1.13
  --- Repository.pm	12 Oct 2004 14:08:25 -0000	1.12
  +++ Repository.pm	19 Oct 2004 15:31:03 -0000	1.13
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Repository.pm,v 1.12 2004/10/12 14:08:25 spadkins Exp $
  +## $Id: Repository.pm,v 1.13 2004/10/19 15:31:03 spadkins Exp $
   #############################################################################
   
   package App::Repository;
  @@ -1346,6 +1346,15 @@
       $retval;
   }
   
  +# NOTE: insert() is a synonym for insert_row()
  +sub insert {
  +    &App::sub_entry if ($App::trace);
  +    my ($self, $table, $cols, $row) = @_;
  +    my $retval = $self->_insert_row($table, $cols, $row);
  +    &App::sub_exit($retval) if ($App::trace);
  +    $retval;
  +}
  +
   # $ok = $rep->insert_rows ($table, \@cols, \@rows);
   sub insert_rows {
       &App::sub_entry if ($App::trace);