loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2003/03/26 04:57:04	version 1.3, 2003/03/26 16:39:40
Line 80 ENDSCRIPT	Line 80 ENDSCRIPT
# ---------------------------------------------------------------- Get the data	# ---------------------------------------------------------------- Get the data
my %courses=	my %courses=
&Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter);	&Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter);
	$r->print('<form>');
foreach (keys %courses) {	foreach (keys %courses) {
$r->print($_.': '.$courses{$_}.'<br />');	my ($cdom,$cnum)=split(/\_/,$_);
	$r->print('<input type="button" value="Select" onClick="gochoose('.
	"'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('.
	($Apache::lonnet::domaindescription{$cdom}?
	$Apache::lonnet::domaindescription{$cdom}:$cdom).')<br />');
}	}
$r->print('</body></html>');	$r->print('</form></body></html>');
return OK;	return OK;
}	}