[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[raeburn]

raeburn		Mon Aug  4 19:21:52 2025 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - Publishing a directory: if "apply common source availability" is the only
    checkbox checked, republish metadata for items for which source 
    availability changed.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.313 loncom/publisher/lonpublisher.pm:1.314
--- loncom/publisher/lonpublisher.pm:1.313	Mon Aug  4 18:42:04 2025
+++ loncom/publisher/lonpublisher.pm	Mon Aug  4 19:21:52 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.313 2025/08/04 18:42:04 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.314 2025/08/04 19:21:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2427,9 +2427,9 @@
                             }
                         } else {
                             unless (&Apache::loncommon::fileembstyle($extension) eq 'prv') {
-                                if ($commonaccess{'dist'}) {
-                                    my ($currdist,$currdistfile,$currsourceavail);
-                                    my $currdist =  &Apache::lonnet::metadata($thisdisresdir.'/'.$filename,'copyright');
+                                if ((!$publishthis) && ($commonaccess{'dist'})) {
+                                    my ($currdist,$currdistfile);
+                                    $currdist = &Apache::lonnet::metadata($thisdisresdir.'/'.$filename,'copyright');
                                     if ($currdist eq 'custom') {
                                         $currdistfile =  &Apache::lonnet::metadata($thisdisresdir.'/'.$filename,'customdistributionfile');
                                     }
@@ -2449,6 +2449,15 @@
                                         }
                                     }
                                 }
+                                if ((!$publishthis) && ($commonaccess{'source'})) {
+                                    my $currsourceavail =
+                                        &Apache::lonnet::metadata($thisdisresdir.'/'.$filename,'sourceavail');
+                                    if ($env{'form.commonsourceselect'} =~ /^closed|open$/) {
+                                        unless ($currsourceavail eq $env{'form.commonsourceselect'}) {
+                                            $publishthis=1;
+                                        }
+                                    }
+                                }
                             }
                         }
                     }