| line | % | coverage | branch |
|---|
| 102 | 0 | T | F | if (defined $cat) { } |
| 160 | 0 | T | F | unless my $alertid = shift @_ |
| 161 | 0 | T | F | if $debug |
| 181 | 0 | T | F | if ($borrowernumber and $borrowernumber =~ /^\d+$/) |
| 185 | 0 | T | F | if ($type) |
| 189 | 0 | T | F | if ($externalid) |
| 214 | 0 | T | F | unless my $type = shift @_ |
| 215 | 0 | T | F | unless my $externalid = shift @_ |
| 216 | 0 | T | F | $type eq 'borrower' ? : |
| 0 | T | F | $type eq 'issue' ? : |
| 220 | 0 | T | F | unless ($q) |
| 245 | 0 | T | F | if ($type eq 'issue') { } |
| 0 | T | F | elsif ($type eq 'claimacquisition') { } |
| 0 | T | F | elsif ($type eq 'claimissues') { } |
| 282 | 0 | T | F | if ($$borinfo{'email'}) |
| 290 | 0 | T | F | unless sendmail(%mail) |
| 329 | 0 | T | F | if ($type eq 'claimacquisition' or $type eq 'claimissues') { } |
| 0 | T | F | elsif ($type eq 'members') { } |
| 353 | 0 | T | F | if $$letter{'content'} =~ m[(<order>.*</order>)]msx |
| 359 | 0 | T | F | if $field =~ /price/ |
| 363 | 0 | T | F | if ($order_format) |
| 371 | 0 | T | F | if $field =~ /price/ |
| 383 | 0 | T | F | if ($orders_infos[0]{'aqbooksellers.bookselleremail'} or $orders_infos[0]{'aqbooksellers.contemail'}) { } |
| 386 | 0 | T | F | if $to |
| 395 | 0 | T | F | unless sendmail(%mail) |
| 396 | 0 | T | F | if $debug |
| 397 | 0 | T | F | if ('C4::Context'->preference('LetterLog')) |
| 398 | 0 | T | F | if $type eq 'claimacquisition' |
| 399 | 0 | T | F | if $type eq 'claimissues' |
| 405 | 0 | T | F | if $debug |
| 424 | 0 | T | F | unless sendmail(%mail) |
| 444 | 0 | T | F | unless ($table) |
| 449 | 0 | T | F | if defined $handles{$table} |
| 450 | 0 | T | F | $table eq 'aqbooksellers' ? : |
| 0 | T | F | $table eq 'suggestions' ? : |
| 0 | T | F | $table eq 'branches' ? : |
| 0 | T | F | $table eq 'borrowers' ? : |
| 0 | T | F | $table eq 'reserves' ? : |
| 0 | T | F | $table eq 'issues' ? : |
| 0 | T | F | $table eq 'items' ? : |
| 0 | T | F | $table eq 'biblioitems' ? : |
| 0 | T | F | $table eq 'biblio' ? : |
| 460 | 0 | T | F | unless ($query) |
| 464 | 0 | T | F | unless ($handles{$table} = 'C4::Context'->dbh->prepare($query)) |
| 473 | 0 | T | F | unless ($letter) |
| 478 | 0 | T | F | unless ($sth) |
| 482 | 0 | T | F | if ($pk2) { } |
| 491 | 0 | T | F | if ($table eq 'reserves' and $$values{'waitingdate'}) |
| 509 | 0 | T | F | if $$values{$field} |
| 511 | 0 | T | F | if $$letter{'title'} |
| 512 | 0 | T | F | if $$letter{'content'} |
| 531 | 0 | T | F | unless my $params = shift @_ |
| 533 | 0 | T | F | unless exists $$params{'letter'} |
| 534 | 0 | T | F | unless exists $$params{'borrowernumber'} |
| 535 | 0 | T | F | unless exists $$params{'message_transport_type'} |
| 538 | 0 | T | F | if ($$params{'attachments'}) |
| 587 | 0 | T | F | if $$params{'verbose'} or $debug |
| 592 | 0 | T | F | if lc $$message{'message_transport_type'} eq 'rss' |
| 593 | 0 | T | F | if (lc $$message{'message_transport_type'} eq 'email') { } |
| 0 | T | F | elsif (lc $$message{'message_transport_type'} eq 'sms') { } |
| 614 | 0 | T | F | unless $params |
| 615 | 0 | T | F | unless ref $params |
| 616 | 0 | T | F | unless $$params{'borrowernumber'} |
| 661 | 0 | T | F | if (exists $$params{'borrowernumber'}) |
| 666 | 0 | T | F | if (@whereclauses) |
| 670 | 0 | T | F | if (defined $$params{'limit'}) |
| 697 | 0 | T | F | unless 'HASH' eq ref $params |
| 699 | 0 | T | F | unless exists $$params{$required_parameter} |
| 701 | 0 | T | F | unless @{$$params{'attachments'};} |
| 736 | 0 | T | F | if (ref $params) |
| 737 | 0 | T | F | if ($$params{'message_transport_type'}) |
| 741 | 0 | T | F | if ($$params{'borrowernumber'}) |
| 745 | 0 | T | F | if ($$params{'limit'}) |
| 750 | 0 | T | F | if $debug |
| 751 | 0 | T | F | if $debug |
| 758 | 0 | T | F | unless my $message = shift @_ |
| 762 | 0 | T | F | unless ($to_address) |
| 764 | 0 | T | F | unless ($member) |
| 772 | 0 | T | F | if ($which_address eq 'OFF') { } |
| 777 | 0 | T | F | unless ($to_address) |
| 797 | 0 | T | F | if $username |
| 798 | 0 | T | F | if (my $bcc = 'C4::Context'->preference('OverdueNoticeBcc')) |
| 802 | 0 | T | F | unless $$message{'to_address'} |
| 803 | 0 | T | F | if (sendmail(%sendmail_params)) { } |
| 816 | 0 | T | F | unless my $message = shift @_ |
| 818 | 0 | T | F | unless $$member{'smsalertnumber'} |
| 823 | 0 | T | F | $success ? : |
| 835 | 0 | T | F | unless my $params = shift @_ |
| 838 | 0 | T | F | unless exists $$params{$required_parameter} |