diff options
author | ivan <ivan> | 2002-04-12 13:22:03 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-04-12 13:22:03 +0000 |
commit | e6ea57971831f25d682d97a0ba508c39b66ecd8b (patch) | |
tree | bdf395ca96a3eca52e9f4974c8bc289cbc0fe4ed /FS/FS/Record.pm | |
parent | a7c1b602f88c177db34477ed4cdc1f72603f8995 (diff) |
- should finish off the part_svc -> part_export s/one-to-many/many-to-many/
transition (closes: Bug#375)
- fixes a nasty export scoping bug with message catalogs, whew
Diffstat (limited to 'FS/FS/Record.pm')
-rw-r--r-- | FS/FS/Record.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 978ea72..cb42b26 100644 --- 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 FS::msgcat qw(gettext); +use FS::Msgcat qw(gettext); @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; - #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! ''; @@ -825,9 +825,12 @@ false. 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); + $self->getfield($field); $self->setfield($field,$1); ''; } |