Lines 39-45
use Pod::Usage;
Link Here
|
39 |
|
39 |
|
40 |
=head1 NAME |
40 |
=head1 NAME |
41 |
|
41 |
|
42 |
serialsUpdate.pl - change status of serials that are late |
42 |
serialsUpdate.pl - change status of serial issues that are late |
43 |
|
43 |
|
44 |
=head1 SYNOPSIS |
44 |
=head1 SYNOPSIS |
45 |
|
45 |
|
Lines 49-58
serialsUpdate.pl [ -h | -m ][ -v ] -c ][ --note "you are late" ][ --no-note ]
Link Here
|
49 |
--h --help -? Brief help message |
49 |
--h --help -? Brief help message |
50 |
--man Full documentation |
50 |
--man Full documentation |
51 |
--verbose -v Verbose mode |
51 |
--verbose -v Verbose mode |
52 |
-c Confirm : without this option, the script will report the concerned serials |
52 |
-c Confirm: without this option, the script will report on affected serial |
53 |
without modifying database |
53 |
issues without modifying database |
54 |
--note Note set to concerned serials, by default "Automatically set to late" |
54 |
--note Note set on affected serial issues, by default "Automatically set to late" |
55 |
--no-note Do not set a note one concerned serials |
55 |
--no-note Do not set a note on affected serial issues |
56 |
|
56 |
|
57 |
=cut |
57 |
=cut |
58 |
|
58 |
|
Lines 129-135
while ( my $issue = $sth->fetchrow_hashref ) {
Link Here
|
129 |
$issue->{planneddate}, $issue->{publisheddate}, |
129 |
$issue->{planneddate}, $issue->{publisheddate}, |
130 |
3, $note ); |
130 |
3, $note ); |
131 |
$verbose |
131 |
$verbose |
132 |
and print "Serial id=" . $issue->{serialid} . " update\n"; |
132 |
and print "Serial issue with id=" . $issue->{serialid} . " updated\n"; |
133 |
} |
133 |
} |
134 |
} |
134 |
} |
135 |
else { |
135 |
else { |
136 |
- |
|
|