version 1.318, 2009/10/23 16:55:15
|
version 1.319, 2009/12/01 18:07:50
|
Line 3553 sub detailed_citation_view {
|
Line 3553 sub detailed_citation_view {
|
$result .= '<b>'.&mt($field->{'translate'}).'</b>'; |
$result .= '<b>'.&mt($field->{'translate'}).'</b>'; |
foreach my $item (split(',',$values{$field->{'name'}})){ |
foreach my $item (split(',',$values{$field->{'name'}})){ |
$item = &Apache::lonnet::clutter($item); |
$item = &Apache::lonnet::clutter($item); |
$result .= &display_url($item,[2,0,1]); |
$result .= '<br />'.&display_url($item,1).'<br />'; |
} |
} |
} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){ |
} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){ |
$result.= &mt($field->{'translate'}, |
$result.= &mt($field->{'translate'}, |
Line 3561 sub detailed_citation_view {
|
Line 3561 sub detailed_citation_view {
|
$values{$field->{'name'}}))."<br />\n"; |
$values{$field->{'name'}}))."<br />\n"; |
} else { |
} else { |
if ($field->{'special'} eq 'url link') { |
if ($field->{'special'} eq 'url link') { |
$result .= &display_url($jumpurl,[3,0,1]); |
$result .= '<br />'.&display_url($jumpurl,1).'<br />'; |
} else { |
} else { |
$result.= &mt($field->{'translate'}, |
$result.= &mt($field->{'translate'}, |
$values{$field->{'name'}}); |
$values{$field->{'name'}}); |
Line 3615 sub summary_view {
|
Line 3615 sub summary_view {
|
} |
} |
my $jumpurl=$values{'url'}; |
my $jumpurl=$values{'url'}; |
$jumpurl=~s|^/ext/|http://|; |
$jumpurl=~s|^/ext/|http://|; |
my $link = &display_url($jumpurl,[2,0,1]); |
my $link = '<br />'.&display_url($jumpurl,1).'<br />'; |
|
|
$result.=<<END; |
$result.=<<END; |
<a href="$jumpurl?inhibitmenu=yes" |
<a href="$jumpurl?inhibitmenu=yes" |
Line 3651 sub compact_view {
|
Line 3651 sub compact_view {
|
my $jumpurl=$values{'url'}; |
my $jumpurl=$values{'url'}; |
$jumpurl=~s|^/ext/|http://|; |
$jumpurl=~s|^/ext/|http://|; |
|
|
my $link = &display_url($jumpurl,[1,1,1]); |
my $link = &display_url($jumpurl,1); |
|
|
my $result = |
my $result = |
$prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'" alt="" />'; |
$prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'" alt="" />'; |
Line 3670 sub compact_view {
|
Line 3670 sub compact_view {
|
} |
} |
|
|
sub display_url { |
sub display_url { |
my ($url,$crumb_args) = @_; |
my ($url,$skiplast) = @_; |
my $link; |
my $link; |
if ($url=~m|^/ext/|) { |
if ($url=~m|^/ext/|) { |
$url=~s|^/ext/|http://|; |
$url=~s|^/ext/|http://|; |
Line 3678 sub display_url {
|
Line 3678 sub display_url {
|
} elsif ($url=~m{^(http://|/uploaded/)}) { |
} elsif ($url=~m{^(http://|/uploaded/)}) { |
$link='<span class="LC_filename">'.$url.'</span>'; |
$link='<span class="LC_filename">'.$url.'</span>'; |
} else { |
} else { |
$link=&Apache::lonhtmlcommon::crumbs($url, |
$link=&Apache::lonhtmlcommon::crumbs( |
'preview', |
$url, |
'', |
'preview', |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),@{$crumb_args}).' '; |
'', |
|
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''), |
|
$skiplast).' '; |
} |
} |
return $link; |
return $link; |
} |
} |