|
Lines 56-67
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Link Here
|
| 56 |
} |
56 |
} |
| 57 |
); |
57 |
); |
| 58 |
|
58 |
|
| 59 |
unless ( C4::Context->preference('PatronSelfRegistration') || $borrowernumber ) |
|
|
| 60 |
{ |
| 61 |
print $cgi->redirect("/cgi-bin/koha/opac-main.pl"); |
| 62 |
exit; |
| 63 |
} |
| 64 |
|
| 65 |
my $action = $cgi->param('action') || q{}; |
59 |
my $action = $cgi->param('action') || q{}; |
| 66 |
if ( $borrowernumber && ( $action eq 'create' || $action eq 'new' ) ) { |
60 |
if ( $borrowernumber && ( $action eq 'create' || $action eq 'new' ) ) { |
| 67 |
print $cgi->redirect("/cgi-bin/koha/opac-main.pl"); |
61 |
print $cgi->redirect("/cgi-bin/koha/opac-main.pl"); |
|
Lines 77-82
if ( $action eq q{} ) {
Link Here
|
| 77 |
} |
71 |
} |
| 78 |
} |
72 |
} |
| 79 |
|
73 |
|
|
|
74 |
my $PatronSelfRegistrationDefaultCategory = C4::Context->preference('PatronSelfRegistrationDefaultCategory'); |
| 75 |
my $defaultCategory = Koha::Patron::Categories->find($PatronSelfRegistrationDefaultCategory); |
| 76 |
# Having a valid PatronSelfRegistrationDefaultCategory is mandatory |
| 77 |
if ( !C4::Context->preference('PatronSelfRegistration') && !$borrowernumber |
| 78 |
|| ( ( $action eq 'new' || $action eq 'create' ) && !$defaultCategory ) ) |
| 79 |
{ |
| 80 |
print $cgi->redirect("/cgi-bin/koha/opac-main.pl"); |
| 81 |
exit; |
| 82 |
} |
| 83 |
|
| 80 |
my $mandatory = GetMandatoryFields($action); |
84 |
my $mandatory = GetMandatoryFields($action); |
| 81 |
|
85 |
|
| 82 |
my $params = {}; |
86 |
my $params = {}; |
|
Lines 95-102
if ( defined $min ) {
Link Here
|
| 95 |
); |
99 |
); |
| 96 |
} |
100 |
} |
| 97 |
|
101 |
|
| 98 |
my $defaultCategory = Koha::Patron::Categories->find(C4::Context->preference('PatronSelfRegistrationDefaultCategory')); |
|
|
| 99 |
|
| 100 |
$template->param( |
102 |
$template->param( |
| 101 |
action => $action, |
103 |
action => $action, |
| 102 |
hidden => GetHiddenFields( $mandatory, $action ), |
104 |
hidden => GetHiddenFields( $mandatory, $action ), |
|
Lines 127-133
if ( $action eq 'create' ) {
Link Here
|
| 127 |
my %borrower = ParseCgiForBorrower($cgi); |
129 |
my %borrower = ParseCgiForBorrower($cgi); |
| 128 |
|
130 |
|
| 129 |
%borrower = DelEmptyFields(%borrower); |
131 |
%borrower = DelEmptyFields(%borrower); |
| 130 |
$borrower{categorycode} ||= C4::Context->preference('PatronSelfRegistrationDefaultCategory'); |
132 |
$borrower{categorycode} ||= $PatronSelfRegistrationDefaultCategory; |
| 131 |
|
133 |
|
| 132 |
my @empty_mandatory_fields = (CheckMandatoryFields( \%borrower, $action ), CheckMandatoryAttributes( \%borrower, $attributes ) ); |
134 |
my @empty_mandatory_fields = (CheckMandatoryFields( \%borrower, $action ), CheckMandatoryAttributes( \%borrower, $attributes ) ); |
| 133 |
my $invalidformfields = CheckForInvalidFields(\%borrower); |
135 |
my $invalidformfields = CheckForInvalidFields(\%borrower); |
|
Lines 235-241
if ( $action eq 'create' ) {
Link Here
|
| 235 |
{ borrowernumber => $patron->borrowernumber }, |
237 |
{ borrowernumber => $patron->borrowernumber }, |
| 236 |
$template, |
238 |
$template, |
| 237 |
1, |
239 |
1, |
| 238 |
C4::Context->preference('PatronSelfRegistrationDefaultCategory') |
240 |
$PatronSelfRegistrationDefaultCategory |
| 239 |
); |
241 |
); |
| 240 |
} |
242 |
} |
| 241 |
|
243 |
|
| 242 |
- |
|
|