[BACK]Return to lonroles.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.52 and 1.53

version 1.52, 2003/02/13 18:11:26 version 1.53, 2003/03/23 01:46:51
Line 93  sub handler { Line 93  sub handler {
                if ($tstatus eq 'is') {                 if ($tstatus eq 'is') {
                    $where=~s/^\///;                     $where=~s/^\///;
                    my ($cdom,$cnum,$csec)=split(/\//,$where);                     my ($cdom,$cnum,$csec)=split(/\//,$where);
   # check for keyed access
                      if (($role eq 'st') && 
                        ($ENV{'course.'.$cdom.'_'.$cnum.'.keyaccess'} eq 'yes')) {
                         unless (&Apache::lonnet::validate_access_key(
    $ENV{'environment.key.'.$cdom.'_'.$cnum},
    $cdom,$cnum)) {
   # there is no valid key
     if ($ENV{'form.newkey'}) {
   # student attempts to register a new key
                             } else {
   # print form to enter a new key
                    $r->content_type('text/html');
                            &Apache::loncommon::no_cache($r);
                            $r->send_http_header;
                            my $swinfo=&Apache::lonmenu::rawconfig();
                            my $bodytag=&Apache::loncommon::bodytag
                            ('Enter Access Key to Unlock this Course');
                            $r->print(<<ENDENTERKEY);
   <head><title>Entering Course Access Key</title>
   </head>
   <html>
   $bodytag
   <script>
   $swinfo
   </script>
   <form method="post">
   <input type="hidden" name="selectrole" value="$ENV{'form.selectrole'}" />
   <input type="text" size="20" name="newkey" value="$ENV{'form.newkey'}" />
   <input type="submit" value="Enter key" />
   </form>
   </body></html>
   ENDENTERKEY
                            }
                         }
     }
                    &Apache::lonnet::appenv('request.role'        => $trolecode,                     &Apache::lonnet::appenv('request.role'        => $trolecode,
                                            'request.role.domain' => $cdom,                                             'request.role.domain' => $cdom,
                                            'request.course.sec'  => $csec);                                             'request.course.sec'  => $csec);
Removed from v.1.52  
changed lines
  Added in v.1.53

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>