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

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

version 1.31, 2001/11/29 19:12:44 version 1.32, 2001/12/21 16:57:54
Line 27 Line 27
 #  #
 # (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 379  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 396  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 408  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.31  
changed lines
  Added in v.1.32

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