}
+# fleshes: card, cards, address, addresses, stat_cat_entries, standing_penalties
sub flesh_user {
my $id = shift;
my $session = shift;
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);
sub _update_address {
my( $session, $address ) = @_;
+
$logger->info("Updating address ".$address->id." in the DB");
my $stat = $session->request(
sub _add_card {
my( $session, $card ) = @_;
$card->clear_id();
+
$logger->info("Adding new patron card ".$card->barcode);
my $id = $session->request(
# 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(