--- loncom/interface/lonsearchcat.pm 2012/05/10 18:34:18 1.331.4.1 +++ loncom/interface/lonsearchcat.pm 2012/05/25 22:40:43 1.331.4.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.331.4.1 2012/05/10 18:34:18 raeburn Exp $ +# $Id: lonsearchcat.pm,v 1.331.4.2 2012/05/25 22:40:43 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -78,6 +78,7 @@ use HTML::Entities(); use Parse::RecDescent; use Apache::lonnavmaps; use Apache::lonindexer(); +use Apache::lonwishlist(); use LONCAPA; ###################################################################### @@ -3063,7 +3064,8 @@ SCRIPT SCRIPT my $start_page = &Apache::loncommon::start_page(undef,$js, - {'only_body' =>1,}); + {'only_body' =>1, + 'add_wishlist' =>1}); my $result=< @@ -3182,7 +3184,11 @@ sub detailed_citation_view { $result .= ''.$prefix. ''.' '. ''.$values{'title'}."\n"; + 'target="preview">'.$values{'title'}."\n". + ''. + ''; $result .= "

\n"; $result .= ''.$values{'author'}.','. ' '.$values{'owner'}.'
'; @@ -3313,9 +3319,15 @@ sub summary_view { $jumpurl=~s|^/ext/|http://|; my $link = '
'.&display_url($jumpurl,1).'
'; + my $titleWL = &mt('Set link to wishlist'); $result.=<$values{'title'} + + set wishlistlink +
$link
$values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}
@@ -3362,6 +3374,11 @@ sub compact_view { $result.=' '. ''. &HTML::Entities::encode($values{'title'},'<>&"').' '. + ''. + ''. + ''. $link.' '.$values{'author'}.' ('.$values{'domain'}.')'; return $result; } @@ -3403,12 +3420,18 @@ sub fielded_format_view { my $jumpurl=$values{'url'}; $jumpurl=~s|^/ext/|http://|; + my $titleWL = ('Set link to wishlist'); my $result=<

URL:
$values{'url'} + + set wishlistlink +
END foreach my $field ('title','author','domain','subject','keywords','notes',