--- loncom/publisher/loncfile.pm 2024/09/03 10:40:04 1.130 +++ loncom/publisher/loncfile.pm 2024/09/26 22:43:36 1.131 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.130 2024/09/03 10:40:04 raeburn Exp $ +# $Id: loncfile.pm,v 1.131 2024/09/26 22:43:36 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1686,7 +1686,7 @@ sub phasetwo { } $dest = $dir."/."; } elsif ($env{'form.action'} eq 'archive') { - if (($env{'environment.archive'}) && + if (($env{'environment.canarchive'}) && ($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) { &Archive2($r,$uname,$udom,$fn,$identifier);