|
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 |
- |
|
|