version 1.7, 2001/07/04 16:52:10
|
version 1.10, 2001/10/05 19:26:20
|
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'); |
Line 147 sub footer {
|
Line 147 sub footer {
|
# ================================================================ Main Program |
# ================================================================ Main Program |
|
|
sub BEGIN { |
sub BEGIN { |
if ($readdesk ne 'done') { |
unless ($readdesk) { |
{ |
{ |
my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
'/mydesk.tab'); |
'/mydesk.tab'); |
while (my $configline=<$config>) { |
while (my $configline=<$config>) { |
chomp($configline); |
chomp($configline); |
$desklines[$#desklines+1]=$configline; |
$desklines[$#desklines+1]=$configline; |