version 1.267, 2009/05/19 14:05:19
|
version 1.273, 2009/07/09 19:28:36
|
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 |
=head1 NAME |
|
|
Line 230 sub menubuttons {
|
Line 225 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); |
<table id="LC_top_nav"> |
<ol class="LC_smallMenu LC_right"> |
<tr> |
<li>$logo</li> |
<td>$logo</td> |
<li><a href="/adm/roles" target="_top">$lt{'login'}</a></li> |
<td></td> |
</ol> |
<td class="LC_top_nav_login"> |
<hr /> |
<a href="/adm/roles" target="_top">$lt{'login'}</a> |
|
</td> |
|
</tr> |
|
</table> |
|
ENDINLINEMENU |
ENDINLINEMENU |
} |
} |
$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>'; |
$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>'; |
Line 350 sub registerurl {
|
Line 341 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 398 sub innerregister {
|
Line 388 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 => mt("Course Content"), href => "Javascript:gonav('/adm/navmaps')"}, |
my @crumbs = ({text => "Course Content", |
{text => '...'}); |
href => "Javascript:gonav('/adm/navmaps')"}, |
push @crumbs, {text => $maptitle} if ($maptitle |
{text => '...', |
&& $maptitle ne 'default.sequence' |
no_mt => 1}); |
&& $maptitle ne $coursetitle); |
|
push @crumbs, {text => $restitle} if $restitle; |
push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle |
|
&& $maptitle ne 'default.sequence' |
|
&& $maptitle ne $coursetitle); |
|
|
|
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); |
Line 729 ENDREGTHIS
|
Line 724 ENDREGTHIS
|
} else { |
} else { |
# ========================================== This can or will not be registered |
# ========================================== This can or will not be registered |
if ($noremote) { |
if ($noremote) { |
# Not registered, textual |
# Not registered |
$result= (<<ENDDONOTREGTEXT); |
$result= (<<ENDDONOTREGTEXT); |
ENDDONOTREGTEXT |
ENDDONOTREGTEXT |
} else { |
} else { |
Line 820 sub unloadevents() {
|
Line 815 sub unloadevents() {
|
|
|
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 896 ENDSETFLAGS
|
Line 890 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 908 ENDMAINCALL
|
Line 901 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('[_1]Continue[_2] on in Inline Menu mode' |
my $link=&mt('[_1]Continue[_2] on in Inline Menu mode' |
Line 933 sub get_menu_name {
|
Line 925 sub get_menu_name {
|
|
|
|
|
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);'); |
Line 943 sub reopenmenu {
|
Line 934 sub reopenmenu {
|
|
|
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 960 sub open {
|
Line 950 sub open {
|
# } |
# } |
$returnval.=(<<ENDOPEN); |
$returnval.=(<<ENDOPEN); |
window.status='Opening LON-CAPA Remote Control'; |
window.status='Opening LON-CAPA Remote Control'; |
var menu=window.open("/res/adm/pages/menu.html","$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 |
Line 972 ENDOPEN
|
Line 962 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 998 sub switch {
|
Line 987 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 1077 sub secondlevel {
|
Line 1053 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 1094 sub inlinemenu {
|
Line 1069 sub inlinemenu {
|
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><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.='<div class="LC_ContentBoxSpecial">'; |
$output.='<div class="LC_Box">'; |
$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>'; |
$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>'; |
$output.='<table>'; |
$output.='<table>'; |
my %active=(); |
my %active=(); |
Line 1119 sub inlinemenu {
|
Line 1094 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 1253 sub rawconfig {
|
Line 1227 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); |
} |
} |
} |
} |
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 1267 sub rawconfig {
|
Line 1240 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 1310 NAVCONTROL
|
Line 1282 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 1713 sub jump_to_role {
|
Line 1687 sub jump_to_role {
|
' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n"; |
' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n"; |
} |
} |
} |
} |
my $output = <<"END"; |
return <<"END"; |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
//<![CDATA[ |
function adhocRole(roleitem) { |
function adhocRole(roleitem) { |
$js |
$js |
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value; |
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value; |
Line 1785 function retrieveIndex(item) {
|
Line 1760 function retrieveIndex(item) {
|
} |
} |
return -1; |
return -1; |
} |
} |
|
// ]]> |
|
|
</script> |
</script> |
END |
END |
return $output; |
|
} |
} |
|
|
|
|