loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.147, 2006/06/23 07:02:51	version 1.148, 2006/06/23 07:32:02
Line 1046 sub display_line {	Line 1046 sub display_line {
# links	# links
&dynmetaread($filelink);	&dynmetaread($filelink);
$r->print('<td>');	$r->print('<td>');
	&coursecontext($r,$filelink);
&dynmetaprint($r,$filelink,'goto_list');	&dynmetaprint($r,$filelink,'goto_list');
&dynmetaprint($r,$filelink,'comefrom_list');	&dynmetaprint($r,$filelink,'comefrom_list');
&dynmetaprint($r,$filelink,'sequsage_list');	&dynmetaprint($r,$filelink,'sequsage_list');
Line 1148 sub display_line {	Line 1149 sub display_line {

}	}

	sub coursecontext {
	my ($r,$filelink)=@_;
	my $filesymb=&Apache::lonnet::symbread($filelink);
	if ($filesymb) {
	my ($map,$index,$resource)=&Apache::lonnet::decode_symb($filesymb);
	$r->print(&mt('Already in this course:<br />[_1] in folder/map [_2].<br />',
	&Apache::lonnet::gettitle($resource),
	&Apache::lonnet::gettitle($map)));
	}
	}

sub showpreview {	sub showpreview {
my ($filelink)=@_;	my ($filelink)=@_;
my ($curfext)=($filelink=~/\.(\w+)$/);	my ($curfext)=($filelink=~/\.(\w+)$/);