diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm index ac82ed41a..51f5a93f8 100644 --- a/lib/WebGUI/Asset.pm +++ b/lib/WebGUI/Asset.pm @@ -1420,7 +1420,7 @@ sub www_add { $self->session->errorHandler->security("tried to call an invalid class ".$class); return ""; } - if ($self->session->form->process("'prototype'")) { + if ($self->session->form->process('prototype')) { my $prototype = WebGUI::Asset->new($self->session->form->process("prototype"),$class); foreach my $definition (@{$prototype->definition($self->session)}) { # cycle through rather than copying properties to avoid grabbing stuff we shouldn't grab foreach my $property (keys %{$definition->{properties}}) { diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm index 0e653b52e..928567460 100644 --- a/lib/WebGUI/Asset/Post.pm +++ b/lib/WebGUI/Asset/Post.pm @@ -658,7 +658,7 @@ sub processPropertiesFromFormPost { ); $data{url} = $self->fixUrl($self->getThread->get("url")."/1") if ($self->isReply); if ($self->getThread->getParent->canModerate) { - $self->getThread->lock if ($self->session->form->process("'lock'")); + $self->getThread->lock if ($self->session->form->process('lock')); $self->getThread->stick if ($self->session->form->process("stick")); } } @@ -1001,7 +1001,7 @@ sub www_edit { }); $var{'lock.form'} = WebGUI::Form::yesNo({ name=>'lock', - value=>$self->session->form->process("'lock'") + value=>$self->session->form->process('lock') }); } $var{'subscribe.form'} = WebGUI::Form::yesNo({ @@ -1034,7 +1034,7 @@ sub www_edit { ($var{'preview.synopsis'}, $var{'preview.content'}) = $self->getSynopsisAndContentFromFormPost; $var{'preview.content'} = $self->formatContent($var{'preview.content'},$self->session->form->process("contentType")); for my $i (1..5) { - $var{'preview.userDefined'.$i} = WebGUI::HTML::filter($self->session->form->process("'userDefined'.$i"),"macros"); + $var{'preview.userDefined'.$i} = WebGUI::HTML::filter($self->session->form->process('userDefined'.$i),"macros"); } } $var{'form.footer'} = WebGUI::Form::formFooter($self->session,); diff --git a/lib/WebGUI/Asset/Wobject/HttpProxy.pm b/lib/WebGUI/Asset/Wobject/HttpProxy.pm index e724407cd..5ab355502 100644 --- a/lib/WebGUI/Asset/Wobject/HttpProxy.pm +++ b/lib/WebGUI/Asset/Wobject/HttpProxy.pm @@ -232,7 +232,7 @@ sub view { foreach my $input_name (keys %{$session{form}}) { next if ($input_name !~ /^HttpProxy_/); # Skip non proxied form var's $input_name =~ s/^HttpProxy_//; - $proxiedUrl=$self->session->url->append($proxiedUrl,"$input_name=$self->session->form->process("'HttpProxy_'.$input_name")"); + $proxiedUrl=$self->session->url->append($proxiedUrl,"$input_name=".$self->session->form->process('HttpProxy_'.$input_name)); } } $request = HTTP::Request->new(GET => $proxiedUrl, $header) || return "wrong url"; # Create GET request @@ -245,13 +245,13 @@ sub view { next if ($input_name !~ /^HttpProxy_/); # Skip non proxied form var's $input_name =~ s/^HttpProxy_//; - my $uploadFile = $self->session->request->tmpFileName($self->session->form->process("'HttpProxy_'.$input_name")); + my $uploadFile = $self->session->request->tmpFileName($self->session->form->process('HttpProxy_'.$input_name)); if(-r $uploadFile) { # Found uploaded file - @formUpload=($uploadFile, qq/$self->session->form->process("'HttpProxy_'.$input_name")/); + @formUpload=($uploadFile, qq/$self->session->form->process('HttpProxy_'.$input_name)/); $formdata{$input_name}=\@formUpload; $contentType = 'form-data'; # Different Content Type header for file upload } else { - $formdata{$input_name}=qq/$self->session->form->process("'HttpProxy_'.$input_name")/; + $formdata{$input_name}=qq/$self->session->form->process('HttpProxy_'.$input_name)/; } } # Create POST request diff --git a/lib/WebGUI/Auth/LDAP.pm b/lib/WebGUI/Auth/LDAP.pm index 33ee497fd..3a4d9f4c8 100644 --- a/lib/WebGUI/Auth/LDAP.pm +++ b/lib/WebGUI/Auth/LDAP.pm @@ -44,7 +44,7 @@ sub _isValidLDAPUser { $auth = $ldap->bind; } if ($auth) { - $search = $ldap->search ( base=>$uri->dn, filter=>$connection->{ldapIdentity}."=".$self->session->form->process("'authLDAP_ldapId'")); + $search = $ldap->search ( base=>$uri->dn, filter=>$connection->{ldapIdentity}."=".$self->session->form->process('authLDAP_ldapId')); if (defined $search->entry(0)) { if ($connection->{ldapUserRDN} eq 'dn') { $connectDN = $search->entry(0)->dn; @@ -53,10 +53,10 @@ sub _isValidLDAPUser { } $ldap->unbind; $ldap = Net::LDAP->new($uri->host, (port=>$uri->port)) or $error .= $i18n->get(2,'AuthLDAP'); - $auth = $ldap->bind(dn=>$connectDN, password=>$self->session->form->process("'authLDAP_identifier'")); + $auth = $ldap->bind(dn=>$connectDN, password=>$self->session->form->process('authLDAP_identifier')); if ($auth->code == 48 || $auth->code == 49) { $error .= '
  • '.$i18n->get(68).'
  • '; - $self->session->errorHandler->warn("Invalid LDAP information for registration of LDAP ID: ".$self->session->form->process("'authLDAP_ldapId'")); + $self->session->errorHandler->warn("Invalid LDAP information for registration of LDAP ID: ".$self->session->form->process('authLDAP_ldapId')); } elsif ($auth->code > 0) { $error .= '
  • LDAP error "'.$self->ldapStatusCode($auth->code).'" occured. '.$i18n->get(69).'
  • '; $self->session->errorHandler->error("LDAP error: ".$self->ldapStatusCode($auth->code)); @@ -64,7 +64,7 @@ sub _isValidLDAPUser { $ldap->unbind; } else { $error .= '
  • '.$i18n->get(68).'
  • '; - $self->session->errorHandler->warn("Invalid LDAP information for registration of LDAP ID: ".$self->session->form->process("'authLDAP_ldapId'")); + $self->session->errorHandler->warn("Invalid LDAP information for registration of LDAP ID: ".$self->session->form->process("authLDAP_ldapId")); } } else { $error = $i18n->get(2,'AuthLDAP'); @@ -89,9 +89,9 @@ sub addUserForm { my $self = shift; my $userData = $self->getParams; my $connection = $self->{_connection}; - my $ldapUrl = $self->session->form->process("'authLDAP_ldapUrl'} || $userData->{ldapUrl} || $connection->{ldapURL"); - my $connectDN = $self->session->form->process("'authLDAP_connectDN'} || $userData->{connectDN"); - my $ldapConnection = $self->session->form->process("'authLDAP_ldapConnection'} || $userData->{ldapConnection"); + my $ldapUrl = $self->session->form->process('authLDAP_ldapUrl') || $userData->{ldapUrl} || $connection->{ldapURL}; + my $connectDN = $self->session->form->process('authLDAP_connectDN') || $userData->{connectDN}; + my $ldapConnection = $self->session->form->process('authLDAP_ldapConnection') || $userData->{ldapConnection}; my $ldapLinks = $self->session->db->buildHashRef("select ldapLinkId,ldapUrl from ldapLink"); my $f = WebGUI::HTMLForm->new($self->session); my $jscript = ""; @@ -144,9 +144,9 @@ sub addUserForm { sub addUserFormSave { my $self = shift; my $properties; - $properties->{connectDN} = $self->session->form->process("'authLDAP_connectDN'"); - $properties->{ldapUrl} = $self->session->form->process("'authLDAP_ldapUrl'"); - $properties->{ldapConnection} = $self->session->form->process("'authLDAP_ldapConnection'"); + $properties->{connectDN} = $self->session->form->process('authLDAP_connectDN'); + $properties->{ldapUrl} = $self->session->form->process('authLDAP_ldapUrl'); + $properties->{ldapConnection} = $self->session->form->process('authLDAP_ldapConnection'); $self->SUPER::addUserFormSave($properties); }