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

(-)a/misc/maintenance/borrowers-force-messaging-defaults.pl (-18 / +3 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, $truncate, $since, $not_expired, $no_overwrite) = @_;
42
    my ($doit, $since, $not_expired, $no_overwrite) = @_;
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 47-59 sub force_borrower_messaging_defaults { Link Here
47
    my $dbh = C4::Context->dbh;
47
    my $dbh = C4::Context->dbh;
48
    $dbh->{AutoCommit} = 0;
48
    $dbh->{AutoCommit} = 0;
49
49
50
    if ( $doit && $truncate ) {
51
        $dbh->do(q|SET FOREIGN_KEY_CHECKS = 0|);
52
        $dbh->do(q|TRUNCATE borrower_message_transport_preferences|);
53
        $dbh->do(q|TRUNCATE borrower_message_preferences|);
54
        $dbh->do(q|SET FOREIGN_KEY_CHECKS = 1|);
55
    }
56
57
    my $sql =
50
    my $sql =
58
q|SELECT DISTINCT bo.borrowernumber, bo.categorycode FROM borrowers bo
51
q|SELECT DISTINCT bo.borrowernumber, bo.categorycode FROM borrowers bo
59
LEFT JOIN borrower_message_preferences mp USING (borrowernumber)
52
LEFT JOIN borrower_message_preferences mp USING (borrowernumber)
Lines 78-87 WHERE bo.dateenrolled >= ?|; Link Here
78
}
71
}
79
72
80
73
81
my ( $doit, $truncate, $since, $help, $not_expired, $no_overwrite );
74
my ( $doit, $since, $help, $not_expired, $no_overwrite );
82
my $result = GetOptions(
75
my $result = GetOptions(
83
    'doit'        => \$doit,
76
    'doit'        => \$doit,
84
    'truncate'    => \$truncate,
85
    'since:s'     => \$since,
77
    'since:s'     => \$since,
86
    'not-expired' => \$not_expired,
78
    'not-expired' => \$not_expired,
87
    'no-overwrite'  => \$no_overwrite,
79
    'no-overwrite'  => \$no_overwrite,
Lines 90-96 my $result = GetOptions( Link Here
90
82
91
usage() if $help;
83
usage() if $help;
92
84
93
force_borrower_messaging_defaults( $doit, $truncate, $since, $not_expired, $no_overwrite );
85
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite );
94
86
95
=head1 NAME
87
=head1 NAME
96
88
Lines 101-107 borrowers-force-messaging-defaults.pl Link Here
101
  borrowers-force-messaging-defaults.pl
93
  borrowers-force-messaging-defaults.pl
102
  borrowers-force-messaging-defaults.pl --help
94
  borrowers-force-messaging-defaults.pl --help
103
  borrowers-force-messaging-defaults.pl --doit
95
  borrowers-force-messaging-defaults.pl --doit
104
  borrowers-force-messaging-defaults.pl --doit --truncate
105
  borrowers-force-messaging-defaults.pl --doit --not-expired
96
  borrowers-force-messaging-defaults.pl --doit --not-expired
106
97
107
=head1 DESCRIPTION
98
=head1 DESCRIPTION
Lines 126-136 Prints this help Link Here
126
117
127
Actually update the borrowers.
118
Actually update the borrowers.
128
119
129
=item B<--truncate>
130
131
Truncate all borrowers transport preferences before (re-)creating them. It
132
affects borrower_message_preferences table.
133
134
=item B<--not-expired>
120
=item B<--not-expired>
135
121
136
Will only update active borrowers (borrowers who didn't pass their expiration date).
122
Will only update active borrowers (borrowers who didn't pass their expiration date).
137
- 

Return to bug 19452