version 1.23, 2001/03/03 00:55:36
|
version 1.24, 2001/05/03 17:54:12
|
Line 9
|
Line 9
|
# 12/08,12/28, |
# 12/08,12/28, |
# 01/15/01 Gerd Kortemeyer |
# 01/15/01 Gerd Kortemeyer |
# 02/27/01 Scott Harrison |
# 02/27/01 Scott Harrison |
# 03/02 Gerd Kortemeyer |
# 03/02,05/03 Gerd Kortemeyer |
|
|
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 222 ENDHEADER
|
Line 222 ENDHEADER
|
my ($tdom,$trest,$tsection)= |
my ($tdom,$trest,$tsection)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
|
if ($role eq 'ca') { |
|
$ttype='Construction Space'; |
|
$twhere='User: '.$trest.'<br>Domain: '.$tdom; |
|
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
} else { |
$ttype='Course'; |
$ttype='Course'; |
if ($tsection) { |
if ($tsection) { |
$ttype.='<br>Section/Group: '.$tsection; |
$ttype.='<br>Section/Group: '.$tsection; |
Line 238 ENDHEADER
|
Line 243 ENDHEADER
|
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
} |
} |
|
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
Line 295 ENDHEADER
|
Line 301 ENDHEADER
|
my ($tdom,$trest,$tsec)= |
my ($tdom,$trest,$tsec)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
|
if ($ENV{'course.'.$tdom.'_'.$trest.'.description'} eq 'ca') { |
|
$ttype='Construction Space'; |
|
$twhere='User: '.$trest.', Domain: '.$tdom; |
|
} else { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'}; |
$twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'}; |
if ($tsec) { |
if ($tsec) { |
$twhere.=' (Section/Group: '.$tsec.')'; |
$twhere.=' (Section/Group: '.$tsec.')'; |
} |
} |
|
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |