--- loncom/lonnet/perl/lonnet.pm	2001/01/09 19:55:31	1.89
+++ loncom/lonnet/perl/lonnet.pm	2001/01/09 22:27:07	1.91
@@ -234,6 +234,7 @@ sub critical {
 
 sub appenv {
     my %newenv=@_;
+    my ($in,$out);
     map {
 	if (($newenv{$_}=~/^user\.role/) || ($newenv{$_}=~/^user\.priv/)) {
             &logthis("<font color=blue>WARNING: ".
@@ -255,9 +256,13 @@ sub appenv {
          $fh->close();
          return 'error: '.$!;
      }
+     &logthis("<font color=green>appenv LOCK_SH gotten");
      @oldenv=<$fh>;
+     $in=$#oldenv+1;
+     &logthis("<font color=green>appenv LOCK_SH to be closed");
      $fh->close();
     }
+    &logthis("<font color=green>Number of elements read appenv: ".$in."from".join(" ",caller));
     for (my $i=0; $i<=$#oldenv; $i++) {
         chomp($oldenv[$i]);
         if ($oldenv[$i] ne '') {
@@ -279,11 +284,16 @@ sub appenv {
          $fh->close();
          return 'error: '.$!;
      }
-     foreach $newname (keys %newenv) {
+     &logthis("<font color=green>appenv LOCK_EX gotten");
+     $out=0;
+     foreach $newname (sort keys %newenv) {
 	 print $fh "$newname=$newenv{$newname}\n";
+	 $out++;
      }
+     &logthis("<font color=green>appenv LOCK_EX to be closed");
      $fh->close();
     }
+    &logthis("<font color=green>Number of elements read appenv: ".$in." number out:".$out."from".join(" ",caller));
     return 'ok';
 }
 # ----------------------------------------------------- Delete from Environment