--- loncom/interface/lonwishlist.pm 2014/12/15 17:36:22 1.23
+++ loncom/interface/lonwishlist.pm 2014/12/20 15:35:40 1.24
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Utility-routines for wishlist
#
-# $Id: lonwishlist.pm,v 1.23 2014/12/15 17:36:22 raeburn Exp $
+# $Id: lonwishlist.pm,v 1.24 2014/12/20 15:35:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1131,8 +1131,9 @@ sub wishlistView {
}
# entry is a link
else {
+ my $quotable_link = &Apache::loncommon::escape_single($n->value()->path());
$wishlistHTMLview .= '
'.
- 'value()->path()."'".');">'.
+ ''.
''.
$n->value()->title().' | ';
}
@@ -1305,9 +1306,10 @@ sub wishlistMove {
$highlight = 'style="color:red;"';
}
# link-image and title
+ my $quotable_link = &Apache::loncommon::escape_single($n->value()->path());
$wishlistHTMLmove .= ' | '.
''.
- 'value()->path()."'".');" '.$highlight.'>'.
+ ''.
''.
$n->value()->title().' | ';
}
@@ -1425,7 +1427,8 @@ sub wishlistImport {
else {
$wishlistHTMLimport .= '';
unless ($nopick{$n->value()->path()}) {
- $wishlistHTMLimport .= 'value()->path()."'".');">';
+ my $quotable_link = &Apache::loncommon::escape_single($n->value()->path());
+ $wishlistHTMLimport .= '';
}
$wishlistHTMLimport .= ''.
''.$n->value()->title().' | ';