loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.173, 2002/05/23 21:24:06	version 1.174, 2002/05/24 20:51:55
Line 340 sub registerurl {	Line 340 sub registerurl {
$Apache::lonxml::registered=1;	$Apache::lonxml::registered=1;
my $nothing='';	my $nothing='';
if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }	if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }
	my $timesync='menu.clock.setTime(1000*'.time.');';
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {	if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {
my $hwkadd='';	my $hwkadd='';
if ($ENV{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($ENV{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
Line 367 ENDPARM	Line 368 ENDPARM
function LONCAPAreg() {	function LONCAPAreg() {
menu=window.open("$nothing","LONCAPAmenu","",false);	menu=window.open("$nothing","LONCAPAmenu","",false);
menu.clearTimeout(menu.menucltim);	menu.clearTimeout(menu.menucltim);
	$timesync
menu.currentURL=window.location.pathname;	menu.currentURL=window.location.pathname;
menu.currentStale=0;	menu.currentStale=0;
menu.clearbut(3,1);	menu.clearbut(3,1);
Line 418 ENDREGTHIS	Line 420 ENDREGTHIS

function LONCAPAreg() {	function LONCAPAreg() {
menu=window.open("$nothing","LONCAPAmenu","",false);	menu=window.open("$nothing","LONCAPAmenu","",false);
	$timesync
menu.currentStale=1;	menu.currentStale=1;
menu.clearbut(2,1);	menu.clearbut(2,1);
menu.clearbut(2,3);	menu.clearbut(2,3);