loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34, 2006/04/13 19:07:11	version 1.35, 2006/05/30 12:46:09
Line 36 use Apache::loncommon();	Line 36 use Apache::loncommon();
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonacc();	use Apache::lonacc();
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;
Line 50 sub handler {	Line 53 sub handler {
&Apache::lonacc::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 = &unescape($env{'form.origurl'});
my $action = $env{'form.action'};	my $action = $env{'form.action'};

if ($action eq 'process') {	if ($action eq 'process') {
Line 976 sub retrieve_instcodes {	Line 979 sub retrieve_instcodes {
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} = &unescape($1);
$totcodes ++;	$totcodes ++;
}	}
}	}