version 1.274, 2006/07/28 19:16:08
|
version 1.275, 2006/07/31 19:45:58
|
Line 3200 sub detailed_citation_view {
|
Line 3200 sub detailed_citation_view {
|
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
my $result; |
my $result; |
my $jumpurl=$values{'url'}; |
my $jumpurl=$values{'url'}; |
$jumpurl=~s/^\/ext\//http\:\/\//; |
$jumpurl=~s|^/ext/|http://|; |
$result .= '<b>'.$prefix. |
$result .= '<b>'.$prefix. |
'<img src="'.&Apache::loncommon::icon($values{'url'}).'" />'.' '. |
'<img src="'.&Apache::loncommon::icon($values{'url'}).'" />'.' '. |
'<a href="'.$jumpurl.'" '. |
'<a href="'.$jumpurl.'" '. |
Line 3347 sub summary_view {
|
Line 3347 sub summary_view {
|
} |
} |
my $jumpurl=$values{'url'}; |
my $jumpurl=$values{'url'}; |
my $link; |
my $link; |
if ($jumpurl=~/^\/ext\//) { |
if ($jumpurl=~m|^/ext/|) { |
$jumpurl=~s/^\/ext\//http\:\/\//; |
$jumpurl=~s|^/ext/|http://|; |
$link='<br /><tt>'.$jumpurl.'</tt>'; |
$link='<br /><tt>'.$jumpurl.'</tt>'; |
} else { |
} else { |
$link=&Apache::lonhtmlcommon::crumbs($jumpurl, |
$link=&Apache::lonhtmlcommon::crumbs($jumpurl, |
Line 3392 sub compact_view {
|
Line 3392 sub compact_view {
|
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
my $jumpurl=$values{'url'}; |
my $jumpurl=$values{'url'}; |
my $link; |
my $link; |
if ($jumpurl=~/^\/ext\//) { |
if ($jumpurl=~m|^/ext/|) { |
$jumpurl=~s/^\/ext\//http\:\/\//; |
$jumpurl=~s|^/ext/|http://|; |
$link='<tt>'.$jumpurl.'</tt>'; |
$link='<tt>'.$jumpurl.'</tt>'; |
} else { |
} else { |
$link=&Apache::lonhtmlcommon::crumbs($jumpurl, |
$link=&Apache::lonhtmlcommon::crumbs($jumpurl, |
Line 3432 sub fielded_format_view {
|
Line 3432 sub fielded_format_view {
|
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $icon=&Apache::loncommon::icon($values{'url'}); |
my %Translated = &Apache::lonmeta::fieldnames(); |
my %Translated = &Apache::lonmeta::fieldnames(); |
my $jumpurl=$values{'url'}; |
my $jumpurl=$values{'url'}; |
$jumpurl=~s/^\/ext\//http\:\/\//; |
$jumpurl=~s|^/ext/|http://|; |
|
|
my $result=<<END; |
my $result=<<END; |
$prefix <img src="$icon" /> |
$prefix <img src="$icon" /> |