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

[albertel]

albertel		Tue Jan 20 18:02:20 2004 EDT

  Modified files:              (Branch: version_1_1_X)
    /loncom/publisher	lonpublisher.pm 
  Log:
  - backport part of 1.149, and 1.162
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.145 loncom/publisher/lonpublisher.pm:1.145.2.1
--- loncom/publisher/lonpublisher.pm:1.145	Sat Nov  8 06:20:22 2003
+++ loncom/publisher/lonpublisher.pm	Tue Jan 20 18:02:20 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.145 2003/11/08 11:20:22 albertel Exp $
+# $Id: lonpublisher.pm,v 1.145.2.1 2004/01/20 23:02:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -219,7 +219,10 @@
 		$newentry=~s/^\s*//;
 		if ($newentry !~m|^/res|) { $newentry=$prefix.$newentry; }
 	    }
-	    unless ($metadatafields{$unikey}=~/\w/) {
+# actually store
+	    if ( $entry eq 'rule' && exists($metadatafields{$unikey})) {
+		$metadatafields{$unikey}.=','.$newentry;
+	    } else {
 		$metadatafields{$unikey}=$newentry;
 	    }
 	}