making sure active card is chosen as the user "card" during fleshing

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6934 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 5043eb7..25b610a 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -2698,6 +2698,11 @@ sub new_flesh_user {
                }
        }
 
+       $user->card( (grep { $U->is_true($_->active) } @{$user->cards})[0] )
+               if grep { /card$/ } @$fields and 
+                       grep { /cards/ } @$fields and 
+                       not $U->is_true($user->card->active);
+
        $e->rollback;
        $user->clear_passwd();
        return $user;