[LON-CAPA-cvs] cvs: loncom /interface coursecatalog.pm
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Mon, 14 Jul 2008 10:24:27 -0000
raeburn Mon Jul 14 06:24:27 2008 EDT
Modified files:
/loncom/interface coursecatalog.pm
Log:
- eliminate duplicate decalarations.
Index: loncom/interface/coursecatalog.pm
diff -u loncom/interface/coursecatalog.pm:1.38 loncom/interface/coursecatalog.pm:1.39
--- loncom/interface/coursecatalog.pm:1.38 Sun Jul 13 16:13:10 2008
+++ loncom/interface/coursecatalog.pm Mon Jul 14 06:24:27 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler for displaying the course catalog interface
#
-# $Id: coursecatalog.pm,v 1.38 2008/07/13 20:13:10 raeburn Exp $
+# $Id: coursecatalog.pm,v 1.39 2008/07/14 10:24:27 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -837,7 +837,7 @@
$cleandesc=~s/'/\\'/g;
$cleandesc =~ s/^\s+//;
my ($cdom,$cnum)=split(/\_/,$course);
- my ($descr,$instcode,$singleowner,$ttype,$selfenroll_types,
+ my ($instcode,$singleowner,$ttype,$selfenroll_types,
$selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories);
if (ref($courses->{$course}) eq 'HASH') {
$descr = $courses->{$course}{'description'};
@@ -1093,7 +1093,7 @@
}
}
@secnums = sort {$a <=> $b} @secnums;
- my $seclist = join(', ',@secnums);
+ $seclist = join(', ',@secnums);
my $numsec = @secnums;
return ($seclist,$numsec);
}