version 1.274, 2009/07/11 19:58:29
|
version 1.298, 2009/10/30 00:19:49
|
Line 113 The javascript is usually similar to "go
|
Line 113 The javascript is usually similar to "go
|
|
|
=item get_nav_status() |
=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 hidden_button_check() |
|
|
=item roles_selector() |
=item roles_selector() |
Line 137 use Apache::loncommon();
|
Line 132 use Apache::loncommon();
|
use Apache::lonenc(); |
use Apache::lonenc(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
use HTML::Entities(); |
|
|
use vars qw(@desklines %category_names %category_members %category_positions $readdesk); |
use vars qw(@desklines %category_names %category_members %category_positions |
|
$readdesk @primary_menu @secondary_menu); |
|
|
my @inlineremote; |
my @inlineremote; |
|
|
|
sub prep_menuitem { |
|
my ($menuitem) = @_; |
|
return '' unless(ref($menuitem) eq 'ARRAY'); |
|
my $link; |
|
if ($$menuitem[1]) { # graphical Link |
|
$link = "<img class=\"LC_noBorder\"" |
|
. " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\"" |
|
. " alt=\"" . &mt($$menuitem[2]) . "\" />"; |
|
} else { # textual Link |
|
$link = &mt($$menuitem[3]); |
|
} |
|
return '<li><a href="'.$$menuitem[0].'" target="_top">'.$link.'</a></li>'; |
|
} |
|
|
|
# primary_menu() evaluates @primary_menu and returns XHTML for the menu |
|
# that contains following links: |
|
# About, Message, Roles, Help, Logout |
|
# @primary_menu is filled within the BEGIN block of this module with |
|
# entries from mydesk.tab |
|
sub primary_menu { |
|
my $menu; |
|
# each element of @primary contains following array: |
|
# (link url, icon path, alt text, link text, condition) |
|
foreach my $menuitem (@primary_menu) { |
|
# evaluate conditions |
|
next if ref($menuitem) ne 'ARRAY'; # |
|
next if $$menuitem[4] eq 'nonewmsg' # show links depending on |
|
&& &Apache::lonmsg::mynewmail(); # whether a new msg |
|
next if $$menuitem[4] eq 'newmsg' # arrived or not |
|
&& !&Apache::lonmsg::mynewmail(); # |
|
next if $$menuitem[4] !~ /public/ ##we've a public user, |
|
&& $env{'user.name'} eq 'public' ##who should not see all |
|
&& $env{'user.domain'} eq 'public'; ##links |
|
next if $$menuitem[4] eq 'onlypublic'# hide links which are |
|
&& $env{'user.name'} ne 'public' # only visible to public |
|
&& $env{'user.domain'} ne 'public'; # users |
|
next if $$menuitem[4] eq 'roles' ##show links depending on |
|
&& &Apache::loncommon::show_course(); ##term 'Courses' or |
|
next if $$menuitem[4] eq 'courses' ##'Roles' wanted |
|
&& !&Apache::loncommon::show_course(); ## |
|
|
|
|
|
if ($$menuitem[3] eq 'Help') { # special treatment for helplink |
|
$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>'; |
|
} else { |
|
my @items = @{$menuitem}; |
|
$items[0] = 'javascript:'.$menuitem->[0].';'; |
|
$menu .= &prep_menuitem(\@items); |
|
} |
|
} |
|
|
|
return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>"; |
|
} |
|
|
|
|
|
sub secondary_menu { |
|
my $menu; |
|
|
|
my $crstype = &Apache::loncommon::course_type(); |
|
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'}); |
|
my $canviewgrps = &Apache::lonnet::allowed('vcg', $env{'request.course.id'} |
|
. ($env{'request.course.sec'} ? "/$env{'request.course.sec'}" |
|
: '')); |
|
my $showlink = &show_return_link(); |
|
my %groups = &Apache::lonnet::get_active_groups( |
|
$env{'user.domain'}, $env{'user.name'}, |
|
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
|
$env{'course.' . $env{'request.course.id'} . '.num'}); |
|
foreach my $menuitem (@secondary_menu) { |
|
# evaluate conditions |
|
next if ref($menuitem) ne 'ARRAY'; |
|
next if $$menuitem[4] ne 'always' |
|
&& !$env{'request.course.id'}; |
|
next if $$menuitem[4] eq 'showreturn' |
|
&& !$showlink |
|
&& !($env{'request.state'} eq 'construct'); |
|
next if $$menuitem[4] =~ /^mdc/ |
|
&& !$canedit; |
|
next if $$menuitem[4] eq 'mdcCourse' |
|
&& $crstype eq 'Community'; |
|
next if $$menuitem[4] eq 'mdcCommunity' |
|
&& $crstype ne 'Community'; |
|
next if $$menuitem[4] =~ /^remotenav/ |
|
&& $env{'environment.remotenavmap'} ne 'on'; |
|
next if $$menuitem[4] =~ /noremotenav/ |
|
&& $env{'environment.remotenavmap'} eq 'on'; |
|
next if $$menuitem[4] =~ /^(no|)remotenav$/ |
|
&& $crstype eq 'Community'; |
|
next if $$menuitem[4] =~ /^(no|)remotenavCommunity$/ |
|
&& $crstype ne 'Community'; |
|
next if $$menuitem[4] =~ /showgroups$/ |
|
&& $canviewgrps |
|
&& !%groups; |
|
|
|
if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
|
# special treatment for role selector |
|
my $roles_selector = &roles_selector( |
|
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
|
$env{'course.' . $env{'request.course.id'} . '.num'} ); |
|
|
|
$menu .= $roles_selector ? "<li>$roles_selector</li>" |
|
: ''; |
|
} elsif ($env{'environment.remotenavmap'} eq 'on') { |
|
# open link using javascript when remote navmap is activated |
|
my @items = @{$menuitem}; |
|
if ($menuitem->[4] eq 'remotenav') { |
|
$items[0] = "javascript:gonav('$menuitem->[0]');"; |
|
} else { |
|
$items[0] = "javascript:go('$menuitem->[0]');"; |
|
} |
|
$menu .= &prep_menuitem(\@items); |
|
} else { |
|
$menu .= &prep_menuitem(\@$menuitem); |
|
} |
|
} |
|
if ($menu =~ /\[url\].*\[symb\]/) { |
|
my $escurl = &escape( &Apache::lonenc::check_encrypt( |
|
$env{'request.noversionuri'})); |
|
|
|
my $escsymb = &escape( &Apache::lonenc::check_encrypt( |
|
$env{'request.symb'})); |
|
|
|
if ( $env{'request.state'} eq 'construct' |
|
and ( $env{'request.noversionuri'} eq '' |
|
|| !defined($env{'request.noversionuri'}))) |
|
{ |
|
($escurl = $env{'request.filename'}) =~ |
|
s{^/home/([^/]+)/public_html/(.*)$}{/priv/$1/$2}; |
|
|
|
$escurl = &escape($escurl); |
|
} |
|
$menu =~ s/\[url\]/$escurl/g; |
|
$menu =~ s/\[symb\]/$escsymb/g; |
|
} |
|
|
|
return "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
|
} |
|
|
|
|
# |
# |
# This routine returns a translated hash for the menu items in the top inline menu row |
# This routine returns a translated hash for the menu items in the top inline menu row |
# Probably should be in mydesk.tab |
# Probably should be in mydesk.tab |
|
|
|
#SD this sub is deprecated - don't use it |
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' => 'Course Contents', |
'main' => 'Main Menu', |
'main' => 'Main Menu', |
'roles' => (&Apache::loncommon::show_course()? |
'roles' => (&Apache::loncommon::show_course()? |
'Courses':'Roles'), |
'Courses':'Roles'), |
Line 159 sub initlittle {
|
Line 295 sub initlittle {
|
'login' => 'Log In', |
'login' => 'Log In', |
'launch' => 'Launch Remote Control', |
'launch' => 'Launch Remote Control', |
'groups' => 'Groups', |
'groups' => 'Groups', |
'gdoc' => 'Group Documents', |
'gdoc' => 'Community Documents', |
); |
); |
} |
} |
|
|
|
#SD this sub is deprecated - don't use it |
|
#SD functionality is covered by new loncommon::bodytag and primary_menu(), secondary_menu() |
sub menubuttons { |
sub menubuttons { |
my $forcereg=shift; |
my $forcereg=shift; |
my $registration=shift; |
|
my $titletable=shift; |
my $titletable=shift; |
# |
# |
# Early-out for pages that should not have a menu, triggered by query string "inhibitmenu=yes" |
# Early-out for pages that should not have a menu, triggered by query string "inhibitmenu=yes" |
Line 233 sub menubuttons {
|
Line 370 sub menubuttons {
|
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); |
Line 241 sub menubuttons {
|
Line 378 sub menubuttons {
|
|
|
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { |
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<ol class="LC_smallMenu LC_right"> |
<ol class="LC_primary_menu LC_right"> |
<li>$logo</li> |
<li>$logo</li> |
<li><a href="/adm/roles" target="_top">$lt{'login'}</a></li> |
<li><a href="/adm/roles" target="_top">$lt{'login'}</a></li> |
</ol> |
</ol> |
Line 259 ENDINLINEMENU
|
Line 396 ENDINLINEMENU
|
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<li><a href="$link" target="_top">$lt{'nav'}</a></li> |
<li><a href="$link" target="_top">$lt{'nav'}</a></li> |
ENDNAV |
ENDNAV |
my $is_group = (&Apache::loncommon::course_type() eq 'Group'); |
my $is_community = |
|
(&Apache::loncommon::course_type() eq 'Community'); |
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_community) ? $lt{'gdoc'} : $lt{'docs'}; |
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<li><a href="/adm/coursedocs" target="_top">$text</a></li> |
<li><a href="/adm/coursedocs" target="_top">$text</a></li> |
ENDDOCS |
ENDDOCS |
Line 288 ENDRELOAD
|
Line 426 ENDRELOAD
|
<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li> |
<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li> |
ENDCRELOAD |
ENDCRELOAD |
} |
} |
my $reg=''; |
my $reg = $forcereg ? &innerregister($forcereg,$titletable) : ''; |
if ($registration) { |
my $form = &serverform(); |
$reg=&innerregister($forcereg,$titletable); |
my $utility = &utilityfunctions(); |
} |
|
my $form=&serverform(); |
#Prepare the message link that indicates the arrival of new mail |
my $utility=&utilityfunctions(); |
my $messagelink = &Apache::lonmsg::mynewmail() ? "Message (new)" : "Message"; |
|
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">' |
my $messagelink = ""; |
. mt($messagelink) .'</a>'; |
if(&Apache::lonmsg::mynewmail()){ |
|
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message(new)</a>' |
my $helplink = &Apache::loncommon::top_nav_help('Help'); |
}else{ |
|
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message</a>' |
|
} |
|
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
|
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
|
// <![CDATA[ |
// <![CDATA[ |
|
// BEGIN LON-CAPA Internal |
$utility |
$utility |
// ]]> |
// ]]> |
</script> |
</script> |
<ol class="LC_smallMenu LC_right"> |
<ol class="LC_primary_menu LC_right"> |
<li>$logo</li> |
<li>$logo</li> |
<li>$messagelink</li> |
<li>$messagelink</li> |
<li>$roles</li> |
<li>$roles</li> |
<li>$helplink</li> |
<li>$helplink</li> |
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li> |
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li> |
</ol> |
</ol> |
<ul id="LC_TabMainMenuContent"> |
<ul id="LC_secondary_menu"> |
<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li> |
<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li> |
$reloadlink |
$reloadlink |
$navmaps |
$navmaps |
Line 362 sub registerurl {
|
Line 496 sub registerurl {
|
(!&Apache::lonnet::is_on_map( |
(!&Apache::lonnet::is_on_map( |
&unescape($env{'request.noversionuri'})))) && |
&unescape($env{'request.noversionuri'})))) && |
(!$forcereg))) { |
(!$forcereg))) { |
return $result. |
return |
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title; |
$result |
|
.'<script type="text/javascript">'."\n" |
|
.'// <![CDATA['."\n" |
|
.'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n" |
|
.'// ]]>'."\n" |
|
.'</script>' |
|
.$force_title; |
} |
} |
# Graphical display after login only |
# Graphical display after login only |
if ($env{'request.registered'} && !$forcereg) { return ''; } |
if ($env{'request.registered'} && !$forcereg) { return ''; } |
Line 389 sub innerregister {
|
Line 529 sub innerregister {
|
my $reopen=&Apache::lonmenu::reopenmenu(); |
my $reopen=&Apache::lonmenu::reopenmenu(); |
|
|
my $newmail=''; |
my $newmail=''; |
my $breadcrumb; |
|
|
|
if (&Apache::lonmsg::newmail() && !$noremote) { |
if (&Apache::lonmsg::newmail() && !$noremote) { |
# We have new mail and remote is up |
# We have new mail and remote is up |
$newmail= 'swmenu.setstatus("you have","messages");'; |
$newmail= 'swmenu.setstatus("you have","messages");'; |
} |
} |
|
|
|
my ($breadcrumb,$separator); |
if ($noremote |
if ($noremote |
&& ($env{'request.symb'}) |
&& ($env{'request.symb'}) |
&& ($env{'request.course.id'})) { |
&& ($env{'request.course.id'})) { |
Line 404 sub innerregister {
|
Line 545 sub innerregister {
|
|
|
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", |
my @crumbs = ({text => "Course Contents", |
href => "Javascript:gonav('/adm/navmaps')"}, |
href => "Javascript:gonav('/adm/navmaps')"}); |
{text => '...', |
|
no_mt => 1}); |
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
|
push(@crumbs, {text => '...', |
|
no_mt => 1}); |
|
} |
|
|
push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle |
push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle |
&& $maptitle ne 'default.sequence' |
&& $maptitle ne 'default.sequence' |
Line 415 sub innerregister {
|
Line 559 sub innerregister {
|
|
|
push @crumbs, {text => $restitle, no_mt => 1} if $restitle; |
push @crumbs, {text => $restitle, no_mt => 1} if $restitle; |
|
|
Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
$breadcrumb .= Apache::lonhtmlcommon::breadcrumbs(undef,undef,0); |
$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0); |
|
unless (($env{'request.state'} eq 'edit') || ($newmail) || |
|
($env{'request.state'} eq 'construct') || |
|
($env{'form.register'})) { |
|
$separator = &Apache::loncommon::head_subbox(); |
|
} |
# |
# |
} |
} |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
Line 428 sub innerregister {
|
Line 577 sub innerregister {
|
my $tableend = ( $noremote ? '</table>' : ''); |
my $tableend = ( $noremote ? '</table>' : ''); |
# ============================================================================= |
# ============================================================================= |
# ============================ 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)) { |
# -- 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 615 if(length($annotation) > 0){
|
Line 764 if(length($annotation) > 0){
|
$menuitems.="&anno-[_1]&tations[_1]&annotate()&"; |
$menuitems.="&anno-[_1]&tations[_1]&annotate()&"; |
$menuitems.="Make notes and annotations about this resource&&1\n"; |
$menuitems.="Make notes and annotations about this resource&&1\n"; |
|
|
|
unless ($noremote) { |
|
my $showreqcrs = &check_for_rcrs(); |
|
if ($showreqcrs) { |
|
$menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]". |
|
"&go('/adm/requestcourse')&Course requests\n"; |
|
} |
|
} |
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'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) { |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata |
s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata |
ENDREALRES |
ENDREALRES |
Line 699 $tablestart
|
Line 855 $tablestart
|
$inlinebuttons |
$inlinebuttons |
$tableend |
$tableend |
$newmail |
$newmail |
|
$separator |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
Line 716 ENDREGTEXT
|
Line 873 ENDREGTEXT
|
$result = (<<ENDREGTHIS); |
$result = (<<ENDREGTHIS); |
|
|
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
var swmenu=null; |
var swmenu=null; |
|
|
Line 751 var swmenu=null;
|
Line 909 var swmenu=null;
|
} |
} |
|
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
|
// ]]> |
</script> |
</script> |
ENDREGTHIS |
ENDREGTHIS |
} |
} |
Line 766 ENDDONOTREGTEXT
|
Line 925 ENDDONOTREGTEXT
|
$result = (<<ENDDONOTREGTHIS); |
$result = (<<ENDDONOTREGTHIS); |
|
|
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
var swmenu=null; |
var swmenu=null; |
|
|
Line 790 var swmenu=null;
|
Line 950 var swmenu=null;
|
} |
} |
|
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
|
// ]]> |
</script> |
</script> |
ENDDONOTREGTHIS |
ENDDONOTREGTHIS |
} |
} |
Line 860 sub startupremote {
|
Line 1021 sub startupremote {
|
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); |
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); |
return(<<ENDREMOTESTARTUP); |
return(<<ENDREMOTESTARTUP); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
var timestart; |
var timestart; |
function wheelswitch() { |
function wheelswitch() { |
if (typeof(document.wheel) != 'undefined') { |
if (typeof(document.wheel) != 'undefined') { |
Line 910 function main() {
|
Line 1072 function main() {
|
wait(); |
wait(); |
} |
} |
|
|
|
// ]]> |
</script> |
</script> |
ENDREMOTESTARTUP |
ENDREMOTESTARTUP |
} |
} |
Line 917 ENDREMOTESTARTUP
|
Line 1080 ENDREMOTESTARTUP
|
sub setflags() { |
sub setflags() { |
return(<<ENDSETFLAGS); |
return(<<ENDSETFLAGS); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
menuloaded=0; |
menuloaded=0; |
tim=0; |
tim=0; |
|
// ]]> |
</script> |
</script> |
ENDSETFLAGS |
ENDSETFLAGS |
} |
} |
Line 927 sub maincall() {
|
Line 1092 sub maincall() {
|
if ($env{'environment.remote'} eq 'off') { return ''; } |
if ($env{'environment.remote'} eq 'off') { return ''; } |
return(<<ENDMAINCALL); |
return(<<ENDMAINCALL); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
main(); |
main(); |
|
// ]]> |
</script> |
</script> |
ENDMAINCALL |
ENDMAINCALL |
} |
} |
Line 969 sub reopenmenu {
|
Line 1136 sub reopenmenu {
|
sub open { |
sub open { |
my $returnval=''; |
my $returnval=''; |
if ($env{'environment.remote'} eq 'off') { |
if ($env{'environment.remote'} eq 'off') { |
return '<script type="text/javascript">self.name="loncapaclient";</script>'; |
return |
|
'<script type="text/javascript">'."\n" |
|
.'// <![CDATA['."\n" |
|
.'self.name="loncapaclient";'."\n" |
|
.'// ]]>'."\n" |
|
.'</script>'; |
} |
} |
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
|
|
Line 982 sub open {
|
Line 1154 sub open {
|
#} |
#} |
#ENDRESIZE |
#ENDRESIZE |
# } |
# } |
$returnval.=(<<ENDOPEN); |
$returnval=(<<ENDOPEN); |
|
// <![CDATA[ |
window.status='Opening LON-CAPA Remote Control'; |
window.status='Opening LON-CAPA Remote Control'; |
var menu=window.open("/res/adm/pages/menu.html?inhibitmenu=yes","$menuname", |
var menu=window.open("/res/adm/pages/menu.html?inhibitmenu=yes","$menuname", |
"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
self.name='loncapaclient'; |
self.name='loncapaclient'; |
|
// ]]> |
ENDOPEN |
ENDOPEN |
return '<script type="text/javascript">'.$returnval.'</script>'; |
return '<script type="text/javascript">'.$returnval.'</script>'; |
} |
} |
Line 997 ENDOPEN
|
Line 1171 ENDOPEN
|
sub clear { |
sub clear { |
my ($row,$col)=@_; |
my ($row,$col)=@_; |
unless ($env{'environment.remote'} eq 'off') { |
unless ($env{'environment.remote'} eq 'off') { |
|
if (($row<1) || ($row>13)) { return ''; } |
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 1022 sub switch {
|
Line 1197 sub switch {
|
$category_members{$cat}.=':'.$idx; |
$category_members{$cat}.=':'.$idx; |
|
|
unless ($env{'environment.remote'} eq 'off') { |
unless ($env{'environment.remote'} eq 'off') { |
|
if (($row<1) || ($row>13)) { return ''; } |
# 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");); |
Line 1095 sub openmenu {
|
Line 1271 sub openmenu {
|
sub inlinemenu { |
sub inlinemenu { |
undef(@inlineremote); |
undef(@inlineremote); |
undef(%category_members); |
undef(%category_members); |
|
# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control |
&rawconfig(1); |
&rawconfig(1); |
my $output='<table id="LC_mainmenu"><tr>'; |
my $output='<table id="LC_mainmenu"><tr>'; |
for (my $col=1; $col<=2; $col++) { |
for (my $col=1; $col<=2; $col++) { |
Line 1146 sub rawconfig {
|
Line 1323 sub rawconfig {
|
my $show_course=&Apache::loncommon::show_course(); |
my $show_course=&Apache::loncommon::show_course(); |
my $author=$env{'user.author'}; |
my $author=$env{'user.author'}; |
my $crs=''; |
my $crs=''; |
|
my $crstype=''; |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$crs='/'.$env{'request.course.id'}; |
$crs='/'.$env{'request.course.id'}; |
if ($env{'request.course.sec'}) { |
if ($env{'request.course.sec'}) { |
$crs.='_'.$env{'request.course.sec'}; |
$crs.='_'.$env{'request.course.sec'}; |
} |
} |
$crs=~s/\_/\//g; |
$crs=~s/\_/\//g; |
|
$crstype = &Apache::loncommon::course_type(); |
} |
} |
my $pub=($env{'request.state'} eq 'published'); |
my $pub=($env{'request.state'} eq 'published'); |
my $con=($env{'request.state'} eq 'construct'); |
my $con=($env{'request.state'} eq 'construct'); |
Line 1161 sub rawconfig {
|
Line 1340 sub rawconfig {
|
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line); |
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line); |
$prt=~s/\$uname/$uname/g; |
$prt=~s/\$uname/$uname/g; |
$prt=~s/\$udom/$udom/g; |
$prt=~s/\$udom/$udom/g; |
$prt=~s/\$crs/$crs/g; |
if ($prt =~ /\$crs/) { |
|
next unless ($env{'request.course.id'}); |
|
next if ($crstype eq 'Community'); |
|
$prt=~s/\$crs/$crs/g; |
|
} elsif ($prt =~ /\$cmty/) { |
|
next unless ($env{'request.course.id'}); |
|
next if ($crstype ne 'Community'); |
|
$prt=~s/\$cmty/$crs/g; |
|
} |
$prt=~s/\$requested_domain/$requested_domain/g; |
$prt=~s/\$requested_domain/$requested_domain/g; |
if ($category_names{$cat}!~/\w/) { $cat='oth'; } |
if ($category_names{$cat}!~/\w/) { $cat='oth'; } |
my $type = &Apache::loncommon::course_type(); |
|
# |
|
# I don't think we support this |
|
# |
|
# if ($type eq 'Group') { |
|
# $desc = &convert_menu_function($desc,$type); |
|
# } |
|
if ($pro eq 'clear') { |
if ($pro eq 'clear') { |
$output.=&clear($row,$col); |
$output.=&clear($row,$col); |
} elsif ($pro eq 'any') { |
} elsif ($pro eq 'any') { |
Line 1197 sub rawconfig {
|
Line 1377 sub rawconfig {
|
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat); |
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat); |
} |
} |
} elsif (($pro=~/^p(\w+)/) && ($prt)) { |
} elsif (($pro=~/^p(\w+)/) && ($prt)) { |
if (&Apache::lonnet::allowed($1,$prt)) { |
my $priv = $1; |
|
if ($priv =~ /^mdc(Course|Community)/) { |
|
if ($crstype eq $1) { |
|
$priv = 'mdc'; |
|
} else { |
|
next; |
|
} |
|
} |
|
if (&Apache::lonnet::allowed($priv,$prt)) { |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
} |
} |
} elsif ($pro eq 'course') { |
} elsif ($pro eq 'course') { |
if ($env{'request.course.fn'}) { |
if (($env{'request.course.fn'}) && ($crstype ne 'Community')) { |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
} |
} |
|
} elsif ($pro eq 'community') { |
|
if (($env{'request.course.fn'}) && ($crstype eq 'Community')) { |
|
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
|
} |
} elsif ($pro =~ /^courseenv_(.*)$/) { |
} elsif ($pro =~ /^courseenv_(.*)$/) { |
my $key = $1; |
my $key = $1; |
if ($env{'course.'.$env{'request.course.id'}.'.'.$key}) { |
if (($env{'course.'.$env{'request.course.id'}.'.'.$key}) && |
|
($crstype ne 'Community')) { |
|
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
|
} |
|
} elsif ($pro =~ /^communityenv_(.*)$/) { |
|
my $key = $1; |
|
if (($env{'course.'.$env{'request.course.id'}.'.'.$key}) && |
|
($crstype eq 'Community')) { |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
} |
} |
} elsif ($pro =~ /^course_(.*)$/) { |
} elsif ($pro =~ /^course_(.*)$/) { |
# Check for permissions inside of a course |
# Check for permissions inside of a course |
if (($env{'request.course.id'}) && |
if (($env{'request.course.id'}) && ($crstype ne 'Community') && |
(&Apache::lonnet::allowed($1,$env{'request.course.id'}. |
(&Apache::lonnet::allowed($1,$env{'request.course.id'}. |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
)) { |
)) { |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
} |
} |
|
} elsif ($pro =~ /^community_(.*)$/) { |
|
# Check for permissions inside of a community |
|
if (($env{'request.course.id'}) && ($crstype eq 'Community') && |
|
(&Apache::lonnet::allowed($1,$env{'request.course.id'}. |
|
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
|
)) { |
|
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
|
} |
} elsif ($pro eq 'author') { |
} elsif ($pro eq 'author') { |
if ($author) { |
if ($author) { |
if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) || |
if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) || |
Line 1249 sub rawconfig {
|
Line 1456 sub rawconfig {
|
$output.=&clear($row,$col); |
$output.=&clear($row,$col); |
next; |
next; |
} |
} |
} elsif ($prt eq 'reqcrs') { |
} elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) { |
my $showreqcrs = 0; |
if (($prt eq 'reqcrsnsc') && ($show_course)) { |
foreach my $type ('official','unofficial') { |
next; |
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
} |
$env{'user.domain'}, |
if (($prt eq 'reqcrsshc') && (!$show_course)) { |
$type,undef,'requestcourses')) { |
next; |
$showreqcrs = 1; |
|
last; |
|
} |
|
} |
} |
|
my $showreqcrs = &check_for_rcrs(); |
if (!$showreqcrs) { |
if (!$showreqcrs) { |
$output.=&clear($row,$col); |
$output.=&clear($row,$col); |
next; |
next; |
Line 1279 sub rawconfig {
|
Line 1484 sub rawconfig {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub check_for_rcrs { |
|
my $showreqcrs = 0; |
|
my @reqtypes = ('official','unofficial','community'); |
|
foreach my $type (@reqtypes) { |
|
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'}, |
|
$type,undef,'requestcourses')) { |
|
$showreqcrs = 1; |
|
last; |
|
} |
|
} |
|
if (!$showreqcrs) { |
|
foreach my $type (@reqtypes) { |
|
if ($env{'environment.reqcrsotherdom.'.$type} ne '') { |
|
$showreqcrs = 1; |
|
last; |
|
} |
|
} |
|
} |
|
return $showreqcrs; |
|
} |
|
|
# ======================================================================= Close |
# ======================================================================= Close |
|
|
sub close { |
sub close { |
Line 1286 sub close {
|
Line 1513 sub close {
|
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
return(<<ENDCLOSE); |
return(<<ENDCLOSE); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
window.status='Accessing Remote Control'; |
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"); |
Line 1295 menu.autologout=0;
|
Line 1523 menu.autologout=0;
|
window.status='Closing Remote Control'; |
window.status='Closing Remote Control'; |
menu.close(); |
menu.close(); |
window.status='Done.'; |
window.status='Done.'; |
|
// ]]> |
</script> |
</script> |
ENDCLOSE |
ENDCLOSE |
} |
} |
Line 1329 sub utilityfunctions {
|
Line 1558 sub utilityfunctions {
|
return ''; } |
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])); |
|
if ($currenturl =~ m{^/adm/wrapper/ext/}) { |
|
if ($env{'request.external.querystring'}) { |
|
$currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'}; |
|
} |
|
} |
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl)); |
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl)); |
|
|
my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
Line 1370 function go(url) {
|
Line 1604 function go(url) {
|
} |
} |
} |
} |
|
|
|
function gotop(url) { |
|
if (url!='' && url!= null) { |
|
top.location.href = url; |
|
} |
|
} |
|
|
function gopost(url,postdata) { |
function gopost(url,postdata) { |
if (url!='') { |
if (url!='') { |
this.document.server.action=url; |
this.document.server.action=url; |
Line 1446 function catalog_info() {
|
Line 1686 function catalog_info() {
|
} |
} |
|
|
function chat_win() { |
function chat_win() { |
lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no'); |
lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no'); |
} |
} |
|
|
function group_chat(group) { |
function group_chat(group) { |
Line 1540 sub get_nav_status {
|
Line 1780 sub get_nav_status {
|
return $navstatus; |
return $navstatus; |
} |
} |
|
|
#FIXME this needs to move into mydesk.tab and the other locations |
|
# the text is generated |
|
# |
|
# We currently do not support this anyway. |
|
# |
|
#sub convert_menu_function { |
|
# my ($rolename,$type) = @_; |
|
# if ($type eq 'Group') { |
|
# $rolename =~ s/student/member/g; |
|
# $rolename =~ s/group/team/g; |
|
# $rolename =~ s/course/group/g; |
|
# $rolename =~ s/Course/Group/g; |
|
# } |
|
# return $rolename; |
|
#} |
|
|
|
sub hidden_button_check { |
sub hidden_button_check { |
my $hidden; |
my $hidden; |
if ($env{'request.course.id'} eq '') { |
if ($env{'request.course.id'} eq '') { |
Line 1570 sub hidden_button_check {
|
Line 1794 sub hidden_button_check {
|
|
|
sub roles_selector { |
sub roles_selector { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
|
my $crstype = &Apache::loncommon::course_type(); |
my $now = time; |
my $now = time; |
my (%courseroles,%seccount); |
my (%courseroles,%seccount); |
my $is_cc; |
my $is_cc; |
my $role_selector; |
my $role_selector; |
if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) { |
my $ccrole; |
my ($start,$end) = split(/\./,$env{'user.role.cc./'.$cdom.'/'.$cnum}); |
if ($crstype eq 'Community') { |
|
$ccrole = 'co'; |
|
} else { |
|
$ccrole = 'cc'; |
|
} |
|
if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) { |
|
my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}); |
|
|
if ((($start) && ($start<0)) || |
if ((($start) && ($start<0)) || |
(($end) && ($end<$now)) || |
(($end) && ($end<$now)) || |
Line 1619 sub roles_selector {
|
Line 1850 sub roles_selector {
|
} |
} |
} |
} |
} |
} |
my @roles_order = ('cc','in','ta','ep','ad','st'); |
my $switchtext; |
|
if ($crstype eq 'Community') { |
|
$switchtext = &mt('Switch community role to...') |
|
} else { |
|
$switchtext = &mt('Switch course role to...') |
|
} |
|
my @roles_order = ($ccrole,'in','ta','ep','ad','st'); |
if (keys(%courseroles) > 1) { |
if (keys(%courseroles) > 1) { |
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles); |
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles); |
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles"> |
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles"> |
<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">'; |
<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">'; |
$role_selector .= '<option value="">'.&mt('Switch course role to...').'</option>'; |
$role_selector .= '<option value="">'.$switchtext.'</option>'; |
foreach my $role (@roles_order) { |
foreach my $role (@roles_order) { |
if (defined($courseroles{$role})) { |
if (defined($courseroles{$role})) { |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role,$crstype).'</option>'; |
} |
} |
} |
} |
foreach my $role (sort(keys(%courseroles))) { |
foreach my $role (sort(keys(%courseroles))) { |
Line 1637 sub roles_selector {
|
Line 1874 sub roles_selector {
|
} |
} |
$role_selector .= '</select>'."\n". |
$role_selector .= '</select>'."\n". |
'<input type="hidden" name="destinationurl" value="'. |
'<input type="hidden" name="destinationurl" value="'. |
$ENV{'REQUEST_URI'}.'" />'."\n". |
&HTML::Entities::encode($ENV{'REQUEST_URI'}).'" />'."\n". |
'<input type="hidden" name="gotorole" value="1" />'."\n". |
'<input type="hidden" name="gotorole" value="1" />'."\n". |
'<input type="hidden" name="selectrole" value="" />'."\n". |
'<input type="hidden" name="selectrole" value="" />'."\n". |
'<input type="hidden" name="switch" value="1" />'."\n". |
'<input type="hidden" name="switch" value="1" />'."\n". |
Line 1815 END
|
Line 2052 END
|
|
|
BEGIN { |
BEGIN { |
if (! defined($readdesk)) { |
if (! defined($readdesk)) { |
{ |
{ |
my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab'; |
my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab'; |
if ( CORE::open( my $config,"<$tabfile") ) { |
if ( CORE::open( my $config,"<$tabfile") ) { |
while (my $configline=<$config>) { |
while (my $configline=<$config>) { |
$configline=(split(/\#/,$configline))[0]; |
$configline=(split(/\#/,$configline))[0]; |
$configline=~s/^\s+//; |
$configline=~s/^\s+//; |
chomp($configline); |
chomp($configline); |
if ($configline=~/^cat\:/) { |
if ($configline=~/^cat\:/) { |
my @entries=split(/\:/,$configline); |
my @entries=split(/\:/,$configline); |
$category_positions{$entries[2]}=$entries[1]; |
$category_positions{$entries[2]}=$entries[1]; |
$category_names{$entries[2]}=$entries[3]; |
$category_names{$entries[2]}=$entries[3]; |
} elsif ($configline) { |
} elsif ($configline=~/^prim\:/) { |
push(@desklines,$configline); |
my @entries = (split(/\:/, $configline))[1..5]; |
} |
push @primary_menu, \@entries; |
} |
} elsif ($configline=~/^scnd\:/) { |
CORE::close($config); |
my @entries = (split(/\:/, $configline))[1..5]; |
} |
push @secondary_menu, \@entries; |
} |
} elsif ($configline) { |
$readdesk='done'; |
push(@desklines,$configline); |
|
} |
|
} |
|
CORE::close($config); |
|
} |
|
} |
|
$readdesk='done'; |
} |
} |
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|