From cf94209ee946720f8bc41ed99c018fc84ebf41eb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 28 Oct 2012 21:13:01 +0000
Subject: [PATCH] new generators

---
 cgi-auth-hybrid.pm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/cgi-auth-hybrid.pm b/cgi-auth-hybrid.pm
index c3cdbfb..2993bc2 100644
--- a/cgi-auth-hybrid.pm
+++ b/cgi-auth-hybrid.pm
@@ -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());
+}
-- 
2.30.2