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

(-)a/misc/maintenance/borrowers-force-messaging-defaults (-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) = @_;
42
    my ($doit, $since) = @_;
43
43
44
    $since = '0000-00-00' if (!$since);
44
    $since = '0000-00-00' if (!$since);
45
    print $since;
45
    print $since;
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 $sth = $dbh->prepare("SELECT borrowernumber, categorycode FROM borrowers WHERE dateenrolled >= ?");
50
    my $sth = $dbh->prepare("SELECT borrowernumber, categorycode FROM borrowers WHERE dateenrolled >= ?");
58
    $sth->execute($since);
51
    $sth->execute($since);
59
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
52
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
Lines 68-84 sub force_borrower_messaging_defaults { Link Here
68
}
61
}
69
62
70
63
71
my ($doit, $truncate, $since, $help);
64
my ($doit, $since, $help);
72
my $result = GetOptions(
65
my $result = GetOptions(
73
    'doit'     => \$doit,
66
    'doit'     => \$doit,
74
    'truncate' => \$truncate,
75
    'since:s'  => \$since,
67
    'since:s'  => \$since,
76
    'help|h'   => \$help,
68
    'help|h'   => \$help,
77
);
69
);
78
70
79
usage() if $help;
71
usage() if $help;
80
72
81
force_borrower_messaging_defaults( $doit, $truncate, $since );
73
force_borrower_messaging_defaults( $doit, $since );
82
74
83
=head1 NAME
75
=head1 NAME
84
76
Lines 89-95 force-borrower-messaging-defaults Link Here
89
  force-borrower-messaging-defaults 
81
  force-borrower-messaging-defaults 
90
  force-borrower-messaging-defaults --help
82
  force-borrower-messaging-defaults --help
91
  force-borrower-messaging-defaults --doit
83
  force-borrower-messaging-defaults --doit
92
  force-borrower-messaging-defaults --doit --truncate
93
84
94
=head1 DESCRIPTION
85
=head1 DESCRIPTION
95
86
Lines 112-122 Prints this help Link Here
112
103
113
Process actually the borrowers.
104
Process actually the borrowers.
114
105
115
=item B<--truncate>
116
117
Truncate all borrowers transport preferences before (re-)creating them. It
118
affects borrower_message_preferences table.
119
120
=back
106
=back
121
107
122
=cut
108
=cut
123
- 

Return to bug 19452