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

(-)a/misc/maintenance/borrowers-force-messaging-defaults.pl (-4 / +13 lines)
Lines 32-38 sub usage { Link Here
32
}
32
}
33
33
34
sub force_borrower_messaging_defaults {
34
sub force_borrower_messaging_defaults {
35
    my ( $doit, $since, $not_expired, $no_overwrite, $category, $branchcode, $message_name ) = @_;
35
    my ( $doit, $since, $not_expired, $no_overwrite, $category, $branchcode, $message_name, $skip_no_email ) = @_;
36
36
37
    print "Since: $since\n" if $since;
37
    print "Since: $since\n" if $since;
38
38
Lines 43-48 sub force_borrower_messaging_defaults { Link Here
43
LEFT JOIN borrower_message_preferences mp USING (borrowernumber)
43
LEFT JOIN borrower_message_preferences mp USING (borrowernumber)
44
WHERE 1|;
44
WHERE 1|;
45
45
46
    if ($skip_no_email) {
47
        $sql .=
48
              " AND (   (bo.email IS NOT NULL AND bo.email <> '')"
49
            . "    OR (bo.emailpro IS NOT NULL AND bo.emailpro <> '')"
50
            . "    OR (bo.B_email IS NOT NULL AND bo.B_email <> '') )";
51
    }
46
    if ($since) {
52
    if ($since) {
47
        $sql .= " AND bo.dateenrolled >= ?";
53
        $sql .= " AND bo.dateenrolled >= ?";
48
    }
54
    }
Lines 72-78 WHERE 1|; Link Here
72
    print "Total borrowers updated: $cnt\n" if $doit;
78
    print "Total borrowers updated: $cnt\n" if $doit;
73
}
79
}
74
80
75
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category, $branchcode, $message_name );
81
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category, $branchcode, $message_name, $skip_no_email );
76
my $result = GetOptions(
82
my $result = GetOptions(
77
    'doit'           => \$doit,
83
    'doit'           => \$doit,
78
    'since:s'        => \$since,
84
    'since:s'        => \$since,
Lines 82-92 my $result = GetOptions( Link Here
82
    'library:s'      => \$branchcode,
88
    'library:s'      => \$branchcode,
83
    'message-name:s' => \$message_name,
89
    'message-name:s' => \$message_name,
84
    'help|h'         => \$help,
90
    'help|h'         => \$help,
91
    'skip-no-email'  => \$skip_no_email,
85
);
92
);
86
93
87
usage() if $help;
94
usage() if $help;
88
95
89
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category, $branchcode, $message_name );
96
force_borrower_messaging_defaults(
97
    $doit, $since, $not_expired, $no_overwrite, $category, $branchcode, $message_name,
98
    $skip_no_email
99
);
90
100
91
=head1 NAME
101
=head1 NAME
92
102
93
- 

Return to bug 40076