loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.413, 2006/07/03 00:11:53	version 1.414, 2006/07/03 00:44:21
Line 3513 sub headtag {	Line 3513 sub headtag {
}	}

if (ref($args->{'redirect'})) {	if (ref($args->{'redirect'})) {
my ($time,$url) = @{$args->{'redirect'}};	my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};
$url = &Apache::lonenc::check_encrypt($url);	$url = &Apache::lonenc::check_encrypt($url);
$env{'internal.head.redirect'} = $url;	if (!$inhibit_continue) {
	$env{'internal.head.redirect'} = $url;
	}
$result.=<<ADDMETA	$result.=<<ADDMETA
<meta http-equiv="pragma" content="no-cache" />	<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="Refresh" content="$time; url=$url" />	<meta http-equiv="Refresh" content="$time; url=$url" />
Line 3525 ADDMETA	Line 3527 ADDMETA
$title = 'The LearningOnline Network with CAPA';	$title = 'The LearningOnline Network with CAPA';
}	}

$result .= '<title> LON-CAPA '.&mt($title).'</title>'.$head_extra	$result .= '<title> LON-CAPA '.&mt($title).'</title>'
.'<link rel="stylesheet" type="text/css" href="'.$url.'" />';	.'<link rel="stylesheet" type="text/css" href="'.$url.'" />'
	.$head_extra;
return $result;	return $result;
}	}