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; |
} |
} |
|
|