get rid of debugging cruft
authorivan <ivan>
Wed, 17 Apr 2002 11:41:30 +0000 (11:41 +0000)
committerivan <ivan>
Wed, 17 Apr 2002 11:41:30 +0000 (11:41 +0000)
FS/FS/Record.pm

index cb42b26..20da07e 100644 (file)
@@ -825,9 +825,9 @@ false.
 
 sub ut_text {
   my($self,$field)=@_;
-  warn "msgcat ". \&msgcat. "\n";
-  warn "notexist ". \&notexist. "\n";
-  warn "AUTOLOAD ". \&AUTOLOAD. "\n";
+  #warn "msgcat ". \&msgcat. "\n";
+  #warn "notexist ". \&notexist. "\n";
+  #warn "AUTOLOAD ". \&AUTOLOAD. "\n";
   $self->getfield($field) =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/]+)$/
     or return gettext('illegal_or_empty_text'). " $field: ".
                $self->getfield($field);