line | % | coverage | branch |
179 | 0 | T | F | if (my $borrowernumber = $dbh->selectrow_array($query, undef, $filter)) |
184 | 0 | T | F | if (length $filter == 1) { } |
201 | 0 | T | F | if (my $fr = ref $filter) { } |
202 | 0 | T | F | if ($fr eq 'HASH') { } |
203 | 0 | T | F | if (my $search_string = $$filter{''}) |
205 | 0 | T | F | if ($member_filter) { } |
221 | 0 | T | F | if ($member_filter) { } |
230 | 0 | T | F | if (not $found_borrower and 'C4::Context'->preference('ExtendedPatronAttributes') and $search_string) |
232 | 0 | T | F | if (scalar @$matching_records > 0) |
233 | 0 | T | F | if (my $fr = ref $filter) { } |
234 | 0 | T | F | if ($fr eq 'HASH') { } |
254 | 0 | T | F | if ('C4::Context'->preference('IndependantBranches')) |
255 | 0 | T | F | if (my $userenv = 'C4::Context'->userenv) |
257 | 0 | T | F | if ($$userenv{'flags'} % 2 != 1 and $branch and $branch ne 'insecure') |
260 | 0 | T | F | if (my $fr = ref $filter) { } |
261 | 0 | T | F | if ($fr eq 'HASH') { } |
266 | 0 | T | F | unless ref $_ |
278 | 0 | T | F | if ($found_borrower) |
323 | 0 | T | F | if ($borrowernumber) { } |
| 0 | T | F | elsif ($cardnumber) { } |
344 | 0 | T | F | if ($$borrower{'flags'} and $$borrower{'flags'} & 2 ** $bit) |
354 | 0 | T | F | if ($$borrower{'category_type'} eq 'I') { } |
356 | 0 | T | F | if $$borrower{'firstname'} |
432 | 0 | T | F | if ($amount > 0) { } |
| 0 | T | F | elsif ($amount < 0) { } |
437 | 0 | T | F | if ($amount > $noissuescharge and not 'C4::Context'->preference('AllowFineOverride')) |
448 | 0 | T | F | if ($$patroninformation{'gonenoaddress'} and $$patroninformation{'gonenoaddress'} == 1) |
456 | 0 | T | F | if ($$patroninformation{'lost'} and $$patroninformation{'lost'} == 1) |
462 | 0 | T | F | if ($$patroninformation{'debarred'} and check_date(split(/-/, $$patroninformation{'debarred'}, 0))) |
463 | 0 | T | F | if (Date_to_Days(Date::Calc::Today()) < Date_to_Days(split(/-/, $$patroninformation{'debarred'}, 0))) |
472 | 0 | T | F | if ($$patroninformation{'borrowernotes'} and $$patroninformation{'borrowernotes'}) |
480 | 0 | T | F | if ($odues and $odues > 0) |
494 | 0 | T | F | if ($nowaiting > 0) |
526 | 0 | T | F | if (exists $information{'borrowernumber'} and not defined $information{'borrowernumber'}) |
538 | 0 | T | F | if ($more_p) { } |
545 | 0 | T | F | if (defined $information{$_}) { } |
553 | 0 | T | F | if $debug |
559 | 0 | T | F | if (@{$data;}) |
583 | 0 | T | F | if $$data[0] |
584 | 0 | T | F | if $$data[0] |
595 | 0 | T | F | if ($guarantor) |
600 | 0 | T | F | if $$data[0] != $borrowernumber |
638 | 0 | T | F | if $blockeddate |
650 | 0 | T | F | if $latedocs > 0 |
675 | 0 | T | F | if $debug |
714 | 0 | T | F | if (exists $data{'password'}) |
715 | 0 | T | F | if ($data{'password'} eq '****' or $data{'password'} eq '') { } |
722 | 0 | T | F | if ($execute_success) |
727 | 0 | T | F | if (exists $$borrowercategory{'category_type'} and $$borrowercategory{'category_type'} eq 'A') |
731 | 0 | T | F | if 'C4::Context'->preference('BorrowersLog') |
753 | 0 | T | F | if $data{'userid'} eq '' |
755 | 0 | T | F | $data{'password'} ? : |
758 | 0 | T | F | if 'C4::Context'->preference('BorrowersLog') |
764 | 0 | T | F | if ($sth->err) |
768 | 0 | T | F | if ($enrolmentfee and $enrolmentfee > 0) |
786 | 0 | T | F | if ($uid ne '' and my $row = $sth->fetchrow_hashref) { } |
801 | 0 | T | F | $firstname ? : |
802 | 0 | T | F | unless $offset == 0 |
821 | 0 | T | F | if ($uid ne '' and my $row = $sth->fetchrow_hashref) { } |
833 | 0 | T | F | if 'C4::Context'->preference('BorrowersLog') |
858 | 0 | T | F | unless $autonumber_members |
861 | 0 | T | F | if ($checkdigit and $checkdigit eq 'katipo') { } |
875 | 0 | T | F | if (not $cardnumber) { } |
894 | 0 | T | F | if $rem == 10 |
984 | 0 | T | F | unless (@borrowernumbers) |
992 | 0 | T | F | if ($i < $#borrowernumbers) |
1041 | 0 | T | F | if ($$_{'issuedate'}) |
1044 | 0 | T | F | unless $$_{'date_due'} |
1046 | 0 | T | F | if ('DateTime'->compare($$_{'date_due'}, $today) == -1) |
1093 | 0 | T | F | if ($limit != 0) |
1134 | 0 | T | F | if ($date and $date ne '') |
1143 | 0 | T | F | if ($$data{'itemnumber'}) |
1216 | 0 | T | F | $dateofbirth ? : |
| 0 | T | F | $collectivity ? : |
1222 | 0 | T | F | if ($collectivity) { } |
| 0 | T | F | elsif ($dateofbirth) { } |
1230 | 0 | T | F | if $data[0] |
1237 | 0 | T | F | if not defined $cardnumber |
1240 | 0 | T | F | if $borrowernumber |
1242 | 0 | T | F | if ($borrowernumber) { } |
1247 | 0 | T | F | if (my $data = $sth->fetchrow_hashref) { } |
1307 | 0 | T | F | if ($$data{'email'}) { } |
| 0 | T | F | elsif ($$data{'emailpro'}) { } |
| 0 | T | F | elsif ($$data{'B_email'}) { } |
1330 | 0 | T | F | if ($categorycode) |
1338 | 0 | T | F | if ($$enrolments{'enrolmentperiod'}) { } |
1388 | 0 | T | F | if ($action) { } |
1421 | 0 | T | F | if ($catcode) |
1497 | 0 | T | F | unless $ethnicity |
1517 | 0 | T | F | if (not defined $date_ref) |
1525 | 0 | T | F | if ($month1 . $day1 > $month2 . $day2) |
1593 | 0 | T | F | if (@{$city_arr;}) |
1627 | 0 | T | F | if $lib |
1628 | 0 | T | F | unless $lib |
1643 | 0 | T | F | unless my($member) = shift @_ |
1651 | 0 | T | F | unless @data |
1672 | 0 | T | F | unless $borrowernumber |
1686 | 0 | T | F | if 'C4::Context'->preference('BorrowersLog') |
1703 | 0 | T | F | unless ($date) |
1704 | 0 | T | F | 'C4::Context'->preference('BorrowerRenewalPeriodBase') eq 'dateexpiry' ? : |
1718 | 0 | T | F | if ($enrolmentfee and $enrolmentfee > 0) |
1722 | 0 | T | F | if 'C4::Context'->preference('BorrowersLog') |
1723 | 0 | T | F | if $sth |
1758 | 0 | T | F | if ($id eq 0) { } |
1781 | 0 | T | F | if ($count == 1) { } |
1799 | 0 | T | F | if $debug |
1805 | 0 | T | F | if $sth->errstr |
1820 | 0 | T | F | $imgfile ? : |
| 0 | T | F | if $debug |
1825 | 0 | T | F | if $sth->errstr |
1839 | 0 | T | F | if $debug |
1845 | 0 | T | F | if $sth->errstr |
1902 | 0 | T | F | 'C4::Context'->preference('IndependantBranches') && 'C4::Context'->userenv && 'C4::Context'->userenv->{'flags'} % 2 != 1 && 'C4::Context'->userenv->{'branch'} ? : |
1922 | 0 | T | F | if ($filterbranch and $filterbranch ne '') |
1926 | 0 | T | F | if ($filterexpiry) |
1931 | 0 | T | F | if ($filterdate) |
1936 | 0 | T | F | if $debug |
1938 | 0 | T | F | if (scalar @query_params > 0) { } |
1963 | 0 | T | F | 'C4::Context'->preference('IndependantBranches') && 'C4::Context'->userenv && 'C4::Context'->userenv->{'flags'} % 2 != 1 && 'C4::Context'->userenv->{'branch'} ? : |
1978 | 0 | T | F | if ($filterbranch and $filterbranch ne '') |
1982 | 0 | T | F | if $debug |
1985 | 0 | T | F | if (scalar @query_params > 0) { } |
2013 | 0 | T | F | 'C4::Context'->preference('IndependantBranches') && 'C4::Context'->userenv && 'C4::Context'->userenv->{'flags'} % 2 != 1 && 'C4::Context'->userenv->{'branch'} ? : |
2028 | 0 | T | F | if ($filterbranch) |
2033 | 0 | T | F | if $debug |
2086 | 0 | T | F | unless defined $borrowernumber |
2087 | 0 | T | F | unless $borrowernumber =~ /^\d+$/ |
2114 | 0 | T | F | unless defined $borrowernumber |
2115 | 0 | T | F | unless $borrowernumber =~ /^\d+$/ |
2138 | 0 | T | F | if (not $borrowernumber && $message_type && $message && $branchcode) |
2145 | 0 | T | F | if 'C4::Context'->preference('BorrowersLog') |
2163 | 0 | T | F | if (not $type) |
2206 | 0 | T | F | if (not $type) |
2243 | 0 | T | F | if 'C4::Context'->preference('BorrowersLog') |
2265 | 0 | T | F | if ($$it{'issuedate'} eq $today) { } |
| 0 | T | F | elsif ($$it{'date_due'} le $today) { } |
2277 | 0 | T | F | if ($quickslip) { } |
2344 | 0 | T | F | if $sth->err |