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

albertel lon-capa-cvs-allow@mail.lon-capa.org
Tue, 07 Aug 2007 01:52:44 -0000


albertel		Mon Aug  6 21:52:44 2007 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - passing corrected argument 3, BUG#5355
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.227 loncom/publisher/lonpublisher.pm:1.228
--- loncom/publisher/lonpublisher.pm:1.227	Fri Jul 13 16:11:27 2007
+++ loncom/publisher/lonpublisher.pm	Mon Aug  6 21:52:44 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.227 2007/07/13 20:11:27 albertel Exp $
+# $Id: lonpublisher.pm,v 1.228 2007/08/07 01:52:44 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -841,8 +841,9 @@
     if (($metadata{'obsolete'}) || ($metadata{'copyright'} eq 'priv') ||
 	($metadata{'copyright'} eq 'custom')) {
         # remove this entry
-	$status=&LONCAPA::lonmetadata::delete_metadata($dbh,undef,
-                                                       $metadata{'url'});
+	my $delitem = 'url = '.$dbh->quote($metadata{'url'});
+	$status = &LONCAPA::lonmetadata::delete_metadata($dbh,undef,$delitem);
+                                                       
     } else {
         $status = &LONCAPA::lonmetadata::update_metadata($dbh,undef,undef,
                                                          \%metadata);