loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.353, 2003/03/26 04:57:04	version 1.354, 2003/03/26 15:49:02
Line 1202 sub courseiddump {	Line 1202 sub courseiddump {
if ($hostdom{$tryserver}=~/$domfilter/) {	if ($hostdom{$tryserver}=~/$domfilter/) {
foreach (	foreach (
split(/\&/,&reply('courseiddump:'.$hostdom{$tryserver}.':'.	split(/\&/,&reply('courseiddump:'.$hostdom{$tryserver}.':'.
$sincefilter.':'.&escape($descfilter)))) {	$sincefilter.':'.&escape($descfilter),
	$tryserver))) {
my ($key,$value)=split(/\=/,$_);	my ($key,$value)=split(/\=/,$_);
if (($key) && ($value)) {	if (($key) && ($value)) {
$returnhash{&unescape($key)}=&unescape($value);	$returnhash{&unescape($key)}=&unescape($value);