version 1.17, 2002/02/15 20:06:42
|
version 1.21, 2002/05/24 20:32:48
|
Line 49 sub open {
|
Line 49 sub open {
|
#} |
#} |
return(<<ENDOPEN); |
return(<<ENDOPEN); |
<script> |
<script> |
menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu", |
var menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu", |
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
</script> |
</script> |
ENDOPEN |
ENDOPEN |
Line 59 ENDOPEN
|
Line 59 ENDOPEN
|
|
|
sub switchmenu { |
sub switchmenu { |
my ($row,$col,$imgsrc,$texttop,$textbot,$action)=@_; |
my ($row,$col,$imgsrc,$texttop,$textbot,$action)=@_; |
|
my $openwin=&openmenu(); |
return(<<ENDSMENU); |
return(<<ENDSMENU); |
<script> |
<script> |
swmenu=window.open('','LONCAPAmenu'); |
var swmenu=$openwin |
swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action"); |
swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action"); |
</script> |
</script> |
ENDSMENU |
ENDSMENU |
Line 96 sub secondlevel {
|
Line 97 sub secondlevel {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub openmenu { |
|
if ($ENV{'browser.type'} eq 'explorer') { |
|
return "window.open('javascript:void(0);','LONCAPAmenu');"; |
|
} else { |
|
return "window.open('','LONCAPAmenu');"; |
|
} |
|
} |
|
|
sub rawconfig { |
sub rawconfig { |
my $output="swmenu=window.open('','LONCAPAmenu');"; |
my $r = shift; |
|
my $output="var swmenu=".&openmenu(); |
my $uname=$ENV{'user.name'}; |
my $uname=$ENV{'user.name'}; |
my $udom=$ENV{'user.domain'}; |
my $udom=$ENV{'user.domain'}; |
my $adv=$ENV{'user.adv'}; |
my $adv=$ENV{'user.adv'}; |
Line 140 sub rawconfig {
|
Line 150 sub rawconfig {
|
} elsif ($pro eq 'author') { |
} elsif ($pro eq 'author') { |
if ($author) { |
if ($author) { |
if (($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) { |
if (($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) { |
|
# Check that we are on the correct machine |
my ($cadom,$caname)= |
my ($cadom,$caname)= |
($ENV{'request.role'}=~/(\w+)\/(\w+)$/); |
($ENV{'request.role'}=~/(\w+)\/(\w+)$/); |
$output.=switch($caname,$cadom, |
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
$row,$col,$img,$top,$bot,$act); |
if ($home eq $r->dir_config('lonHostID')) { |
|
$output.=switch($caname,$cadom, |
|
$row,$col,$img,$top,$bot,$act); |
|
} |
} elsif ($prt eq 'any') { |
} elsif ($prt eq 'any') { |
$output.=switch($ENV{'user.name'},$ENV{'user.domain'}, |
my $home = &Apache::lonnet::homeserver |
$row,$col,$img,$top,$bot,$act); |
($ENV{'user.name'},$ENV{'user.domain'}); |
|
if ($home eq $r->dir_config('lonHostID')) { |
|
$output.=switch |
|
($ENV{'user.name'},$ENV{'user.domain'}, |
|
$row,$col,$img,$top,$bot,$act); |
|
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
$output.="swmenu.clock.setTime(1000*".time.");"; |
return $output; |
return $output; |
} |
} |
|
|