|
version 1.21, 2001/03/29 21:45:06
|
version 1.22, 2001/04/03 11:07:36
|
|
Line 631 if (-e $target) {
|
Line 631 if (-e $target) {
|
| my $thisdistarget=$target; |
my $thisdistarget=$target; |
| $thisdistarget=~s/^$docroot//; |
$thisdistarget=~s/^$docroot//; |
| |
|
| |
my $thissrc=$source; |
| |
$thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/; |
| |
|
| |
my $thissrcdir=$thissrc; |
| |
$thissrcdir=~s/\/[^\/]+$/\//; |
| |
|
| |
|
| return $scrout. |
return $scrout. |
| '<p><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'; |
'<hr><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'. |
| |
'<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'. |
| |
'<p><a href="'.$thissrcdir. |
| |
'"><font size=+2>Back to Source Directory</font></a>'; |
| |
|
| } |
} |
| |
|
| # ================================================================ Main Handler |
# ================================================================ Main Handler |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher