loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.22, 2001/12/28 19:48:42	version 1.24, 2002/01/30 17:40:39
Line 31	Line 31
# 12/21 Gerd Kortemeyer	# 12/21 Gerd Kortemeyer
# 12/21 Scott Harrison	# 12/21 Scott Harrison
# 12/25,12/28 Gerd Kortemeyer	# 12/25,12/28 Gerd Kortemeyer
	# YEAR=2002
	# 1/4 Gerd Kortemeyer

# Makes a table out of the previous attempts	# Makes a table out of the previous attempts
# Inputs result_from_symbread, user, domain, course_id	# Inputs result_from_symbread, user, domain, course_id
Line 366 sub get_unprocessed_cgi {	Line 368 sub get_unprocessed_cgi {
}	}

sub cacheheader {	sub cacheheader {
	unless ($ENV{'request.method'} eq 'GET') { return ''; }
my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime);	my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime);
my $output .='<meta HTTP-EQUIV="Expires" CONTENT="'.$date.'" />	my $output .='<meta HTTP-EQUIV="Expires" CONTENT="'.$date.'" />
<meta HTTP-EQUIV="Cache-control" CONTENT="no-cache" />	<meta HTTP-EQUIV="Cache-control" CONTENT="no-cache" />
Line 375 sub cacheheader {	Line 378 sub cacheheader {

sub no_cache {	sub no_cache {
my ($r) = @_;	my ($r) = @_;
my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime);	unless ($ENV{'request.method'} eq 'GET') { return ''; }
	#my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime);
$r->no_cache(1);	$r->no_cache(1);
$r->header_out("Pragma" => "no-cache");	$r->header_out("Pragma" => "no-cache");
$r->header_out("Expires" => $date);	#$r->header_out("Expires" => $date);
}	}
1;	1;
__END__;	__END__;