loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2005/01/27 19:20:55	version 1.26, 2005/02/17 08:29:43
Line 42 sub handler {	Line 42 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;

# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$html
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
</head>	</head>
Line 226 ENDSCRIPT	Line 227 ENDSCRIPT
$descr = &Apache::lonnet::unescape($courses{$course});	$descr = &Apache::lonnet::unescape($courses{$course});
}	}
my $description = lc($descr);	my $description = lc($descr);
if (exists($by_descrip{$description})) {	push (@{$by_descrip{$description}}, $course);
push @{$by_descrip{$description}}, ($course);
} else {
@{$by_descrip{$description}} = ($course);
}
}	}
foreach my $description (sort(keys(%by_descrip))) {	foreach my $description (sort(keys(%by_descrip))) {
foreach my $course (@{$by_descrip{$description}}) {	foreach my $course (@{$by_descrip{$description}}) {