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

- Added Guid form control.

Browse source 
- Moved Asset ID and Class Name fields to the Meta tab of all assets.
 - Made Classname from control a subclass of ReadOnly.
This commit is contained in:
JT Smith 2008-10-16 19:02:13 +00:00
parent 2b8a3c279d
commit 84d7c20fed
5 changed files with 119 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lib/WebGUI/Form/ClassName.pm
View file

@ -15,7 +15,7 @@ package WebGUI::Form::ClassName;
=cut
use strict;
use base 'WebGUI::Form::Text';
use base 'WebGUI::Form::ReadOnly';
use WebGUI::International;
=head1 NAME
@ -28,7 +28,7 @@ Creates a field for typing in perl class names which is validated for taint safe
=head1 SEE ALSO
This is a subclass of WebGUI::Form::Text.
This is a subclass of WebGUI::Form::ReadOnly.
=head1 METHODS
@ -65,32 +65,5 @@ sub getValue {
return $value;
}
#-------------------------------------------------------------------
=head2 isDynamicCompatible ( )
Returns 0.
=cut
sub isDynamicCompatible {
return 0;
}
#-------------------------------------------------------------------
=head2 toHtml ( )
Renders a class name field.
=cut
sub toHtml {
my $self = shift;
$self->session->style->setScript($self->session->url->extras('inputCheck.js'),{ type=>'text/javascript' });
$self->set("extras", $self->get('extras') . ' onkeyup="doInputCheck(document.getElementById(\''.$self->get("id").'\'),\'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890:_\')" ');
return $self->SUPER::toHtml;
}
1;