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 ) = @_; |
37 |
my ($doit, $since, $not_expired, $no_overwrite, $category, $message_name ) = @_; |
38 |
|
38 |
|
39 |
print "Since: $since\n" if $since; |
39 |
print "Since: $since\n" if $since; |
40 |
|
40 |
|
Lines 62-71
WHERE 1|;
Link Here
|
62 |
while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { |
62 |
while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { |
63 |
print "$borrowernumber: $categorycode\n"; |
63 |
print "$borrowernumber: $categorycode\n"; |
64 |
next unless $doit; |
64 |
next unless $doit; |
65 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { |
65 |
my $options = { |
66 |
borrowernumber => $borrowernumber, |
66 |
borrowernumber => $borrowernumber, |
67 |
categorycode => $categorycode, |
67 |
categorycode => $categorycode, |
68 |
} ); |
68 |
}; |
|
|
69 |
$options->{message_name} = $message_name if defined $message_name; |
70 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults($options); |
69 |
$cnt++; |
71 |
$cnt++; |
70 |
} |
72 |
} |
71 |
$dbh->commit(); |
73 |
$dbh->commit(); |
Lines 73-91
WHERE 1|;
Link Here
|
73 |
} |
75 |
} |
74 |
|
76 |
|
75 |
|
77 |
|
76 |
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category ); |
78 |
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category, $message_name ); |
77 |
my $result = GetOptions( |
79 |
my $result = GetOptions( |
78 |
'doit' => \$doit, |
80 |
'doit' => \$doit, |
79 |
'since:s' => \$since, |
81 |
'since:s' => \$since, |
80 |
'not-expired' => \$not_expired, |
82 |
'not-expired' => \$not_expired, |
81 |
'no-overwrite' => \$no_overwrite, |
83 |
'no-overwrite' => \$no_overwrite, |
82 |
'category:s' => \$category, |
84 |
'category:s' => \$category, |
|
|
85 |
'message-name:s' => \$message_name, |
83 |
'help|h' => \$help, |
86 |
'help|h' => \$help, |
84 |
); |
87 |
); |
85 |
|
88 |
|
86 |
usage() if $help; |
89 |
usage() if $help; |
87 |
|
90 |
|
88 |
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category ); |
91 |
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category, $message_name ); |
89 |
|
92 |
|
90 |
=head1 NAME |
93 |
=head1 NAME |
91 |
|
94 |
|
Lines 98-103
borrowers-force-messaging-defaults.pl
Link Here
|
98 |
borrowers-force-messaging-defaults.pl --doit |
101 |
borrowers-force-messaging-defaults.pl --doit |
99 |
borrowers-force-messaging-defaults.pl --doit --not-expired |
102 |
borrowers-force-messaging-defaults.pl --doit --not-expired |
100 |
borrowers-force-messaging-defaults.pl --doit --category PT |
103 |
borrowers-force-messaging-defaults.pl --doit --category PT |
|
|
104 |
borrowers-force-messaging-defaults.pl --doit --message-name 'Item_Due' |
101 |
|
105 |
|
102 |
=head1 DESCRIPTION |
106 |
=head1 DESCRIPTION |
103 |
|
107 |
|
Lines 134-139
already set their preferences.
Link Here
|
134 |
|
138 |
|
135 |
Will only update patrons in the category specified. |
139 |
Will only update patrons in the category specified. |
136 |
|
140 |
|
|
|
141 |
=item B<--message-name> |
142 |
|
143 |
Will only update the specified message name. |
144 |
List of values can be found in installer/data/mysql/mandatory/sample_notices_message_attributes.sql |
145 |
|
137 |
=item B<--since> |
146 |
=item B<--since> |
138 |
|
147 |
|
139 |
Will only update borrowers enrolled since the specified date. |
148 |
Will only update borrowers enrolled since the specified date. |
140 |
- |
|
|