![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.788, 2006/10/04 19:48:32 | version 1.789, 2006/10/04 21:02:41 |
|---|---|
| Line 1184 sub absolute_url { | Line 1184 sub absolute_url { |
| return $protocol.$host_name; | return $protocol.$host_name; |
| } | } |
| sub absolute_url { | |
| my ($host_name) = @_; | |
| my $protocol = ($ENV{'SERVER_PORT'} == 443?'https://':'http://'); | |
| if ($host_name eq '') { | |
| $host_name = $ENV{'SERVER_NAME'}; | |
| } | |
| return $protocol.$host_name; | |
| } | |
| sub ssi { | sub ssi { |
| my ($fn,%form)=@_; | my ($fn,%form)=@_; |