loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.35, 2015/05/25 15:36:11	version 1.36, 2017/09/18 16:58:08
Line 44 use LONCAPA qw(:DEFAULT :match);	Line 44 use LONCAPA qw(:DEFAULT :match);

sub make_link {	sub make_link {
my ($filename, $listname) = @_;	my ($filename, $listname) = @_;
my $sourcelink = "/adm/source?inhibitmenu=yes&filename=".$filename."&listname=".$listname;	my $sourcelink = '/adm/source?inhibitmenu=yes&filename='.
	&escape(&escape($filename)).'&listname='.
	&escape(&escape($listname));
return $sourcelink;	return $sourcelink;
}	}