wip

diff --git a/cgi-auth-hybrid.pm b/cgi-auth-hybrid.pm
index af0e08359441601ec4e8e8ec5442607a156e377c..83ee4198ba2d72734eba4dc03f82d2430b3e5900 100644 (file)
--- a/cgi-auth-hybrid.pm
+++ b/cgi-auth-hybrid.pm
@@ -232,6 +232,8 @@ sub _rp ($$@) {
     #  -/n n   POST  nrmu     user not logged in
     #                           fail
 
+UP TO HERE
+
 sub _check_core ($) {
     my ($r) = @_;
     my $qassoc = $r->_ch('get_param');
@@ -257,8 +259,6 @@ sub _check_core ($) {
        }
     }
 
-UP TO HERE
-
     my $dbh = $r->{Dbh};
     my ($nusername, $nlast) =
        $dbh->selectrow_array("SELECT username, last".