Line 0
Link Here
|
0 |
- |
1 |
#!/usr/bin/perl |
|
|
2 |
|
3 |
# script to add records to the zebraqueue from the commandline. |
4 |
# (C) 2012 Kyle Hall |
5 |
|
6 |
use Getopt::Long; |
7 |
use Pod::Usage; |
8 |
|
9 |
use C4::Biblio; |
10 |
|
11 |
## get command line options |
12 |
my ( $biblionumber ) = get_options(); |
13 |
|
14 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
15 |
|
16 |
sub get_options { |
17 |
my $biblionumber = ''; |
18 |
my $help = ''; |
19 |
|
20 |
GetOptions( |
21 |
"b|biblio|biblionumber=s" => \$biblionumber, |
22 |
'h|?|help' => \$help, |
23 |
); |
24 |
|
25 |
pod2usage( -exitval => 0 ) if $help; |
26 |
|
27 |
return ( $biblionumber ); |
28 |
} |
29 |
__END__ |
30 |
|
31 |
=head1 NAME |
32 |
|
33 |
mod_zebraqueue.pl - Mark bibliographic records for updating via the zebraqueue. |
34 |
|
35 |
=head1 SYNOPSIS |
36 |
|
37 |
mod_zebraqueue.pl -b $biblionumber |
38 |
|
39 |
=head1 OPTIONS |
40 |
|
41 |
=over 8 |
42 |
|
43 |
=item B<-b, --biblio, --biblionumber> |
44 |
|
45 |
The biblionumber of the record to be updated. |
46 |
|
47 |
=item B<-h, -?, --help> |
48 |
|
49 |
Prints this help message and exits. |
50 |
|
51 |
=back |
52 |
|
53 |
=cut |
54 |
|