--- loncom/interface/lonuserutils.pm	2007/11/15 21:24:51	1.5
+++ loncom/interface/lonuserutils.pm	2007/12/01 03:48:20	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.5 2007/11/15 21:24:51 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.6 2007/12/01 03:48:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -159,7 +159,7 @@ sub propagate_id_change {
 
 sub update_classlist {
     my ($cdom,$cnum,$udom,$uname,$user) = @_;
-    my ($uid,$fullname,$classlistentry);
+    my ($uid,$classlistentry);
     my $fullname =
         &Apache::lonnet::format_name($user->{'firstname'},$user->{'middlename'},
                                      $user->{'lastname'},$user->{'generation'},
@@ -1325,7 +1325,7 @@ sub print_userlist {
                         my $cnum = $coursehash{'num'};
                         my $cdesc = $coursehash{'description'};
                         my (@roles,@sections,%access,%users,%userdata,
-                            %users,%statushash);
+                            %statushash);
                         if ($env{'form.showrole'} eq 'Any') {
                             @roles = &course_roles($context);
                             unshift(@roles,'cr');
@@ -1489,7 +1489,6 @@ sub courses_selector {
     my %idnums = ();
     my %idlist_titles = ();
     my $caller = 'global';
-    my $totcodes = 0;
     my $format_reply;
     my $jscript = '';