loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.57, 2003/01/20 16:41:13	version 1.59, 2003/02/03 18:03:52
Line 34	Line 34
# 05/9-05/19/2001 H. K. Ng	# 05/9-05/19/2001 H. K. Ng
# 05/21/2001 H. K. Ng	# 05/21/2001 H. K. Ng
# 05/23/2001 H. K. Ng	# 05/23/2001 H. K. Ng
# 5/31,6/1,6/2,6/15 Scott Harrison
# 6/26,7/8 H. K. Ng	# 6/26,7/8 H. K. Ng
# 8/6,8/7,8/10 Scott Harrison
# 8/14 H. K. Ng	# 8/14 H. K. Ng
# 8/28,10/15,11/28,11/29 Scott Harrison
# 11/30 Matthew Hall	# 11/30 Matthew Hall
# 12/11,12/13 Scott Harrison
# YEAR=2002	# YEAR=2002
# 1/17 Scott Harrison
# 6/29/2002 H. K. Ng	# 6/29/2002 H. K. Ng
#	#
###	###
Line 846 sub display_line {	Line 841 sub display_line {
$output='<font size="-2">'.$output.'</font>';	$output='<font size="-2">'.$output.'</font>';
} elsif ($embstyle eq 'img') {	} elsif ($embstyle eq 'img') {
$output='<img src="'.$filelink.'" />';	$output='<img src="'.$filelink.'" />';
	} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) {
	$output='<img src="http://'.
	$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}.
	'/cgi-bin/thumbnail.gif?url='.$filelink.'" />';
}	}
$r->print('<td valign=bottom> '.($output eq '' ? ' ':$output).	$r->print('<td valign=bottom> '.($output eq '' ? ' ':$output).
" </td>\n");	" </td>\n");