diff --git a/lib/WebGUI/Form/Guid.pm b/lib/WebGUI/Form/Guid.pm index 4f45334f5..2545013f1 100644 --- a/lib/WebGUI/Form/Guid.pm +++ b/lib/WebGUI/Form/Guid.pm @@ -76,6 +76,7 @@ sub getValue { if ($value =~ m/[A-Za-z0-9\-_]{1,22}/) { return $value; } + $self->session->log->warn("Invalid GUID '$value' passed into form"); return undef; } diff --git a/lib/WebGUI/Form/ReadOnly.pm b/lib/WebGUI/Form/ReadOnly.pm index eb8aa544b..5579956b8 100644 --- a/lib/WebGUI/Form/ReadOnly.pm +++ b/lib/WebGUI/Form/ReadOnly.pm @@ -47,7 +47,7 @@ sub definition { defaultValue => 1, }, }); - return $definition; + return $class->SUPER::definition( $session, $definition ); } #-------------------------------------------------------------------