loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2004/11/04 00:57:25	version 1.12, 2004/12/18 22:21:52
Line 17 sub handler {	Line 17 sub handler {
if ($r->header_only) {	if ($r->header_only) {
return OK;	return OK;
}	}
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']);
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action','origurl','function']);	if ($r->uri eq '/adm/helpdesk') {
my $action = $ENV{'form.action'};	&Apache::loncommon::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'});
	my $action = $ENV{'form.action'};

if ($action eq 'process') {	if ($action eq 'process') {
&print_request_receipt($r,$origurl,$function);	&print_request_receipt($r,$origurl,$function);
} else {	} else {
Line 765 END	Line 768 END

sub retrieve_instcodes {	sub retrieve_instcodes {
my ($coursecodes,$codedom,$totcodes) = @_;	my ($coursecodes,$codedom,$totcodes) = @_;
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1);	my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.');
foreach my $course (keys %courses) {	foreach my $course (keys %courses) {
if ($courses{$course} =~ m/^[^:]*:([^:]+)$/) {	if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
$$coursecodes{$course} = &Apache::lonnet::unescape($1);	$$coursecodes{$course} = &Apache::lonnet::unescape($1);
$totcodes ++;	$totcodes ++;
}	}