loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.387, 2007/10/08 21:13:52	version 1.388, 2007/10/13 17:07:56
Line 3515 sub dump_course_id_handler {	Line 3515 sub dump_course_id_handler {
}	}
} else {	} else {
$is_hash = 0;	$is_hash = 0;
my @courseitems = split(/:/,&unescape($value));	my @courseitems = split(/:/,$value);
$lasttime = pop(@courseitems);	$lasttime = pop(@courseitems);
next if ($lasttime<$since);	next if ($lasttime<$since);
($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems;	($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems;
Line 3604 sub dump_course_id_handler {	Line 3604 sub dump_course_id_handler {
if ($is_hash) {	if ($is_hash) {
$qresult.=$key.'='.$value.'&';	$qresult.=$key.'='.$value.'&';
} else {	} else {
my %rtnhash = ( 'description' => &escape($val{'descr'}),	my %rtnhash = ( 'description' => &unescape($val{'descr'}),
'inst_code' => &escape($val{'inst_code'}),	'inst_code' => &unescape($val{'inst_code'}),
'owner' => &escape($val{'owner'}),	'owner' => &unescape($val{'owner'}),
'type' => &escape($val{'type'}),	'type' => &unescape($val{'type'}),
);	);
my $items = &Apache::lonnet::freeze_escape(\%rtnhash);	my $items = &Apache::lonnet::freeze_escape(\%rtnhash);
$qresult.=$key.'='.$items.'&';	$qresult.=$key.'='.$items.'&';