version 1.369.2.16, 2012/08/03 01:37:23
|
version 1.369.2.17, 2012/08/03 17:35:32
|
Line 131 Inputs: 4 - (a) link and (b) target for
|
Line 131 Inputs: 4 - (a) link and (b) target for
|
|
|
This gets called in order to register a URL in the body of the document |
This gets called in order to register a URL 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 clear() |
|
|
=item switch() |
=item switch() |
Line 458 sub create_submenu {
|
Line 478 sub create_submenu {
|
return $menu; |
return $menu; |
} |
} |
|
|
|
sub registerurl { |
|
my ($forcereg) = @_; |
|
my $result = ''; |
|
if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
|
my $force_title=''; |
|
if ($env{'request.state'} eq 'construct') { |
|
$force_title=&Apache::lonxml::display_title(); |
|
} |
|
if (($env{'environment.remote'} eq 'off') || |
|
((($env{'request.publicaccess'}) || |
|
(!&Apache::lonnet::is_on_map( |
|
&unescape($env{'request.noversionuri'})))) && |
|
(!$forcereg))) { |
|
return |
|
$result |
|
.'<script type="text/javascript">'."\n" |
|
.'// <![CDATA['."\n" |
|
.'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n" |
|
.'// ]]>'."\n" |
|
.'</script>' |
|
.$force_title; |
|
} |
|
# Graphical display after login only |
|
if ($env{'request.registered'} && !$forcereg) { return ''; } |
|
$result.=&innerregister($forcereg); |
|
return $result.$force_title; |
|
} |
|
|
sub innerregister { |
sub innerregister { |
my ($forcereg,$bread_crumbs) = @_; |
my ($forcereg,$bread_crumbs) = @_; |
my $const_space = ($env{'request.state'} eq 'construct'); |
my $const_space = ($env{'request.state'} eq 'construct'); |
Line 467 sub innerregister {
|
Line 515 sub innerregister {
|
|
|
$env{'request.registered'} = 1; |
$env{'request.registered'} = 1; |
|
|
|
my $noremote = ($env{'environment.remote'} eq 'off'); |
|
|
undef(@inlineremote); |
undef(@inlineremote); |
|
|
|
my $reopen=&Apache::lonmenu::reopenmenu(); |
|
|
|
my $newmail=''; |
|
|
|
if (&Apache::lonmsg::newmail() && !$noremote) { |
|
# We have new mail and remote is up |
|
$newmail= 'swmenu.setstatus("you have","messages");'; |
|
} |
|
|
my $resurl; |
my $resurl; |
if ( $env{'request.symb'} && $env{'request.course.id'} ) { |
if ( $env{'request.symb'} && $env{'request.course.id'} ) { |
|
|
Line 507 sub innerregister {
|
Line 566 sub innerregister {
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'}); |
&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'}); |
} |
} |
|
my $timesync = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' ); |
# ============================================================================= |
# ============================================================================= |
# ============================ This is for URLs that actually can be registered |
# ============================ This is for URLs that actually can be registered |
return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) |
unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) |
|| $forcereg ); |
|| ($forcereg)) { |
|
unless ($noremote) { |
|
# Not registered, graphical |
|
return (<<ENDDONOTREGTHIS); |
|
|
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
// BEGIN LON-CAPA Internal |
|
var swmenu=null; |
|
|
|
function LONCAPAreg() { |
|
swmenu=$reopen |
|
$timesync |
|
swmenu.currentStale=1; |
|
swmenu.clearbut(2,1); |
|
swmenu.clearbut(2,3); |
|
swmenu.clearbut(8,1); |
|
swmenu.clearbut(8,2); |
|
swmenu.clearbut(8,3); |
|
if (swmenu.currentURL) { |
|
swmenu.switchbutton |
|
(3,1,'reload.gif','return','location','go(currentURL)'); |
|
} else { |
|
swmenu.clearbut(3,1); |
|
} |
|
} |
|
|
|
function LONCAPAstale() { |
|
} |
|
|
|
// END LON-CAPA Internal |
|
// ]]> |
|
</script> |
|
ENDDONOTREGTHIS |
|
|
|
} |
|
return ''; |
|
} |
|
|
# -- 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'}; |
Line 792 ENDMENUITEMS
|
Line 889 ENDMENUITEMS
|
s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1 |
s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1 |
ENDMENUITEMS |
ENDMENUITEMS |
$got_wishlist = 1; |
$got_wishlist = 1; |
} |
} |
} |
} |
} |
} |
my $buttons=''; |
my $buttons=''; |
Line 813 ENDMENUITEMS
|
Line 910 ENDMENUITEMS
|
} |
} |
} |
} |
} |
} |
|
if ($noremote) { |
my $addremote=0; |
my $addremote=0; |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} } |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} } |
if ($addremote) { |
if ($addremote) { |
|
|
&Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
&Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
|
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
'navigation', @inlineremote[21,23]); |
'navigation', @inlineremote[21,23]); |
|
|
|
my $countdown = &countdown_timer(); |
|
if (&hidden_button_check() eq 'yes') { |
|
if ($countdown) { |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown); |
|
} |
|
} else { |
|
my @tools = @inlineremote[93,91,81,82,83]; |
|
if ($countdown) { |
|
unshift(@tools,$countdown); |
|
} |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'tools',@tools); |
|
|
my $countdown = &countdown_timer(); |
#publish button in construction space |
if (&hidden_button_check() eq 'yes') { |
if ($env{'request.state'} eq 'construct'){ |
if ($countdown) { |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown); |
'advtools', $inlineremote[63]); |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'tools', $inlineremote[63]); |
|
} |
|
unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'advtools', @inlineremote[61,71,72,73,74,92]); |
|
} |
|
} |
} |
} |
} else { |
} else { |
my @tools = @inlineremote[93,91,81,82,83]; |
my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
if ($countdown) { |
$requri=&Apache::lonenc::check_encrypt(&unescape($requri)); |
unshift(@tools,$countdown); |
my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
} |
my $navstatus=&get_nav_status(); |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
my $clearcstr; |
'tools',@tools); |
|
|
|
#publish button in construction space |
if ($env{'user.adv'}) { $clearcstr='clearbut(6,1)'; } |
if ($env{'request.state'} eq 'construct'){ |
return <<ENDREGTHIS; |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'advtools', $inlineremote[63]); |
<script type="text/javascript"> |
} else { |
// <![CDATA[ |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
// BEGIN LON-CAPA Internal |
'tools', $inlineremote[63]); |
var swmenu=null; |
} |
|
|
function LONCAPAreg() { |
unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
swmenu=$reopen; |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
swmenu.clearTimeout(swmenu.menucltim); |
'advtools', @inlineremote[61,71,72,73,74,92]); |
$timesync |
} |
$newmail |
|
$buttons |
|
swmenu.currentURL="$requri"; |
|
swmenu.reloadURL=swmenu.currentURL+window.location.search; |
|
swmenu.currentSymb="$cursymb"; |
|
swmenu.reloadSymb="$cursymb"; |
|
swmenu.currentStale=0; |
|
$navstatus |
|
$hwkadd |
|
$editbutton |
|
} |
|
|
|
function LONCAPAstale() { |
|
swmenu=$reopen |
|
swmenu.currentStale=1; |
|
if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) { |
|
swmenu.switchbutton |
|
(3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence'); |
|
} |
|
swmenu.clearbut(7,2); |
|
swmenu.clearbut(7,3); |
|
swmenu.menucltim=swmenu.setTimeout( |
|
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ |
|
'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr', |
|
2000); |
|
} |
|
|
|
// END LON-CAPA Internal |
|
// ]]> |
|
</script> |
|
ENDREGTHIS |
} |
} |
} |
|
|
|
return &Apache::lonhtmlcommon::scripttag('', 'start') |
return &Apache::lonhtmlcommon::scripttag('', 'start') |
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0) |
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0) |
Line 893 sub edit_course_upload {
|
Line 1040 sub edit_course_upload {
|
return $cfile; |
return $cfile; |
} |
} |
|
|
|
sub loadevents() { |
|
if ($env{'request.state'} eq 'construct' || |
|
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
|
return 'LONCAPAreg();'; |
|
} |
|
|
|
sub unloadevents() { |
|
if ($env{'request.state'} eq 'construct' || |
|
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
|
return 'LONCAPAstale();'; |
|
} |
|
|
sub startupremote { |
sub startupremote { |
my ($lowerurl)=@_; |
my ($lowerurl)=@_; |
if ($env{'environment.remote'} eq 'off') { |
unless ($env{'environment.remote'} eq 'on') { |
return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />'); |
return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />'); |
} |
} |
# |
# |
# The Remote actually gets launched! |
# The Remote actually gets launched! |
Line 974 ENDSETFLAGS
|
Line 1133 ENDSETFLAGS
|
} |
} |
|
|
sub maincall() { |
sub maincall() { |
if ($env{'environment.remote'} eq 'off') { return ''; } |
unless ($env{'environment.remote'} eq 'on') { return ''; } |
return(<<ENDMAINCALL); |
return(<<ENDMAINCALL); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
Line 987 ENDMAINCALL
|
Line 1146 ENDMAINCALL
|
sub load_remote_msg { |
sub load_remote_msg { |
my ($lowerurl)=@_; |
my ($lowerurl)=@_; |
|
|
if ($env{'environment.remote'} eq 'off') { return ''; } |
unless ($env{'environment.remote'} eq 'on') { 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 1011 sub get_menu_name {
|
Line 1170 sub get_menu_name {
|
|
|
|
|
sub reopenmenu { |
sub reopenmenu { |
if ($env{'environment.remote'} eq 'off') { return ''; } |
unless ($env{'environment.remote'} eq 'on') { 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 1020 sub reopenmenu {
|
Line 1179 sub reopenmenu {
|
|
|
sub open { |
sub open { |
my $returnval=''; |
my $returnval=''; |
if ($env{'environment.remote'} eq 'off') { |
unless ($env{'environment.remote'} eq 'on') { |
return |
return |
'<script type="text/javascript">'."\n" |
'<script type="text/javascript">'."\n" |
.'// <![CDATA['."\n" |
.'// <![CDATA['."\n" |
Line 1055 ENDOPEN
|
Line 1214 ENDOPEN
|
|
|
sub clear { |
sub clear { |
my ($row,$col)=@_; |
my ($row,$col)=@_; |
$inlineremote[10*$row+$col]=''; |
if ($env{'environment.remote'} eq 'on') { |
return ''; |
if (($row<1) || ($row>13)) { return ''; } |
|
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); |
|
} else { |
|
$inlineremote[10*$row+$col]=''; |
|
return ''; |
|
} |
} |
} |
|
|
# ============================================ Switch a button or create a link |
# ============================================ Switch a button or create a link |
Line 1073 sub switch {
|
Line 1237 sub switch {
|
my $idx=10*$row+$col; |
my $idx=10*$row+$col; |
$category_members{$cat}.=':'.$idx; |
$category_members{$cat}.=':'.$idx; |
|
|
|
if ($env{'environment.remote'} eq 'on') { |
|
if (($row<1) || ($row>13)) { return ''; } |
|
# Remote |
|
$img=~s/\.png$/\.gif/; |
|
return "\n". |
|
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
|
} |
|
|
# Inline Menu |
# Inline Menu |
if ($nobreak==2) { return ''; } |
if ($nobreak==2) { return ''; } |
my $text=$top.' '.$bot; |
my $text=$top.' '.$bot; |
Line 1134 sub secondlevel {
|
Line 1306 sub secondlevel {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub openmenu { |
|
my $menuname = &get_menu_name(); |
|
unless ($env{'environment.remote'} eq 'on') { return ''; } |
|
my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); |
|
return "window.open(".$nothing.",'".$menuname."');"; |
|
} |
|
|
sub inlinemenu { |
sub inlinemenu { |
undef(@inlineremote); |
undef(@inlineremote); |
undef(%category_members); |
undef(%category_members); |
Line 1176 sub rawconfig {
|
Line 1355 sub rawconfig {
|
# |
# |
my $textualoverride=shift; |
my $textualoverride=shift; |
my $output=''; |
my $output=''; |
return '' unless $textualoverride; |
if ($env{'environment.remote'} eq 'on') { |
|
$output.= |
|
"window.status='Opening Remote Control';var swmenu=".&openmenu(). |
|
"\nwindow.status='Configuring Remote Control ';"; |
|
} else { |
|
unless ($textualoverride) { return ''; } |
|
} |
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'}; |
Line 1351 sub rawconfig {
|
Line 1536 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); |
} |
} |
} |
} |
|
if ($env{'environment.remote'} eq 'on') { |
|
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; |
|
if (&Apache::lonmsg::newmail()) { |
|
$output.='swmenu.setstatus("you have","messages");'; |
|
} |
|
} |
return $output; |
return $output; |
} |
} |
|
|
Line 1379 sub check_for_rcrs {
|
Line 1570 sub check_for_rcrs {
|
# ======================================================================= Close |
# ======================================================================= Close |
|
|
sub close { |
sub close { |
if ($env{'environment.remote'} eq 'off') { return ''; } |
unless ($env{'environment.remote'} eq 'on') { return ''; } |
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
return(<<ENDCLOSE); |
return(<<ENDCLOSE); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 1664 sub constspaceform {
|
Line 1855 sub constspaceform {
|
ENDCONSTSPACEFORM |
ENDCONSTSPACEFORM |
} |
} |
|
|
|
sub get_nav_status { |
|
my $navstatus="swmenu.w_loncapanav_flag="; |
|
if ($env{'environment.remotenavmap'} eq 'on') { |
|
$navstatus.="1"; |
|
} else { |
|
$navstatus.="-1"; |
|
} |
|
return $navstatus; |
|
} |
|
|
sub hidden_button_check { |
sub hidden_button_check { |
if ( $env{'request.course.id'} eq '' |
if ( $env{'request.course.id'} eq '' |
|| $env{'request.role.adv'} ) { |
|| $env{'request.role.adv'} ) { |