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