From 744751a86ffe0058e9ece7c490c7a2068f04b114 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Wed, 28 Jan 2009 16:39:32 +0000
Subject: [PATCH] cleaning up function in List form type

---
 lib/WebGUI/Form/List.pm | 21 +++++----------------
 1 file changed, 5 insertions(+), 16 deletions(-)

diff --git a/lib/WebGUI/Form/List.pm b/lib/WebGUI/Form/List.pm
index 0675112a4..a70b7bff5 100644
--- a/lib/WebGUI/Form/List.pm
+++ b/lib/WebGUI/Form/List.pm
@@ -268,27 +268,16 @@ sub getOriginalValue {
                 @values = @{$value};
             }
             else {
-				$value =~ s/\r//g;
+                $value =~ s/\r//g;
                 @values = split "\n", $value;
             }
         }
     }
-    if(@values){
-    	return wantarray ? @values : join("\n",@values);
+    if (@values) {
+        return wantarray ? @values : join("\n",@values);
     }
-    
-    foreach my $value ($self->getDefaultValue()) {
-        if (scalar @values < 1 && defined $value) {
-            if (ref $value eq "ARRAY") {
-                @values = @{$value};
-            }
-            else {
-				$value =~ s/\r//g;
-                @values = split "\n", $value;
-            }
-        }
-    }
-	return wantarray ? @values : join("\n",@values);
+
+    return $self->getDefaultValue;
 }
 
 #-------------------------------------------------------------------