Commit c9c483b0 authored by Clément OUDOT's avatar Clément OUDOT

make tidy

parent 59a833cb
......@@ -63,7 +63,7 @@ sub handle {
: ($1)
: $_
) => $ENV{$_}
} keys %ENV
} keys %ENV
),
$content,
)
......
......@@ -117,7 +117,7 @@ sub delete {
$ts[4]++;
return _modify(
$self,
'(&(objectClass=applicationProcess)(description={uid}'
'(&(objectClass=applicationProcess)(description={uid}'
. $u
. ')(description={ref}'
. $r
......@@ -145,7 +145,7 @@ sub purge {
my $clause;
$clause = '(description={done}*)' unless ($force);
return _delete( $self,
'(&(objectClass=applicationProcess)(description={uid}'
'(&(objectClass=applicationProcess)(description={uid}'
. $u
. ')(description={ref}'
. $r
......
......@@ -133,7 +133,7 @@ sub menu {
my $self = shift;
require Lemonldap::NG::Manager::Downloader;
return
'<ul class="simpleTree">'
'<ul class="simpleTree">'
. $self->li( 'root', 'root' )
. $self->span(
id => 'root',
......
......@@ -555,7 +555,7 @@ sub session {
foreach ( keys %session ) {
next if $_ !~ /^notification_(.+)/;
$res .=
'<li><strong>'
'<li><strong>'
. $1
. '</strong>: '
. $session{$_} . " ("
......@@ -688,8 +688,8 @@ sub uid {
my ( $byIp, $res );
$res = Lemonldap::NG::Common::Apache::Session->searchOn(
$self->{globalStorageOptions},
$whatToTrace, $uid, '_httpSessionType', $whatToTrace,
$self->{ipField}, 'startTime' );
$whatToTrace, $uid, '_httpSessionType', $whatToTrace, $self->{ipField},
'startTime' );
while ( my ( $id, $entry ) = each(%$res) ) {
next if ( $entry->{_httpSessionType} );
if ( $entry->{$whatToTrace} eq $uid ) {
......
......@@ -71,7 +71,7 @@ sub extractFormInfo {
foreach ( keys %{ $self->{portalHiddenFormValues} } ) {
$local_url .=
( $local_url =~ /\?/ ? '&' : '?' )
( $local_url =~ /\?/ ? '&' : '?' )
. $_ . '='
. uri_escape( $self->{portalHiddenFormValues}->{$_} );
}
......
......@@ -200,7 +200,7 @@ sub extractFormInfo {
my $val = $self->param($_);
$val = 'check_authentication' if $_ eq 'openid.mode';
sprintf '%s=%s', uri_escape_utf8($_), uri_escape_utf8($val);
} $self->param()
} $self->param()
);
# Launch request
......
......@@ -193,7 +193,7 @@ sub sregHook {
foreach my $k (@opt) {
utf8::decode( $msg{opt}->{$k} );
$self->{_openIdTrustExtMsg} .=
"<tr class=\"optional\">\n"
"<tr class=\"optional\">\n"
. "<td>\n"
. "<input type=\"checkbox\" value=\"OK\""
. ( $ag{$k} ? 'checked="checked"' : '' )
......
......@@ -50,7 +50,7 @@ sub setSessionInfo {
}
else {
$self->lmLog(
'Ignoring attribute '
'Ignoring attribute '
. $v
. ' which is not a valid OpenID SREG attribute',
'warn'
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment