loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.35, 2006/05/30 12:46:09	version 1.37, 2006/09/01 21:07:11
Line 976 Please review the information in "Log-in	Line 976 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,'.','.','.',
	undef,undef,'Course');
foreach my $course (keys %courses) {	foreach my $course (keys %courses) {
if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {	if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
$$coursecodes{$course} = &unescape($1);	$$coursecodes{$course} = &unescape($1);
Line 1104 sub sort_cats {	Line 1105 sub sort_cats {
my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_;	my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_;
my @unsorted = @{$idsarrayref};	my @unsorted = @{$idsarrayref};
if (defined($$cat_order{$$codetitles[$num]})) {	if (defined($$cat_order{$$codetitles[$num]})) {
foreach (@{$$cat_order{$$codetitles[$num]}}) {	foreach my $item (@{$$cat_order{$$codetitles[$num]}}) {
if (grep/^$_$/,@unsorted) {	if (grep/^\Q$item\E$/,@unsorted) {
push @{$sorted}, $_;	push @{$sorted}, $item;
}	}
}	}
} else {	} else {