![[BACK]](/icons/back.gif){kind=icon}
Return to lonsource.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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; |
| } | } |