Lines 57-62
sub force_borrower_messaging_defaults {
Link Here
|
57 |
$sql .= " AND categorycode = ?" if $category; |
57 |
$sql .= " AND categorycode = ?" if $category; |
58 |
my $sth = $dbh->prepare($sql); |
58 |
my $sth = $dbh->prepare($sql); |
59 |
$sth->execute($since, $category || () ); |
59 |
$sth->execute($since, $category || () ); |
|
|
60 |
my $cnt = 0; |
60 |
while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { |
61 |
while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { |
61 |
print "$borrowernumber: $categorycode\n"; |
62 |
print "$borrowernumber: $categorycode\n"; |
62 |
next unless $doit; |
63 |
next unless $doit; |
Lines 64-71
sub force_borrower_messaging_defaults {
Link Here
|
64 |
borrowernumber => $borrowernumber, |
65 |
borrowernumber => $borrowernumber, |
65 |
categorycode => $categorycode, |
66 |
categorycode => $categorycode, |
66 |
} ); |
67 |
} ); |
|
|
68 |
$cnt++; |
67 |
} |
69 |
} |
68 |
$dbh->commit(); |
70 |
$dbh->commit(); |
|
|
71 |
print "Total borrowers updated: $cnt\n" if $doit; |
69 |
} |
72 |
} |
70 |
|
73 |
|
71 |
|
74 |
|
72 |
- |
|
|