[open-ils-commits] r10660 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: phasefx
Date: 2008-09-20 22:12:04 -0400 (Sat, 20 Sep 2008)
New Revision: 10660

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
Make this method return 1 and 0 like the description says.  Currently the staff client can't distinguish legitimate null returns from network errors

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-09-21 01:38:55 UTC (rev 10659)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-09-21 02:12:04 UTC (rev 10660)
@@ -2602,8 +2602,13 @@
 	my $e = new_editor(authtoken=>$auth);
 	return $e->event unless $e->checkauth;
 	my $card = $e->search_actor_card({barcode => $barcode});
-    return undef unless @$card;
-    return $card->[0]->usr;
+	if (@$card) {
+		return 1;
+	} else {
+		return 0;
+	}
+	#return undef unless @$card;
+	#return $card->[0]->usr;
 }