Lines 101-107
GetOptions(
Link Here
|
101 |
'a|authorities' => \$index_authorities, |
101 |
'a|authorities' => \$index_authorities, |
102 |
'b|biblios' => \$index_biblios, |
102 |
'b|biblios' => \$index_biblios, |
103 |
'bn|bnumber=i' => \@biblionumbers, |
103 |
'bn|bnumber=i' => \@biblionumbers, |
104 |
'v|verbose!' => \$verbose, |
104 |
'v|verbose+' => \$verbose, |
105 |
'h|help' => \$help, |
105 |
'h|help' => \$help, |
106 |
'man' => \$man, |
106 |
'man' => \$man, |
107 |
); |
107 |
); |
Lines 194-198
sub do_reindex {
Link Here
|
194 |
sub _log { |
194 |
sub _log { |
195 |
my ($level, $msg) = @_; |
195 |
my ($level, $msg) = @_; |
196 |
|
196 |
|
197 |
print $msg if ($verbose <= $level); |
197 |
print $msg if ($verbose >= $level); |
198 |
} |
198 |
} |
199 |
- |
|
|