give a default form value to prevent warnings
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 4 Sep 2008 14:47:05 +0000 (14:47 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 4 Sep 2008 14:47:05 +0000 (14:47 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10534 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm

index 4156418..75ed18a 100644 (file)
@@ -31,7 +31,7 @@ sub child_init {}
 
 sub entityize {
        my $stuff = shift;
-       my $form = shift;
+       my $form = shift || '';
 
        if ($form eq 'D') {
                $stuff = NFD($stuff);