proceed with upgrade even when N/A cards can't be recovered

[freeside.git] / FS / FS / msg_template.pm

diff --git a/FS/FS/msg_template.pm b/FS/FS/msg_template.pm
index 83acde2..de804b6 100644 (file)
--- a/FS/FS/msg_template.pm
+++ b/FS/FS/msg_template.pm
@@ -123,6 +123,7 @@ sub check {
     || $self->ut_text('msgname')
     || $self->ut_foreign_keyn('agentnum', 'agent', 'agentnum')
     || $self->ut_textn('mime_type')
+    || $self->ut_anything('subject')
     || $self->ut_anything('body')
     || $self->ut_enum('disabled', [ '', 'Y' ] )
   ;
@@ -166,15 +167,11 @@ sub send {
 
   my $subs = $self->substitutions;
   
-  use Data::Dumper;
-  warn Dumper($subs);
-
   #XXX html escape this stuff
   my %hash = map { $_ => $cust_main->$_() } @{ $subs->{'cust_main'} };
   unless ( ! $object || $object->table eq 'cust_main' ) {
     %hash = ( %hash, map { $_ => $object->$_() } @{ $subs->{$object->table} } );
   }
-  warn Dumper(\%hash);
 
   my $subject_tmpl = new Text::Template (
     TYPE   => 'STRING',