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

(-)a/C4/Letters.pm (-1 / +1 lines)
Lines 44-50 BEGIN { Link Here
44
    require Exporter;
44
    require Exporter;
45
    @ISA = qw(Exporter);
45
    @ISA = qw(Exporter);
46
    @EXPORT = qw(
46
    @EXPORT = qw(
47
        &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes
47
        &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes GetMessage
48
    );
48
    );
49
}
49
}
50
50
(-)a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl (-3 / +2 lines)
Lines 157-164 foreach my $type (@types) { Link Here
157
        }
157
        }
158
158
159
        if ( $use_tt ) {
159
        if ( $use_tt ) {
160
            $letter->{content} =~ s/__MESSAGE_ID__/$message_id/g;
160
            my $message = GetMessage( $message_id );
161
            print $OUT $letter->{content};
161
            print $OUT $message->{content};
162
        } else {
162
        } else {
163
            print $OUT "\"$format\",\"$language\",\"$type\",\"$issues->{level}\",\"$issues->{cardnumber}\",\"$issues->{patron_title}\",\"$issues->{firstname}\",";
163
            print $OUT "\"$format\",\"$language\",\"$type\",\"$issues->{level}\",\"$issues->{cardnumber}\",\"$issues->{patron_title}\",\"$issues->{firstname}\",";
164
            print $OUT "\"$issues->{surname}\",\"$issues->{phone}\",\"$issues->{email}\",\"$library_code\",";
164
            print $OUT "\"$issues->{surname}\",\"$issues->{phone}\",\"$issues->{email}\",\"$library_code\",";
165
- 

Return to bug 15969