wip, rename __ to _gt

diff --git a/cgi-auth-hybrid.pm b/cgi-auth-hybrid.pm
index 422d7a31b357e6d18cd2052d128501a5a3b7aa39..27cf367d64cbb8f17359e755f0cd818cc8555eae 100644 (file)
--- a/cgi-auth-hybrid.pm
+++ b/cgi-auth-hybrid.pm
@@ -77,9 +77,9 @@ sub do_redirect_cgi ($$$$) {
              -location => $new_url);
     push @ha, (-cookie => $cookie) if defined $cookie;
     $r->_print($c->header(@ha),
-              $r->_ch('gen_start_html')($r->__('Redirection')),
+              $r->_ch('gen_start_html')($r->_gt('Redirection')),
               '<a href="'.escapeHTML($new_url).'">',
-              $r->__("If you aren't redirected, click to continue."),
+              $r->_gt("If you aren't redirected, click to continue."),
               "</a>",
               $c->_ch('gen_end_html'));
 }
@@ -208,7 +208,7 @@ sub _rp ($$@) {
     my $p = scalar $r->_ch('get_param',$pn)
 }
 
-sub __ ($$) { my ($r, $t) = @_; return $r->_ch('gettext')($t); }
+sub _gt ($$) { my ($r, $t) = @_; return $r->_ch('gettext')($t); }
 sub _print ($$) { my ($r, @t) = @_; return $r->_ch('print')(join '', @t); }
 
 # pages/param-sets are
@@ -527,8 +527,8 @@ sub check_ok ($) {
 
     my ($title, @body);
     if ($kind =~ m/^LOGIN-/) {
-       $title = $r->__('Login');
-       push @body, $r->__($divert->{Message});
+       $title = $r->_gt('Login');
+       push @body, $r->_gt($divert->{Message});
        push @body, $r->_ch('gen_login_form');
        $body .= $r->_ch(