version 1.36, 2003/02/14 14:30:09
|
version 1.44, 2003/02/20 22:04:18
|
Line 41 use Apache::loncommon;
|
Line 41 use Apache::loncommon;
|
use Apache::File; |
use Apache::File; |
use vars qw(@desklines $readdesk); |
use vars qw(@desklines $readdesk); |
|
|
|
# ============================= This gets called at the top of the body section |
|
|
|
sub menubuttons { |
|
my $forcereg=shift; |
|
my $target =shift; |
|
my $registration=shift; |
|
unless ($ENV{'browser.interface'} eq 'textual') { return ''; } |
|
# Textual display only |
|
my $output=(<<ENDMAINMENU); |
|
<script> |
|
// BEGIN LON-CAPA Internal |
|
</script> |
|
<a href="/adm/menu" target="_top">Main Menu</a><br /> |
|
<script> |
|
// END LON-CAPA Internal |
|
</script> |
|
ENDMAINMENU |
|
if ($registration) { $output.=&innerregister($forcereg,$target); } |
|
return $output."<hr />"; |
|
} |
|
|
|
# ====================================== This gets called in the header section |
|
|
|
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>'; |
|
} |
|
# Graphical display after login only |
|
if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
|
$result.=&innerregister($forcereg,$target); |
|
return $result; |
|
} |
|
|
|
# =========== This gets called in order to register a URL, both with the Remote |
|
# =========== and in the body of the document |
|
|
|
sub innerregister { |
|
my $forcereg=shift; |
|
my $target = shift; |
|
my $result = ''; |
|
|
|
$Apache::lonxml::registered=1; |
|
|
|
my $textual=($ENV{'browser.interface'} eq 'textual'); |
|
my $reopen=&Apache::lonmenu::reopenmenu(); |
|
|
|
my $newmail=''; |
|
if (&Apache::lonmsg::newmail()) { |
|
$newmail=($textual? |
|
'<b><a href="/adm/communicate">You have new messages</a></b><br />': |
|
'swmenu.setstatus("you have","messages");'); |
|
} |
|
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); |
|
# ============================================================================= |
|
# ============================ This is for URLs that actually can be registered |
|
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) { |
|
# -- This applies to homework problems for users with grading privileges |
|
my $hwkadd=''; |
|
if |
|
($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
|
if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
|
$hwkadd.=&switch('','',7,1,'subm.gif','view sub','missions', |
|
"gocmd('/adm/grades','submission')", |
|
'View user submissions for this assessment resource'); |
|
} |
|
if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) { |
|
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem','grades', |
|
"gocmd('/adm/grades','gradingmenu')", |
|
'Modify user grades for this assessment resource'); |
|
} |
|
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) { |
|
$hwkadd.=&switch('','',7,3,'pparm.gif','problem','parms', |
|
"gocmd('/adm/parmset','set')", |
|
'Modify deadlines, etc, for this assessment resource'); |
|
} |
|
} |
|
# -- End Homework |
|
### |
|
### 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=&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=&switch |
|
('','',6,1,'cstr.gif','edit','resource', |
|
"go('".$cfile."');","Edit this resource"); |
|
} elsif ($editbutton eq '') { |
|
$editbutton=&clear(6,1); |
|
} |
|
} |
|
### |
|
### |
|
# Prepare the rest of the buttons |
|
my $menuitems=(<<ENDMENUITEMS); |
|
c&3&1 |
|
s&2&1&back.gif&backward&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1 |
|
s&2&3&forw.gif&forward&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&1 |
|
s&6&3&catalog.gif&catalog&info&catalog_info()&Show catalog information |
|
s&8&1&eval.gif&evaluate&this&gopost('/adm/evaluate',currentURL)&Provide my evaluation of this resource |
|
s&8&2&fdbk.gif&feedback&discuss&gopost('/adm/feedback',currentURL)&Provide feedback messages or contribute to the course discussion about this resource |
|
s&8&3&prt.gif&prepare&printout&gopost('/adm/printout',currentURL)&Prepare a printable document |
|
s&9&1&sbkm.gif&set&bookmark&set_bookmark()&Set a bookmark for this resource&2 |
|
s&9&2&vbkm.gif&view&bookmark&edit_bookmarks()&Use or edit my bookmark collection&2 |
|
s&9&3&anot.gif&anno-&tations&annotate()&Make notes and annotations about this resource&2 |
|
ENDMENUITEMS |
|
my $buttons=''; |
|
foreach (split(/\n/,$menuitems)) { |
|
my ($command,@rest)=split(/\&/,$_); |
|
if ($command eq 's') { |
|
$buttons.=&switch('','',@rest); |
|
} else { |
|
$buttons.=&clear(@rest); |
|
} |
|
} |
|
if ($textual) { |
|
# Registered, textual output |
|
my $utility=&utilityfunctions(); |
|
my $form=&serverform(); |
|
$result =(<<ENDREGTEXT); |
|
<script> |
|
// BEGIN LON-CAPA Internal |
|
$utility |
|
</script> |
|
$timesync |
|
$newmail |
|
$buttons |
|
$hwkadd |
|
$editbutton |
|
$form |
|
<script> |
|
//END LON-CAPA Internal |
|
</script> |
|
|
|
ENDREGTEXT |
|
# Registered, graphical output |
|
} else { |
|
$result = (<<ENDREGTHIS); |
|
|
|
<script language="JavaScript"> |
|
// BEGIN LON-CAPA Internal |
|
var swmenu=null; |
|
|
|
function LONCAPAreg() { |
|
swmenu=$reopen; |
|
swmenu.clearTimeout(swmenu.menucltim); |
|
$timesync |
|
$newmail |
|
$buttons |
|
swmenu.currentURL=window.location.pathname; |
|
swmenu.reloadURL=window.location.pathname; |
|
swmenu.currentSymb="$ENV{'request.symb'}"; |
|
swmenu.reloadSymb="$ENV{'request.symb'}"; |
|
swmenu.currentStale=0; |
|
$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 { |
|
# ========================================== This can or will not be registered |
|
if ($textual) { |
|
# Not registered, textual |
|
$result= (<<ENDDONOTREGTEXT); |
|
ENDDONOTREGTEXT |
|
} else { |
|
# Not registered, graphical |
|
$result = (<<ENDDONOTREGTHIS); |
|
|
|
<script language="JavaScript"> |
|
// BEGIN LON-CAPA Internal |
|
var swmenu=null; |
|
|
|
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 |
# ============================================================= Start up remote |
|
|
sub startupremote { |
sub startupremote { |
Line 146 ENDOPEN
|
Line 431 ENDOPEN
|
return '<script>'.$returnval.'</script>'; |
return '<script>'.$returnval.'</script>'; |
} |
} |
|
|
# ============================================================ Switch Menu Item |
|
|
|
sub switchmenu { |
|
my ($row,$col,$imgsrc,$texttop,$textbot,$action,$description)=@_; |
|
if ($ENV{'browser.interface'} eq 'textual') { return ''; } |
|
my $openwin=&openmenu(); |
|
return(<<ENDSMENU); |
|
<script> |
|
var swmenu=$openwin |
|
swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action","$description"); |
|
</script> |
|
ENDSMENU |
|
} |
|
|
|
# ================================================================== Raw Config |
# ================================================================== Raw Config |
|
|
Line 169 sub clear {
|
Line 441 sub clear {
|
} else { return ''; } |
} else { return ''; } |
} |
} |
|
|
|
# ============================================ Switch a button or create a link |
# 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. |
# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". |
# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". |
|
|
sub switch { |
sub switch { |
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc)=@_; |
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_; |
$act=~s/\$uname/$uname/g; |
$act=~s/\$uname/$uname/g; |
$act=~s/\$udom/$udom/g; |
$act=~s/\$udom/$udom/g; |
unless ($ENV{'browser.interface'} eq 'textual') { |
unless ($ENV{'browser.interface'} eq 'textual') { |
return "\n". |
return "\n". |
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
} else { |
} else { |
|
if ($nobreak==2) { return ''; } |
my $text=$top.' '.$bot; |
my $text=$top.' '.$bot; |
$text=~s/\- //; |
$text=~s/\- //; |
return '<br /><a href="javascript:'.$act.';">'.$text.'</a> '.$desc; |
return "\n".($nobreak?' ':'<br />'). |
|
'<a href="javascript:'.$act.';" target="_top">'.$text.'</a> '. |
|
($nobreak?'':$desc); |
} |
} |
} |
} |
|
|
Line 317 sub footer {
|
Line 594 sub footer {
|
|
|
} |
} |
|
|
|
sub utilityfunctions { |
|
unless ($ENV{'browser.interface'} eq 'textual') { return ''; } |
|
my $currenturl=$ENV{'REQUEST_URI'}; |
|
my $currentsymb=$ENV{'request.symb'}; |
|
return (<<ENDUTILITY) |
|
|
|
var currentURL="$currenturl"; |
|
var reloadURL="$currenturl"; |
|
var currentSymb="$currentsymb"; |
|
|
|
function go(url) { |
|
if (url!='' && url!= null) { |
|
currentURL = null; |
|
currentSymb= null; |
|
window.location.href=url; |
|
} |
|
} |
|
|
|
function gopost(url,postdata) { |
|
if (url!='') { |
|
this.document.server.action=url; |
|
this.document.server.postdata.value=postdata; |
|
this.document.server.command.value=''; |
|
this.document.server.url.value=''; |
|
this.document.server.symb.value=''; |
|
this.document.server.submit(); |
|
} |
|
} |
|
|
|
function gocmd(url,cmd) { |
|
if (url!='') { |
|
this.document.server.action=url; |
|
this.document.server.postdata.value=''; |
|
this.document.server.command.value=cmd; |
|
this.document.server.url.value=currentURL; |
|
this.document.server.symb.value=currentSymb; |
|
this.document.server.submit(); |
|
} |
|
} |
|
ENDUTILITY |
|
} |
|
|
|
sub serverform { |
|
return(<<ENDSERVERFORM); |
|
|
|
<form name="server" action="/adm/logout" method="post"> |
|
<input type="hidden" name="postdata" value="none" /> |
|
<input type="hidden" name="command" value="none" /> |
|
<input type="hidden" name="url" value="none" /> |
|
<input type="hidden" name="symb" value="none" /> |
|
</form> |
|
ENDSERVERFORM |
|
} |
# ================================================ Handler when called directly |
# ================================================ Handler when called directly |
|
|
|
|
Line 326 sub handler {
|
Line 656 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
|
my $utility=&utilityfunctions(); |
|
my $form=&serverform(); |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html><head> |
<html><head> |
<title>LON-CAPA Main Menu</title> |
<title>LON-CAPA Main Menu</title> |
<script> |
<script> |
function go(url) { |
$utility |
window.location=url; |
|
} |
|
function gopost(url) { |
|
window.location=url; |
|
} |
|
</script> |
</script> |
</head> |
</head> |
$bodytag |
$bodytag |
ENDHEADER |
ENDHEADER |
$r->print(&rawconfig(1)); |
$r->print(&rawconfig(1).$form); |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |