loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.27, 2005/04/10 23:45:57	version 1.28, 2005/04/12 00:20:00
Line 967 Please review the information in "Log-in	Line 967 Please review the information in "Log-in

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);