[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);