version 1.6, 2001/06/09 16:05:30
|
version 1.7, 2001/07/04 16:52:10
|
Line 5
|
Line 5
|
# |
# |
# 05/29/00,05/30 Gerd Kortemeyer) |
# 05/29/00,05/30 Gerd Kortemeyer) |
# |
# |
# 10/05,05/28,05/30,06/01,06/08,06/09 Gerd Kortemeyer |
# 10/05,05/28,05/30,06/01,06/08,06/09,07/04 Gerd Kortemeyer |
|
|
package Apache::lonmenu; |
package Apache::lonmenu; |
|
|
Line 76 sub rawconfig {
|
Line 76 sub rawconfig {
|
my $crs=''; |
my $crs=''; |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
$crs='/'.$ENV{'request.course.id'}; |
$crs='/'.$ENV{'request.course.id'}; |
|
if ($ENV{'request.course.sec'}) { |
|
$crs.='_'.$ENV{'request.course.sec'}; |
|
} |
$crs=~s/\_/\//; |
$crs=~s/\_/\//; |
} |
} |
my $pub=($ENV{'request.state'} eq 'published'); |
my $pub=($ENV{'request.state'} eq 'published'); |