|
Lines 387-392
sub AddMember {
Link Here
|
| 387 |
my $dbh = C4::Context->dbh; |
387 |
my $dbh = C4::Context->dbh; |
| 388 |
my $schema = Koha::Database->new()->schema; |
388 |
my $schema = Koha::Database->new()->schema; |
| 389 |
|
389 |
|
|
|
390 |
my $category = Koha::Patron::Categories->find( $data{categorycode} ); |
| 391 |
unless ($category) { |
| 392 |
Koha::Exceptions::BadParameter->throw( |
| 393 |
error => 'Invalid parameter passed', |
| 394 |
parameter => 'categorycode' |
| 395 |
); |
| 396 |
} |
| 397 |
|
| 390 |
# trim whitespace from data which has some non-whitespace in it. |
398 |
# trim whitespace from data which has some non-whitespace in it. |
| 391 |
foreach my $field_name (keys(%data)) { |
399 |
foreach my $field_name (keys(%data)) { |
| 392 |
if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ ) { |
400 |
if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ ) { |
|
Lines 399-405
sub AddMember {
Link Here
|
| 399 |
if ( $data{'userid'} eq '' || !Check_Userid( $data{'userid'} ) ); |
407 |
if ( $data{'userid'} eq '' || !Check_Userid( $data{'userid'} ) ); |
| 400 |
|
408 |
|
| 401 |
# add expiration date if it isn't already there |
409 |
# add expiration date if it isn't already there |
| 402 |
$data{dateexpiry} ||= Koha::Patron::Categories->find( $data{categorycode} )->get_expiry_date; |
410 |
$data{dateexpiry} ||= $category->get_expiry_date; |
| 403 |
|
411 |
|
| 404 |
# add enrollment date if it isn't already there |
412 |
# add enrollment date if it isn't already there |
| 405 |
unless ( $data{'dateenrolled'} ) { |
413 |
unless ( $data{'dateenrolled'} ) { |
|
Lines 412-423
sub AddMember {
Link Here
|
| 412 |
} |
420 |
} |
| 413 |
} |
421 |
} |
| 414 |
|
422 |
|
| 415 |
my $patron_category = $schema->resultset('Category')->find( $data{'categorycode'} ); |
|
|
| 416 |
$data{'privacy'} = |
423 |
$data{'privacy'} = |
| 417 |
$patron_category->default_privacy() eq 'default' ? 1 |
424 |
$category->default_privacy() eq 'default' ? 1 |
| 418 |
: $patron_category->default_privacy() eq 'never' ? 2 |
425 |
: $category->default_privacy() eq 'never' ? 2 |
| 419 |
: $patron_category->default_privacy() eq 'forever' ? 0 |
426 |
: $category->default_privacy() eq 'forever' ? 0 |
| 420 |
: undef; |
427 |
: undef; |
| 421 |
|
428 |
|
| 422 |
$data{'privacy_guarantor_checkouts'} = 0 unless defined( $data{'privacy_guarantor_checkouts'} ); |
429 |
$data{'privacy_guarantor_checkouts'} = 0 unless defined( $data{'privacy_guarantor_checkouts'} ); |
| 423 |
|
430 |
|
| 424 |
- |
|
|