loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2006/01/10 21:36:45	version 1.38, 2006/02/01 22:46:09
Line 131 ENDDOCUMENT	Line 131 ENDDOCUMENT
'cde' => 'Course Description',	'cde' => 'Course Description',
'cdo' => 'Course Domain',	'cdo' => 'Course Domain',
'cin' => 'Course Institutional Code',	'cin' => 'Course Institutional Code',
'cow' => "Course Owner's usename");	'cow' => "Course Owner's Username");
my ($name_code,$name_input);	my ($name_code,$name_input);
if (defined($env{'form.cnameelement'}) && $env{'form.cnameelement'} ne '') {	if (defined($env{'form.cnameelement'}) && $env{'form.cnameelement'} ne '') {
$name_code = "opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=cdesc;";	$name_code = "opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=cdesc;";
Line 287 ENDSCRIPT	Line 287 ENDSCRIPT
my $numcourses = keys(%courses);	my $numcourses = keys(%courses);
foreach my $course (keys(%courses)) {	foreach my $course (keys(%courses)) {
my $descr;	my $descr;
if ($courses{$course} =~ m/^([^:]*):/) {	if ($courses{$course} =~ m/^([^:]*):/i) {
$descr = &Apache::lonnet::unescape($1);	$descr = &Apache::lonnet::unescape($1);
} else {	} else {
$descr = &Apache::lonnet::unescape($courses{$course});	$descr = &Apache::lonnet::unescape($courses{$course});
}	}
my $description = lc($descr);	my $description = $descr;
push (@{$by_descrip{$description}}, $course);	push (@{$by_descrip{$description}}, $course);
}	}
if ($numcourses > 1 && $multiple) {	if ($numcourses > 1 && $multiple) {