version 1.243, 2008/09/11 21:05:19
|
version 1.269, 2009/06/02 17:25:03
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# |
# |
# There are two parameters controlling the action of this module: |
# There is one parameter controlling the action of this module: |
# |
|
# browser.interface - if this is 'textual', it overrides the second parameter |
|
# and goes to screen reader PDA mode |
|
# |
# |
# environment.remote - if this is 'on', the routines controll the remote |
# environment.remote - if this is 'on', the routines controll the remote |
# control, otherwise they render the main window controls; ignored it |
# control, otherwise they render the main window controls; |
# browser.interface is 'textual' |
|
# |
=head1 NAME |
|
|
|
Apache::lonmenu |
|
|
|
=head1 SYNOPSIS |
|
|
|
Coordinates the response to clicking an image. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 SUBROUTINES |
|
|
|
=over |
|
|
|
Little texts |
|
|
|
=item initlittle() |
|
|
|
=item menubuttons() |
|
|
|
This gets called at the top of the body section |
|
|
|
=item show_return_link() |
|
|
|
=item registerurl() |
|
|
|
This gets called in the header section |
|
|
|
=item innerregister() |
|
|
|
This gets called in order to register a URL, both with the Remote |
|
and in the body of the document |
|
|
|
=item loadevents() |
|
|
|
=item unloadevents() |
|
|
|
=item startupremote() |
|
|
|
=item setflags() |
|
|
|
=item maincall() |
|
|
|
=item load_remote_msg() |
|
|
|
=item get_menu_name() |
|
|
|
=item reopenmenu() |
|
|
|
=item open() |
|
|
|
Open the menu |
|
|
|
=item clear() |
|
|
|
=item switch() |
|
|
|
Switch a button or create a link |
|
Switch acts on the javascript that is executed when a button is clicked. |
|
The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". |
|
|
|
=item secondlevel() |
|
|
|
=item openmenu() |
|
|
|
=item inlinemenu() |
|
|
|
=item rawconfig() |
|
|
|
=item close() |
|
|
|
=item footer() |
|
|
|
=item utilityfunctions() |
|
|
|
=item serverform() |
|
|
|
=item constspaceform() |
|
|
|
=item get_nav_status() |
|
|
|
=item convert_menu_function() |
|
|
|
FIXME this needs to move into mydesktab and the other locations |
|
the text is generated |
|
|
|
=item hidden_button_check() |
|
|
|
=item roles_selector() |
|
|
|
=item jump_to_role() |
|
|
|
=back |
|
|
|
=cut |
|
|
package Apache::lonmenu; |
package Apache::lonmenu; |
|
|
Line 51 use vars qw(@desklines %category_names %
|
Line 143 use vars qw(@desklines %category_names %
|
|
|
my @inlineremote; |
my @inlineremote; |
|
|
|
|
|
|
# ================================================================ Little texts |
|
sub show_course { |
|
my $course = !$env{'user.adv'}; |
|
if (!$env{'user.adv'}) { |
|
foreach my $env (keys(%env)) { |
|
next if ($env !~ m/^user\.priv\./); |
|
if ($env !~ m/^user\.priv\.(?:st|cm)/) { |
|
$course = 0; |
|
last; |
|
} |
|
} |
|
} |
|
return $course; |
|
} |
|
|
|
sub initlittle { |
sub initlittle { |
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', |
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', |
'nav' => 'Navigate Contents', |
'nav' => 'Navigate Contents', |
'main' => 'Main Menu', |
'main' => 'Main Menu', |
'roles' => (&show_course()? |
'roles' => (&Apache::loncommon::show_course()? |
'Courses':'Roles'), |
'Courses':'Roles'), |
'other' => 'Other Roles', |
'other' => 'Other Roles', |
'docs' => 'Edit Course', |
'docs' => 'Edit Course', |
'exit' => 'Exit', |
'exit' => 'Logout', |
'login' => 'Log In', |
'login' => 'Log In', |
'launch' => 'Launch Remote Control', |
'launch' => 'Launch Remote Control', |
'groups' => 'Groups', |
'groups' => 'Groups', |
Line 84 sub initlittle {
|
Line 159 sub initlittle {
|
); |
); |
} |
} |
|
|
# ============================= This gets called at the top of the body section |
|
|
|
sub menubuttons { |
sub menubuttons { |
my $forcereg=shift; |
my $forcereg=shift; |
my $registration=shift; |
my $registration=shift; |
Line 110 sub menubuttons {
|
Line 183 sub menubuttons {
|
my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); |
my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); |
|
|
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
$logo = '<td class="LC_top_nav_logo"><a href="/adm/about.html"><img src="'. |
$logo = '<a href="/adm/about.html"><img src="'. |
$logo.'" alt="LON-CAPA Logo" /></a></td>'; |
$logo.'" alt="LON-CAPA Logo" class="LC_noBorder" /></a>'; |
|
|
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { |
if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { |
Line 138 sub menubuttons {
|
Line 211 sub menubuttons {
|
} |
} |
} |
} |
|
|
if ($env{'browser.interface'} eq 'textual') { |
if ($env{'environment.remote'} eq 'off') { |
# Textual display only |
|
if ($env{'request.course.id'}) { |
|
$navmaps=(<<ENDNAV); |
|
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a> |
|
ENDNAV |
|
if (&show_return_link()) { |
|
my $escreload=&escape('return:'); |
|
$reloadlink=(<<ENDRELOAD); |
|
<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a> |
|
ENDRELOAD |
|
} |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
$docs=(<<ENDDOCS); |
|
<a href="/adm/coursedocs" target="_top">$lt{'docs'}</a> |
|
ENDDOCS |
|
} |
|
if ($showgroups) { |
|
$groups =(<<ENDGROUPS); |
|
<a href="/adm/coursegroups" target="_top">$lt{'groups'}</a> |
|
ENDGROUPS |
|
} |
|
} |
|
my $form=&serverform(); |
|
my $utility=&utilityfunctions(); |
|
my $output=(<<ENDMAINMENU); |
|
<script type="text/javascript"> |
|
// BEGIN LON-CAPA Internal |
|
$utility |
|
</script> |
|
<div id="LC_top_nav"> |
|
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
|
$reloadlink $navmaps $docs $groups $roles |
|
<a href="/adm/logout" target="_top">$lt{'exit'}</a> |
|
</div> |
|
<br /> |
|
<script type="text/javascript"> |
|
// END LON-CAPA Internal |
|
</script> |
|
$form |
|
ENDMAINMENU |
|
if ($registration) { $output.=&innerregister($forcereg); } |
|
return $output."<hr />"; |
|
} elsif ($env{'environment.remote'} eq 'off') { |
|
# Remote Control is switched off |
# Remote Control is switched off |
# figure out colors |
# figure out colors |
my %lt=&initlittle(); |
my %lt=&initlittle(); |
|
|
my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
my $function =&Apache::loncommon::get_users_function(); |
my $function =&Apache::loncommon::get_users_function(); |
my $link=&Apache::loncommon::designparm($function.'.link',$domain); |
my $link=&Apache::loncommon::designparm($function.'.link',$domain); |
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') { |
|
return (<<ENDINLINEMENU); |
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { |
|
return (<<ENDINLINEMENU); |
<table id="LC_top_nav"> |
<table id="LC_top_nav"> |
<tr> |
<tr> |
$logo |
<td>$logo</td> |
<td></td> |
<td></td> |
<td class="LC_top_nav_login"> |
<td class="LC_top_nav_login"> |
<a href="/adm/roles" target="_top">$lt{'login'}</a> |
<a href="/adm/roles" target="_top">$lt{'login'}</a> |
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
</font> |
|
ENDINLINEMENU |
ENDINLINEMENU |
} |
} |
$roles = '<td><a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a></td>'; |
$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>'; |
# 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 215 ENDINLINEMENU
|
Line 245 ENDINLINEMENU
|
$link="javascript:gonav('".$link."')"; |
$link="javascript:gonav('".$link."')"; |
} |
} |
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<td><a href="$link" target="_top">$lt{'nav'}</a></td> |
<li><a href="$link" target="_top">$lt{'nav'}</a></li> |
ENDNAV |
ENDNAV |
my $is_group = (&Apache::loncommon::course_type() eq 'Group'); |
my $is_group = (&Apache::loncommon::course_type() eq 'Group'); |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'}; |
my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'}; |
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<td><a href="/adm/coursedocs" target="_top">$text</a></td> |
<li><a href="/adm/coursedocs" target="_top">$text</a></li> |
ENDDOCS |
ENDDOCS |
} |
} |
if ($showgroups) { |
if ($showgroups) { |
$groups =(<<ENDGROUPS); |
$groups =(<<ENDGROUPS); |
<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td> |
<li><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></li> |
ENDGROUPS |
ENDGROUPS |
} |
} |
if (&show_return_link()) { |
if (&show_return_link()) { |
my $escreload=&escape('return:'); |
my $escreload=&escape('return:'); |
$reloadlink=(<<ENDRELOAD); |
$reloadlink=(<<ENDRELOAD); |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li> |
ENDRELOAD |
ENDRELOAD |
} |
} |
if ($role_selector) { |
if ($role_selector) { |
$roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>'; |
#$roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>'; |
|
$role_selector = '<li>'.$role_selector.'</li>'; |
} |
} |
} |
} |
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { |
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { |
my $escreload=&escape('return:'); |
my $escreload=&escape('return:'); |
$reloadlink=(<<ENDCRELOAD); |
$reloadlink=(<<ENDCRELOAD); |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li> |
ENDCRELOAD |
ENDCRELOAD |
} |
} |
my $reg=''; |
my $reg=''; |
Line 252 ENDCRELOAD
|
Line 283 ENDCRELOAD
|
my $form=&serverform(); |
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
|
|
|
my $messagelink = ""; |
|
if(&Apache::lonmsg::mynewmail()){ |
|
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message(new)</a>' |
|
}else{ |
|
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message</a>' |
|
} |
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 260 ENDCRELOAD
|
Line 297 ENDCRELOAD
|
$utility |
$utility |
// ]]> |
// ]]> |
</script> |
</script> |
<table id="LC_top_nav"> |
<ol class="LC_smallMenu LC_right"> |
<tr> |
<li>$logo</li> |
$logo |
<li>$messagelink</li> |
<td><a href="/adm/menu" target="_top">$lt{'main'}</a></td> |
<li>$roles</li> |
|
<li>$helplink</li> |
|
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li> |
|
</ol> |
|
<ul id="LC_TabMainMenuContent"> |
|
<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li> |
$reloadlink |
$reloadlink |
$navmaps |
$navmaps |
$docs |
$docs |
$groups |
$groups |
$roles |
$role_selector |
<td class="LC_top_nav_help">$helplink</td> |
</ul> |
<td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td> |
|
</tr> |
|
</table> |
|
$form |
$form |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
Line 297 sub show_return_link {
|
Line 336 sub show_return_link {
|
)); |
)); |
} |
} |
|
|
# ====================================== This gets called in the header section |
|
|
|
sub registerurl { |
sub registerurl { |
my ($forcereg) = @_; |
my ($forcereg) = @_; |
Line 307 sub registerurl {
|
Line 345 sub registerurl {
|
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
$force_title=&Apache::lonxml::display_title(); |
$force_title=&Apache::lonxml::display_title(); |
} |
} |
if (($env{'browser.interface'} eq 'textual') || |
if (($env{'environment.remote'} eq 'off') || |
($env{'environment.remote'} eq 'off') || |
|
((($env{'request.publicaccess'}) || |
((($env{'request.publicaccess'}) || |
(!&Apache::lonnet::is_on_map( |
(!&Apache::lonnet::is_on_map( |
&unescape($env{'request.noversionuri'})))) && |
&unescape($env{'request.noversionuri'})))) && |
Line 322 sub registerurl {
|
Line 359 sub registerurl {
|
return $result.$force_title; |
return $result.$force_title; |
} |
} |
|
|
# =========== This gets called in order to register a URL, both with the Remote |
|
# =========== and in the body of the document |
|
|
|
sub innerregister { |
sub innerregister { |
my ($forcereg, $titletable) = @_; |
my ($forcereg, $titletable) = @_; |
my $result = ''; |
my $result = ''; |
Line 336 sub innerregister {
|
Line 370 sub innerregister {
|
|
|
$env{'request.registered'} = 1; |
$env{'request.registered'} = 1; |
|
|
my $textinter=($env{'browser.interface'} eq 'textual'); |
my $noremote = ($env{'environment.remote'} eq 'off'); |
my $noremote=($env{'environment.remote'} eq 'off'); |
|
|
|
my $textual=($textinter || $noremote); |
|
|
|
undef(@inlineremote); |
undef(@inlineremote); |
|
|
my $reopen=&Apache::lonmenu::reopenmenu(); |
my $reopen=&Apache::lonmenu::reopenmenu(); |
|
|
my $newmail=''; |
my $newmail=''; |
if ($noremote) { |
my $breadcrumb; |
$newmail='<table id="LC_nav_location"><tr>'; |
|
} |
if (&Apache::lonmsg::newmail() && !$noremote) { |
if (&Apache::lonmsg::newmail()) { |
# We have new mail and remote is up |
if ($textual) { |
$newmail= 'swmenu.setstatus("you have","messages");'; |
$newmail.= '<td class="LC_new_mail"> |
|
<a href="/adm/communicate" target="_top">'. |
|
&mt('You have new messages').'</a></td>'; |
|
} else { |
|
$newmail= 'swmenu.setstatus("you have","messages");'; |
|
} |
|
} |
} |
if (($textual) |
if ($noremote |
&& ($env{'request.symb'}) |
&& ($env{'request.symb'}) |
&& ($env{'request.course.id'})) { |
&& ($env{'request.course.id'})) { |
$newmail.= '<td class="LC_current_location">'; |
|
my ($mapurl,$rid,$resurl)= |
my ($mapurl,$rid,$resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
&Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'}; |
my $coursetitle=$env{'course.'.$env{'request.course.id'}.'.description'}; |
|
$newmail.=$coursetitle; |
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
my $maptitle=&Apache::lonnet::gettitle($mapurl); |
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
my @crumbs = ({text => "Course Content", |
if ($maptitle && ($maptitle ne 'default.sequence') && ($maptitle ne $coursetitle)) { |
href => "Javascript:gonav('/adm/navmaps')"}, |
$newmail.=', '.$maptitle; |
{text => '...', |
} |
no_mt => 1}); |
if ($restitle) { |
|
$newmail.=': '.$restitle; |
push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle |
} |
&& $maptitle ne 'default.sequence' |
$newmail.=' </td>'; |
&& $maptitle ne $coursetitle); |
|
|
|
push @crumbs, {text => $restitle, no_mt => 1} if $restitle; |
|
|
|
Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
|
$breadcrumb .= Apache::lonhtmlcommon::breadcrumbs(undef,undef,0); |
|
# |
} |
} |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
$newmail = $titletable; |
$newmail = $titletable; |
} else { |
} |
if ($noremote) { |
my $timesync = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' ); |
$newmail.='</tr></table>'; |
my $tablestart = ( $noremote ? '<table id="LC_menubuttons">' : ''); |
} |
my $tableend = ( $noremote ? '</table>' : ''); |
} |
|
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); |
|
my $tablestart=($noremote?'<table id="LC_menubuttons">':''). |
|
($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':''); |
|
my $tableend=($noremote?'</table>':'').($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'}!~m|^/(res/)*adm/|) || ($forcereg)) { |
if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) { |
Line 401 sub innerregister {
|
Line 428 sub innerregister {
|
if ($env{'request.symb'} ne '' && |
if ($env{'request.symb'} ne '' && |
$env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { |
$env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { |
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[_4]', |
"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)) { |
} elsif (&Apache::lonnet::allowed('vgr',$crs)) { |
Line 422 sub innerregister {
|
Line 449 sub innerregister {
|
### resource |
### resource |
### |
### |
my $editbutton = ''; |
my $editbutton = ''; |
|
my $noeditbutton = 1; |
|
my ($cnum,$cdom); |
|
if ($env{'request.course.id'}) { |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
} |
if ($env{'user.author'}) { |
if ($env{'user.author'}) { |
if ($env{'request.role'}=~/^(aa|ca|au)/) { |
if ($env{'request.role'}=~/^(aa|ca|au)/) { |
# Set defaults for authors |
# Set defaults for authors |
Line 449 sub innerregister {
|
Line 482 sub innerregister {
|
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
if (!$allowed) { |
if (!$allowed) { |
$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc); |
$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc); |
|
$noeditbutton = 0; |
} |
} |
} |
} |
## |
## |
Line 457 sub innerregister {
|
Line 491 sub innerregister {
|
my $cfile=''; |
my $cfile=''; |
my $cfuname=''; |
my $cfuname=''; |
my $cfudom=''; |
my $cfudom=''; |
|
my $uploaded; |
if ($env{'request.filename'}) { |
if ($env{'request.filename'}) { |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/; |
if (defined($cnum) && defined($cdom)) { |
# Check that the user has permission to edit this resource |
$uploaded = &is_course_upload($file,$cnum,$cdom); |
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1); |
} |
if (defined($cfudom)) { |
if (!$uploaded) { |
my $home=&Apache::lonnet::homeserver($cfuname,$cfudom); |
$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/; |
my $allowed=0; |
# Check that the user has permission to edit this resource |
my @ids=&Apache::lonnet::current_machine_ids(); |
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1); |
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
if (defined($cfudom)) { |
if ($allowed) { |
my $home=&Apache::lonnet::homeserver($cfuname,$cfudom); |
$cfile=$file; |
my $allowed=0; |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
|
if ($allowed) { |
|
$cfile=$file; |
|
} |
} |
} |
} |
} |
} |
} |
# Finally, turn the button on or off |
# Finally, turn the button on or off |
if ($cfile && !$const_space) { |
if ($cfile && !$const_space) { |
$editbutton=&switch |
$editbutton=&switch |
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]', |
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]', |
"go('".$cfile."');","Edit this resource"); |
"go('".$cfile."');","Edit this resource"); |
|
$noeditbutton = 0; |
} elsif ($editbutton eq '') { |
} elsif ($editbutton eq '') { |
$editbutton=&clear(6,1); |
$editbutton=&clear(6,1); |
} |
} |
} |
} |
|
if (($noeditbutton) && ($env{'request.filename'})) { |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
|
if (defined($cnum) && defined($cdom)) { |
|
if (&is_course_upload($file,$cnum,$cdom)) { |
|
my $cfile = &edit_course_upload($file,$cnum,$cdom); |
|
if ($cfile) { |
|
$editbutton=&switch |
|
('','',6,1,'pcstr.gif','edit[_1]', |
|
'resource[_2]',"go('".$cfile."');", |
|
'Edit this resource'); |
|
} |
|
} |
|
} |
|
} |
|
} |
### |
### |
### |
### |
# Prepare the rest of the buttons |
# Prepare the rest of the buttons |
Line 492 sub innerregister {
|
Line 549 sub innerregister {
|
if ($currdir =~ m-/$-) { |
if ($currdir =~ m-/$-) { |
$is_const_dir = 1; |
$is_const_dir = 1; |
} else { |
} else { |
$currdir =~ s#[^/]+$##; |
$currdir =~ s|[^/]+$||; |
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $esc_currdir = &Apache::loncommon::escape_single($currdir); |
my $esc_currdir = &Apache::loncommon::escape_single($currdir); |
$menuitems=(<<ENDMENUITEMS); |
$menuitems=(<<ENDMENUITEMS); |
s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory |
s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory |
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version |
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version |
s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource |
s&6&3&pub.gif&publish[_1]&resource[_3]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
ENDMENUITEMS |
ENDMENUITEMS |
Line 531 $menuitems.="Make notes and annotations
|
Line 588 $menuitems.="Make notes and annotations
|
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
if (!$env{'request.enc'}) { |
if (!$env{'request.enc'}) { |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information |
s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata |
ENDREALRES |
ENDREALRES |
} |
} |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
Line 564 ENDMENUITEMS
|
Line 621 ENDMENUITEMS
|
} |
} |
} |
} |
|
|
if ($textual) { |
if ($noremote) { |
my $addremote=0; |
my $addremote=0; |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } } |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} } |
my $inlinebuttons=''; |
my $inlinebuttons=''; |
if ($addremote) { |
if ($addremote) { |
# Registered, textual output |
# Registered, textual output |
if ($env{'browser.interface'} eq 'textual') { |
|
$inlinebuttons= |
|
join('',map { (defined($_)?$_:'') } @inlineremote); |
|
} else { |
|
if ($env{'environment.icons'} eq 'iconsonly') { |
if ($env{'environment.icons'} eq 'iconsonly') { |
$inlinebuttons=(<<ENDARROWSINLINE); |
$inlinebuttons=(<<ENDARROWSINLINE); |
<tr><td> |
<tr><td> |
Line 605 ENDLINE
|
Line 658 ENDLINE
|
} |
} |
} |
} |
} |
} |
} |
|
} |
} |
$result =(<<ENDREGTEXT); |
$result =(<<ENDREGTEXT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
</script> |
</script> |
$timesync |
$timesync |
|
$breadcrumb |
$tablestart |
$tablestart |
$inlinebuttons |
$inlinebuttons |
$tableend |
$tableend |
Line 674 ENDREGTHIS
|
Line 727 ENDREGTHIS
|
# ============================================================================= |
# ============================================================================= |
} else { |
} else { |
# ========================================== This can or will not be registered |
# ========================================== This can or will not be registered |
if ($textual) { |
if ($noremote) { |
# Not registered, textual |
# Not registered |
$result= (<<ENDDONOTREGTEXT); |
$result= (<<ENDDONOTREGTEXT); |
ENDDONOTREGTEXT |
ENDDONOTREGTEXT |
} else { |
} else { |
# Not registered, graphical |
# Not registered, graphical |
Line 715 ENDDONOTREGTHIS
|
Line 768 ENDDONOTREGTHIS
|
return $result; |
return $result; |
} |
} |
|
|
|
sub is_course_upload { |
|
my ($file,$cnum,$cdom) = @_; |
|
my $uploadpath = &LONCAPA::propath($cdom,$cnum); |
|
$uploadpath =~ s{^\/}{}; |
|
if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) || |
|
($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) { |
|
return 1; |
|
} |
|
return; |
|
} |
|
|
|
sub edit_course_upload { |
|
my ($file,$cnum,$cdom) = @_; |
|
my $cfile; |
|
if ($file =~/\.(htm|html|css|js|txt)$/) { |
|
my $ext = $1; |
|
my $url = &Apache::lonnet::hreflocation('',$file); |
|
my $home = &Apache::lonnet::homeserver($cnum,$cdom); |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
my $dest; |
|
if ($home && grep(/^\Q$home\E$/,@ids)) { |
|
$dest = $url.'?forceedit=1'; |
|
} else { |
|
unless (&Apache::lonnet::get_locks()) { |
|
$dest = '/adm/switchserver?otherserver='. |
|
$home.'&role='.$env{'request.role'}. |
|
'&url='.$url.'&forceedit=1'; |
|
} |
|
} |
|
if ($dest) { |
|
$cfile = &HTML::Entities::encode($dest,'"<>&'); |
|
} |
|
} |
|
return $cfile; |
|
} |
|
|
sub loadevents() { |
sub loadevents() { |
if ($env{'request.state'} eq 'construct' || |
if ($env{'request.state'} eq 'construct' || |
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
Line 727 sub unloadevents() {
|
Line 816 sub unloadevents() {
|
return 'LONCAPAstale();'; |
return 'LONCAPAstale();'; |
} |
} |
|
|
# ============================================================= Start up remote |
|
|
|
sub startupremote { |
sub startupremote { |
my ($lowerurl)=@_; |
my ($lowerurl)=@_; |
if (($env{'browser.interface'} eq 'textual') || |
if ($env{'environment.remote'} eq 'off') { |
($env{'environment.remote'} eq 'off')) { |
|
return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />'); |
return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />'); |
} |
} |
# |
# |
Line 807 ENDSETFLAGS
|
Line 894 ENDSETFLAGS
|
} |
} |
|
|
sub maincall() { |
sub maincall() { |
if (($env{'browser.interface'} eq 'textual') || |
if ($env{'environment.remote'} eq 'off') { return ''; } |
($env{'environment.remote'} eq 'off')) { return ''; } |
|
return(<<ENDMAINCALL); |
return(<<ENDMAINCALL); |
<script type="text/javascript"> |
<script type="text/javascript"> |
main(); |
main(); |
Line 819 ENDMAINCALL
|
Line 905 ENDMAINCALL
|
sub load_remote_msg { |
sub load_remote_msg { |
my ($lowerurl)=@_; |
my ($lowerurl)=@_; |
|
|
if (($env{'browser.interface'} eq 'textual') || |
if ($env{'environment.remote'} eq 'off') { return ''; } |
($env{'environment.remote'} eq 'off')) { return ''; } |
|
|
|
my $esclowerurl=&escape($lowerurl); |
my $esclowerurl=&escape($lowerurl); |
my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode', |
my $link=&mt('[_1]Continue[_2] on in Inline Menu mode' |
"/adm/remote?action=collapse&url=$esclowerurl"); |
,'<a href="/adm/remote?action=collapse&url='.$esclowerurl.'">' |
|
,'</a>'); |
return(<<ENDREMOTEFORM); |
return(<<ENDREMOTEFORM); |
<p> |
<p> |
<form name="wheel"> |
<form name="wheel"> |
Line 841 sub get_menu_name {
|
Line 927 sub get_menu_name {
|
return 'LCmenu'.$hostid; |
return 'LCmenu'.$hostid; |
} |
} |
|
|
# ================================================================= Reopen menu |
|
|
|
sub reopenmenu { |
sub reopenmenu { |
if (($env{'browser.interface'} eq 'textual') || |
if ($env{'environment.remote'} eq 'off') { return ''; } |
($env{'environment.remote'} eq 'off')) { return ''; } |
|
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); |
my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); |
return('window.open('.$nothing.',"'.$menuname.'","",false);'); |
return('window.open('.$nothing.',"'.$menuname.'","",false);'); |
} |
} |
|
|
# =============================================================== Open the menu |
|
|
|
sub open { |
sub open { |
my $returnval=''; |
my $returnval=''; |
if (($env{'browser.interface'} eq 'textual') || |
if ($env{'environment.remote'} eq 'off') { |
($env{'environment.remote'} eq 'off')) { |
|
return '<script type="text/javascript">self.name="loncapaclient";</script>'; |
return '<script type="text/javascript">self.name="loncapaclient";</script>'; |
} |
} |
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
Line 884 ENDOPEN
|
Line 966 ENDOPEN
|
|
|
sub clear { |
sub clear { |
my ($row,$col)=@_; |
my ($row,$col)=@_; |
unless (($env{'browser.interface'} eq 'textual') || |
unless ($env{'environment.remote'} eq 'off') { |
($env{'environment.remote'} eq 'off')) { |
|
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); |
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); |
} else { |
} else { |
$inlineremote[10*$row+$col]=''; |
$inlineremote[10*$row+$col]=''; |
Line 910 sub switch {
|
Line 991 sub switch {
|
my $idx=10*$row+$col; |
my $idx=10*$row+$col; |
$category_members{$cat}.=':'.$idx; |
$category_members{$cat}.=':'.$idx; |
|
|
unless (($env{'browser.interface'} eq 'textual') || |
unless ($env{'environment.remote'} eq 'off') { |
($env{'environment.remote'} eq 'off')) { |
|
# Remote |
# Remote |
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");); |
} elsif ($env{'browser.interface'} eq 'textual') { |
|
# Accessibility |
|
if ($nobreak==2) { return ''; } |
|
my $text=$top.' '.$bot; |
|
$text=~s/\s*\-\s*//gs; |
|
if ($nobreak) { |
|
$inlineremote[$idx]= |
|
'<a href="javascript:'.$act.';">'.$text.'</a>'; |
|
} else { |
|
$inlineremote[$idx]="\n<br />". |
|
$desc.' <a href="javascript:'.$act.';">'.$text.'</a>'; |
|
} |
|
} else { |
} else { |
# Inline Remote |
# Inline Remote |
if ($env{'environment.icons'} ne 'classic') { |
if ($env{'environment.icons'} ne 'classic') { |
Line 939 sub switch {
|
Line 1007 sub switch {
|
my $pic= |
my $pic= |
'<img alt="'.$text.'" src="'. |
'<img alt="'.$text.'" src="'. |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img). |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img). |
'" align="'.($nobreak==3?'right':'left').'" />'; |
'" align="'.($nobreak==3?'right':'left').'" class="LC_noBorder" />'; |
if ($env{'browser.interface'} eq 'faketextual') { |
if ($env{'browser.interface'} eq 'faketextual') { |
# Accessibility |
# Accessibility |
if ($nobreak==3) { |
if ($nobreak==3) { |
$inlineremote[$idx]="\n". |
$inlineremote[$idx]="\n". |
'<td class="LC_menubuttons_text" align="right">'.$text. |
'<td class="LC_menubuttons_text" align="right">'.$text. |
'</td><td class="LC_menubuttons_img" align="left">'. |
'</td><td align="left">'. |
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>'; |
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>'; |
} elsif ($nobreak) { |
} elsif ($nobreak) { |
$inlineremote[$idx]="\n<tr>". |
$inlineremote[$idx]="\n<tr>". |
'<td class="LC_menubuttons_img" align="left">'. |
'<td align="left">'. |
'<a href="javascript:'.$act.';">'.$pic.'</a></td> |
'<a href="javascript:'.$act.';">'.$pic.'</a></td> |
<td class="LC_menubuttons_text" align="left"><a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$text.'</span></a></td>'; |
<td class="LC_menubuttons_text" align="left"><a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$text.'</span></a></td>'; |
} else { |
} else { |
$inlineremote[$idx]="\n<tr>". |
$inlineremote[$idx]="\n<tr>". |
'<td class="LC_menubuttons_img" align="left">'. |
'<td align="left">'. |
'<a href="javascript:'.$act.';">'.$pic. |
'<a href="javascript:'.$act.';">'.$pic. |
'</a></td><td class="LC_menubuttons_text" colspan="3">'. |
'</a></td><td class="LC_menubuttons_text" colspan="3">'. |
'<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>'; |
'<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>'; |
Line 989 sub secondlevel {
|
Line 1057 sub secondlevel {
|
|
|
sub openmenu { |
sub openmenu { |
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
if (($env{'browser.interface'} eq 'textual') || |
if ($env{'environment.remote'} eq 'off') { return ''; } |
($env{'environment.remote'} eq 'off')) { return ''; } |
|
my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); |
my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); |
return "window.open(".$nothing.",'".$menuname."');"; |
return "window.open(".$nothing.",'".$menuname."');"; |
} |
} |
Line 1005 sub inlinemenu {
|
Line 1072 sub inlinemenu {
|
for (my $row=1; $row<=8; $row++) { |
for (my $row=1; $row<=8; $row++) { |
foreach my $cat (keys(%category_members)) { |
foreach my $cat (keys(%category_members)) { |
if ($category_positions{$cat} ne "$col,$row") { next; } |
if ($category_positions{$cat} ne "$col,$row") { next; } |
#$output.='<table id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
$output.='<fieldset id="LC_mainmenu_fieldset">'; |
$output.='<div class="LC_ContentBoxSpecial">'; |
$output.='<legend class="LC_mainmenu_fieldset_category">'.&mt($category_names{$cat}).'</legend>'; |
$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>'; |
$output.='<table id="LC_menubuttons_mainmenu">'; |
$output.='<table>'; |
my %active=(); |
my %active=(); |
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
if ($inlineremote[$menu_item]) { |
if ($inlineremote[$menu_item]) { |
Line 1017 sub inlinemenu {
|
Line 1084 sub inlinemenu {
|
} |
} |
foreach my $item (sort(keys(%active))) { |
foreach my $item (sort(keys(%active))) { |
$output.=$inlineremote[$item]; |
$output.=$inlineremote[$item]; |
&Apache::lonnet::logthis("item=$item output=$inlineremote[$item]"); |
|
} |
} |
$output.='</table>'; |
$output.='</table>'; |
$output.='</fieldset>'; |
$output.='</div>'; |
} |
} |
} |
} |
$output.="</td>"; |
$output.="</td>"; |
Line 1032 sub inlinemenu {
|
Line 1098 sub inlinemenu {
|
sub rawconfig { |
sub rawconfig { |
my $textualoverride=shift; |
my $textualoverride=shift; |
my $output=''; |
my $output=''; |
unless (($env{'browser.interface'} eq 'textual') || |
unless ($env{'environment.remote'} eq 'off') { |
($env{'environment.remote'} eq 'off')) { |
|
$output.= |
$output.= |
"window.status='Opening Remote Control';var swmenu=".&openmenu(). |
"window.status='Opening Remote Control';var swmenu=".&openmenu(). |
"\nwindow.status='Configuring Remote Control ';"; |
"\nwindow.status='Configuring Remote Control ';"; |
Line 1043 sub rawconfig {
|
Line 1108 sub rawconfig {
|
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'}; |
my $show_course=&show_course(); |
my $show_course=&Apache::loncommon::show_course(); |
my $author=$env{'user.author'}; |
my $author=$env{'user.author'}; |
my $crs=''; |
my $crs=''; |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
Line 1137 sub rawconfig {
|
Line 1202 sub rawconfig {
|
} |
} |
} |
} |
} |
} |
|
} elsif ($pro eq 'tools') { |
|
my @tools = ('aboutme','blog','portfolio'); |
|
if (grep(/^\Q$prt\E$/,@tools)) { |
|
if (!&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'}, |
|
$prt,undef,'tools')) { |
|
$output.=&clear($row,$col); |
|
next; |
|
} |
|
} elsif ($prt eq 'reqcrs') { |
|
my $showreqcrs = 0; |
|
foreach my $type ('official','unofficial') { |
|
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'}, |
|
$type,undef,'requestcourses')) { |
|
$showreqcrs = 1; |
|
last; |
|
} |
|
} |
|
if (!$showreqcrs) { |
|
$output.=&clear($row,$col); |
|
next; |
|
} |
|
} |
|
$prt='any'; |
|
$output.=&secondlevel( |
|
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat); |
} |
} |
} |
} |
unless (($env{'browser.interface'} eq 'textual') || |
unless ($env{'environment.remote'} eq 'off') { |
($env{'environment.remote'} eq 'off')) { |
|
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; |
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; |
if (&Apache::lonmsg::newmail()) { |
if (&Apache::lonmsg::newmail()) { |
$output.='swmenu.setstatus("you have","messages");'; |
$output.='swmenu.setstatus("you have","messages");'; |
Line 1153 sub rawconfig {
|
Line 1244 sub rawconfig {
|
# ======================================================================= Close |
# ======================================================================= Close |
|
|
sub close { |
sub close { |
if (($env{'browser.interface'} eq 'textual') || |
if ($env{'environment.remote'} eq 'off') { return ''; } |
($env{'environment.remote'} eq 'off')) { return ''; } |
|
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
return(<<ENDCLOSE); |
return(<<ENDCLOSE); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 1196 NAVCONTROL
|
Line 1286 NAVCONTROL
|
|
|
sub utilityfunctions { |
sub utilityfunctions { |
my $caller = shift; |
my $caller = shift; |
unless (($env{'browser.interface'} eq 'textual') || |
unless ($env{'environment.remote'} eq 'off' || |
($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } |
$caller eq '/adm/menu') { |
|
return ''; } |
|
|
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl)); |
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl)); |
|
|
Line 1353 function set_bookmark() {
|
Line 1445 function set_bookmark() {
|
bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0'); |
bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0'); |
bmquery.document.write( |
bmquery.document.write( |
'$start_page_bookmark' |
'$start_page_bookmark' |
+"<center><form method='post'" |
+'<center><form method="post"' |
+" name='newlink' action='/adm/bookmarks' target='bmquery' " |
+' name="newlink" action="/adm/bookmarks" target="bmquery" ' |
+">\\n <table width=340 height=150 " |
+'> <table width="340" height="150" ' |
+"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input " |
+'bgcolor="#FFFFFF" align="center"><tr><td>Link Name:<br /><input ' |
+"type='text' name='title' size=45 value='"+clienttitle+"' />" |
+'type="text" name="title" size="45" value="'+clienttitle+'" />' |
+"<br />Address:<br /><input type='text' name='address' size='45' " |
+'<br />Address:<br /><input type="text" name="address" size="45" ' |
+"value='"+clienthref+"' /><br /><center><input type='submit' " |
+'value="'+clienthref+'" /><br /><center><input type="submit" ' |
+"value='Save' /> <input type='button' value='Close (no save)' " |
+'value="Save" /> <input type="button" value="Close" ' |
+"onclick='javascript:window.close();' /><\\/center><\\/td>" |
+'onclick="javascript:window.close();" /></center></td>' |
+"<\\/tr><\\/table><\\/form><\\/center>" |
+'</tr></table></form></center>' |
+'$end_page_bookmark' ); |
+'$end_page_bookmark' ); |
bmquery.document.close(); |
bmquery.document.close(); |
} |
} |
Line 1438 sub hidden_button_check {
|
Line 1530 sub hidden_button_check {
|
sub roles_selector { |
sub roles_selector { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
my $now = time; |
my $now = time; |
my (%courseroles,%seccount,%gotnosection); |
my (%courseroles,%seccount); |
my $is_cc; |
my $is_cc; |
my $role_selector; |
my $role_selector; |
if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) { |
if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) { |
Line 1453 sub roles_selector {
|
Line 1545 sub roles_selector {
|
} |
} |
} |
} |
if ($is_cc) { |
if ($is_cc) { |
my %adv_roles = |
&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount); |
&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1); |
|
foreach my $role (keys(%adv_roles)) { |
|
my ($urole,$usec) = split(/:/,$role); |
|
if (!$gotnosection{$urole}) { |
|
$seccount{$urole} ++; |
|
$gotnosection{$urole} = 1; |
|
} |
|
if (ref($courseroles{$urole}) eq 'ARRAY') { |
|
if ($usec ne '') { |
|
if (!grep(/^Q$usec\E$/,@{$courseroles{$urole}})) { |
|
push(@{$courseroles{$urole}},$usec); |
|
$seccount{$urole} ++; |
|
} |
|
} |
|
} else { |
|
@{$courseroles{$urole}} = (); |
|
if ($usec ne '') { |
|
$seccount{$urole} ++; |
|
push(@{$courseroles{$urole}},$usec); |
|
} |
|
} |
|
} |
|
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum); |
|
@{$courseroles{'st'}} = (); |
|
if (keys(%sections_count) > 0) { |
|
push(@{$courseroles{'st'}},keys(%sections_count)); |
|
} |
|
} else { |
} else { |
|
my %gotnosection; |
foreach my $item (keys(%env)) { |
foreach my $item (keys(%env)) { |
if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) { |
if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) { |
my $role = $1; |
my $role = $1; |
Line 1497 sub roles_selector {
|
Line 1563 sub roles_selector {
|
} |
} |
if (ref($courseroles{$role}) eq 'ARRAY') { |
if (ref($courseroles{$role}) eq 'ARRAY') { |
if ($sec ne '') { |
if ($sec ne '') { |
if (!grep(/^Q$sec\E$/,@{$courseroles{$role}})) { |
if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) { |
push(@{$courseroles{$role}},$sec); |
push(@{$courseroles{$role}},$sec); |
$seccount{$role} ++; |
$seccount{$role} ++; |
} |
} |
Line 1539 sub roles_selector {
|
Line 1605 sub roles_selector {
|
return $role_selector; |
return $role_selector; |
} |
} |
|
|
|
sub get_all_courseroles { |
|
my ($cdom,$cnum,$courseroles,$seccount) = @_; |
|
unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) { |
|
return; |
|
} |
|
my ($result,$cached) = |
|
&Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum); |
|
if (defined($cached)) { |
|
if (ref($result) eq 'HASH') { |
|
if ((ref($result->{'roles'}) eq 'HASH') && |
|
(ref($result->{'seccount'}) eq 'HASH')) { |
|
%{$courseroles} = %{$result->{'roles'}}; |
|
%{$seccount} = %{$result->{'seccount'}}; |
|
return; |
|
} |
|
} |
|
} |
|
my %gotnosection; |
|
my %adv_roles = |
|
&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1); |
|
foreach my $role (keys(%adv_roles)) { |
|
my ($urole,$usec) = split(/:/,$role); |
|
if (!$gotnosection{$urole}) { |
|
$seccount->{$urole} ++; |
|
$gotnosection{$urole} = 1; |
|
} |
|
if (ref($courseroles->{$urole}) eq 'ARRAY') { |
|
if ($usec ne '') { |
|
if (!grep(/^Q$usec\E$/,@{$courseroles->{$urole}})) { |
|
push(@{$courseroles->{$urole}},$usec); |
|
$seccount->{$urole} ++; |
|
} |
|
} |
|
} else { |
|
@{$courseroles->{$urole}} = (); |
|
if ($usec ne '') { |
|
$seccount->{$urole} ++; |
|
push(@{$courseroles->{$urole}},$usec); |
|
} |
|
} |
|
} |
|
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']); |
|
@{$courseroles->{'st'}} = (); |
|
if (keys(%sections_count) > 0) { |
|
push(@{$courseroles->{'st'}},keys(%sections_count)); |
|
$seccount->{'st'} = scalar(keys(%sections_count)); |
|
} |
|
my $rolehash = { |
|
'roles' => $courseroles, |
|
'seccount' => $seccount, |
|
}; |
|
&Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash); |
|
return; |
|
} |
|
|
sub jump_to_role { |
sub jump_to_role { |
my ($cdom,$cnum,$seccount,$courseroles) = @_; |
my ($cdom,$cnum,$seccount,$courseroles) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |