View | Details | Raw Unified | Return to bug 9286
Collapse All | Expand All

(-)a/misc/mod_zebraqueue.pl (-1 / +53 lines)
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 || !$biblionumber );
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

Return to bug 9286