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

(-)a/misc/maintenance/borrowers-force-messaging-defaults (-6 / +6 lines)
Lines 39-48 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, $truncate, $since, $silent) = @_;
43
43
44
    $since = '0000-00-00' if (!$since);
44
    $since = '0000-00-00' if (!$since);
45
    print $since;
45
    print $since unless $silent;
46
46
47
    my $dbh = C4::Context->dbh;
47
    my $dbh = C4::Context->dbh;
48
    $dbh->{AutoCommit} = 0;
48
    $dbh->{AutoCommit} = 0;
Lines 55-61 sub force_borrower_messaging_defaults { Link Here
55
    my $sth = $dbh->prepare("SELECT borrowernumber, categorycode FROM borrowers WHERE dateenrolled >= ?");
55
    my $sth = $dbh->prepare("SELECT borrowernumber, categorycode FROM borrowers WHERE dateenrolled >= ?");
56
    $sth->execute($since);
56
    $sth->execute($since);
57
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
57
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
58
        print "$borrowernumber: $categorycode\n";
58
        print "$borrowernumber: $categorycode\n" unless $silent;
59
        next unless $doit;
59
        next unless $doit;
60
        C4::Members::Messaging::SetMessagingPreferencesFromDefaults( {
60
        C4::Members::Messaging::SetMessagingPreferencesFromDefaults( {
61
            borrowernumber => $borrowernumber,
61
            borrowernumber => $borrowernumber,
Lines 66-82 sub force_borrower_messaging_defaults { Link Here
66
}
66
}
67
67
68
68
69
my ($doit, $truncate, $since, $help);
69
my ($doit, $truncate, $since, $help, $silent);
70
my $result = GetOptions(
70
my $result = GetOptions(
71
    'doit'     => \$doit,
71
    'doit'     => \$doit,
72
    'truncate' => \$truncate,
72
    'truncate' => \$truncate,
73
    'since:s'  => \$since,
73
    'since:s'  => \$since,
74
    'help|h'   => \$help,
74
    'help|h'   => \$help,
75
    'silent|s' => \$silent
75
);
76
);
76
77
77
usage() if $help;
78
usage() if $help;
78
79
79
force_borrower_messaging_defaults( $doit, $truncate, $since );
80
force_borrower_messaging_defaults( $doit, $truncate, $since, $silent);
80
81
81
=head1 NAME
82
=head1 NAME
82
83
83
- 

Return to bug 13811