[LON-CAPA-cvs] cvs: loncom /interface lonpickcourse.pm

[albertel]

albertel		Wed Jun 28 12:06:11 2006 EDT

  Modified files:              
    /loncom/interface	lonpickcourse.pm 
  Log:
  - extra definitions removed
  
  
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.49 loncom/interface/lonpickcourse.pm:1.50
--- loncom/interface/lonpickcourse.pm:1.49	Thu Jun 22 09:02:22 2006
+++ loncom/interface/lonpickcourse.pm	Wed Jun 28 12:06:06 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.49 2006/06/22 13:02:22 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.50 2006/06/28 16:06:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -100,8 +100,8 @@
                       ['-1','86400','604800','2592000','7776000',
 		      '15552000','31104000']));
 # if called from loncreateuser, report sections, then close
-    my (%loaditem,$seclist,$groupslist,$roleslist,$rolesnameslist,$sec_element,
-        $grplist_element,$accesslist,$accessnameslist);
+    my (%loaditem,$seclist,$groupslist,$roleslist,$rolesnameslist,
+	$accesslist,$accessnameslist);
     my $sec_element = 'currsec';
     my $grplist_element = 'groups';
     my $num_sections = 0;