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

(-)a/misc/maintenance/borrowers-force-messaging-defaults.pl (-5 / +11 lines)
Lines 34-40 sub usage { Link Here
34
34
35
35
36
sub force_borrower_messaging_defaults {
36
sub force_borrower_messaging_defaults {
37
    my ($doit, $since, $not_expired, $no_overwrite, $category ) = @_;
37
    my ($doit, $since, $not_expired, $no_overwrite, $category, $branchcode ) = @_;
38
38
39
    print "Since: $since\n" if $since;
39
    print "Since: $since\n" if $since;
40
40
Lines 56-63 WHERE 1|; Link Here
56
        $sql .= " AND mp.borrowernumber IS NULL";
56
        $sql .= " AND mp.borrowernumber IS NULL";
57
    }
57
    }
58
    $sql .= " AND bo.categorycode = ?" if $category;
58
    $sql .= " AND bo.categorycode = ?" if $category;
59
    $sql .= " AND bo.branchcode = ?" if $branchcode;
59
    my $sth = $dbh->prepare($sql);
60
    my $sth = $dbh->prepare($sql);
60
    $sth->execute($since || (), $category || () );
61
    $sth->execute($since || (), $category || (), $branchcode || () );
61
    my $cnt = 0;
62
    my $cnt = 0;
62
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
63
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
63
        print "$borrowernumber: $categorycode\n";
64
        print "$borrowernumber: $categorycode\n";
Lines 73-91 WHERE 1|; Link Here
73
}
74
}
74
75
75
76
76
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category );
77
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category, $branchcode );
77
my $result = GetOptions(
78
my $result = GetOptions(
78
    'doit'        => \$doit,
79
    'doit'        => \$doit,
79
    'since:s'     => \$since,
80
    'since:s'     => \$since,
80
    'not-expired' => \$not_expired,
81
    'not-expired' => \$not_expired,
81
    'no-overwrite'  => \$no_overwrite,
82
    'no-overwrite'  => \$no_overwrite,
82
    'category:s'  => \$category,
83
    'category:s'  => \$category,
84
    'library:s'   => \$branchcode,
83
    'help|h'      => \$help,
85
    'help|h'      => \$help,
84
);
86
);
85
87
86
usage() if $help;
88
usage() if $help;
87
89
88
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category );
90
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category, $branchcode );
89
91
90
=head1 NAME
92
=head1 NAME
91
93
Lines 98-103 borrowers-force-messaging-defaults.pl Link Here
98
  borrowers-force-messaging-defaults.pl --doit
100
  borrowers-force-messaging-defaults.pl --doit
99
  borrowers-force-messaging-defaults.pl --doit --not-expired
101
  borrowers-force-messaging-defaults.pl --doit --not-expired
100
  borrowers-force-messaging-defaults.pl --doit --category PT
102
  borrowers-force-messaging-defaults.pl --doit --category PT
103
  borrowers-force-messaging-defaults.pl --doit --library CPL
101
104
102
=head1 DESCRIPTION
105
=head1 DESCRIPTION
103
106
Lines 134-139 already set their preferences. Link Here
134
137
135
Will only update patrons in the category specified.
138
Will only update patrons in the category specified.
136
139
140
=item B<--library>
141
142
Will only update patrons in the library specified.
143
137
=item B<--since>
144
=item B<--since>
138
145
139
Will only update borrowers enrolled since the specified date.
146
Will only update borrowers enrolled since the specified date.
140
- 

Return to bug 33204