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