chiark / gitweb /
new generators
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 28 Oct 2012 21:13:01 +0000 (21:13 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 28 Oct 2012 21:13:01 +0000 (21:13 +0000)
cgi-auth-hybrid.pm

index c3cdbfb..2993bc2 100644 (file)
@@ -208,24 +208,24 @@ sub username ($) {
     my ($r) = @_;
     return $r->{Username};
 
-sub hiddenv ($) {
+sub hidden_val ($) {
     my ($r) = @_;
-    return defined $r->{A} ? $r->{A} : '';
+    return defined $r->{Assoc} ? $r->{Assoc} : '';
 }
 
-sub hiddena ($) {
+sub hidden_hargs ($) {
     my ($r) = @_;
-    return (-name => $r->{param_name},
-           -default => $r->hiddenv());
+    return (-name => $r->{S}{param_name},
+           -default => $r->hidden_val());
 }
 
-sub hiddenh ($) {
+sub hidden_html ($) {
     my ($r) = @_;
-    return hidden($r->hiddena());
+    return hidden($r->hidden_hargs());
 }
 
-sub cookieac ($) {
+sub cookiea_cargs ($) {
     my ($r) = @_;
-    return (-name => $r->{cookie_name},
-           -value => hiddenv());
-           
+    return (-name => $r->{S}{cookie_name},
+           -value => hidden_val());
+}