fix [ 1216810 ] anonymous registration errors persist

This commit is contained in:
JT Smith 2005-10-17 13:59:50 +00:00
parent 7b5b5b0fac
commit 0815c61d9b
3 changed files with 7 additions and 10 deletions

View file

@ -186,10 +186,6 @@ A string containing the link to the tab-CascadingStyleSheet
default = extrasPath.'/tabs/tabs.css'
=head3 cancelUrl
A URL to go to when the cancel button is pressed.
=cut
sub new {
@ -207,7 +203,7 @@ sub new {
}
my $cancel = WebGUI::Form::button({
value=>WebGUI::International::get('cancel'),
extras=>q|onclick="location.href='|.$cancelUrl.q|'"|
extras=>q|onclick="history.go(-1);"|
});
bless { _uiLevelOverride=>$uiLevelOverride, _cancel=>$cancel, _submit=>WebGUI::Form::submit(), _form=>WebGUI::Form::formHeader(), _hidden=>"", _tab=>\%tabs, _css=>$css }, $class;
}