eliminated more definitions

lib/WebGUI/Form/Control.pm

@@ -403,6 +403,20 @@ sub getValue {
     return $self->getValueFromPost;
 }
 
+#-------------------------------------------------------------------
+
+=head2 getValueAsScalar 
+
+Returns the value as a scalar, which means for complex types it's returned as a serialized string of some sort.
+
+=cut
+
+sub getValueAsScalar {
+    my $self = shift;
+    return $self->getValue;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 getOriginalValue ( )