| 
      
            Lines 94-111
          $template->param(
      
      
        Link Here
      
     | 
  
        
          | 94 | 
              OPACPatronDetails => C4::Context->preference('OPACPatronDetails'), | 
          94 | 
              OPACPatronDetails => C4::Context->preference('OPACPatronDetails'), | 
        
        
          | 95 | 
          );  | 
          95 | 
          );  | 
        
        
          | 96 | 
          my $check_BorrowerMandatoryField=C4::Context->preference("BorrowerMandatoryField"); | 
          96 | 
          my $check_BorrowerMandatoryField=C4::Context->preference("BorrowerMandatoryField"); | 
        
          
            
              | 97 | 
                      my @field_check=split(/\|/,$check_BorrowerMandatoryField);  | 
              97 | 
              my @field_check=split(/\|/,$check_BorrowerMandatoryField);  | 
            
            
              | 98 | 
                      my @contactprincipalloop;  | 
              98 | 
              my @contactprincipalloop;  | 
            
            
              | 99 | 
                      my @fieldArray = qw(phone phonepro mobile email emailpro fax);  | 
              99 | 
              my @fieldArray = qw(phone phonepro mobile email emailpro fax);  | 
            
            
              | 100 | 
                      foreach my $field (@fieldArray) { | 
              100 | 
              foreach my $field (@fieldArray) { | 
            
            
              | 101 | 
                         if ( !(grep { $field eq $_ } @field_check)){ | 
              101 | 
                 if ( !(grep { $field eq $_ } @field_check)){ | 
            
            
              | 102 | 
                              push @contactprincipalloop,{ | 
              102 | 
                      push @contactprincipalloop,{ | 
            
            
              | 103 | 
                                  'currentis_' . $field => 1  | 
              103 | 
                          'currentis_' . $field => 1  | 
            
            
              | 104 | 
                              };  | 
              104 | 
                      };  | 
            
            
              | 105 | 
                          }  | 
              105 | 
                  }  | 
            
            
              | 106 | 
                      }  | 
              106 | 
              }  | 
            
        
          | 107 | 
           | 
          107 | 
           | 
        
          
            
              | 108 | 
                      $template->param('contactprincipalloop' => \@contactprincipalloop); | 
              108 | 
              $template->param('contactprincipalloop' => \@contactprincipalloop); | 
            
        
          | 109 | 
           | 
          109 | 
           | 
        
        
          | 110 | 
          my $attributes = ParsePatronAttributes($borrowernumber,$cgi);  | 
          110 | 
          my $attributes = ParsePatronAttributes($borrowernumber,$cgi);  | 
        
        
          | 111 | 
          my $conflicting_attribute = 0;  | 
          111 | 
          my $conflicting_attribute = 0;  | 
        
            
              | 112 | 
              -   | 
               | 
               |