Lines 15-20
use Getopt::Long;
Link Here
|
15 |
use C4::Log; |
15 |
use C4::Log; |
16 |
use Koha::Biblios; |
16 |
use Koha::Biblios; |
17 |
|
17 |
|
|
|
18 |
my $command_line_options = join(" ",@ARGV); |
19 |
|
18 |
my ( $input_marc_file, $number) = ('',0); |
20 |
my ( $input_marc_file, $number) = ('',0); |
19 |
my ($version, $confirm,$field,$batch,$max_digits,$cloud_tag); |
21 |
my ($version, $confirm,$field,$batch,$max_digits,$cloud_tag); |
20 |
GetOptions( |
22 |
GetOptions( |
Lines 57-63
my $browser_subfield = $2;
Link Here
|
57 |
warn "browser : $browser_tag / $browser_subfield" unless $batch; |
59 |
warn "browser : $browser_tag / $browser_subfield" unless $batch; |
58 |
die "no cloud or browser field/subfield defined : nothing to do !" unless $browser_tag or $cloud_tag; |
60 |
die "no cloud or browser field/subfield defined : nothing to do !" unless $browser_tag or $cloud_tag; |
59 |
|
61 |
|
60 |
cronlogaction(); |
62 |
cronlogaction({ info => $command_line_options }); |
61 |
|
63 |
|
62 |
my $dbh = C4::Context->dbh; |
64 |
my $dbh = C4::Context->dbh; |
63 |
|
65 |
|
Lines 165-170
if ($cloud_tag) {
Link Here
|
165 |
my $timeneeded = time() - $starttime; |
167 |
my $timeneeded = time() - $starttime; |
166 |
print "$i records done in $timeneeded seconds\n" unless $batch; |
168 |
print "$i records done in $timeneeded seconds\n" unless $batch; |
167 |
|
169 |
|
|
|
170 |
cronlogaction({ action => 'End', info => "COMPLETED" }); |
168 |
|
171 |
|
169 |
sub dewey_french { |
172 |
sub dewey_french { |
170 |
return { |
173 |
return { |