version 1.152, 2005/04/07 06:56:23
|
version 1.156, 2005/07/05 21:30:14
|
Line 157 ENDMAINMENU
|
Line 157 ENDMAINMENU
|
my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); |
my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); |
my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); |
my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); |
my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); |
my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); |
|
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { |
|
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
|
return (<<ENDINLINEMENU); |
|
<font face="Arial,Helvetica,sans-serif"> |
|
<table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1"> |
|
<tr> |
|
<td bgcolor="$tabbg"> |
|
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a> |
|
</td> |
|
<td align="right" bgcolor="$tabbg"> |
|
<img align="right" src="$logo" /> |
|
<b>LON-CAPA</b> |
|
</td> |
|
</tr> |
|
</table> |
|
</font> |
|
ENDINLINEMENU |
|
} |
# Do we have a NAV link? |
# Do we have a NAV link? |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. |
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. |
Line 304 sub innerregister {
|
Line 322 sub innerregister {
|
$newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">'; |
$newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">'; |
} |
} |
if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) { |
if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) { |
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'}); |
my ($mapurl,$rid,$resurl)= |
|
&Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'}; |
$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'}; |
my $maptitle=&Apache::lonnet::gettitle($mapurl); |
my $maptitle=&Apache::lonnet::gettitle($mapurl); |
my $restitle=&Apache::lonnet::gettitle($resurl); |
my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
if ($maptitle && $maptitle ne 'default.sequence') { |
if ($maptitle && $maptitle ne 'default.sequence') { |
$newmail.=', '.$maptitle; |
$newmail.=', '.$maptitle; |
} |
} |
Line 344 sub innerregister {
|
Line 363 sub innerregister {
|
my $hwkadd=''; |
my $hwkadd=''; |
if ($env{'request.symb'} ne '' && |
if ($env{'request.symb'} ne '' && |
$env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
$env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if (&Apache::lonnet::allowed('vgr',$crs)) { |
|
$hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]', |
|
"gocmd('/adm/grades','submission')", |
|
'View user submissions for this assessment resource'); |
|
} |
|
if (&Apache::lonnet::allowed('mgr',$crs)) { |
if (&Apache::lonnet::allowed('mgr',$crs)) { |
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]', |
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]', |
"gocmd('/adm/grades','gradingmenu')", |
"gocmd('/adm/grades','gradingmenu')", |
'Modify user grades for this assessment resource'); |
'Modify user grades for this assessment resource'); |
|
} elsif (&Apache::lonnet::allowed('vgr',$crs)) { |
|
$hwkadd.=&switch('','',7,2,'subm.gif','view sub-[_1]','missions[_1]', |
|
"gocmd('/adm/grades','submission')", |
|
'View user submissions for this assessment resource'); |
} |
} |
} |
} |
if ($env{'request.symb'} ne '' && |
if ($env{'request.symb'} ne '' && |
Line 418 sub innerregister {
|
Line 436 sub innerregister {
|
('','',6,1,'cstr.gif','edit[_1]','resource[_2]', |
('','',6,1,'cstr.gif','edit[_1]','resource[_2]', |
"go('".$cfile."');","Edit this resource"); |
"go('".$cfile."');","Edit this resource"); |
} elsif ($editbutton eq '') { |
} elsif ($editbutton eq '') { |
$editbutton=&clear(6,1); |
$editbutton=&switch('','',6,1,'port.gif', |
|
'port-[_1]','folio[_1]', |
|
"go('/adm/portfolio');", |
|
"Enter my portfolio space"); |
} |
} |
} |
} |
### |
### |
Line 544 var swmenu=null;
|
Line 565 var swmenu=null;
|
swmenu.switchbutton |
swmenu.switchbutton |
(3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence'); |
(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,2); |
swmenu.clearbut(7,3); |
swmenu.clearbut(7,3); |
swmenu.menucltim=swmenu.setTimeout( |
swmenu.menucltim=swmenu.setTimeout( |