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.11, 2004/11/27 17:23:09
Line 765 END	Line 765 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 ++;
}	}