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

Diff for /loncom/auth/lonroles.pm between versions 1.29 and 1.32

version 1.29, 2001/10/26 17:09:04 version 1.32, 2001/12/21 16:57:54
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # User Roles Screen  # User Roles Screen
   #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
 # (Directory Indexer  # (Directory Indexer
 # (Login Screen  # (Login Screen
   # YEAR=1999
 # 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)
   # YEAR=2000
 # 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,10/5,10/26,10/28,  # 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,
 # 12/08,12/28,  # 12/08,12/28,
   # YEAR=2001
 # 01/15/01 Gerd Kortemeyer  # 01/15/01 Gerd Kortemeyer
 # 02/27/01 Scott Harrison  # 02/27/01 Scott Harrison
 # 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer  # 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
   # 12/21 Scott Harrison
   #
   ###
   
 package Apache::lonroles;  package Apache::lonroles;
   
Line 77  sub handler { Line 108  sub handler {
  '<h1><font color=red>Could not initialize top-level map.</font></h1>';   '<h1><font color=red>Could not initialize top-level map.</font></h1>';
                           }                            }
                  $r->content_type('text/html');                   $r->content_type('text/html');
                            &Apache::loncommon::no_cache($r);
                          $r->send_http_header;                           $r->send_http_header;
                          my $swinfo=&Apache::lonmenu::rawconfig;                           my $swinfo=&Apache::lonmenu::rawconfig;
  my $cacheheader=&Apache::loncommon::cacheheader();  
                          print (<<ENDREDIR);                           print (<<ENDREDIR);
 <head><title>Entering Course</title>  <head><title>Entering Course</title>
 <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">  <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">
 $cacheheader  
 </head>  </head>
 <html>  <html>
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
Line 107  ENDREDIR Line 137  ENDREDIR
 # =============================================================== No Roles Init  # =============================================================== No Roles Init
   
     $r->content_type('text/html');      $r->content_type('text/html');
       &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
     my $swinfo=&Apache::lonmenu::rawconfig;      my $swinfo=&Apache::lonmenu::rawconfig;
     my $cacheheader=&Apache::loncommon::cacheheader();  
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
 $cacheheader  
 <title>LON-CAPA User Roles</title>  <title>LON-CAPA User Roles</title>
 </head><body bgcolor="#FFFFFF">  </head><body bgcolor="#FFFFFF">
 <script>  <script>
Line 356  ENDHEADER Line 385  ENDHEADER
                 $twhere='/';                  $twhere='/';
             }              }
             $r->print("\n<h3>".$ttype.': '.$twhere.'</h3><ul>');              $r->print("\n<h3>".$ttype.': '.$twhere.'</h3><ul>');
             map {              foreach (sort split(/:/,$ENV{$envkey})) {
               if ($_) {                if ($_) {
   my ($prv,$restr)=split(/\&/,$_);    my ($prv,$restr)=split(/\&/,$_);
                   my $trestr='';                    my $trestr='';
Line 373  ENDHEADER Line 402  ENDHEADER
                   $r->print('<li>'.Apache::lonnet::plaintext($prv).$trestr.                    $r->print('<li>'.Apache::lonnet::plaintext($prv).$trestr.
                             '</li>');                              '</li>');
       }        }
             } sort split(/:/,$ENV{$envkey});              }
             $r->print('</ul>');              $r->print('</ul>');
         }          }
     }      }
Line 385  ENDHEADER Line 414  ENDHEADER
   
 1;  1;
 __END__  __END__
   
   =head1 NAME
   
   Apache::lonroles - User Roles Screen
   
   =head1 SYNOPSIS
   
   Invoked by /etc/httpd/conf/srm.conf:
   
    <Location /adm/roles>
    PerlAccessHandler       Apache::lonacc
    SetHandler perl-script
    PerlHandler Apache::lonroles
    ErrorDocument     403 /adm/login
    ErrorDocument  500 /adm/errorhandler
    </Location>
   
   =head1 INTRODUCTION
   
   This module enables a user to select what role he wishes to
   operate under (instructor, student, teaching assistant, course
   coordinator, etc).  These roles are pre-established by the actions
   of upper-level users.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 HANDLER SUBROUTINE
   
   This routine is called by Apache and mod_perl.
   
   =over 4
   
   =item *
   
   Roles Initialization (yes/no)
   
   =item *
   
   Get Error Message from Environment
   
   =item *
   
   Who is this?
   
   =item *
   
   Generate Page Output
   
   =item *
   
   Choice or no choice
   
   =item *
   
   Table
   
   =item *
   
   Privileges
   
   =back
   
   =cut
Removed from v.1.29  
changed lines
  Added in v.1.32

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