oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added readOnly option to user form field

Browse source
This commit is contained in:
Matthew Wilson 2006-05-08 12:43:30 +00:00
parent d39c2c81d9
commit 590fb186c9
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Form/User.pm
View file

@ -57,6 +57,10 @@ The name of the field. Defaults to "userId".
Defaults to "User". Defaults to "User".
=head4 readOnly
Defaults to 0. Use for displaying a read-only user field.
=cut =cut
sub definition { sub definition {
@ -74,6 +78,9 @@ sub definition {
name=>{ name=>{
defaultValue=>"userId", defaultValue=>"userId",
}, },
readOnly=>{
defaultValue=>0,
},
}); });
return $class->SUPER::definition($session, $definition); return $class->SUPER::definition($session, $definition);
} }
@ -101,10 +108,10 @@ sub toHtml {
value=>$user->username, value=>$user->username,
id=>$self->get('id')."_display" id=>$self->get('id')."_display"
)->toHtml )->toHtml
.WebGUI::Form::Button->new($self->session, .($self->get('readOnly')?'':WebGUI::Form::Button->new($self->session,
value=>"...", value=>"...",
extras=>'onclick="window.open(\''.$self->session->url->page("op=formUsers;formId=".$self->get('id')).'\',\'userPicker\',\'toolbar=no, location=no, status=no, directories=no, width=400, height=400\');"' extras=>'onclick="window.open(\''.$self->session->url->page("op=formUsers;formId=".$self->get('id')).'\',\'userPicker\',\'toolbar=no, location=no, status=no, directories=no, width=400, height=400\');"'
)->toHtml; )->toHtml);
} }
1; 1;