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

(-)a/misc/maintenance/borrowers-force-messaging-defaults.pl (-14 / +13 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, $actives, $no_overwrite) = @_;
42
    my ($doit, $reset_all, $since, $actives, $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-57 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 ) {
50
    if ( $doit && $reset_all ) {
51
        $dbh->do(q|SET FOREIGN_KEY_CHECKS = 0|);
51
        $dbh->do(q|DELETE FROM borrower_message_preferences WHERE borrowernumber IS NOT NULL|);
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
    }
52
    }
56
53
57
    my $sql = "SELECT borrowernumber, categorycode FROM borrowers bo WHERE dateenrolled >= ?";
54
    my $sql = "SELECT borrowernumber, categorycode FROM borrowers bo WHERE dateenrolled >= ?";
Lines 75-84 sub force_borrower_messaging_defaults { Link Here
75
}
72
}
76
73
77
74
78
my ( $doit, $truncate, $since, $help, $actives, $no_overwrite );
75
my ( $doit, $reset_all, $since, $help, $actives, $no_overwrite );
79
my $result = GetOptions(
76
my $result = GetOptions(
80
    'doit'        => \$doit,
77
    'doit'        => \$doit,
81
    'truncate'    => \$truncate,
78
    'reset_all'    => \$reset_all,
82
    'since:s'     => \$since,
79
    'since:s'     => \$since,
83
    'actives'     => \$actives,
80
    'actives'     => \$actives,
84
    'no_overwrite'  => \$no_overwrite,
81
    'no_overwrite'  => \$no_overwrite,
Lines 86-93 my $result = GetOptions( Link Here
86
);
83
);
87
84
88
usage() if $help;
85
usage() if $help;
86
if( $no_overwrite && $reset_all ) {
87
    print "The options no_overwrite and reset_all are mutually exclusive\n";
88
    exit 1;
89
}
89
90
90
force_borrower_messaging_defaults( $doit, $truncate, $since, $actives, $no_overwrite );
91
force_borrower_messaging_defaults( $doit, $reset_all, $since, $actives, $no_overwrite );
91
92
92
=head1 NAME
93
=head1 NAME
93
94
Lines 98-104 force-borrower-messaging-defaults Link Here
98
  force-borrower-messaging-defaults
99
  force-borrower-messaging-defaults
99
  force-borrower-messaging-defaults --help
100
  force-borrower-messaging-defaults --help
100
  force-borrower-messaging-defaults --doit
101
  force-borrower-messaging-defaults --doit
101
  force-borrower-messaging-defaults --doit --truncate
102
  force-borrower-messaging-defaults --doit --reset_all
102
  force-borrower-messaging-defaults --doit --actives
103
  force-borrower-messaging-defaults --doit --actives
103
104
104
=head1 DESCRIPTION
105
=head1 DESCRIPTION
Lines 123-132 Prints this help Link Here
123
124
124
Actually update the borrowers.
125
Actually update the borrowers.
125
126
126
=item B<--truncate>
127
=item B<--reset_all>
127
128
128
Truncate all borrowers transport preferences before (re-)creating them. It
129
Removes all borrowers messaging preferences before (re-)creating them.
129
affects borrower_message_preferences table.
130
130
131
=item B<--actives>
131
=item B<--actives>
132
132
133
- 

Return to bug 19452