loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2003/03/26 00:26:16	version 1.3, 2003/03/26 16:39:40
Line 48 sub handler {	Line 48 sub handler {
</head>	</head>
ENDDOCUMENT	ENDDOCUMENT

# Is this even in a course?

&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',	($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
Line 77 function gochoose(cname,cdom) {	Line 76 function gochoose(cname,cdom) {
}	}
</script>	</script>
ENDSCRIPT	ENDSCRIPT
	$r->rflush();
$r->print('</body></html>');	# ---------------------------------------------------------------- Get the data
	my %courses=
	&Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter);
	$r->print('<form>');
	foreach (keys %courses) {
	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('</form></body></html>');
return OK;	return OK;
}	}