|
Lines 254-265
sub add_validate {
Link Here
|
| 254 |
my $title = shift @title; |
254 |
my $title = shift @title; |
| 255 |
my $content = shift @content; |
255 |
my $content = shift @content; |
| 256 |
my $letter = C4::Letters::getletter( $oldmodule, $code, $branchcode, $mtt); |
256 |
my $letter = C4::Letters::getletter( $oldmodule, $code, $branchcode, $mtt); |
|
|
257 |
|
| 258 |
# getletter can return the default letter even if we pass a branchcode |
| 259 |
# If we got the default one and we needed the specific one, we didn't get the one we needed! |
| 260 |
if ( $letter and $branchcode ne $letter->{branchcode} ) { |
| 261 |
$letter = undef; |
| 262 |
} |
| 257 |
unless ( $title and $content ) { |
263 |
unless ( $title and $content ) { |
| 258 |
# Delete this mtt if no title or content given |
264 |
# Delete this mtt if no title or content given |
| 259 |
delete_confirmed( $branchcode, $oldmodule, $code, $mtt ); |
265 |
delete_confirmed( $branchcode, $oldmodule, $code, $mtt ); |
| 260 |
next; |
266 |
next; |
| 261 |
} |
267 |
} |
| 262 |
elsif ( $letter->{message_transport_type} eq $mtt ) { |
268 |
elsif ( $letter and $letter->{message_transport_type} eq $mtt ) { |
| 263 |
$dbh->do( |
269 |
$dbh->do( |
| 264 |
q{ |
270 |
q{ |
| 265 |
UPDATE letter |
271 |
UPDATE letter |
| 266 |
- |
|
|