| line | % | coverage | branch |
|---|
| 103 | 0 | T | F | if (defined $cat) { } |
| 123 | 0 | T | F | if ('C4::Context'->preference('IndependantBranches') and $branchcode) |
| 127 | 0 | T | F | if (my $l = $letter{$module}{$code}{$branchcode}) |
| 134 | 0 | T | F | unless my $line = $sth->fetchrow_hashref |
| 136 | 0 | T | F | if $$line{'is_html'} |
| 174 | 0 | T | F | unless my $alertid = shift @_ |
| 175 | 0 | T | F | if $debug |
| 195 | 0 | T | F | if ($borrowernumber and $borrowernumber =~ /^\d+$/) |
| 199 | 0 | T | F | if ($type) |
| 203 | 0 | T | F | if ($externalid) |
| 228 | 0 | T | F | unless my $type = shift @_ |
| 229 | 0 | T | F | unless my $externalid = shift @_ |
| 230 | 0 | T | F | $type eq 'borrower' ? : |
| 0 | T | F | $type eq 'issue' ? : |
| 234 | 0 | T | F | unless ($q) |
| 258 | 0 | T | F | if ($type eq 'issue') { } |
| 0 | T | F | elsif ($type eq 'claimacquisition' or $type eq 'claimissues') { } |
| 0 | T | F | elsif ($type eq 'members') { } |
| 266 | 0 | T | F | unless my($biblionumber) = $sth->fetchrow |
| 276 | 0 | T | F | unless my $email = $$borinfo{'email'} |
| 280 | 0 | T | F | unless my $letter = GetPreparedLetter('module', 'serial', 'letter_code', $letter_code, 'branchcode', $$userenv{'branch'}, 'tables', {'branches', $$_{'branchcode'}, 'biblio', $biblionumber, 'biblioitems', $biblionumber, 'borrowers', $borinfo}, 'want_librarian', 1) |
| 301 | 0 | T | F | unless sendmail(%mail) |
| 308 | 0 | T | F | $type eq 'claimacquisition' ? : |
| 337 | 0 | T | F | if $$databookseller{'bookselleremail'} |
| 338 | 0 | T | F | if $$databookseller{'contemail'} |
| 339 | 0 | T | F | unless (@email) |
| 345 | 0 | T | F | unless my $letter = GetPreparedLetter('module', $type, 'letter_code', $letter_code, 'branchcode', $$userenv{'branch'}, 'tables', {'branches', $$userenv{'branch'}, 'aqbooksellers', $databookseller}, 'repeat', $dataorders, 'want_librarian', 1) |
| 365 | 0 | T | F | unless sendmail(%mail) |
| 367 | 0 | T | F | $type eq 'claimissues' ? : |
| 0 | T | F | if 'C4::Context'->preference('LetterLog') |
| 382 | 0 | T | F | unless my $letter = GetPreparedLetter('module', 'members', 'letter_code', $letter_code, 'branchcode', $$externalid{'branchcode'}, 'tables', {'branches', $branchdetails, 'borrowers', $$externalid{'borrowernumber'}}, 'substitute', {'borrowers.password', $$externalid{'password'}}, 'want_librarian', 1) |
| 394 | 0 | T | F | unless $$externalid{'emailaddr'} |
| 402 | 0 | T | F | unless sendmail(%mail) |
| 432 | 0 | T | F | unless my $module = $params{'module'} |
| 433 | 0 | T | F | unless my $letter_code = $params{'letter_code'} |
| 436 | 0 | T | F | unless my $letter = getletter($module, $letter_code, $branchcode) |
| 443 | 0 | T | F | unless $tables or $substitute or $repeat |
| 448 | 0 | T | F | if ($substitute) |
| 455 | 0 | T | F | if ($want_librarian) |
| 465 | 0 | T | F | if ($repeat) |
| 466 | 0 | T | F | if (ref $repeat eq 'ARRAY') { } |
| 473 | 0 | T | F | if ($repeat_enclosing_tags) |
| 475 | 0 | T | F | if ($$letter{'content'} =~ m[<$tag>(.*)</$tag>]s) |
| 487 | 0 | T | F | if ($tables) |
| 491 | 0 | T | F | if ($repeat_no_enclosing_tags) |
| 492 | 0 | T | F | if ($$letter{'content'} =~ /[^\n]*<<.*>>[^\n]*/so) |
| 519 | 0 | T | F | unless $param |
| 524 | 0 | T | F | if ($ref and $ref eq 'HASH') { } |
| 530 | 0 | T | F | unless ($sth) |
| 534 | 0 | T | F | $ref ? : |
| 546 | 0 | T | F | unless ($table) |
| 551 | 0 | T | F | if defined $handles{$table} |
| 552 | 0 | T | F | $table eq 'opac_news' ? : |
| 0 | T | F | $table eq 'aqorders' ? : |
| 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' ? : |
| 565 | 0 | T | F | unless ($query) |
| 569 | 0 | T | F | unless ($handles{$table} = 'C4::Context'->dbh->prepare($query)) |
| 592 | 0 | T | F | if ($table eq 'reserves' and $$values{'waitingdate'}) |
| 604 | 0 | T | F | if ($$letter{'content'} and $$letter{'content'} =~ /<<today>>/) |
| 620 | 0 | T | F | if $val |
| 621 | 0 | T | F | defined $val ? : |
| 622 | 0 | T | F | if ($$letter{'title'}) |
| 626 | 0 | T | F | if ($$letter{'content'}) |
| 632 | 0 | T | F | if ($table eq 'borrowers' and $$letter{'content'}) |
| 633 | 0 | T | F | if (my $attributes = GetBorrowerAttributes($$values{'borrowernumber'})) |
| 638 | 0 | T | F | if $val |
| 639 | 0 | T | F | unless $val gt '' |
| 667 | 0 | T | F | unless my $params = shift @_ |
| 669 | 0 | T | F | unless exists $$params{'letter'} |
| 670 | 0 | T | F | unless exists $$params{'borrowernumber'} |
| 671 | 0 | T | F | unless exists $$params{'message_transport_type'} |
| 674 | 0 | T | F | if ($$params{'attachments'}) |
| 723 | 0 | T | F | if $$params{'verbose'} or $debug |
| 728 | 0 | T | F | if lc $$message{'message_transport_type'} eq 'rss' |
| 729 | 0 | T | F | if (lc $$message{'message_transport_type'} eq 'email') { } |
| 0 | T | F | elsif (lc $$message{'message_transport_type'} eq 'sms') { } |
| 750 | 0 | T | F | unless $params |
| 751 | 0 | T | F | unless ref $params |
| 752 | 0 | T | F | unless $$params{'borrowernumber'} |
| 797 | 0 | T | F | if (exists $$params{'borrowernumber'}) |
| 802 | 0 | T | F | if (@whereclauses) |
| 806 | 0 | T | F | if (defined $$params{'limit'}) |
| 835 | 0 | T | F | unless @$attachments |
| 839 | 0 | T | F | $$letter{'is_html'} ? : |
| 873 | 0 | T | F | if (ref $params) |
| 874 | 0 | T | F | if ($$params{'message_transport_type'}) |
| 878 | 0 | T | F | if ($$params{'borrowernumber'}) |
| 882 | 0 | T | F | if ($$params{'limit'}) |
| 887 | 0 | T | F | if $debug |
| 888 | 0 | T | F | if $debug |
| 895 | 0 | T | F | unless my $message = shift @_ |
| 899 | 0 | T | F | unless ($to_address) |
| 901 | 0 | T | F | unless ($member) |
| 909 | 0 | T | F | if ($which_address eq 'OFF') { } |
| 914 | 0 | T | F | unless ($to_address) |
| 929 | 0 | T | F | $is_html ? : |
| 937 | 0 | T | F | if $username |
| 938 | 0 | T | F | if (my $bcc = 'C4::Context'->preference('OverdueNoticeBcc')) |
| 942 | 0 | T | F | unless $$message{'to_address'} |
| 943 | 0 | T | F | if (sendmail(%sendmail_params)) { } |
| 959 | 0 | T | F | if $css |
| 977 | 0 | T | F | unless my $message = shift @_ |
| 979 | 0 | T | F | unless $$member{'smsalertnumber'} |
| 984 | 0 | T | F | $success ? : |
| 996 | 0 | T | F | unless my $params = shift @_ |
| 999 | 0 | T | F | unless exists $$params{$required_parameter} |