|
Lines 135-142
my @field_check=split(/\|/,$check_BorrowerMandatoryField);
Link Here
|
| 135 |
foreach (@field_check) { |
135 |
foreach (@field_check) { |
| 136 |
$template->param( "mandatory$_" => 1); |
136 |
$template->param( "mandatory$_" => 1); |
| 137 |
} |
137 |
} |
| 138 |
# we'll need this, later. |
|
|
| 139 |
my $dateofbirthmandatory = (scalar grep {$_ eq "dateofbirth"} @field_check) ? 1 : 0; |
| 140 |
# function to designate unwanted fields |
138 |
# function to designate unwanted fields |
| 141 |
my $check_BorrowerUnwantedField=C4::Context->preference("BorrowerUnwantedField"); |
139 |
my $check_BorrowerUnwantedField=C4::Context->preference("BorrowerUnwantedField"); |
| 142 |
@field_check=split(/\|/,$check_BorrowerUnwantedField); |
140 |
@field_check=split(/\|/,$check_BorrowerUnwantedField); |
|
Lines 305-311
if ($op eq 'save' || $op eq 'insert'){
Link Here
|
| 305 |
: () |
303 |
: () |
| 306 |
} |
304 |
} |
| 307 |
|
305 |
|
| 308 |
if ($newdata{dateofbirth} && $dateofbirthmandatory) { |
306 |
if ( $newdata{dateofbirth} ) { |
| 309 |
my $age = GetAge($newdata{dateofbirth}); |
307 |
my $age = GetAge($newdata{dateofbirth}); |
| 310 |
my $borrowercategory=GetBorrowercategory($newdata{'categorycode'}); |
308 |
my $borrowercategory=GetBorrowercategory($newdata{'categorycode'}); |
| 311 |
my ($low,$high) = ($borrowercategory->{'dateofbirthrequired'}, $borrowercategory->{'upperagelimit'}); |
309 |
my ($low,$high) = ($borrowercategory->{'dateofbirthrequired'}, $borrowercategory->{'upperagelimit'}); |
| 312 |
- |
|
|