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

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 27 Sep 2006 21:05:50 -0000


albertel		Wed Sep 27 17:05:50 2006 EDT

  Modified files:              (Branch: version_2_2_X)
    /loncom/publisher	lonpublisher.pm 
  Log:
  - backpor 1.213 1.214
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.211 loncom/publisher/lonpublisher.pm:1.211.2.1
--- loncom/publisher/lonpublisher.pm:1.211	Fri Aug  4 18:16:42 2006
+++ loncom/publisher/lonpublisher.pm	Wed Sep 27 17:05:50 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.211 2006/08/04 22:16:42 albertel Exp $
+# $Id: lonpublisher.pm,v 1.211.2.1 2006/09/27 21:05:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -846,7 +846,7 @@
 	$status=&LONCAPA::lonmetadata::delete_metadata($dbh,undef,
                                                        $metadata{'url'});
     } else {
-        $status = &LONCAPA::lonmetadata::update_metadata($dbh,undef,
+        $status = &LONCAPA::lonmetadata::update_metadata($dbh,undef,undef,
                                                          \%metadata);
     }
     if (defined($status) && $status ne '') {
@@ -856,7 +856,7 @@
         &Apache::lonnet::logthis($status);
         return ($error,undef);
     }
-    return (undef,$status);
+    return (undef,'success');
 }
 
 
@@ -1470,6 +1470,7 @@
     $metadatafields{'modifyinguser'}=$env{'user.name'}.':'.
 	                                 $env{'user.domain'};
     $metadatafields{'authorspace'}=$cuname.':'.$cudom;
+    $metadatafields{'domain'}=$cudom;
     
     my $allkeywords=$env{'form.addkey'};
     if (exists($env{'form.keywords'})) {