loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.272, 2005/01/01 02:31:05	version 1.273, 2005/01/03 16:08:07
Line 3140 sub put_course_id_handler {	Line 3140 sub put_course_id_handler {
my ($key,$courseinfo) = split(/=/,$pair,2);	my ($key,$courseinfo) = split(/=/,$pair,2);
$courseinfo =~ s/=/:/g;	$courseinfo =~ s/=/:/g;

my @current_items = split/:/,$hashref->{$key};	my @current_items = split(/:/,$hashref->{$key});
shift @current_items; # remove description	shift(@current_items); # remove description
pop @current_items; # remove last access	pop(@current_items); # remove last access
my $numcurrent = scalar(@current_items);	my $numcurrent = scalar(@current_items);

my @new_items = split/:/,$courseinfo;	my @new_items = split(/:/,$courseinfo);
my $numnew = scalar(@new_items);	my $numnew = scalar(@new_items);
if ($numcurrent > 0) {	if ($numcurrent > 0) {
if ($numnew == 1) { # flushcourselogs() from 1.1 or earlier	if ($numnew == 1) { # flushcourselogs() from 1.1 or earlier