version 1.35, 2002/05/04 02:30:00
|
version 1.37, 2002/05/13 09:10:15
|
Line 115 sub handler {
|
Line 115 sub handler {
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
my $swinfo=&Apache::lonmenu::rawconfig; |
my $swinfo=&Apache::lonmenu::rawconfig($r); |
print (<<ENDREDIR); |
print (<<ENDREDIR); |
<head><title>Entering Course</title> |
<head><title>Entering Course</title> |
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl"> |
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl"> |
Line 146 ENDREDIR
|
Line 146 ENDREDIR
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $swinfo=&Apache::lonmenu::rawconfig; |
my $swinfo=&Apache::lonmenu::rawconfig($r); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
Line 318 ENDHEADER
|
Line 318 ENDHEADER
|
$ttype='Course'; |
$ttype='Course'; |
if ($tsection) { |
if ($tsection) { |
$ttype.='<br>Section/Group: '.$tsection; |
$ttype.='<br>Section/Group: '.$tsection; |
} |
} |
my $tcourseid=$tdom.'_'.$trest; |
my $tcourseid=$tdom.'_'.$trest; |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
Line 331 ENDHEADER
|
Line 331 ENDHEADER
|
$twhere='Currently not available'; |
$twhere='Currently not available'; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
if ($trole ne 'st') { |
|
$twhere.="<br />Domain:".$tdom; |
|
} |
|
} |
} |
|
if ($role ne 'st') { $twhere.="<br />Domain:".$tdom; } |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |