loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2005/10/04 00:27:22	version 1.32, 2005/10/14 18:23:32
Line 305 ENDSCRIPT	Line 305 ENDSCRIPT
unless ($owner eq '') {	unless ($owner eq '') {
$r->print(", owner - ".&Apache::lonnet::unescape($owner));	$r->print(", owner - ".&Apache::lonnet::unescape($owner));
}	}
	if ($multflag) { $r->print("</label>\n"); }
$r->print("<br />\n");	$r->print("<br />\n");
}	}
}	}
Line 327 sub course_chooser {	Line 328 sub course_chooser {
my ($multflag,$cdom,$cnum,$cleandesc) = @_;	my ($multflag,$cdom,$cnum,$cleandesc) = @_;
my $output;	my $output;
if ($multflag) {	if ($multflag) {
$output = '<input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";	$output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";
} else {	} else {
$output = '<input type="button" value="Select" onClick="gochoose('.	$output = '<input type="button" value="Select" onClick="gochoose('.
"'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n";	"'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n";