version 1.17, 2002/02/15 20:06:42
|
version 1.22, 2002/05/29 14:51:43
|
Line 42 use vars qw(@desklines $readdesk);
|
Line 42 use vars qw(@desklines $readdesk);
|
# =============================================================== Open the menu |
# =============================================================== Open the menu |
|
|
sub open { |
sub open { |
# return(<<ENDOPEN); |
my $returnval=''; |
#if (window.screen) { |
unless (shift eq 'unix') { |
# self.resizeTo(screen.availWidth-215,screen.availHeight-30); |
# resizing does not work on linux because of virtual desktop sizes |
# self.moveTo(190,15); |
$returnval.=(<<ENDRESIZE); |
#} |
if (window.screen) { |
return(<<ENDOPEN); |
self.resizeTo(screen.availWidth-215,screen.availHeight-30); |
<script> |
self.moveTo(190,15); |
menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu", |
} |
|
ENDRESIZE |
|
} |
|
$returnval.=(<<ENDOPEN); |
|
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> |
|
ENDOPEN |
ENDOPEN |
|
return '<script>'.$returnval.'</script>'; |
} |
} |
|
|
# ============================================================ Switch Menu Item |
# ============================================================ Switch Menu Item |
|
|
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 101 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 154 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; |
} |
} |
|
|