put new SAML users into correct categorycode

diff --git a/C4/Auth.pm b/C4/Auth.pm
index 20eb28c..c33b864 100644 (file)
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -188,12 +188,17 @@ sub get_template_and_user {
                                        $saml->{$n} = $v;
                                }
 
+                               my $categorycode =
+                                       $saml->{ATTR_code} =~ m/^\d{10}$/ ? 'S' : # JMBAG
+                                       $saml->{ATTR_code} =~ m/^\w\w\d+/ ? 'D' :
+                                       'O';
+
                                if ( $borrowernumber = getborrowernumber($saml->{ATTR_nick}) ) {
                                        warn "SAML login OK $borrowernumber";
                                } else {
                                        my $borrower = {
-                                               cardnumber => 'S' . $saml->{ATTR_code}, # FIXME
-                                               categorycode => 'S',
+                                               cardnumber => $categorycode . $saml->{ATTR_code},
+                                               categorycode => $categorycode,
 
                                                userid    => $saml->{ATTR_nick},
                                                firstname => $saml->{ATTR_first_name},