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, [EMAIL PROTECTED], [EMAIL PROTECTED]);
sub insert_rows {
&App::sub_entry if ($App::trace);
