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 |
- |
|
|