Assume username, not barcode, in TPAC login
authorDan Scott <dan@coffeecode.net>
Wed, 17 Aug 2011 17:01:08 +0000 (13:01 -0400)
committerDan Scott <dan@coffeecode.net>
Wed, 17 Aug 2011 17:01:08 +0000 (13:01 -0400)
In the absence of a barcode regex OU setting (opac.barcode_regex), the
TPAC was assuming that the entered value was a barcode. However, the
default JSPAC assumption was that the entered value was a username. This
commit makes the TPAC continue to function with the same assumptions as
the default JSPAC in the absence of a barcode regex OU setting.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm

index 6412907..a9d0565 100644 (file)
@@ -288,15 +288,15 @@ sub load_login {
                'open-ils.auth.authenticate.init', $username);
 
     my $args = {       
                'open-ils.auth.authenticate.init', $username);
 
     my $args = {       
-        barcode => $username, 
+        username => $username, 
         password => md5_hex($seed . md5_hex($password)), 
         type => ($persist) ? 'persist' : 'opac' 
     };
 
     my $bc_regex = $ctx->{get_org_setting}->($org_unit, 'opac.barcode_regex');
 
         password => md5_hex($seed . md5_hex($password)), 
         type => ($persist) ? 'persist' : 'opac' 
     };
 
     my $bc_regex = $ctx->{get_org_setting}->($org_unit, 'opac.barcode_regex');
 
-    $args->{username} = delete $args->{barcode} 
-        if $bc_regex and !($username =~ /$bc_regex/);
+    $args->{barcode} = delete $args->{username} 
+        if $bc_regex and ($username =~ /$bc_regex/);
 
        my $response = $U->simplereq(
         'open-ils.auth', 'open-ils.auth.authenticate.complete', $args);
 
        my $response = $U->simplereq(
         'open-ils.auth', 'open-ils.auth.authenticate.complete', $args);