From 259e4e52ed6e7f3e86c9c39aecfcc9a4433088a6 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 19 Oct 2019 10:36:09 +0200 Subject: [PATCH] fixing adding new user --- lib/C4/Auth.pm | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/lib/C4/Auth.pm b/lib/C4/Auth.pm index a70c13f..344d2ea 100644 --- a/lib/C4/Auth.pm +++ b/lib/C4/Auth.pm @@ -886,7 +886,7 @@ warn "XXX AuthMemCookie $token = $data"; my $sth = $dbh->prepare(qq{ update borrowers set userid = ? where userid = cardnumber and cardnumber = ? }); $sth->execute( $userid, $cardnumber ); } else { - my $borrower = { + my %borrower = ( cardnumber => $cardnumber, categorycode => $categorycode, @@ -897,10 +897,20 @@ warn "XXX AuthMemCookie $token = $data"; email => $saml->{ATTR_email}, dateexpiry => '2020-12-13', password => $token, # required so AddMember won't erase userid - }; - - require C4::Members; - C4::Members::AddMember( %$borrower ); + ); + + #require C4::Members; + #C4::Members::AddMember( %$borrower ); + + my @columns = Koha::Patrons->columns; + my $patron = Koha::Patron->new( + { + map { exists( $borrower{$_} ) ? ( $_ => $borrower{$_} ) : () } @columns + } + )->store; + die "Insert of new patron failed" unless $patron; + $borrowernumber = $patron->borrowernumber; + C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrowernumber, categorycode => $borrower{'categorycode'} } ); warn "ADDED $data"; -- 2.20.1