--- loncom/lonnet/perl/lonnet.pm	2010/11/27 23:32:08	1.1095
+++ loncom/lonnet/perl/lonnet.pm	2010/12/30 19:35:37	1.1096
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1095 2010/11/27 23:32:08 raeburn Exp $
+# $Id: lonnet.pm,v 1.1096 2010/12/30 19:35:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7295,7 +7295,7 @@ sub diskusage {
 }
 
 sub is_locked {
-    my ($file_name, $domain, $user) = @_;
+    my ($file_name, $domain, $user, $which) = @_;
     my @check;
     my $is_locked;
     push (@check,$file_name);
@@ -7307,9 +7307,13 @@ sub is_locked {
     if (ref($locked{$file_name}) eq 'ARRAY') {
         $is_locked = 'false';
         foreach my $entry (@{$locked{$file_name}}) {
-           if (ref($entry) eq 'ARRAY') { 
+           if (ref($entry) eq 'ARRAY') {
                $is_locked = 'true';
-               last;
+               if (ref($which) eq 'ARRAY') {
+                   push(@{$which},$entry);
+               } else {
+                   last;
+               }
            }
        }
     } else {