From 40377e880f55212a15ddeaac8b78d7f5deb4d4c9 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 12 Feb 2007 18:58:36 +0000
Subject: [PATCH] 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
---
 Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 5043eb75bf..25b610ab4c 100644
--- 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;
-- 
2.11.0