[interchange] * Allow values reference and scratch reference to be set as originally

Mike Heins interchange-cvs at icdevgroup.org
Sun Jul 17 15:13:18 UTC 2016


commit add66d82944748cd009ca4816cdd6cee32582ffd
Author: Mike Heins <mike at perusion.com>
Date:   Sun Jul 17 09:18:00 2016 -0400

    * Allow values reference and scratch reference to be set as originally
      intended lo those many moons ago.

 lib/Vend/UserDB.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/UserDB.pm b/lib/Vend/UserDB.pm
index dec820b..28fc212 100644
--- a/lib/Vend/UserDB.pm
+++ b/lib/Vend/UserDB.pm
@@ -2521,7 +2521,7 @@ sub userdb {
 			$Vend::Session->{failure} = errmsg("Unable to access user database.");
 			return undef;
 		}
-		$status = $user->get_values();
+		$status = $user->get_values($opt->{valref}, $opt->{scratchref});
 	}
 	else {
 		$user = $module->new(%options);



More information about the interchange-cvs mailing list