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

(-)a/misc/maintenance/borrowers-force-messaging-defaults.pl (-5 / +11 lines)
Lines 39-45 sub usage { Link Here
39
39
40
40
41
sub force_borrower_messaging_defaults {
41
sub force_borrower_messaging_defaults {
42
    my ($doit, $since, $not_expired, $no_overwrite) = @_;
42
    my ($doit, $since, $not_expired, $no_overwrite, $category ) = @_;
43
43
44
    $since = '0000-00-00' if (!$since);
44
    $since = '0000-00-00' if (!$since);
45
    print "Since: $since\n";
45
    print "Since: $since\n";
Lines 57-64 WHERE bo.dateenrolled >= ?|; Link Here
57
    if( $no_overwrite ) {
57
    if( $no_overwrite ) {
58
        $sql .= " AND mp.borrowernumber IS NULL";
58
        $sql .= " AND mp.borrowernumber IS NULL";
59
    }
59
    }
60
    $sql .= " AND categorycode = ?" if $category;
60
    my $sth = $dbh->prepare($sql);
61
    my $sth = $dbh->prepare($sql);
61
    $sth->execute($since);
62
    $sth->execute($since, $category || () );
62
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
63
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
63
        print "$borrowernumber: $categorycode\n";
64
        print "$borrowernumber: $categorycode\n";
64
        next unless $doit;
65
        next unless $doit;
Lines 71-88 WHERE bo.dateenrolled >= ?|; Link Here
71
}
72
}
72
73
73
74
74
my ( $doit, $since, $help, $not_expired, $no_overwrite );
75
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category );
75
my $result = GetOptions(
76
my $result = GetOptions(
76
    'doit'        => \$doit,
77
    'doit'        => \$doit,
77
    'since:s'     => \$since,
78
    'since:s'     => \$since,
78
    'not-expired' => \$not_expired,
79
    'not-expired' => \$not_expired,
79
    'no-overwrite'  => \$no_overwrite,
80
    'no-overwrite'  => \$no_overwrite,
81
    'category:s'  => \$category,
80
    'help|h'      => \$help,
82
    'help|h'      => \$help,
81
);
83
);
82
84
83
usage() if $help;
85
usage() if $help;
84
86
85
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite );
87
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category );
86
88
87
=head1 NAME
89
=head1 NAME
88
90
Lines 94-99 borrowers-force-messaging-defaults.pl Link Here
94
  borrowers-force-messaging-defaults.pl --help
96
  borrowers-force-messaging-defaults.pl --help
95
  borrowers-force-messaging-defaults.pl --doit
97
  borrowers-force-messaging-defaults.pl --doit
96
  borrowers-force-messaging-defaults.pl --doit --not-expired
98
  borrowers-force-messaging-defaults.pl --doit --not-expired
99
  borrowers-force-messaging-defaults.pl --doit --category PT
97
100
98
=head1 DESCRIPTION
101
=head1 DESCRIPTION
99
102
Lines 126-131 Will only update active borrowers (borrowers who didn't pass their expiration da Link Here
126
Will only update patrons without messaging preferences and skip patrons that
129
Will only update patrons without messaging preferences and skip patrons that
127
already set their preferences.
130
already set their preferences.
128
131
132
=item B<--category>
133
134
Will only update patrons in the category specified.
135
129
=back
136
=back
130
137
131
=cut
138
=cut
132
- 

Return to bug 19454