use C4::InstallAuth;
use CGI qw ( -utf8 );
use C4::Output;
-use C4::Members;
+use C4::Members qw(checkcardnumber);
use Koha::Patrons;
use Koha::Libraries;
use Koha::Database;
use Koha::DateUtils;
+use Koha::Patrons;
use Koha::Patron::Categories;
-use Koha::Patron::Category;
use Koha::ItemTypes;
-use Koha::IssuingRule;
use Koha::IssuingRules;
#Setting variables
branchcode => scalar $input->param('libraries'),
categorycode => scalar $input->param('categorycode_entry'),
userid => scalar $input->param('userid'),
- password => scalar $input->param('password'),
- password2 => scalar $input->param('password2'),
privacy => "default",
address => "",
city => "",
- flags => 1, # Will be superlibrarian
+ flags => 1, # Will be superlibrarian
};
my $patron_category =
$patron_data->{dateexpiry} =
$patron_category->get_expiry_date( $patron_data->{dateenrolled} );
- my $borrowernumber = C4::Members::AddMember(%$patron_data);
+ eval {
+ my $patron = Koha::Patron->new($patron_data)->store;
+ $patron->set_password({ password => $firstpassword });
+ };
#Error handling checking if the patron was created successfully
- if ($borrowernumber) {
+ unless ($@) {
push @messages, { code => 'success_on_insert_patron' };
}
else {
+ warn $@;
push @messages, { code => 'error_on_insert_patron' };
}
}