loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.270, 2004/12/28 15:09:38	version 1.271, 2004/12/31 01:24:14
Line 3129 sub put_course_id_handler {	Line 3129 sub put_course_id_handler {
my $hashref = &tie_domain_hash($udom, "nohist_courseids", &GDBM_WRCREAT());	my $hashref = &tie_domain_hash($udom, "nohist_courseids", &GDBM_WRCREAT());
if ($hashref) {	if ($hashref) {
foreach my $pair (@pairs) {	foreach my $pair (@pairs) {
my ($key,$courseinfo) = split(/=/,$pair);	my ($key,$courseinfo) = split(/=/,$pair,2);
	$courseinfo =~ s/=/:/g;
$hashref->{$key}=$courseinfo.':'.$now;	$hashref->{$key}=$courseinfo.':'.$now;
}	}
if (untie(%$hashref)) {	if (untie(%$hashref)) {