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