version 1.331, 2011/12/09 01:04:27
|
version 1.331.4.1, 2012/05/10 18:34:18
|
Line 78 use HTML::Entities();
|
Line 78 use HTML::Entities();
|
use Parse::RecDescent; |
use Parse::RecDescent; |
use Apache::lonnavmaps; |
use Apache::lonnavmaps; |
use Apache::lonindexer(); |
use Apache::lonindexer(); |
use Apache::lonwishlist(); |
|
use LONCAPA; |
use LONCAPA; |
|
|
###################################################################### |
###################################################################### |
Line 3064 SCRIPT
|
Line 3063 SCRIPT
|
SCRIPT |
SCRIPT |
|
|
my $start_page = &Apache::loncommon::start_page(undef,$js, |
my $start_page = &Apache::loncommon::start_page(undef,$js, |
{'only_body' =>1, |
{'only_body' =>1,}); |
'add_wishlist' =>1}); |
|
my $result=<<END; |
my $result=<<END; |
$start_page |
$start_page |
<form name="results" method="post" action="/adm/searchcat"> |
<form name="results" method="post" action="/adm/searchcat"> |
Line 3184 sub detailed_citation_view {
|
Line 3182 sub detailed_citation_view {
|
$result .= '<b>'.$prefix. |
$result .= '<b>'.$prefix. |
'<img src="'.&Apache::loncommon::icon($values{'url'}).'" alt="" />'.' '. |
'<img src="'.&Apache::loncommon::icon($values{'url'}).'" alt="" />'.' '. |
'<a href="'.$jumpurl.'?inhibitmenu=yes" '. |
'<a href="'.$jumpurl.'?inhibitmenu=yes" '. |
'target="preview">'.$values{'title'}."</a></b>\n". |
'target="preview">'.$values{'title'}."</a></b>\n"; |
'<a href="javascript:;" onclick="set_wishlistlink('."'$values{'title'}','$jumpurl'".')" '. |
|
'title="'.&mt('Set link to wishlist').'">'. |
|
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
|
'alt="set wishlistlink" style="width:22px;"/></a>'; |
|
$result .= "<p>\n"; |
$result .= "<p>\n"; |
$result .= '<b>'.$values{'author'}.'</b>,'. |
$result .= '<b>'.$values{'author'}.'</b>,'. |
' <i>'.$values{'owner'}.'</i><br />'; |
' <i>'.$values{'owner'}.'</i><br />'; |
Line 3319 sub summary_view {
|
Line 3313 sub summary_view {
|
$jumpurl=~s|^/ext/|http://|; |
$jumpurl=~s|^/ext/|http://|; |
my $link = '<br />'.&display_url($jumpurl,1).'<br />'; |
my $link = '<br />'.&display_url($jumpurl,1).'<br />'; |
|
|
my $titleWL = &mt('Set link to wishlist'); |
|
$result.=<<END; |
$result.=<<END; |
<a href="$jumpurl?inhibitmenu=yes" |
<a href="$jumpurl?inhibitmenu=yes" |
target="preview">$values{'title'}</a> |
target="preview">$values{'title'}</a> |
<a href="javascript:;" onclick="set_wishlistlink('$values{'title'}','$jumpurl')" |
|
title="$titleWL"> |
|
<img class="LC_icon" src="/res/adm/pages/wishlist.png" |
|
alt="set wishlistlink" style="width:22px;"/> |
|
</a> |
|
<br /> |
<br /> |
$link<br /> |
$link<br /> |
$values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br /> |
$values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br /> |
Line 3374 sub compact_view {
|
Line 3362 sub compact_view {
|
$result.=' <span class="LC_nobreak">'. |
$result.=' <span class="LC_nobreak">'. |
'<a href="'.$jumpurl.'?inhibitmenu=yes" target="preview">'. |
'<a href="'.$jumpurl.'?inhibitmenu=yes" target="preview">'. |
&HTML::Entities::encode($values{'title'},'<>&"').'</a></span> '. |
&HTML::Entities::encode($values{'title'},'<>&"').'</a></span> '. |
'<a href="javascript:;" onclick="set_wishlistlink('."'$values{'title'}','$jumpurl'".')" '. |
|
'title="'.&mt('Set link to wishlist').'">'. |
|
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
|
'alt="set wishlistlink" style="width:22px;"/>'. |
|
'</a>'. |
|
$link.' <b>'.$values{'author'}.'</b> ('.$values{'domain'}.')'; |
$link.' <b>'.$values{'author'}.'</b> ('.$values{'domain'}.')'; |
return $result; |
return $result; |
} |
} |
Line 3420 sub fielded_format_view {
|
Line 3403 sub fielded_format_view {
|
my $jumpurl=$values{'url'}; |
my $jumpurl=$values{'url'}; |
$jumpurl=~s|^/ext/|http://|; |
$jumpurl=~s|^/ext/|http://|; |
|
|
my $titleWL = ('Set link to wishlist'); |
|
my $result=<<END; |
my $result=<<END; |
$prefix <img src="$icon" alt="" /> |
$prefix <img src="$icon" alt="" /> |
<dl> |
<dl> |
<dt>URL:</dt> |
<dt>URL:</dt> |
<dd><a href="$jumpurl?inhibitmenu=yes" |
<dd><a href="$jumpurl?inhibitmenu=yes" |
target='preview'>$values{'url'}</a> |
target='preview'>$values{'url'}</a> |
<a href="javascript:;" onclick="set_wishlistlink('$values{'title'}','$jumpurl')" |
|
title="$titleWL"> |
|
<img class="LC_icon" src="/res/adm/pages/wishlist.png" |
|
alt="set wishlistlink" style="width:22px;"/> |
|
</a> |
|
</dd> |
</dd> |
END |
END |
foreach my $field ('title','author','domain','subject','keywords','notes', |
foreach my $field ('title','author','domain','subject','keywords','notes', |