| Lines 18-24
          
      
      
        Link Here | 
        
          | 18 | # along with Koha; if not, see <http://www.gnu.org/licenses>. | 18 | # along with Koha; if not, see <http://www.gnu.org/licenses>. | 
        
          | 19 |  | 19 |  | 
        
          | 20 | use Modern::Perl; | 20 | use Modern::Perl; | 
          
            
              | 21 | use Test::More tests => 72; | 21 | use Test::More tests => 73; | 
        
          | 22 | use Test::MockModule; | 22 | use Test::MockModule; | 
        
          | 23 | use Test::Warn; | 23 | use Test::Warn; | 
        
          | 24 |  | 24 |  | 
  
    | Lines 306-312
          $prepared_letter = GetPreparedLetter((
      
      
        Link Here | 
        
          | 306 | $my_content_letter = qq|This is a SMS for an $substitute->{status}|; | 306 | $my_content_letter = qq|This is a SMS for an $substitute->{status}|; | 
        
          | 307 | is( $prepared_letter->{content}, $my_content_letter, 'GetPreparedLetter returns the content correctly' ); | 307 | is( $prepared_letter->{content}, $my_content_letter, 'GetPreparedLetter returns the content correctly' ); | 
        
          | 308 |  | 308 |  | 
          
            
              | 309 | $dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('test_date','TEST_DATE','Test dates','Test dates','This one only contains the date: <<biblio.timestamp | dateonly>>.');}); | 309 | $dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('test_date','TEST_DATE','Test dates','A title with a timestamp: <<biblio.timestamp>>','This one only contains the date: <<biblio.timestamp | dateonly>>.');}); | 
        
          | 310 | $prepared_letter = GetPreparedLetter(( | 310 | $prepared_letter = GetPreparedLetter(( | 
        
          | 311 |     module                 => 'test_date', | 311 |     module                 => 'test_date', | 
        
          | 312 |     branchcode             => '', | 312 |     branchcode             => '', | 
  
    | Lines 339-344
          $prepared_letter = GetPreparedLetter((
      
      
        Link Here | 
        
          | 339 | )); | 339 | )); | 
        
          | 340 | is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 3' ); | 340 | is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 3' ); | 
        
          | 341 |  | 341 |  | 
            
              |  |  | 342 | t::lib::Mocks::mock_preference( 'TimeFormat', '12hr' ); | 
            
              | 343 | my $yesterday_night = $date->clone->add( days => -1 )->set_hour(22); | 
            
              | 344 | $dbh->do(q|UPDATE biblio SET timestamp = ? WHERE biblionumber = ?|, undef, $yesterday_night, $biblionumber ); | 
            
              | 345 | $dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp>>.' WHERE code = 'test_date';}); | 
            
              | 346 | $prepared_letter = GetPreparedLetter(( | 
            
              | 347 |     module                 => 'test_date', | 
            
              | 348 |     branchcode             => '', | 
            
              | 349 |     letter_code            => 'test_date', | 
            
              | 350 |     tables                 => $tables, | 
            
              | 351 |     substitute             => $substitute, | 
            
              | 352 |     repeat                 => $repeat, | 
            
              | 353 | )); | 
            
              | 354 | is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $yesterday_night }) . q|.|, 'dateonly test 3' ); | 
            
              | 355 |  | 
        
          | 342 | $dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');}); | 356 | $dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');}); | 
        
          | 343 |  | 357 |  | 
        
          | 344 | # Test that _parseletter doesn't modify its parameters bug 15429 | 358 | # Test that _parseletter doesn't modify its parameters bug 15429 | 
            
              | 345 | -  |  |  |