version 1.139, 2004/12/06 19:37:46
|
version 1.145, 2005/02/08 00:01:32
|
Line 145 ENDMAINMENU
|
Line 145 ENDMAINMENU
|
my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); |
my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); |
# Do we have a NAV link? |
# Do we have a NAV link? |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
$navmaps=(<<ENDNAV); |
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. |
|
$escsymb; |
|
if ($ENV{'environment.remotenavmap'} eq 'on') { |
|
$link="javascript:gonav('".$link."')"; |
|
} |
|
$navmaps=(<<ENDNAV); |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="javascript:gonav('/adm/navmaps?postdata=$escurl&postsymb=$escsymb')"><font color="$font">$lt{'nav'}</font></a></td> |
<a href="$link"><font color="$font">$lt{'nav'}</font></a></td> |
ENDNAV |
ENDNAV |
if (($ENV{'request.noversionuri'}=~/^\/adm\//) && |
if ( |
($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
($ENV{'request.noversionuri'}=~m[^/(res|public)/] && |
($ENV{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { |
$ENV{'request.symb'} eq '') |
|
|| |
|
(($ENV{'request.noversionuri'}=~/^\/adm\//) && |
|
($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
|
($ENV{'request.noversionuri'}!~ |
|
m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)]) |
|
) |
|
) { |
my $escreload=&Apache::lonnet::escape('return:'); |
my $escreload=&Apache::lonnet::escape('return:'); |
$reloadlink=(<<ENDRELOAD); |
$reloadlink=(<<ENDRELOAD); |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
Line 290 sub innerregister {
|
Line 302 sub innerregister {
|
my $tableend=($noremote?'</table></font>':'').($textinter?'<a name="content" />':''); |
my $tableend=($noremote?'</table></font>':'').($textinter?'<a name="content" />':''); |
# ============================================================================= |
# ============================================================================= |
# ============================ This is for URLs that actually can be registered |
# ============================ This is for URLs that actually can be registered |
if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) { |
if (($ENV{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) { |
# -- This applies to homework problems for users with grading privileges |
# -- This applies to homework problems for users with grading privileges |
my $crs='/'.$ENV{'request.course.id'}; |
my $crs='/'.$ENV{'request.course.id'}; |
if ($ENV{'request.course.sec'}) { |
if ($ENV{'request.course.sec'}) { |
Line 299 sub innerregister {
|
Line 311 sub innerregister {
|
$crs=~s/\_/\//g; |
$crs=~s/\_/\//g; |
|
|
my $hwkadd=''; |
my $hwkadd=''; |
if ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($ENV{'request.symb'} ne '' && |
|
$ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if (&Apache::lonnet::allowed('vgr',$crs)) { |
if (&Apache::lonnet::allowed('vgr',$crs)) { |
$hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]', |
$hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]', |
"gocmd('/adm/grades','submission')", |
"gocmd('/adm/grades','submission')", |
Line 311 sub innerregister {
|
Line 324 sub innerregister {
|
'Modify user grades for this assessment resource'); |
'Modify user grades for this assessment resource'); |
} |
} |
} |
} |
if (&Apache::lonnet::allowed('opa',$crs)) { |
if ($ENV{'request.symb'} ne '' && |
|
&Apache::lonnet::allowed('opa',$crs)) { |
$hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]', |
$hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]', |
"gocmd('/adm/parmset','set')", |
"gocmd('/adm/parmset','set')", |
'Modify deadlines, etc, for this resource'); |
'Modify deadlines, etc, for this resource'); |
Line 396 s&7&1&del.gif&delete[_1]&resource[_2]&go
|
Line 410 s&7&1&del.gif&delete[_1]&resource[_2]&go
|
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document |
ENDMENUITEMS |
ENDMENUITEMS |
} |
} |
} elsif (defined($ENV{'request.course.id'})) { |
} elsif (defined($ENV{'request.course.id'}) && |
|
$ENV{'request.symb'} ne '') { |
$menuitems=(<<ENDMENUITEMS); |
$menuitems=(<<ENDMENUITEMS); |
c&3&1 |
c&3&1 |
s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1 |
s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1 |
Line 425 ENDREALRES
|
Line 440 ENDREALRES
|
$buttons.=&clear(@rest); |
$buttons.=&clear(@rest); |
} |
} |
} |
} |
if ($textual) { |
my $addremote=0; |
|
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } } |
|
if ($textual && $addremote) { |
# Registered, textual output |
# Registered, textual output |
my $inlinebuttons=''; |
my $inlinebuttons=''; |
|
|
Line 464 ENDREGTEXT
|
Line 481 ENDREGTEXT
|
$requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri)); |
$requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri)); |
my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
my $navstatus=&get_nav_status(); |
my $navstatus=&get_nav_status(); |
|
my $clearcstr; |
|
if ($ENV{'user.adv'}) { $clearcstr='clearbut(6,1)'; } |
$result = (<<ENDREGTHIS); |
$result = (<<ENDREGTHIS); |
|
|
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 498 var swmenu=null;
|
Line 517 var swmenu=null;
|
swmenu.clearbut(7,3); |
swmenu.clearbut(7,3); |
swmenu.menucltim=swmenu.setTimeout( |
swmenu.menucltim=swmenu.setTimeout( |
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ |
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ |
'clearbut(9,1);clearbut(9,3);clearbut(6,3);clearbut(6,1)', |
'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr', |
2000); |
2000); |
} |
} |
|
|
Line 972 sub utilityfunctions {
|
Line 991 sub utilityfunctions {
|
my $caller = shift; |
my $caller = shift; |
unless (($ENV{'browser.interface'} eq 'textual') || |
unless (($ENV{'browser.interface'} eq 'textual') || |
($ENV{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } |
($ENV{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } |
my $currenturl=&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}); |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$ENV{'request.noversionuri'}))[0])); |
|
$currenturl=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($currenturl)); |
|
|
my $currentsymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
my $currentsymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
my $nav_control=&nav_control_js(); |
my $nav_control=&nav_control_js(); |
Line 1140 sub handler {
|
Line 1160 sub handler {
|
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
$font=&Apache::loncommon::designparm($function.'.font',$domain); |
$font=&Apache::loncommon::designparm($function.'.font',$domain); |
my $script_tag; |
my $script_tag; |
if ($ENV{'environment.remote'} eq 'on') { |
if ($ENV{'environment.remote'} ne 'off') { |
my $utility=&utilityfunctions('/adm/menu'); |
my $utility=&utilityfunctions('/adm/menu'); |
$script_tag=(<<ENDSCRIPT); |
$script_tag=(<<ENDSCRIPT); |
<script type="text/javascript"> |
<script type="text/javascript"> |