--- loncom/interface/lonpickcourse.pm	2006/06/22 13:02:22	1.49
+++ loncom/interface/lonpickcourse.pm	2006/06/28 16:06:06	1.50
@@ -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 @@ sub handler {
                       ['-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;