loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.935, 2007/12/21 04:34:50	version 1.936, 2007/12/25 04:02:00
Line 2200 sub flushcourselogs {	Line 2200 sub flushcourselogs {
}	}
}	}
$courseidbuffer{$coursehombuf{$crsid}}{$crsid} = {	$courseidbuffer{$coursehombuf{$crsid}}{$crsid} = {
'description' => &escape($coursedescrbuf{$crsid}),	'description' => $coursedescrbuf{$crsid},
'inst_code' => &escape($courseinstcodebuf{$crsid}),	'inst_code' => $courseinstcodebuf{$crsid},
'type' => &escape($coursetypebuf{$crsid}),	'type' => $coursetypebuf{$crsid},
'owner' => &escape($courseownerbuf{$crsid}),	'owner' => $courseownerbuf{$crsid},
};	};
}	}
#	#
Line 2555 sub courseidput {	Line 2555 sub courseidput {
foreach my $cid (keys(%$storehash)) {	foreach my $cid (keys(%$storehash)) {
$what .= &escape($cid).'=';	$what .= &escape($cid).'=';
foreach my $item ('description','inst_code','owner','type') {	foreach my $item ('description','inst_code','owner','type') {
$what .= &escape($storehash->{$item}).':';	$what .= &escape($storehash->{$cid}{$item}).':';
}	}
$what =~ s/\:$/&/;	$what =~ s/\:$/&/;
}	}