projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- should finish off the part_svc -> part_export s/one-to-many/many-to-many/
[freeside.git]
/
FS
/
FS
/
Record.pm
diff --git
a/FS/FS/Record.pm
b/FS/FS/Record.pm
index
978ea72
..
cb42b26
100644
(file)
--- a/
FS/FS/Record.pm
+++ b/
FS/FS/Record.pm
@@
-12,7
+12,7
@@
use DBI qw(:sql_types);
use DBIx::DBSchema 0.19;
use FS::UID qw(dbh checkruid getotaker datasrc driver_name);
use FS::SearchCache;
use DBIx::DBSchema 0.19;
use FS::UID qw(dbh checkruid getotaker datasrc driver_name);
use FS::SearchCache;
-use FS::
m
sgcat qw(gettext);
+use FS::
M
sgcat qw(gettext);
@ISA = qw(Exporter);
@EXPORT_OK = qw(dbh fields hfields qsearch qsearchs dbdef jsearch);
@ISA = qw(Exporter);
@EXPORT_OK = qw(dbh fields hfields qsearch qsearchs dbdef jsearch);
@@
-572,7
+572,7
@@
sub delete {
$h_sth->execute or return $h_sth->errstr if $h_sth;
dbh->commit or croak dbh->errstr if $FS::UID::AutoCommit;
$h_sth->execute or return $h_sth->errstr if $h_sth;
dbh->commit or croak dbh->errstr if $FS::UID::AutoCommit;
- #no need to needlessly destoy the data either
+ #no need to needlessly destoy the data either
(causes problems actually)
#undef $self; #no need to keep object!
'';
#undef $self; #no need to keep object!
'';
@@
-825,9
+825,12
@@
false.
sub ut_text {
my($self,$field)=@_;
sub ut_text {
my($self,$field)=@_;
+ warn "msgcat ". \&msgcat. "\n";
+ warn "notexist ". \¬exist. "\n";
+ warn "AUTOLOAD ". \&AUTOLOAD. "\n";
$self->getfield($field) =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/]+)$/
or return gettext('illegal_or_empty_text'). " $field: ".
$self->getfield($field) =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/]+)$/
or return gettext('illegal_or_empty_text'). " $field: ".
- $self->getfield($field);
+
$self->getfield($field);
$self->setfield($field,$1);
'';
}
$self->setfield($field,$1);
'';
}