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

XHTML Bugfixes

Browse source
This commit is contained in:
Wouter van Oijen 2006-02-10 21:21:03 +00:00
parent c68c65a504
commit 2b1c85370c
6 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Asset/Event.pm
View file

@ -78,14 +78,14 @@ sub getEditForm {
-name=>"eventStartDate", -name=>"eventStartDate",
-label=>$i18n->get(513), -label=>$i18n->get(513),
-hoverHelp=>$i18n->get('Start Date description'), -hoverHelp=>$i18n->get('Start Date description'),
-extras=>'onBlur="this.form.eventEndDate.value=this.form.eventStartDate.value;this.form.until.value=this.form.eventStartDate.value;"', -extras=>'onblur="this.form.eventEndDate.value=this.form.eventStartDate.value;this.form.until.value=this.form.eventStartDate.value;"',
-value=>$self->getValue("eventStartDate") -value=>$self->getValue("eventStartDate")
); );
$tabform->getTab("properties")->dateTime( $tabform->getTab("properties")->dateTime(
-name=>"eventEndDate", -name=>"eventEndDate",
-label=>$i18n->get(514), -label=>$i18n->get(514),
-hoverHelp=>$i18n->get('End Date description'), -hoverHelp=>$i18n->get('End Date description'),
-extras=>'onBlur="this.form.until.value=this.form.eventEndDate.value;"', -extras=>'onblur="this.form.until.value=this.form.eventEndDate.value;"',
-value=>$self->getValue("eventEndDate") -value=>$self->getValue("eventEndDate")
); );
$tabform->getTab("properties")->text( $tabform->getTab("properties")->text(

4
lib/WebGUI/Asset/Wobject/Navigation.pm
View file

@ -150,7 +150,7 @@ sub getEditForm {
-value=>WebGUI::Form::checkbox($self->session,{ -value=>WebGUI::Form::checkbox($self->session,{
checked=>$ancestorsChecked, checked=>$ancestorsChecked,
name=>"assetsToInclude", name=>"assetsToInclude",
extras=>'onChange="toggleAncestorEndPoint()"', extras=>'onchange="toggleAncestorEndPoint()"',
value=>"ancestors" value=>"ancestors"
}).$i18n->get('Ancestors').'<br />' }).$i18n->get('Ancestors').'<br />'
.WebGUI::Form::checkbox($self->session,{ .WebGUI::Form::checkbox($self->session,{
@ -167,7 +167,7 @@ sub getEditForm {
checked=>$descendantsChecked, checked=>$descendantsChecked,
name=>"assetsToInclude", name=>"assetsToInclude",
value=>"descendants", value=>"descendants",
extras=>'onChange="toggleDescendantEndPoint()"' extras=>'onchange="toggleDescendantEndPoint()"'
}).$i18n->get('Descendants').'<br />' }).$i18n->get('Descendants').'<br />'
.WebGUI::Form::checkbox($self->session,{ .WebGUI::Form::checkbox($self->session,{
checked=>$pedigreeChecked, checked=>$pedigreeChecked,

2
lib/WebGUI/Form/Url.pm
View file

@ -108,7 +108,7 @@ Renders a URL field.
sub toHtml { sub toHtml {
my $self = shift; my $self = shift;
$self->session->style->setScript($self->session->config->get("extrasURL").'/addHTTP.js',{ type=>'text/javascript' }); $self->session->style->setScript($self->session->config->get("extrasURL").'/addHTTP.js',{ type=>'text/javascript' });
$self->set("extras", $self->get('extras') . ' onBlur="addHTTP(this.form.'.$self->get("name").')"'); $self->set("extras", $self->get('extras') . ' onblur="addHTTP(this.form.'.$self->get("name").')"');
return $self->SUPER::toHtml; return $self->SUPER::toHtml;
} }

2
lib/WebGUI/HTMLForm.pm
View file

@ -125,7 +125,7 @@ The form's submission method. This defaults to "POST" and probably shouldn't be
If you want to add anything special to your form like javascript actions, or stylesheet information, you'd add it in here as follows: If you want to add anything special to your form like javascript actions, or stylesheet information, you'd add it in here as follows:
'"name"="myForm" onChange="myForm.submit()"' '"name"="myForm" onchange="myForm.submit()"'
=head3 enctype =head3 enctype

4
lib/WebGUI/Operation/Settings.pm
View file

@ -258,7 +258,7 @@ sub www_editSettings {
-label=>$i18n->get("Enable passive profiling"), -label=>$i18n->get("Enable passive profiling"),
-hoverHelp=>$i18n->get("Enable passive profiling description"), -hoverHelp=>$i18n->get("Enable passive profiling description"),
-value=>$session->setting->get("passiveProfilingEnabled"), -value=>$session->setting->get("passiveProfilingEnabled"),
-extras=>' onChange="alert(\''.$i18n->get("Illegal Warning").'\')" ' -extras=>'onchange="alert(\''.$i18n->get("Illegal Warning").'\')" '
); );
# auth settings # auth settings
$session->style->setScript($session->config->get("extrasURL")."/swapLayers.js",{type=>"text/javascript"}); $session->style->setScript($session->config->get("extrasURL")."/swapLayers.js",{type=>"text/javascript"});
@ -273,7 +273,7 @@ sub www_editSettings {
-label=>$i18n->get(164), -label=>$i18n->get(164),
-hoverHelp=>$i18n->get('164 description'), -hoverHelp=>$i18n->get('164 description'),
-value=>[$session->setting->get("authMethod")], -value=>[$session->setting->get("authMethod")],
-extras=>"onChange=\"active=operateHidden(this.options[this.selectedIndex].value,active)\"" -extras=>"onchange=\"active=operateHidden(this.options[this.selectedIndex].value,active)\""
); );
foreach (@{$session->config->get("authMethods")}) { foreach (@{$session->config->get("authMethods")}) {
my $authInstance = WebGUI::Operation::Auth::getInstance($session,$_,1); my $authInstance = WebGUI::Operation::Auth::getInstance($session,$_,1);

2
lib/WebGUI/Operation/User.pm
View file

@ -337,7 +337,7 @@ sub www_editUser {
-options=>$options, -options=>$options,
-label=>$i18n->get(164), -label=>$i18n->get(164),
-value=>$u->authMethod, -value=>$u->authMethod,
-extras=>"onChange=\"active=operateHidden(this.options[this.selectedIndex].value,active)\"" -extras=>"onchange=\"active=operateHidden(this.options[this.selectedIndex].value,active)\""
); );
foreach (@{$session->config->get("authMethods")}) { foreach (@{$session->config->get("authMethods")}) {
my $authInstance = WebGUI::Operation::Auth::getInstance($session,$_,$u->userId); my $authInstance = WebGUI::Operation::Auth::getInstance($session,$_,$u->userId);