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

(-)a/C4/Members/Messaging.pm (+3 lines)
Lines 243-248 sub SetMessagingPreferencesFromDefaults { Link Here
243
243
244
    my $messaging_options = GetMessagingOptions();
244
    my $messaging_options = GetMessagingOptions();
245
    OPTION: foreach my $option ( @$messaging_options ) {
245
    OPTION: foreach my $option ( @$messaging_options ) {
246
        if ( defined $params->{message_name} && $option->{'message_name'} ne $params->{message_name} ) {
247
            next OPTION;
248
        }
246
        my $default_pref = GetMessagingPreferences( { categorycode => $params->{categorycode},
249
        my $default_pref = GetMessagingPreferences( { categorycode => $params->{categorycode},
247
                                                      message_name => $option->{'message_name'} } );
250
                                                      message_name => $option->{'message_name'} } );
248
        # FIXME - except for setting the borrowernumber, it really ought to be possible
251
        # FIXME - except for setting the borrowernumber, it really ought to be possible
(-)a/misc/maintenance/borrowers-force-messaging-defaults.pl (-6 / +14 lines)
Lines 34-40 sub usage { Link Here
34
34
35
35
36
sub force_borrower_messaging_defaults {
36
sub force_borrower_messaging_defaults {
37
    my ($doit, $since, $not_expired, $no_overwrite, $category, $branchcode ) = @_;
37
    my ($doit, $since, $not_expired, $no_overwrite, $category, $branchcode, $message_name ) = @_;
38
38
39
    print "Since: $since\n" if $since;
39
    print "Since: $since\n" if $since;
40
40
Lines 63-72 WHERE 1|; Link Here
63
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
63
    while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
64
        print "$borrowernumber: $categorycode\n";
64
        print "$borrowernumber: $categorycode\n";
65
        next unless $doit;
65
        next unless $doit;
66
        C4::Members::Messaging::SetMessagingPreferencesFromDefaults( {
66
        my $options = {
67
            borrowernumber => $borrowernumber,
67
            borrowernumber => $borrowernumber,
68
            categorycode   => $categorycode,
68
            categorycode   => $categorycode,
69
        } );
69
        };
70
        $options->{message_name} = $message_name if defined $message_name;
71
        C4::Members::Messaging::SetMessagingPreferencesFromDefaults($options);
70
        $cnt++;
72
        $cnt++;
71
    }
73
    }
72
    $dbh->commit();
74
    $dbh->commit();
Lines 74-80 WHERE 1|; Link Here
74
}
76
}
75
77
76
78
77
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category, $branchcode );
79
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category, $branchcode, $message_name );
78
my $result = GetOptions(
80
my $result = GetOptions(
79
    'doit'        => \$doit,
81
    'doit'        => \$doit,
80
    'since:s'     => \$since,
82
    'since:s'     => \$since,
Lines 82-93 my $result = GetOptions( Link Here
82
    'no-overwrite'  => \$no_overwrite,
84
    'no-overwrite'  => \$no_overwrite,
83
    'category:s'  => \$category,
85
    'category:s'  => \$category,
84
    'library:s'   => \$branchcode,
86
    'library:s'   => \$branchcode,
87
    'message-name:s' => \$message_name,
85
    'help|h'      => \$help,
88
    'help|h'      => \$help,
86
);
89
);
87
90
88
usage() if $help;
91
usage() if $help;
89
92
90
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category, $branchcode );
93
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category, $branchcode, $message_name );
91
94
92
=head1 NAME
95
=head1 NAME
93
96
Lines 101-106 borrowers-force-messaging-defaults.pl Link Here
101
  borrowers-force-messaging-defaults.pl --doit --not-expired
104
  borrowers-force-messaging-defaults.pl --doit --not-expired
102
  borrowers-force-messaging-defaults.pl --doit --category PT
105
  borrowers-force-messaging-defaults.pl --doit --category PT
103
  borrowers-force-messaging-defaults.pl --doit --library CPL
106
  borrowers-force-messaging-defaults.pl --doit --library CPL
107
  borrowers-force-messaging-defaults.pl --doit --message-name 'Item_Due'
104
108
105
=head1 DESCRIPTION
109
=head1 DESCRIPTION
106
110
Lines 141-146 Will only update patrons in the category specified. Link Here
141
145
142
Will only update patrons whose home library matches the given library id
146
Will only update patrons whose home library matches the given library id
143
147
148
=item B<--message-name>
149
150
Will only update the specified message name.
151
List of values can be found in installer/data/mysql/mandatory/sample_notices_message_attributes.sql
152
144
=item B<--since>
153
=item B<--since>
145
154
146
Will only update borrowers enrolled since the specified date.
155
Will only update borrowers enrolled since the specified date.
147
- 

Return to bug 33239