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

(-)a/misc/mod_zebraqueue.pl (-1 / +54 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;
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

Return to bug 9286