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

(-)a/opac/opac-shareshelf.pl (-3 / +4 lines)
Lines 177-183 sub notify_owner { Link Here
177
    );
177
    );
178
178
179
    #send letter to queue
179
    #send letter to queue
180
    C4::Letters::EnqueueLetter(
180
    my $message_id = C4::Letters::EnqueueLetter(
181
        {
181
        {
182
            letter                 => $letter,
182
            letter                 => $letter,
183
            message_transport_type => 'email',
183
            message_transport_type => 'email',
Lines 185-190 sub notify_owner { Link Here
185
            to_address   => $toaddr,
185
            to_address   => $toaddr,
186
        }
186
        }
187
    );
187
    );
188
    C4::Letters::SendQueuedMessages({ message_id => $message_id });
188
}
189
}
189
190
190
sub process_addrlist {
191
sub process_addrlist {
Lines 246-252 sub send_invitekey { Link Here
246
        );
247
        );
247
248
248
        #send letter to queue
249
        #send letter to queue
249
        C4::Letters::EnqueueLetter(
250
        my $message_id = C4::Letters::EnqueueLetter(
250
            {
251
            {
251
                letter                 => $letter,
252
                letter                 => $letter,
252
                message_transport_type => 'email',
253
                message_transport_type => 'email',
Lines 254-259 sub send_invitekey { Link Here
254
                to_address             => $a,
255
                to_address             => $a,
255
            }
256
            }
256
        );
257
        );
258
        C4::Letters::SendQueuedMessages({ message_id => $message_id })
257
    }
259
    }
258
    $param->{appr_addr} = \@ok;
260
    $param->{appr_addr} = \@ok;
259
}
261
}
260
- 

Return to bug 32316