--- loncom/interface/londocs.pm	2025/01/07 20:25:04	1.721
+++ loncom/interface/londocs.pm	2025/01/07 21:01:37	1.722
@@ -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 @@ ENDJS
                 $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})) {