version 1.7, 2001/07/04 16:52:10
|
version 1.8, 2001/08/07 21:47:34
|
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,07/04 Gerd Kortemeyer |
# 10/05,05/28,05/30,06/01,06/08,06/09,07/04,08/07 Gerd Kortemeyer |
|
|
package Apache::lonmenu; |
package Apache::lonmenu; |
|
|
Line 79 sub rawconfig {
|
Line 79 sub rawconfig {
|
if ($ENV{'request.course.sec'}) { |
if ($ENV{'request.course.sec'}) { |
$crs.='_'.$ENV{'request.course.sec'}; |
$crs.='_'.$ENV{'request.course.sec'}; |
} |
} |
$crs=~s/\_/\//; |
$crs=~s/\_/\//g; |
} |
} |
my $pub=($ENV{'request.state'} eq 'published'); |
my $pub=($ENV{'request.state'} eq 'published'); |
my $con=($ENV{'request.state'} eq 'construct'); |
my $con=($ENV{'request.state'} eq 'construct'); |