version 1.65, 2003/04/18 17:51:32
|
version 1.76, 2003/06/06 02:24:49
|
Line 164 sub registerurl {
|
Line 164 sub registerurl {
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target = shift; |
my $target = shift; |
my $result = ''; |
my $result = ''; |
|
if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; } |
|
my $force_title=''; |
|
if ($ENV{'request.state'} eq 'construct') { |
|
$force_title=&Apache::lonxml::display_title(); |
|
} |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
$result .="<script type=\"text/javascript\">\n". |
$result .="<script type=\"text/javascript\">\n". |
"if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n". |
"if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n". |
Line 176 sub registerurl {
|
Line 180 sub registerurl {
|
((($ENV{'request.publicaccess'}) || |
((($ENV{'request.publicaccess'}) || |
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
(!$forcereg))) { |
(!$forcereg))) { |
return $result. |
return $result. |
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'; |
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title; |
} |
} |
# Graphical display after login only |
# Graphical display after login only |
if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
$result.=&innerregister($forcereg,$target); |
$result.=&innerregister($forcereg,$target); |
return $result; |
return $result.$force_title; |
} |
} |
|
|
# =========== This gets called in order to register a URL, both with the Remote |
# =========== This gets called in order to register a URL, both with the Remote |
Line 192 sub innerregister {
|
Line 196 sub innerregister {
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target = shift; |
my $target = shift; |
my $result = ''; |
my $result = ''; |
|
if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; } |
|
|
$Apache::lonxml::registered=1; |
$Apache::lonxml::registered=1; |
|
|
Line 394 var swmenu=null;
|
Line 399 var swmenu=null;
|
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ |
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ |
'clearbut(9,1);clearbut(9,2);clearbut(9,3);clearbut(6,3);clearbut(6,1)', |
'clearbut(9,1);clearbut(9,2);clearbut(9,3);clearbut(6,3);clearbut(6,1)', |
2000); |
2000); |
|
|
} |
} |
|
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
Line 446 ENDDONOTREGTHIS
|
Line 450 ENDDONOTREGTHIS
|
} |
} |
|
|
sub loadevents() { |
sub loadevents() { |
|
if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; } |
return 'LONCAPAreg();'; |
return 'LONCAPAreg();'; |
} |
} |
|
|
sub unloadevents() { |
sub unloadevents() { |
|
if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; } |
return 'LONCAPAstale();'; |
return 'LONCAPAstale();'; |
} |
} |
|
|
Line 562 ENDRESIZE
|
Line 568 ENDRESIZE
|
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","$menuname", |
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
|
self.name='loncapaclient'; |
ENDOPEN |
ENDOPEN |
return '<script>'.$returnval.'</script>'; |
return '<script>'.$returnval.'</script>'; |
} |
} |