Lines 18-23
Link Here
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use C4::Context; |
20 |
use C4::Context; |
|
|
21 |
use C4::Log qw(cronlogaction); |
21 |
use Getopt::Long qw( GetOptions ); |
22 |
use Getopt::Long qw( GetOptions ); |
22 |
use Pod::Usage qw( pod2usage ); |
23 |
use Pod::Usage qw( pod2usage ); |
23 |
use Koha::Logger; |
24 |
use Koha::Logger; |
Lines 201-206
if ( not $fromcat && $tocat ) { #make sure we've specified the info we need.
Link Here
|
201 |
|
202 |
|
202 |
$verbose and print "Will update patrons from $fromcat to $tocat with conditions below (if any)\n"; |
203 |
$verbose and print "Will update patrons from $fromcat to $tocat with conditions below (if any)\n"; |
203 |
|
204 |
|
|
|
205 |
cronlogaction(); |
206 |
|
204 |
my %params; |
207 |
my %params; |
205 |
|
208 |
|
206 |
if ( $reg_bef || $reg_aft ) { |
209 |
if ( $reg_bef || $reg_aft ) { |
207 |
- |
|
|