loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.82 and 1.86

version 1.82, 2003/08/06 17:23:49	version 1.86, 2003/08/28 16:43:12
Line 178 sub registerurl {	Line 178 sub registerurl {
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off') \|\|	($ENV{'environment.remote'} eq 'off') \|\|
((($ENV{'request.publicaccess'}) \|\|	((($ENV{'request.publicaccess'}) \|\|
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&	(!&Apache::lonnet::is_on_map(
	&Apache::lonnet::unescape($ENV{'REQUEST_URI'})))) &&
(!$forcereg))) {	(!$forcereg))) {
return $result.	return $result.
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;	'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;
Line 376 $form	Line 377 $form
ENDREGTEXT	ENDREGTEXT
# Registered, graphical output	# Registered, graphical output
} else {	} else {
	my $requri=(split(/\?/,$ENV{'REQUEST_URI'}))[0];
	$requri=&Apache::lonnet::unescape($requri);
$result = (<<ENDREGTHIS);	$result = (<<ENDREGTHIS);

<script language="JavaScript">	<script language="JavaScript">
Line 388 var swmenu=null;	Line 391 var swmenu=null;
$timesync	$timesync
$newmail	$newmail
$buttons	$buttons
swmenu.currentURL=window.location.pathname;	swmenu.currentURL="$requri";
swmenu.reloadURL=window.location.pathname+window.location.search;	swmenu.reloadURL=swmenu.currentURL+window.location.search;
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;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.82
changed lines
	Added in v.1.86