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

(-)a/misc/cronjobs/serialsUpdate.pl (-7 / +6 lines)
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
- 

Return to bug 9739