--- loncom/interface/loncommon.pm	2024/04/14 18:45:57	1.1430
+++ loncom/interface/loncommon.pm	2024/05/21 02:57:15	1.1431
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1430 2024/04/14 18:45:57 raeburn Exp $
+# $Id: loncommon.pm,v 1.1431 2024/05/21 02:57:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -18072,6 +18072,12 @@ sub init_user_environment {
                 } else {
                     $userenv{'editors'} = 'edit,xml';
                 }
+                if ($userenv{'authorarchive'}) {
+                    $userenv{'canarchive'} = 1;
+                } elsif (($userenv{'authorarchive'} eq '') &&
+                         ($domdef{'archive'})) {
+                    $userenv{'canarchive'} = 1;
+                }
             }
 
             $userenv{'canrequest.author'} =