formatting

master
joey 2006-11-21 01:40:47 +00:00
parent 3275679881
commit fc0b70e700
2 changed files with 12 additions and 1 deletions

View File

@ -654,7 +654,12 @@ sub userlink ($) { #{{{
eval q{use Net::OpenID::VerifiedIdentity; 1} && !$@) { eval q{use Net::OpenID::VerifiedIdentity; 1} && !$@) {
# Munge user-urls, as used by eg, OpenID. # Munge user-urls, as used by eg, OpenID.
my $oid=Net::OpenID::VerifiedIdentity->new(identity => $user); my $oid=Net::OpenID::VerifiedIdentity->new(identity => $user);
return "<a href=\"$user\">".escapeHTML($oid->display)."</a>"; my $display=$oid->display;
# Convert "user.somehost.com" to "user [somehost.com]".
if ($display !~ /\[/) {
$display=~s/^(.*?)\.([^.]+.[^.]+)$/$1 [$2]/;
}
return "<a href=\"$user\">".escapeHTML($display)."</a>";
} }
else { else {
return htmllink("", "", escapeHTML($user), 1); return htmllink("", "", escapeHTML($user), 1);

View File

@ -56,6 +56,12 @@ sub formbuilder_setup (@) { #{{{
} }
} }
} }
elsif ($form->title eq "preferences") {
if (! defined $form->field(name => "name")) {
$form->field(name => "OpenID", disabled => 1, value =>
$session->param("name"), size => 30, force => 1);
}
}
} }
sub validate ($$$;$) { #{{{ sub validate ($$$;$) { #{{{