loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.281, 2005/04/03 19:33:34	version 1.282, 2005/04/12 00:19:59
Line 3252 sub dump_course_id_handler {	Line 3252 sub dump_course_id_handler {

my $userinput = "$cmd:$tail";	my $userinput = "$cmd:$tail";

my ($udom,$since,$description,$instcodefilter,$ownerfilter) =split(/:/,$tail);	my ($udom,$since,$description,$instcodefilter,$ownerfilter,$coursefilter) =split(/:/,$tail);
if (defined($description)) {	if (defined($description)) {
$description=&unescape($description);	$description=&unescape($description);
} else {	} else {
Line 3268 sub dump_course_id_handler {	Line 3268 sub dump_course_id_handler {
} else {	} else {
$ownerfilter='.';	$ownerfilter='.';
}	}
	if (defined($coursefilter)) {
	$coursefilter=&unescape($coursefilter);
	} else {
	$coursefilter='.';
	}

unless (defined($since)) { $since=0; }	unless (defined($since)) { $since=0; }
my $qresult='';	my $qresult='';
Line 3298 sub dump_course_id_handler {	Line 3303 sub dump_course_id_handler {
$match = 0;	$match = 0;
}	}
}	}
	unless ($coursefilter eq '.' \|\| !defined($coursefilter)) {
	my $unescapeCourse = &unescape($key);
	unless (eval('$unescapeCourse=~/^$udom(_)\Q$coursefilter\E$/')) {
	$match = 0;
	}
	}
if ($match == 1) {	if ($match == 1) {
$qresult.=$key.'='.$descr.':'.$inst_code.':'.$owner.'&';	$qresult.=$key.'='.$descr.':'.$inst_code.':'.$owner.'&';
}	}