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