Lines 56-65
if ( $action eq q{} ) {
Link Here
|
56 |
} |
56 |
} |
57 |
} |
57 |
} |
58 |
|
58 |
|
|
|
59 |
my $mandatory = GetMandatoryFields($action); |
60 |
my $hidden = GetHiddenFields($mandatory); |
61 |
|
59 |
$template->param( |
62 |
$template->param( |
60 |
action => $action, |
63 |
action => $action, |
61 |
hidden => GetHiddenFields(), |
64 |
hidden => $hidden, |
62 |
mandatory => GetMandatoryFields($action), |
65 |
mandatory => $mandatory, |
63 |
member_titles => GetTitles() || undef, |
66 |
member_titles => GetTitles() || undef, |
64 |
branches => GetBranchesLoop(), |
67 |
branches => GetBranchesLoop(), |
65 |
OPACPatronDetails => C4::Context->preference('OPACPatronDetails'), |
68 |
OPACPatronDetails => C4::Context->preference('OPACPatronDetails'), |
Lines 229-234
$template->param(
Link Here
|
229 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
232 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
230 |
|
233 |
|
231 |
sub GetHiddenFields { |
234 |
sub GetHiddenFields { |
|
|
235 |
my ($mandatory) = @_; |
232 |
my %hidden_fields; |
236 |
my %hidden_fields; |
233 |
|
237 |
|
234 |
my $BorrowerUnwantedField = |
238 |
my $BorrowerUnwantedField = |
Lines 237-242
sub GetHiddenFields {
Link Here
|
237 |
my @fields = split( /\|/, $BorrowerUnwantedField ); |
241 |
my @fields = split( /\|/, $BorrowerUnwantedField ); |
238 |
foreach (@fields) { |
242 |
foreach (@fields) { |
239 |
next unless m/\w/o; |
243 |
next unless m/\w/o; |
|
|
244 |
#Don't hide mandatory fields |
245 |
next if $mandatory->{$_}; |
240 |
$hidden_fields{$_} = 1; |
246 |
$hidden_fields{$_} = 1; |
241 |
} |
247 |
} |
242 |
|
248 |
|
243 |
- |
|
|