[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);
 }