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

[raeburn]

raeburn		Tue Jan  7 21:01:38 2025 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - Use consistent name for hash key when looping over keys in %newfile hash.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.721 loncom/interface/londocs.pm:1.722
--- loncom/interface/londocs.pm:1.721	Tue Jan  7 20:25:04 2025
+++ loncom/interface/londocs.pm	Tue Jan  7 21:01:37 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.721 2025/01/07 20:25:04 raeburn Exp $
+# $Id: londocs.pm,v 1.722 2025/01/07 21:01:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1177,9 +1177,9 @@
                 $r->print('<p>'.&mt('Copied the following files to [_1]:','<span class="LC_filename">'.$desturl.'/'.$subdir.'</span>').
                           '</p>'."\n".
                           '<ul><li>'.join('</li><li>',sort(keys(%newfile))).'</li></ul></p>'."\n");
-                foreach my $key (keys(%newfile)) {
-                    my %storehash = ( 
-                                      'priv' => $newfile{$key},
+                foreach my $file (keys(%newfile)) {
+                    my %storehash = (
+                                      'priv' => $newfile{$file},
                                       'who'  => $env{'user.name'}.':'.$env{'user.domain'},
                                     );
                     if (exists($newresfile{$file})) {