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

Diff for /loncom/auth/lonroles.pm between versions 1.10 and 1.12

version 1.10, 2000/10/04 14:09:01 version 1.12, 2000/10/05 19:15:34
Line 5 Line 5
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)  # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
 # 11/23 Gerd Kortemeyer)  # 11/23 Gerd Kortemeyer)
 # 1/14,03/06,06/01,07/22,07/24,07/25,  # 1/14,03/06,06/01,07/22,07/24,07/25,
 # 09/04,09/06,09/28,09/29,09/30,10/2 Gerd Kortemeyer  # 09/04,09/06,09/28,09/29,09/30,10/2,10/5 Gerd Kortemeyer
 #  #
 package Apache::lonroles;  package Apache::lonroles;
   
Line 49  sub handler { Line 49  sub handler {
                    my ($cdom,$cnum)=split(/\//,$where);                     my ($cdom,$cnum)=split(/\//,$where);
                    if ($cnum) {                     if ($cnum) {
       &Apache::lonuserstate::readmap($where);        &Apache::lonuserstate::readmap($where);
                       $r->internal_redirect($ENV{'form.orgurl'});                        if ($ENV{'form.orgurl'}) {
                       return OK;                           $r->internal_redirect($ENV{'form.orgurl'});
                            return OK;
         }
                    }                     }
                }                 }
             }               } 
Line 75  ENDHEADER Line 77  ENDHEADER
 # ------------------------------------------ Get Error Message from Environment  # ------------------------------------------ Get Error Message from Environment
   
     my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'});      my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'});
     $r->log_reason(      if ($ENV{'user.error.msg'}) {
  "$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);         $r->log_reason(
        "$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);
       }
   
 # ---------------------------------------------------------------- Who is this?  # ---------------------------------------------------------------- Who is this?
   
Line 123  ENDHEADER Line 127  ENDHEADER
         } else {          } else {
    $r->print("<h2>Enter a Course</h2>\n");     $r->print("<h2>Enter a Course</h2>\n");
         }          }
         $r->print('<form method=post action="'.$r->uri.'">');          $r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">');
         $r->print('<input type=hidden name=orgurl value="'.$fn.'">');          $r->print('<input type=hidden name=orgurl value="'.$fn.'">');
         $r->print('<input type=hidden name=selectrole value=1>');          $r->print('<input type=hidden name=selectrole value=1>');
     }      }
Removed from v.1.10  
changed lines
  Added in v.1.12

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