loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsearchcat.pm between versions 1.273 and 1.274

version 1.273, 2006/07/17 19:47:20	version 1.274, 2006/07/28 19:16:08
Line 3204 sub detailed_citation_view {	Line 3204 sub detailed_citation_view {
$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.'" '.
'target="search_preview">'.$values{'title'}."</a></b>\n";	'target="preview">'.$values{'title'}."</a></b>\n";
$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 3271 sub detailed_citation_view {	Line 3271 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'}})){
$result .=	$result .=
&Apache::lonhtmlcommon::crumbs($item,	&Apache::lonhtmlcommon::crumbs(&Apache::lonnet::clutter($item),
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'),	'preview',
'/res',	'',
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1);	(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1);
}	}
} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){	} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){
Line 3282 sub detailed_citation_view {	Line 3282 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.=	if ($jumpurl=~/^http\:\/\//) {
	$result.='<tt>'.$jumpurl.'</tt>';
	} else {
	$result .=
&Apache::lonhtmlcommon::crumbs($jumpurl,	&Apache::lonhtmlcommon::crumbs($jumpurl,
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'),	'preview',
'',	'',
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),3,0,1);	(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),3,0,1);
	}
} else {	} else {
$result.= &mt($field->{'translate'},	$result.= &mt($field->{'translate'},
$values{$field->{'name'}});	$values{$field->{'name'}});
Line 3342 sub summary_view {	Line 3346 sub summary_view {
$result .= ' '.$tmp.' ';	$result .= ' '.$tmp.' ';
}	}
my $jumpurl=$values{'url'};	my $jumpurl=$values{'url'};
$jumpurl=~s/^\/ext\//http\:\/\//;	my $link;
my $link=&Apache::lonhtmlcommon::crumbs($jumpurl,	if ($jumpurl=~/^\/ext\//) {
(($env{'form.catalogmode'} eq 'import')?'':'preview'),	$jumpurl=~s/^\/ext\//http\:\/\//;
	$link='<br /><tt>'.$jumpurl.'</tt>';
	} else {
	$link=&Apache::lonhtmlcommon::crumbs($jumpurl,
	'preview',
'',	'',
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1);	(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1);
	}
$result.=<<END;	$result.=<<END;
<a href="$jumpurl"	<a href="$jumpurl"
target='search_preview'>$values{'title'}</a>$link	target='preview'>$values{'title'}</a>$link
$values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br />	$values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br />
$values{'copyrighttag'}<br />	$values{'copyrighttag'}<br />
$values{'extrashow'}	$values{'extrashow'}
Line 3383 sub summary_preview {	Line 3391 sub summary_preview {
sub compact_view {	sub compact_view {
my ($prefix,%values) = @_;	my ($prefix,%values) = @_;
my $jumpurl=$values{'url'};	my $jumpurl=$values{'url'};
$jumpurl=~s/^\/ext\//http\:\/\//;	my $link;
my $link=&Apache::lonhtmlcommon::crumbs($jumpurl,	if ($jumpurl=~/^\/ext\//) {
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'),	$jumpurl=~s/^\/ext\//http\:\/\//;
	$link='<tt>'.$jumpurl.'</tt>';
	} else {
	$link=&Apache::lonhtmlcommon::crumbs($jumpurl,
	'preview',
'',	'',
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1,1,1).' ';	(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1,1,1).' ';
	}
my $result =	my $result =
$prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'">';	$prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'">';
if (exists($env{'form.sortfield'}) &&	if (exists($env{'form.sortfield'}) &&
Line 3396 sub compact_view {	Line 3409 sub compact_view {
if (! defined($tmp)) { $tmp = 'undefined'; }	if (! defined($tmp)) { $tmp = 'undefined'; }
$result .= ' '.$tmp.' ';	$result .= ' '.$tmp.' ';
}	}
$result.=' <a href="'.$jumpurl.'" target="search_preview">'.	$result.=' <a href="'.$jumpurl.'" target="preview">'.
$values{'title'}.'</a>'.(' 'x2).$link.	$values{'title'}.'</a>'.(' 'x2).$link.
'<b>'.$values{'author'}.'</b> ('.$values{'domain'}.')<br />';	'<b>'.$values{'author'}.'</b> ('.$values{'domain'}.')<br />';
return $result;	return $result;
Line 3426 $prefix <img src="$icon" />	Line 3439 $prefix <img src="$icon" />
<dl>	<dl>
<dt>URL:</dt>	<dt>URL:</dt>
<dd><a href="$jumpurl"	<dd><a href="$jumpurl"
target='search_preview'>$values{'url'}</a></dd>	target='preview'>$values{'url'}</a></dd>
END	END
foreach my $field ('title','author','domain','subject','keywords','notes',	foreach my $field ('title','author','domain','subject','keywords','notes',
'mimetag','language','creationdate','lastrevisiondate',	'mimetag','language','creationdate','lastrevisiondate',

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.273
changed lines
	Added in v.1.274