loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2006/04/10 21:40:09	version 1.34, 2006/04/13 19:07:11
Line 35 use Apache::Constants qw(:common);	Line 35 use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonacc();

sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;
Line 46 sub handler {	Line 47 sub handler {
}	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']);
if ($r->uri eq '/adm/helpdesk') {	if ($r->uri eq '/adm/helpdesk') {
&Apache::loncommon::get_posted_cgi($r);	&Apache::lonacc::get_posted_cgi($r);
}	}
my $function = $env{'form.function'};	my $function = $env{'form.function'};
my $origurl = &Apache::lonnet::unescape($env{'form.origurl'});	my $origurl = &Apache::lonnet::unescape($env{'form.origurl'});