--- loncom/publisher/lonpublisher.pm	2016/06/19 04:27:57	1.297
+++ loncom/publisher/lonpublisher.pm	2021/06/03 13:59:44	1.298
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.297 2016/06/19 04:27:57 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.298 2021/06/03 13:59:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2277,6 +2277,7 @@ sub publishdirectory {
 		  &checkbox('forcerepub','force republication of previously published files').
                   &checkbox('obsolete','make file(s) obsolete').
 		  &checkbox('forceoverride','force directory level metadata over existing').
+                  &checkbox('excludeunpub','exclude currently unpublished files').
                   &common_access('dist',&mt('apply common copyright/distribution'),
                                  ['default','domain','custom']).
                   &common_access('source',&mt('apply common source availability'),
@@ -2309,7 +2310,7 @@ sub publishdirectory {
 		}
 	    } elsif ((&Apache::loncommon::fileembstyle($extension) ne 'hdn') &&
 		     ($filename!~/^[\#\.]/) && ($filename!~/\~$/)) {
-# find out publication status and/or exiting metadata
+# find out publication status and/or existing metadata
 		my $publishthis=0;
 		if (-e $resdir.'/'.$filename) {
 		    my ($rdev,$rino,$rmode,$rnlink,
@@ -2327,7 +2328,9 @@ sub publishdirectory {
 		    }
 		} else {
 # never published
-		    $publishthis=1;
+		    unless ($env{'form.excludeunpub'}) {
+		        $publishthis=1;
+		    }
 		}
 		
 		if ($publishthis) {