--- loncom/interface/loncreateuser.pm 2004/12/07 00:49:27 1.91
+++ loncom/interface/loncreateuser.pm 2004/12/28 05:01:44 1.92
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.91 2004/12/07 00:49:27 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.92 2004/12/28 05:01:44 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1280,13 +1280,13 @@ sub commit_standardrole {
&mt('Add to classlist').': ok
';
}
} else {
- $output = (&mt('Assigning').' '.$three.' in '.$url.
+ $output = &mt('Assigning').' '.$three.' in '.$url.
($start?', '.&mt('starting').' '.localtime($start):'').
($end?', '.&mt('ending').' '.localtime($end):'').': '.
&Apache::lonnet::assignrole(
$ENV{'form.ccdomain'},$ENV{'form.ccuname'},
$url,$three,$end,$start).
- '
');
+ '
';
}
return $output;
}
@@ -1611,7 +1611,12 @@ sub course_level_table {
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);
my ($domain,$cnum)=split(/\//,$thiscourse);
my %sections_count = ();
- my $num_sections = &Apache::loncommon::get_sections($domain,$cnum,\%sections_count);
+ my $num_sections = 0;
+ if (defined($ENV{'request.course.id'})) {
+ if ($ENV{'request.course.id'} eq $domain.'_'.$cnum) {
+ $num_sections = &Apache::loncommon::get_sections($domain,$cnum,\%sections_count);
+ }
+ }
foreach ('st','ta','ep','ad','in','cc') {
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {
my $plrole=&Apache::lonnet::plaintext($_);
@@ -1706,12 +1711,18 @@ sub course_sections {
my ($num_sections,$sections_count,$role) = @_;
my $output = '';
my @sections = (sort {$a <=> $b} keys %{$sections_count});
- $output = '