| Lines 83-89
          my $userenv = C4::Context->userenv
      
      
        Link Here | 
        
          | 83 | # Make a borrower for testing | 83 | # Make a borrower for testing | 
        
          | 84 | my %data = ( | 84 | my %data = ( | 
        
          | 85 |     cardnumber => $CARDNUMBER, | 85 |     cardnumber => $CARDNUMBER, | 
          
            
              | 86 |     firstname =>  $FIRSTNAME, | 86 |     firstname =>  $FIRSTNAME . q{ }, | 
        
          | 87 |     surname => $SURNAME, | 87 |     surname => $SURNAME, | 
        
          | 88 |     categorycode => $CATEGORYCODE, | 88 |     categorycode => $CATEGORYCODE, | 
        
          | 89 |     branchcode => $BRANCHCODE, | 89 |     branchcode => $BRANCHCODE, | 
  
    | Lines 107-113
          ok ( $member->{firstname}    eq $FIRSTNAME    &&
      
      
        Link Here | 
        
          | 107 |  | 107 |  | 
        
          | 108 | is($member->{dateofbirth}, undef, "Empty dates handled correctly"); | 108 | is($member->{dateofbirth}, undef, "Empty dates handled correctly"); | 
        
          | 109 |  | 109 |  | 
          
            
              | 110 | $member->{firstname} = $CHANGED_FIRSTNAME; | 110 | $member->{firstname} = $CHANGED_FIRSTNAME . q{ }; | 
        
          | 111 | $member->{email}     = $EMAIL; | 111 | $member->{email}     = $EMAIL; | 
        
          | 112 | $member->{phone}     = $PHONE; | 112 | $member->{phone}     = $PHONE; | 
        
          | 113 | $member->{emailpro}  = $EMAILPRO; | 113 | $member->{emailpro}  = $EMAILPRO; | 
            
              | 114 | -  |  |  |