Return to lonsource.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.11, 2005/04/07 06:56:23 | version 1.12, 2005/06/23 23:07:04 |
---|---|
Line 43 use HTML::Entities; | Line 43 use HTML::Entities; |
sub make_link { | sub make_link { |
my ($filename, $listname) = @_; | my ($filename, $listname) = @_; |
my $sourcelink = "http://".$ENV{'SERVER_NAME'}. | my $sourcelink = "/adm/source?filename=".$filename."&listname=".$listname; |
"/adm/source/?filename=".$filename."&listname=".$listname; | |
return $sourcelink; | return $sourcelink; |
} | } |