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

[www]

www		Fri Jun 18 12:02:18 2004 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  I don't think anybody used this, but now it gets fixed anyway.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.172 loncom/publisher/lonpublisher.pm:1.173
--- loncom/publisher/lonpublisher.pm:1.172	Fri Jun 11 16:11:06 2004
+++ loncom/publisher/lonpublisher.pm	Fri Jun 18 12:02:18 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.172 2004/06/11 20:11:06 matthew Exp $
+# $Id: lonpublisher.pm,v 1.173 2004/06/18 16:02:18 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1205,6 +1205,11 @@
     $intr_scrout.=&textfield('Publisher/Owner','owner',
 			     $metadatafields{'owner'});
 
+# ---------------------------------------------- Retrofix for unused copyright
+    if ($metadatafields{'copyright'} eq 'free') {
+	$metadatafields{'copyright'}='default';
+	$metadatafields{'sourceavail'}='open';
+    }
 # -------------------------------------------------- Correct copyright for rat.
     my $defaultoption=$metadatafields{'copyright'};
     unless ($defaultoption) { $defaultoption='default'; }