loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.323, 2006/03/27 19:38:53	version 1.324, 2006/03/29 19:39:55
Line 3007 sub headtag {	Line 3007 sub headtag {
$env{'internal.head.redirect'} = $url;	$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="2; url=$url" />	<meta HTTP-EQUIV="Refresh" CONTENT="$time; url=$url" />
ADDMETA	ADDMETA
}	}
if (!defined($title)) {	if (!defined($title)) {
Line 3015 ADDMETA	Line 3015 ADDMETA
}	}

$result .= '<title> LON-CAPA '.&mt($title).'</title>'.$head_extra;	$result .= '<title> LON-CAPA '.&mt($title).'</title>'.$head_extra;

return $result;	return $result;
}	}

Line 3094 sub start_page {	Line 3093 sub start_page {
my %head_args;	my %head_args;
foreach my $arg ('redirect','force_register') {	foreach my $arg ('redirect','force_register') {
if (defined($args->{$arg})) {	if (defined($args->{$arg})) {
$head_args{$arg} = $args->{$args};	$head_args{$arg} = $args->{$arg};
}	}
}	}