[LON-CAPA-cvs] cvs: loncom /interface lonpickcourse.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 04 Oct 2005 00:27:22 -0000
albertel Mon Oct 3 20:27:22 2005 EDT
Modified files:
/loncom/interface lonpickcourse.pm
Log:
- style police
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.30 loncom/interface/lonpickcourse.pm:1.31
--- loncom/interface/lonpickcourse.pm:1.30 Mon Oct 3 19:53:25 2005
+++ loncom/interface/lonpickcourse.pm Mon Oct 3 20:27:22 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.30 2005/10/03 23:53:25 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.31 2005/10/04 00:27:22 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -111,7 +111,7 @@
$num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
my @sections = ();
if ($num_sections > 0) {
- @sections = (sort {$a <=> $b} keys %sections_count);
+ @sections = (sort {$a <=> $b} keys(%sections_count));
$seclist = join('","',@sections);
}
}
@@ -272,8 +272,8 @@
($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);
$r->print('<form name="courselist">');
my %by_descrip;
- my $numcourses = keys %courses;
- foreach my $course (keys %courses) {
+ my $numcourses = keys(%courses);
+ foreach my $course (keys(%courses)) {
my $descr;
if ($courses{$course} =~ m/^([^:]*):/) {
$descr = &Apache::lonnet::unescape($1);