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