version 1.6, 2000/09/29 14:36:30
|
version 1.7, 2000/09/30 17:25:04
|
Line 4
|
Line 4
|
# (Login Screen |
# (Login Screen |
# 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,09/04,09/06,09/28,09/29 Gerd Kortemeyer |
# 1/14,03/06,06/01,07/22,07/24,07/25, |
|
# 09/04,09/06,09/28,09/29,09/30 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::lonuserstate(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File(); |
use Apache::File(); |
|
|
Line 54 ENDHEADER
|
Line 56 ENDHEADER
|
} |
} |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
&Apache::lonnet::appenv('request.role' => $trolecode); |
&Apache::lonnet::appenv('request.role' => $trolecode); |
|
my ($cdom,$cnum)=split(/\//,$where); |
if ($where=~/\.course$/) { |
if ($cnum) { |
# $r->print( |
$r->print( &Apache::lonuserstate::readmap($where) ); |
# &Apache::lonuserstate::readmap('/res/msu/korte/foo.course','phy231',$fn). |
} |
} |
|
|
|
$r->print("Yeah!"); |
|
|
|
} |
} |
} |
} |
} |
} |