new generators

diff --git a/cgi-auth-hybrid.pm b/cgi-auth-hybrid.pm
index c3cdbfb53e79890566b05075ade4d052b089e4ef..2993bc239c54ddb0a4cb78731a726bc52e9702cc 100644 (file)
--- 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());
+}