diff --git a/lib/WebGUI/Operation/User.pm b/lib/WebGUI/Operation/User.pm index 9915b755f..5d51d0cd2 100644 --- a/lib/WebGUI/Operation/User.pm +++ b/lib/WebGUI/Operation/User.pm @@ -646,17 +646,39 @@ Provides a form for editing a user, or adding a new user. =cut sub www_editUser { + my $session = shift; return $session->privilege->adminOnly() unless canAdd($session); my $error = shift; my $uid = shift || $session->form->process("uid"); + my $u = WebGUI::User->new($session,($uid eq 'new') ? '' : $uid); #Setting uid to '' when uid is 'new' so visitor defaults prefill field for new user my $username = ($u->isVisitor && $uid ne "1") ? '' : $u->username; + my $i18n = WebGUI::International->new($session, "WebGUI"); + my $f = WebGUI::FormBuilder->new( $session, action => $session->url->page, extras => 'autocomplete="off"', ); + + # something, probably YUI, winds up striping the styling off of this, including the position, leaving this hanging awkwardly off to the left above the tabs + # the Button class styles it up in YUI trappings; skip that; abuse the Control control to render raw HTML + #$f->addField( 'Button', + # name => 'submit', + # value => 'Save', + # extras => 'style="position: absolute; top: 10px; right: 10px; z-index: 50000;"', + #); + $f->addField( 'Control', + name => 'submit', + value => q{ +