--- 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()."'".');">'. + ''. 'link'. $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.'>'. + ''. 'link'. $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 .= 'link'. ''.$n->value()->title().'';