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

[albertel]

albertel		Fri Nov 30 22:48:20 2007 EDT

  Modified files:              
    /loncom/interface	lonuserutils.pm 
  Log:
  - eliminate double declarations
  
  
Index: loncom/interface/lonuserutils.pm
diff -u loncom/interface/lonuserutils.pm:1.5 loncom/interface/lonuserutils.pm:1.6
--- loncom/interface/lonuserutils.pm:1.5	Thu Nov 15 16:24:51 2007
+++ loncom/interface/lonuserutils.pm	Fri Nov 30 22:48:20 2007
@@ -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 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 @@
                         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 @@
     my %idnums = ();
     my %idlist_titles = ();
     my $caller = 'global';
-    my $totcodes = 0;
     my $format_reply;
     my $jscript = '';