version 1.109, 2004/07/02 07:58:01
|
version 1.113, 2004/08/13 20:12:11
|
Line 68 sub menubuttons {
|
Line 68 sub menubuttons {
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target =shift; |
my $target =shift; |
my $registration=shift; |
my $registration=shift; |
|
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['inhibitmenu']); |
|
if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; } |
|
|
my $navmaps=''; |
my $navmaps=''; |
my $reloadlink=''; |
my $reloadlink=''; |
my $escurl=&Apache::lonnet::escape($ENV{'request.noversionuri'}); |
my $escurl=&Apache::lonnet::escape($ENV{'request.noversionuri'}); |
Line 339 sub innerregister {
|
Line 344 sub innerregister {
|
} |
} |
} |
} |
# Finally, turn the button on or off |
# Finally, turn the button on or off |
&Apache::lonnet::logthis("cfile is $cfile"); |
|
if ($cfile) { |
if ($cfile) { |
$editbutton=&switch |
$editbutton=&switch |
('','',6,1,'cstr.gif','edit[_1]','resource[_2]', |
('','',6,1,'cstr.gif','edit[_1]','resource[_2]', |
Line 416 ENDREGTEXT
|
Line 420 ENDREGTEXT
|
} else { |
} else { |
my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0]; |
my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0]; |
$requri=&Apache::lonnet::unescape($requri); |
$requri=&Apache::lonnet::unescape($requri); |
|
my $navstatus=&get_nav_status(); |
$result = (<<ENDREGTHIS); |
$result = (<<ENDREGTHIS); |
|
|
<script language="JavaScript"> |
<script language="JavaScript"> |
Line 433 var swmenu=null;
|
Line 438 var swmenu=null;
|
swmenu.currentSymb="$ENV{'request.symb'}"; |
swmenu.currentSymb="$ENV{'request.symb'}"; |
swmenu.reloadSymb="$ENV{'request.symb'}"; |
swmenu.reloadSymb="$ENV{'request.symb'}"; |
swmenu.currentStale=0; |
swmenu.currentStale=0; |
|
$navstatus |
$hwkadd |
$hwkadd |
$editbutton |
$editbutton |
} |
} |
Line 605 sub reopenmenu {
|
Line 611 sub reopenmenu {
|
sub open { |
sub open { |
my $returnval=''; |
my $returnval=''; |
if (($ENV{'browser.interface'} eq 'textual') || |
if (($ENV{'browser.interface'} eq 'textual') || |
($ENV{'environment.remote'} eq 'off')) { return ''; } |
($ENV{'environment.remote'} eq 'off')) { |
|
return '<script type="text/javascript">self.name="loncapaclient";</script>'; |
|
} |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
unless (shift eq 'unix') { |
unless (shift eq 'unix') { |
# resizing does not work on linux because of virtual desktop sizes |
# resizing does not work on linux because of virtual desktop sizes |
Line 923 sub serverform {
|
Line 931 sub serverform {
|
</form> |
</form> |
ENDSERVERFORM |
ENDSERVERFORM |
} |
} |
|
|
|
sub get_nav_status { |
|
my $navstatus="swmenu.w_loncapanav_flag="; |
|
if ($ENV{'environment.remotenavmap'} eq 'on') { |
|
$navstatus.="1"; |
|
} else { |
|
$navstatus.="-1"; |
|
} |
|
return $navstatus; |
|
} |
|
|
# ================================================ Handler when called directly |
# ================================================ Handler when called directly |
|
|
|
|