From 6e679091c8e030759c75dc4fefedb8097a21a85b Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 27 Feb 2006 21:21:51 +0000
Subject: [PATCH] fixed regex

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3210 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 8125f4a13f..b47bc0de51 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -218,6 +218,7 @@ sub user_retrieve_fleshed_by_id {
 }
 
 
+# fleshes: card, cards, address, addresses, stat_cat_entries, standing_penalties
 sub flesh_user {
 	my $id = shift;
 	my $session = shift;
@@ -340,7 +341,7 @@ sub _update_patron {
 	my $evt = $U->check_perms($user_obj->id, $patron->home_ou, 'UPDATE_USER');
 	return (undef, $evt) if $evt;
 
-	$patron->clear_passwd if ($patron->passwd =~ /^\s+/);
+	$patron->clear_passwd unless $patron->passwd;
 
 	my $stat = $session->request(
 		"open-ils.storage.direct.actor.user.update",$patron )->gather(1);
@@ -430,6 +431,7 @@ sub _add_address {
 
 sub _update_address {
 	my( $session, $address ) = @_;
+
 	$logger->info("Updating address ".$address->id." in the DB");
 
 	my $stat = $session->request(
@@ -481,6 +483,7 @@ sub _add_update_cards {
 sub _add_card {
 	my( $session, $card ) = @_;
 	$card->clear_id();
+
 	$logger->info("Adding new patron card ".$card->barcode);
 
 	my $id = $session->request(
@@ -510,6 +513,7 @@ sub _update_card {
 # returns event on error.  returns undef otherwise
 sub _delete_address {
 	my( $session, $address ) = @_;
+
 	$logger->info("Deleting address ".$address->id." from DB");
 
 	my $stat = $session->request(
-- 
2.43.2