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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-04 10:47:05 -0400 (Thu, 04 Sep 2008)
New Revision: 10534

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
Log:
give a default form value to prevent warnings

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2008-09-04 13:04:00 UTC (rev 10533)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2008-09-04 14:47:05 UTC (rev 10534)
@@ -31,7 +31,7 @@
 
 sub entityize {
 	my $stuff = shift;
-	my $form = shift;
+	my $form = shift || '';
 
 	if ($form eq 'D') {
 		$stuff = NFD($stuff);