| 
      
            Lines 6-12
          
      
      
        Link Here
      
     | 
  
        
          | 6 | 
          use strict;  | 
          6 | 
          use strict;  | 
        
        
          | 7 | 
          use warnings;  | 
          7 | 
          use warnings;  | 
        
        
          | 8 | 
           | 
          8 | 
           | 
        
          
            
              | 9 | 
              use Test::More tests => 22;  | 
              9 | 
              use Test::More tests => 23;  | 
            
        
          | 10 | 
          use Data::Dumper;  | 
          10 | 
          use Data::Dumper;  | 
        
        
          | 11 | 
           | 
          11 | 
           | 
        
        
          | 12 | 
          BEGIN { | 
          12 | 
          BEGIN { | 
        
  
    | 
      
            Lines 59-64
          my %data = (
      
      
        Link Here
      
     | 
  
        
          | 59 | 
              surname => $SURNAME,  | 
          59 | 
              surname => $SURNAME,  | 
        
        
          | 60 | 
              categorycode => $CATEGORYCODE,  | 
          60 | 
              categorycode => $CATEGORYCODE,  | 
        
        
          | 61 | 
              branchcode => $BRANCHCODE,  | 
          61 | 
              branchcode => $BRANCHCODE,  | 
        
            
               | 
               | 
              62 | 
                  dateofbirth => ''  | 
            
        
          | 62 | 
          );  | 
          63 | 
          );  | 
        
        
          | 63 | 
           | 
          64 | 
           | 
        
        
          | 64 | 
          my $addmem=AddMember(%data);  | 
          65 | 
          my $addmem=AddMember(%data);  | 
        
  
    | 
      
            Lines 74-79
          ok ( $member->{firstname}    eq $FIRSTNAME    &&
      
      
        Link Here
      
     | 
  
        
          | 74 | 
               , "Got member")  | 
          75 | 
               , "Got member")  | 
        
        
          | 75 | 
            or diag("Mismatching member details: ".Dumper(\%data, $member)); | 
          76 | 
            or diag("Mismatching member details: ".Dumper(\%data, $member)); | 
        
        
          | 76 | 
           | 
          77 | 
           | 
        
            
               | 
               | 
              78 | 
              ok($member->{dateofbirth} eq '', "Empty dates handled correctly"); | 
            
            
              | 79 | 
               | 
            
        
          | 77 | 
          $member->{firstname} = $CHANGED_FIRSTNAME; | 
          80 | 
          $member->{firstname} = $CHANGED_FIRSTNAME; | 
        
        
          | 78 | 
          $member->{email}     = $EMAIL; | 
          81 | 
          $member->{email}     = $EMAIL; | 
        
        
          | 79 | 
          $member->{ethnicity} = $ETHNICITY; | 
          82 | 
          $member->{ethnicity} = $ETHNICITY; | 
        
  
    | 
      
            Lines 166-172
          is ($notice_email, $EMAIL, "GetNoticeEmailAddress returns correct value when Aut
      
      
        Link Here
      
     | 
  
        
          | 166 | 
          C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'emailpro' );  | 
          169 | 
          C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'emailpro' );  | 
        
        
          | 167 | 
          C4::Context->clear_syspref_cache();  | 
          170 | 
          C4::Context->clear_syspref_cache();  | 
        
        
          | 168 | 
           | 
          171 | 
           | 
        
          
            
              | 169 | 
              my $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'}); | 
              172 | 
              $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'}); | 
            
        
          | 170 | 
          is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is emailpro");  | 
          173 | 
          is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is emailpro");  | 
        
        
          | 171 | 
           | 
          174 | 
           | 
        
        
          | 172 | 
           | 
          175 | 
           | 
        
            
              | 173 | 
              -   | 
               | 
               |