version 1.30, 2003/01/15 23:59:26
|
version 1.38, 2003/02/14 19:35:54
|
Line 36 package Apache::lonmenu;
|
Line 36 package Apache::lonmenu;
|
|
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::Constants qw(:common); |
|
use Apache::loncommon; |
use Apache::File; |
use Apache::File; |
use vars qw(@desklines $readdesk); |
use vars qw(@desklines $readdesk); |
|
|
|
# ======================================================= Make the menu buttons |
|
|
|
sub menubuttons { |
|
my $forcereg=shift; |
|
my $target =shift; |
|
unless ($ENV{'browser.interface'} eq 'textual') { return ''; } |
|
return "Menu here<hr />"; |
|
} |
|
|
|
# ============================================== Register a URL with the remote |
|
|
|
|
|
sub registerurl { |
|
my $forcereg=shift; |
|
my $target = shift; |
|
my $result = ''; |
|
|
|
if ($target eq 'edit') { |
|
$result .="<script type=\"text/javascrtipt\">\n". |
|
"if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n". |
|
&Apache::loncommon::browser_and_searcher_javascript(). |
|
"\n</script>\n"; |
|
} |
|
if (($ENV{'browser.interface'} eq 'textual') || |
|
((($ENV{'request.publicaccess'}) || |
|
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
|
(!$forcereg))) { |
|
return $result. |
|
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'; |
|
} |
|
if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
|
$Apache::lonxml::registered=1; |
|
my $reopen=&Apache::lonmenu::reopenmenu(); |
|
my $newmail=''; |
|
if (&Apache::lonmsg::newmail()) { |
|
$newmail='swmenu.setstatus("you have","messages");'; |
|
} |
|
my $timesync='swmenu.syncclock(1000*'.time.');'; |
|
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) { |
|
my $hwkadd=''; |
|
if ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
|
if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
|
$hwkadd.=(<<ENDSUBM); |
|
swmenu.switchbutton(7,1,'subm.gif','view sub','missions','gocmd("/adm/grades","submission")', |
|
'View user submissions for this assessment resource'); |
|
ENDSUBM |
|
} |
|
if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) { |
|
$hwkadd.=(<<ENDGRDS); |
|
swmenu.switchbutton(7,2,'pgrd.gif','problem','grades','gocmd("/adm/grades","gradingmenu")', |
|
'Modify user grades for this assessment resource'); |
|
ENDGRDS |
|
} |
|
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) { |
|
$hwkadd.=(<<ENDPARM); |
|
swmenu.switchbutton(7,3,'pparm.gif','problem','parms','gocmd("/adm/parmset","set")', |
|
'Modify deadlines, etc, for this assessment resource'); |
|
ENDPARM |
|
} |
|
} |
|
### |
|
### Determine whether or not to display the 'cstr' button for this |
|
### resource |
|
### |
|
my $editbutton = ''; |
|
if ($ENV{'user.author'}) { |
|
if ($ENV{'request.role'}=~/^(ca|au)/) { |
|
# Set defaults for authors |
|
my ($top,$bottom) = ('con-','struct'); |
|
my $action = "go('/priv/".$ENV{'user.name'}."');"; |
|
my $cadom = $ENV{'request.role.domain'}; |
|
my $caname = $ENV{'user.name'}; |
|
my $desc = "Enter my resource construction space"; |
|
# Set defaults for co-authors |
|
if ($ENV{'request.role'} =~ /^ca/) { |
|
($cadom,$caname)=($ENV{'request.role'}=~/(\w+)\/(\w+)$/); |
|
($top,$bottom) = ('co con-','struct'); |
|
$action = "go('/priv/".$caname."');"; |
|
$desc = "Enter construction space as co-author"; |
|
} |
|
# Check that we are on the correct machine |
|
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
|
if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) { |
|
$editbutton=&Apache::lonmenu::switch |
|
('','',6,1,$top,,$bottom,$action,$desc); |
|
} |
|
} |
|
## |
|
## Determine if user can edit url. |
|
## |
|
my $cfile=''; |
|
my $cfuname=''; |
|
my $cfudom=''; |
|
if ($ENV{'request.filename'}) { |
|
my $file=&Apache::lonnet::declutter($ENV{'request.filename'}); |
|
$file=~s/^(\w+)\/(\w+)/\/priv\/$2/; |
|
# Chech that the user has permission to edit this resource |
|
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1); |
|
if (defined($cfudom)) { |
|
if (&Apache::lonnet::homeserver($cfuname,$cfudom) |
|
eq $Apache::lonnet::perlvar{'lonHostID'}) { |
|
$cfile=$file; |
|
} |
|
} |
|
} |
|
# Finally, turn the button on or off |
|
if ($cfile) { |
|
$editbutton=&Apache::lonmenu::switch |
|
('','',6,1,'cstr.gif','edit','resource', |
|
"go('".$cfile."');","Edit this resource"); |
|
} elsif ($editbutton eq '') { |
|
$editbutton = ' swmenu.clearbut(6,1);'; |
|
} |
|
} |
|
### |
|
### |
|
$result = (<<ENDREGTHIS); |
|
|
|
<script language="JavaScript"> |
|
// BEGIN LON-CAPA Internal |
|
|
|
function LONCAPAreg() { |
|
swmenu=$reopen; |
|
swmenu.clearTimeout(swmenu.menucltim); |
|
$timesync |
|
$newmail |
|
swmenu.currentURL=window.location.pathname; |
|
swmenu.reloadURL=window.location.pathname; |
|
swmenu.currentSymb="$ENV{'request.symb'}"; |
|
swmenu.reloadSymb="$ENV{'request.symb'}"; |
|
swmenu.currentStale=0; |
|
swmenu.clearbut(3,1); |
|
swmenu.switchbutton |
|
(6,3,'catalog.gif','catalog','info','catalog_info()','Show catalog information'); |
|
swmenu.switchbutton |
|
(8,1,'eval.gif','evaluate','this','gopost("/adm/evaluate",currentURL)','Provide my evaluation of this resource'); |
|
swmenu.switchbutton |
|
(8,2,'fdbk.gif','feedback','discuss','gopost("/adm/feedback",currentURL)','Provide feedback messages or contribute to the course discussion about this resource'); |
|
swmenu.switchbutton |
|
(8,3,'prt.gif','prepare','printout','gopost("/adm/printout",currentURL)','Prepare a printable document'); |
|
swmenu.switchbutton |
|
(2,1,'back.gif','backward','','gopost("/adm/flip","back:"+currentURL)','Go to the previous resource in the course sequence'); |
|
swmenu.switchbutton |
|
(2,3,'forw.gif','forward','','gopost("/adm/flip","forward:"+currentURL)','Go to the next resource in the course sequence'); |
|
swmenu.switchbutton |
|
(9,1,'sbkm.gif','set','bookmark','set_bookmark()','Set a bookmark for this resource'); |
|
swmenu.switchbutton |
|
(9,2,'vbkm.gif','view','bookmark','edit_bookmarks()','Use or edit my bookmark collection'); |
|
swmenu.switchbutton |
|
(9,3,'anot.gif','anno-','tations','annotate()','Make notes and annotations about this resource'); |
|
$hwkadd |
|
$editbutton |
|
} |
|
|
|
function LONCAPAstale() { |
|
swmenu=$reopen |
|
swmenu.currentStale=1; |
|
if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) { |
|
swmenu.switchbutton |
|
(3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence'); |
|
} |
|
swmenu.clearbut(7,1); |
|
swmenu.clearbut(7,2); |
|
swmenu.clearbut(7,3); |
|
swmenu.menucltim=swmenu.setTimeout( |
|
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ |
|
'clearbut(9,1);clearbut(9,2);clearbut(9,3);clearbut(6,3);clearbut(6,1)', |
|
2000); |
|
|
|
} |
|
|
|
// END LON-CAPA Internal |
|
</script> |
|
ENDREGTHIS |
|
|
|
} else { |
|
$result = (<<ENDDONOTREGTHIS); |
|
|
|
<script language="JavaScript"> |
|
// BEGIN LON-CAPA Internal |
|
|
|
function LONCAPAreg() { |
|
swmenu=$reopen |
|
$timesync |
|
swmenu.currentStale=1; |
|
swmenu.clearbut(2,1); |
|
swmenu.clearbut(2,3); |
|
swmenu.clearbut(8,1); |
|
swmenu.clearbut(8,2); |
|
swmenu.clearbut(8,3); |
|
if (swmenu.currentURL) { |
|
swmenu.switchbutton |
|
(3,1,'reload.gif','return','location','go(currentURL)'); |
|
} else { |
|
swmenu.clearbut(3,1); |
|
} |
|
} |
|
|
|
function LONCAPAstale() { |
|
} |
|
|
|
// END LON-CAPA Internal |
|
</script> |
|
ENDDONOTREGTHIS |
|
} |
|
return $result; |
|
} |
|
|
|
sub loadevents() { |
|
return 'LONCAPAreg();'; |
|
} |
|
|
|
sub unloadevents() { |
|
return 'LONCAPAstale();'; |
|
} |
|
|
|
# ============================================================= Start up remote |
|
|
|
sub startupremote { |
|
my ($lowerurl)=@_; |
|
if ($ENV{'browser.interface'} eq 'textual') { |
|
return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />'); |
|
} |
|
my $configmenu=&rawconfig(); |
|
return(<<ENDREMOTESTARTUP); |
|
<script> |
|
|
|
function wheelswitch() { |
|
if (window.status=='|') { |
|
window.status='/'; |
|
} else { |
|
if (window.status=='/') { |
|
window.status='-'; |
|
} else { |
|
if (window.status=='-') { |
|
window.status='\\\\'; |
|
} else { |
|
if (window.status=='\\\\') { window.status='|'; } |
|
} |
|
} |
|
} |
|
} |
|
|
|
// ---------------------------------------------------------- The wait function |
|
var canceltim; |
|
function wait() { |
|
if ((menuloaded==1) || (tim==1)) { |
|
window.status='Done.'; |
|
if (tim==0) { |
|
clearTimeout(canceltim); |
|
$configmenu |
|
window.location='$lowerurl'; |
|
} else { |
|
alert("Remote Control timed out. It is possible that it was blocked by pop-up window filters."); |
|
} |
|
} else { |
|
wheelswitch(); |
|
setTimeout('wait();',200); |
|
} |
|
} |
|
|
|
function main() { |
|
canceltim=setTimeout('tim=1;',60000); |
|
window.status='-'; |
|
wait(); |
|
} |
|
|
|
</script> |
|
ENDREMOTESTARTUP |
|
} |
|
|
|
sub setflags() { |
|
return(<<ENDSETFLAGS); |
|
<script> |
|
menuloaded=0; |
|
tim=0; |
|
</script> |
|
ENDSETFLAGS |
|
} |
|
|
|
sub maincall() { |
|
if ($ENV{'browser.interface'} eq 'textual') { return ''; } |
|
return(<<ENDMAINCALL); |
|
<script> |
|
main(); |
|
</script> |
|
ENDMAINCALL |
|
} |
# ================================================================= Reopen menu |
# ================================================================= Reopen menu |
|
|
sub reopenmenu { |
sub reopenmenu { |
my $nothing=''; |
my $nothing=''; |
|
if ($ENV{'browser.interface'} eq 'textual') { return ''; } |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; } |
if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; } |
return('window.open("'.$nothing.'","'.$menuname.'","",false);'); |
return('window.open("'.$nothing.'","'.$menuname.'","",false);'); |
Line 52 sub reopenmenu {
|
Line 343 sub reopenmenu {
|
|
|
sub open { |
sub open { |
my $returnval=''; |
my $returnval=''; |
|
if ($ENV{'browser.interface'} eq 'textual') { return ''; } |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
unless (shift eq 'unix') { |
unless (shift eq 'unix') { |
# resizing does not work on linux because of virtual desktop sizes |
# resizing does not work on linux because of virtual desktop sizes |
Line 63 if (window.screen) {
|
Line 355 if (window.screen) {
|
ENDRESIZE |
ENDRESIZE |
} |
} |
$returnval.=(<<ENDOPEN); |
$returnval.=(<<ENDOPEN); |
|
window.status='Opening LON-CAPA Remote Control'; |
var menu=window.open("/res/adm/pages/menu.html","$menuname", |
var menu=window.open("/res/adm/pages/menu.html","$menuname", |
"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"); |
ENDOPEN |
ENDOPEN |
return '<script>'.$returnval.'</script>'; |
return '<script>'.$returnval.'</script>'; |
} |
} |
|
|
# ============================================================ Switch Menu Item |
|
|
|
sub switchmenu { |
|
my ($row,$col,$imgsrc,$texttop,$textbot,$action,$description)=@_; |
|
my $openwin=&openmenu(); |
|
return(<<ENDSMENU); |
|
<script> |
|
var swmenu=$openwin |
|
swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action","$description"); |
|
</script> |
|
ENDSMENU |
|
} |
|
|
|
# ================================================================== Raw Config |
# ================================================================== Raw Config |
|
|
sub clear { |
sub clear { |
my ($row,$col)=@_; |
my ($row,$col)=@_; |
return qq(swmenu.clearbut($row,$col);); |
unless ($ENV{'browser.interface'} eq 'textual') { |
|
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); |
|
} else { return ''; } |
} |
} |
|
|
# Switch acts on the javascript that is executed when a button is clicked. |
# Switch acts on the javascript that is executed when a button is clicked. |
Line 95 sub switch {
|
Line 378 sub switch {
|
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc)=@_; |
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc)=@_; |
$act=~s/\$uname/$uname/g; |
$act=~s/\$uname/$uname/g; |
$act=~s/\$udom/$udom/g; |
$act=~s/\$udom/$udom/g; |
return "\n". |
unless ($ENV{'browser.interface'} eq 'textual') { |
qq(swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
return "\n". |
|
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
|
} else { |
|
my $text=$top.' '.$bot; |
|
$text=~s/\- //; |
|
return '<br /><a href="javascript:'.$act.';">'.$text.'</a> '.$desc; |
|
} |
} |
} |
|
|
sub secondlevel { |
sub secondlevel { |
Line 115 sub secondlevel {
|
Line 404 sub secondlevel {
|
|
|
sub openmenu { |
sub openmenu { |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
|
if ($ENV{'browser.interface'} eq 'textual') { return ''; } |
if ($ENV{'browser.type'} eq 'explorer') { |
if ($ENV{'browser.type'} eq 'explorer') { |
return "window.open('javascript:void(0);','".$menuname."');"; |
return "window.open('javascript:void(0);','".$menuname."');"; |
} else { |
} else { |
Line 123 sub openmenu {
|
Line 413 sub openmenu {
|
} |
} |
|
|
sub rawconfig { |
sub rawconfig { |
my $r = shift; |
my $textualoverride=shift; |
my $output="var swmenu=".&openmenu(); |
my $output=''; |
|
unless ($ENV{'browser.interface'} eq 'textual') { |
|
$output.= |
|
"window.status='Opening Remote Control';var swmenu=".&openmenu(). |
|
"\nwindow.status='Configuring Remote Control ';"; |
|
} else { |
|
unless ($textualoverride) { return ''; } |
|
} |
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 183 sub rawconfig {
|
Line 480 sub rawconfig {
|
} |
} |
$act =~ s/\$caname/$caname/g; |
$act =~ s/\$caname/$caname/g; |
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
if ($home eq $r->dir_config('lonHostID')) { |
if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) { |
$output.=switch($caname,$cadom, |
$output.=switch($caname,$cadom, |
$row,$col,$img,$top,$bot,$act,$desc); |
$row,$col,$img,$top,$bot,$act,$desc); |
} |
} |
Line 191 sub rawconfig {
|
Line 488 sub rawconfig {
|
} |
} |
} |
} |
} |
} |
$output.="swmenu.syncclock(1000*".time.");"; |
unless ($ENV{'browser.interface'} eq 'textual') { |
|
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; |
|
} |
return $output; |
return $output; |
} |
} |
|
|
# ======================================================================= Close |
# ======================================================================= Close |
|
|
sub close { |
sub close { |
|
if ($ENV{'browser.interface'} eq 'textual') { return ''; } |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
return(<<ENDCLOSE); |
return(<<ENDCLOSE); |
<script> |
<script> |
|
window.status='Accessing Remote Control'; |
menu=window.open("/adm/rat/empty.html","$menuname", |
menu=window.open("/adm/rat/empty.html","$menuname", |
"height=350,width=150,scrollbars=no,menubar=no"); |
"height=350,width=150,scrollbars=no,menubar=no"); |
|
window.status='Disabling Remote Control'; |
|
menu.active=0; |
|
menu.autologout=0; |
|
window.status='Closing Remote Control'; |
menu.close(); |
menu.close(); |
|
window.status='Done.'; |
</script> |
</script> |
ENDCLOSE |
ENDCLOSE |
} |
} |
Line 214 sub footer {
|
Line 520 sub footer {
|
|
|
} |
} |
|
|
|
# ================================================ Handler when called directly |
|
|
|
|
|
sub handler { |
|
my $r = shift; |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
return OK if $r->header_only; |
|
|
|
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
|
# ------------------------------------------------------------ Print the screen |
|
$r->print(<<ENDHEADER); |
|
<html><head> |
|
<title>LON-CAPA Main Menu</title> |
|
<script> |
|
function go(url) { |
|
window.location=url; |
|
} |
|
function gopost(url) { |
|
window.location=url; |
|
} |
|
</script> |
|
</head> |
|
$bodytag |
|
ENDHEADER |
|
$r->print(&rawconfig(1)); |
|
$r->print('</body></html>'); |
|
return OK; |
|
} |
|
|
# ================================================================ Main Program |
# ================================================================ Main Program |
|
|
BEGIN { |
BEGIN { |