Lines 76-90
if ( $action eq q{} ) {
Link Here
|
76 |
my $mandatory = GetMandatoryFields($action); |
76 |
my $mandatory = GetMandatoryFields($action); |
77 |
|
77 |
|
78 |
my @libraries = Koha::Libraries->search; |
78 |
my @libraries = Koha::Libraries->search; |
79 |
if ( $action eq 'new' |
79 |
if ( $action eq 'create' || $action eq 'new' ) { |
80 |
&& ( my @libraries_to_display = split '\|', C4::Context->preference('PatronSelfRegistrationLibraryList') ) |
80 |
my @PatronSelfRegistrationLibraryList = split '\|', C4::Context->preference('PatronSelfRegistrationLibraryList'); |
81 |
) { |
81 |
if (@PatronSelfRegistrationLibraryList) { |
82 |
@libraries = map { |
82 |
@libraries = map { |
83 |
my $b = $_; |
83 |
my $l = $_; |
84 |
my $branchcode = $_->branchcode; |
84 |
( grep { $l->branchcode eq $_ } @PatronSelfRegistrationLibraryList ) |
85 |
( grep { $_ eq $branchcode } @libraries_to_display ) ? $b : () |
85 |
? $l |
86 |
} @libraries; |
86 |
: () |
|
|
87 |
} @libraries; |
88 |
} |
87 |
} |
89 |
} |
|
|
90 |
|
88 |
my ( $min, $max ) = C4::Members::get_cardnumber_length(); |
91 |
my ( $min, $max ) = C4::Members::get_cardnumber_length(); |
89 |
if ( defined $min ) { |
92 |
if ( defined $min ) { |
90 |
$template->param( |
93 |
$template->param( |
Lines 159-164
if ( $action eq 'create' ) {
Link Here
|
159 |
borrower => \%borrower |
162 |
borrower => \%borrower |
160 |
); |
163 |
); |
161 |
$template->param( patron_attribute_classes => GeneratePatronAttributesForm( undef, $attributes ) ); |
164 |
$template->param( patron_attribute_classes => GeneratePatronAttributesForm( undef, $attributes ) ); |
|
|
165 |
} elsif ( ! grep { $borrower{branchcode} eq $_->branchcode } @libraries ) { |
166 |
die "Branchcode not allowed"; # They hack the form |
162 |
} |
167 |
} |
163 |
else { |
168 |
else { |
164 |
if ( |
169 |
if ( |
165 |
- |
|
|