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

www lon-capa-cvs@mail.lon-capa.org
Fri, 26 Dec 2003 18:25:29 -0000


www		Fri Dec 26 13:25:29 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  a) Cannot do this anymore, since it would destroy dynamic metadata
  b) It did not work anyway
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.150 loncom/publisher/lonpublisher.pm:1.151
--- loncom/publisher/lonpublisher.pm:1.150	Fri Dec 26 11:27:20 2003
+++ loncom/publisher/lonpublisher.pm	Fri Dec 26 13:25:29 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.150 2003/12/26 16:27:20 www Exp $
+# $Id: lonpublisher.pm,v 1.151 2003/12/26 18:25:29 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -767,7 +767,7 @@
 #########################################
 #########################################
 sub store_metadata {
-    my %metadata = %{shift()};
+    my %metadata = @_;
     my $error;
     # Determine if the table exists
     my $status = &Apache::lonmysql::check_table('metadata');
@@ -784,16 +784,6 @@
         &Apache::lonnet::logthis($error);
         return ($error,undef);
     }
-    # Remove old value from table
-    $status = &Apache::lonmysql::remove_from_table
-        ('metadata','url',$metadata{'url'});
-    if (! defined($status)) {
-        $error = '<font color="red">Error when removing old values from '.
-            'metadata table in LON-CAPA database.</font>';
-        &Apache::lonnet::logthis($error);
-        return ($error,undef);
-    }
-    # Store data in table.
     $status = &Apache::lonmysql::store_row('metadata',\%metadata);
     if (! defined($status)) {
         $error='<font color="red">Error occured storing new values in '.