version 1.45, 2002/11/13 16:54:59
|
version 1.46.2.2, 2003/03/19 22:22:18
|
Line 242 ENDHEADER
|
Line 242 ENDHEADER
|
my $button = 1; |
my $button = 1; |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
|
next if (!defined($role) || $role eq ''); |
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $trolecode=$role.'.'.$where; |
my $trolecode=$role.'.'.$where; |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
Line 325 ENDHEADER
|
Line 326 ENDHEADER
|
} |
} |
my $tcourseid=$tdom.'_'.$trest; |
my $tcourseid=$tdom.'_'.$trest; |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
$twhere= |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
&Apache::loncommon::syllabuswrapper($ENV{'course.'.$tcourseid.'.description'}, |
unless ($twhere eq 'Currently not available') { |
$trest,$tdom); |
$twhere.=' <font size="-2">'. |
|
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom). |
|
'</font>'; |
|
} |
} else { |
} else { |
my %newhash=Apache::lonnet::coursedescription |
my %newhash=Apache::lonnet::coursedescription |
($tcourseid); |
($tcourseid); |
if (%newhash) { |
if (%newhash) { |
$twhere= |
$twhere=$newhash{'description'}. |
&Apache::loncommon::syllabuswrapper($newhash{'description'},$trest,$tdom); |
' <font size="-2">'. |
|
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom). |
|
'</font>'; |
} else { |
} else { |
$twhere='Currently not available'; |
$twhere='Currently not available'; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |