Lines 152-175
$resent = C4::Letters::ResendMessage();
Link Here
|
152 |
is( $resent, undef, 'ResendMessage should return undef if not message_id given' ); |
152 |
is( $resent, undef, 'ResendMessage should return undef if not message_id given' ); |
153 |
|
153 |
|
154 |
#Test guarantee-guarantor email redirection |
154 |
#Test guarantee-guarantor email redirection |
|
|
155 |
$library = $builder->build({ |
156 |
source => 'Branch', |
157 |
}); |
155 |
my ($GUARANTEE_EMAIL, $GUARANTOR_EMAIL) = qw| guarantee@example.com guarantor@example.com |; |
158 |
my ($GUARANTEE_EMAIL, $GUARANTOR_EMAIL) = qw| guarantee@example.com guarantor@example.com |; |
|
|
159 |
my $guarantor_category = $builder->build({ source => 'Category' }); |
156 |
my $guarantor = { |
160 |
my $guarantor = { |
157 |
email => $GUARANTOR_EMAIL, |
161 |
email => $GUARANTOR_EMAIL, |
158 |
categorycode => 'PT', |
162 |
categorycode => categorycode => $guarantor_category, |
159 |
branchcode => 'CPL', |
163 |
branchcode => branchcode => $library->{branchcode}, |
160 |
surname => "Guarantor" |
164 |
surname => "Guarantor" |
161 |
}; |
165 |
}; |
162 |
$guarantor->{'borrowernumber'} = AddMember(%$guarantor); |
166 |
$guarantor->{'borrowernumber'} = AddMember(%$guarantor); |
163 |
my $guarantee = { |
167 |
my $guarantee = { |
164 |
guarantorid => $guarantor->{'borrowernumber'}, |
168 |
guarantorid => $guarantor->{'borrowernumber'}, |
165 |
email => $GUARANTEE_EMAIL, |
169 |
email => $GUARANTEE_EMAIL, |
166 |
categorycode => 'PT', |
170 |
categorycode => categorycode => $guarantor_category, |
167 |
branchcode => 'CPL', |
171 |
branchcode => branchcode => $library->{branchcode},, |
168 |
surname => "Guarantee" |
172 |
surname => "Guarantee" |
169 |
}; |
173 |
}; |
170 |
$guarantee->{'borrowernumber'} = AddMember(%$guarantee); |
174 |
$guarantee->{'borrowernumber'} = AddMember(%$guarantee); |
171 |
|
175 |
|
172 |
my $GUARANTEE_TO_ADDRESS = 'toto@exemple.com'; |
176 |
my $GUARANTEE_TO_ADDRESS = 'guarantor@exemple.com'; |
173 |
my $guarantee_message = { |
177 |
my $guarantee_message = { |
174 |
borrowernumber => $guarantee->{'borrowernumber'}, |
178 |
borrowernumber => $guarantee->{'borrowernumber'}, |
175 |
message_transport_type => 'email', |
179 |
message_transport_type => 'email', |
Lines 181-187
my $guarantee_message = {
Link Here
|
181 |
sub SendToGuarantor { |
185 |
sub SendToGuarantor { |
182 |
my ($useGuarantor, $message) = @_; |
186 |
my ($useGuarantor, $message) = @_; |
183 |
C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'OFF' ); |
187 |
C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'OFF' ); |
184 |
C4::Context->set_preference( 'EnableRedirectGuaranteeEmail', $useGuarantor ); |
188 |
C4::Context->set_preference( 'RedirectGuaranteeEmail', $useGuarantor ); |
185 |
C4::Context->clear_syspref_cache(); |
189 |
C4::Context->clear_syspref_cache(); |
186 |
my $id = C4::Letters::EnqueueLetter($message); |
190 |
my $id = C4::Letters::EnqueueLetter($message); |
187 |
C4::Letters::SendQueuedMessages(); |
191 |
C4::Letters::SendQueuedMessages(); |
Lines 189-200
sub SendToGuarantor {
Link Here
|
189 |
return $result; |
193 |
return $result; |
190 |
} |
194 |
} |
191 |
my $result = SendToGuarantor(0,$guarantee_message); |
195 |
my $result = SendToGuarantor(0,$guarantee_message); |
192 |
is($result->{'status'}, "sent", "With EnableRedirectGuaranteeEmail off, message is sent."); |
196 |
is($result->{'status'}, "sent", "With RedirectGuaranteeEmail off, message is sent."); |
193 |
is($result->{'to_address'}, $GUARANTEE_TO_ADDRESS, "With EnableRedirectGuaranteeEmail off, Message is sent to the specified to_address."); |
197 |
is($result->{'to_address'}, $GUARANTEE_TO_ADDRESS, "With RedirectGuaranteeEmail off, Message is sent to the specified to_address."); |
194 |
|
198 |
|
195 |
$result = SendToGuarantor(1,$guarantee_message); |
199 |
$result = SendToGuarantor(1,$guarantee_message); |
196 |
is($result->{'status'}, "sent", "With EnableRedirectGuaranteeEmail on, message is sent."); |
200 |
is($result->{'status'}, "sent", "With RedirectGuaranteeEmail on, message is sent."); |
197 |
is($result->{'to_address'}, $GUARANTOR_EMAIL, "With EnableRedirectGuaranteeEmail on, Message is sent to the guarantor's email address."); |
201 |
is($result->{'to_address'}, $GUARANTOR_EMAIL, "With RedirectGuaranteeEmail on, Message is sent to the guarantor's email address."); |
198 |
|
202 |
|
199 |
$guarantor->{'email'} = undef; |
203 |
$guarantor->{'email'} = undef; |
200 |
ModMember(%$guarantor); |
204 |
ModMember(%$guarantor); |