projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
oops, debugging turned on
[freeside.git]
/
FS
/
FS
/
Record.pm
diff --git
a/FS/FS/Record.pm
b/FS/FS/Record.pm
index
34b556e
..
f681259
100644
(file)
--- a/
FS/FS/Record.pm
+++ b/
FS/FS/Record.pm
@@
-563,6
+563,17
@@
sub dbdef_table {
dbdef->table($table);
}
dbdef->table($table);
}
+=item primary_key
+
+Returns the primary key for the table.
+
+=cut
+
+sub primary_key {
+ my $self = shift;
+ my $pkey = $self->dbdef_table->primary_key;
+}
+
=item get, getfield COLUMN
Returns the value of the column/field/key COLUMN.
=item get, getfield COLUMN
Returns the value of the column/field/key COLUMN.
@@
-688,6
+699,8
@@
sub insert {
my $self = shift;
my $saved = {};
my $self = shift;
my $saved = {};
+ warn "$self -> insert" if $DEBUG;
+
my $error = $self->check;
return $error if $error;
my $error = $self->check;
return $error if $error;
@@
-784,8
+797,7
@@
sub insert {
dbh->rollback if $FS::UID::AutoCommit;
return dbh->errstr;
};
dbh->rollback if $FS::UID::AutoCommit;
return dbh->errstr;
};
- #$i_sth->execute($oid) or do {
- $i_sth->execute() or do {
+ $i_sth->execute() or do { #$i_sth->execute($oid)
dbh->rollback if $FS::UID::AutoCommit;
return $i_sth->errstr;
};
dbh->rollback if $FS::UID::AutoCommit;
return $i_sth->errstr;
};