Lines 108-114
my $i = 1;
Link Here
|
108 |
my $sets_biblios = {}; |
108 |
my $sets_biblios = {}; |
109 |
foreach my $res (@$results) { |
109 |
foreach my $res (@$results) { |
110 |
my $biblionumber = $res->{'biblionumber'}; |
110 |
my $biblionumber = $res->{'biblionumber'}; |
111 |
my $marcxml = $res->{'marcxml'}; |
111 |
my $marcxml = $res->{'metadata'}; |
112 |
if($verbose and $i % 1000 == 0) { |
112 |
if($verbose and $i % 1000 == 0) { |
113 |
my $percent = ($i * 100) / $num_biblios; |
113 |
my $percent = ($i * 100) / $num_biblios; |
114 |
$percent = sprintf("%.2f", $percent); |
114 |
$percent = sprintf("%.2f", $percent); |
115 |
- |
|
|