From 89ba958bee8b14dbeac5a24c4dfc0cedd18a8632 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berick@esilibrary.com>
Date: Mon, 28 Oct 2013 12:06:44 -0400
Subject: [PATCH] ff : TPAC FF login

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---
 .../src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm    | 24 ++++++++++++++++------
 Open-ILS/src/templates/opac/parts/login/form.tt2   | 11 +++++++++-
 2 files changed, 28 insertions(+), 7 deletions(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
index b07c8c98f3..3895931b1b 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
@@ -360,7 +360,8 @@ sub load_login {
     my $username = $cgi->param('username');
     $username =~ s/\s//g;  # Remove blanks
     my $password = $cgi->param('password');
-    my $org_unit = $ctx->{physical_loc} || $ctx->{aou_tree}->()->id;
+    my $org_unit = $cgi->param('home_ou') ||
+        $ctx->{physical_loc} || $ctx->{aou_tree}->()->id;
     my $persist = $cgi->param('persist');
 
     # initial log form only
@@ -404,14 +405,25 @@ sub load_login {
             $args->{password} = md5_hex($seed . md5_hex($password));
             $response = $U->simplereq(
                 'open-ils.auth', 'open-ils.auth.authenticate.complete', $args);
+
         } else {
-            # TODO: ff bits
+
+            $logger->info("FF TPAC login for $username @ $org_unit");
             my $seed = $U->simplereq(
-                'open-ils.auth',
-                'open-ils.auth.authenticate.init', $username);
-            $args->{password} = md5_hex($seed . md5_hex($password));
+                'open-ils.actor',
+                'open-ils.actor.remote.authenticate.init',
+                $username, $org_unit);
+
+            $args->{password} = $seed == -1 ? 
+                $password :   md5_hex($seed . md5_hex($password));
+
+            $args->{home} = $org_unit;
+            # FF always uses the username field
+            $args->{username} = $args->{barcode} if $args->{barcode};
+
             $response = $U->simplereq(
-                'open-ils.auth', 'open-ils.auth.authenticate.complete', $args);
+                'open-ils.actor',
+                'open-ils.actor.remote.authenticate.complete', $args);
         }
 
     } else {
diff --git a/Open-ILS/src/templates/opac/parts/login/form.tt2 b/Open-ILS/src/templates/opac/parts/login/form.tt2
index 2861fa0fe3..c9892476bc 100644
--- a/Open-ILS/src/templates/opac/parts/login/form.tt2
+++ b/Open-ILS/src/templates/opac/parts/login/form.tt2
@@ -18,7 +18,16 @@
     [% l('Please enter the following information:') %]
     <form method='post'>
         <div style="float: left; padding-bottom: 10px; margin-right: 40px;">
-            <label for='username_field' class="lbl1" >[% l('Library Card Number or Username') %]</label>
+            <label for='home_ou_field' class="lbl1" >[% l('Library') %]</label>
+            <div class="input_bg">
+                [%- org_select_id = 'home_ou_field'; -%]
+                [% PROCESS "opac/parts/org_selector.tt2";
+                   INCLUDE build_org_selector name='home_ou' 
+                    id=org_select_id can_have_users_only=1 %]
+            </div>
+        </div>
+        <div style="float: left;">
+            <label for='username_field' class="lbl1" >[% l('Library Card Number') %]</label>
             <div class="input_bg">
                 <input type='text' id="username_field" name="username" autofocus />
             </div>
-- 
2.11.0