loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2003/10/13 22:24:51	version 1.11, 2003/11/04 16:31:50
Line 121 ENDSCRIPT	Line 121 ENDSCRIPT
&Apache::lonnet::courseiddump	&Apache::lonnet::courseiddump
($domainfilter,$descriptfilter,$timefilter);	($domainfilter,$descriptfilter,$timefilter);
$r->print('<form>');	$r->print('<form>');
foreach (keys %courses) {	my %by_descrip;
my ($cdom,$cnum)=split(/\_/,$_);	foreach my $course (keys %courses) {
	$by_descrip{lc($courses{$course})}=$course;
	}
	foreach my $description (sort(keys(%by_descrip))) {
	my $course=$by_descrip{$description};
	my ($cdom,$cnum)=split(/\_/,$course);
$r->print('<input type="button" value="Select" onClick="gochoose('.	$r->print('<input type="button" value="Select" onClick="gochoose('.
"'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('.	"'".$cnum."','".$cdom."')".'" /> '.$courses{$course}.' ('.
($Apache::lonnet::domaindescription{$cdom}?	($Apache::lonnet::domaindescription{$cdom}?
$Apache::lonnet::domaindescription{$cdom}:$cdom).	$Apache::lonnet::domaindescription{$cdom}:$cdom).
")<br />\n");	")<br />\n");
}	}
	if (!%courses) { $r->print('None found'); }
$r->print('</form>');	$r->print('</form>');
}	}
$r->print('</body></html>');	$r->print('</body></html>');