loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.839, 2007/03/02 23:43:24	version 1.840, 2007/03/02 23:53:19
Line 1843 sub flushcourselogs {	Line 1843 sub flushcourselogs {
# Write course id database (reverse lookup) to homeserver of courses	# Write course id database (reverse lookup) to homeserver of courses
# Is used in pickcourse	# Is used in pickcourse
#	#
foreach my $crsid (keys(%courseidbuffer)) {	foreach my $crs_home (keys(%courseidbuffer)) {
&courseidput($hostdom{$crsid},$courseidbuffer{$crsid},$crsid);	&courseidput($hostdom{$crs_home},$courseidbuffer{$crs_home},
	$crs_home);
}	}
#	#
# File accesses	# File accesses