loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.326, 2006/04/06 20:52:58	version 1.328, 2006/04/09 16:43:43
Line 58 use strict;	Line 58 use strict;
use Apache::lonnet;	use Apache::lonnet;
use GDBM_File;	use GDBM_File;
use POSIX qw(strftime mktime);	use POSIX qw(strftime mktime);
use Apache::Constants qw(:common :http :methods);
use Apache::lonmenu();	use Apache::lonmenu();
use Apache::lonlocal;	use Apache::lonlocal;
use HTML::Entities;	use HTML::Entities;
Line 3202 sub simple_error_page {	Line 3201 sub simple_error_page {
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
if (ref($r)) {	if (ref($r)) {
$r->print($page);	$r->print($page);
return OK;	return;
}	}
return $page;	return $page;
}	}
Line 3690 sub get_posted_cgi {	Line 3689 sub get_posted_cgi {
}	}
}	}
}	}
	#
	# Digested POSTed values
	#
	# Remember the way this was originally done (GET or POST)
	#
$env{'request.method'}=$ENV{'REQUEST_METHOD'};	$env{'request.method'}=$ENV{'REQUEST_METHOD'};
$r->method_number(M_GET);	#
	# There may also be stuff in the query string
	# Tell subsequent handlers that this was GET, not POST, so they can access query string.
	# Also, unset POSTed content length to cover all tracks.
	#

	# This does not work, because M_GET is not defined (if it's defined, it is just 0).
	# Commenting out for now ... not sure if harm is done.
	# $r->method_number(M_GET);

$r->method('GET');	$r->method('GET');
$r->headers_in->unset('Content-length');	$r->headers_in->unset('Content-length');
}	}