--- loncom/publisher/lonpublisher.pm 2001/03/24 21:51:58 1.20 +++ loncom/publisher/lonpublisher.pm 2001/04/03 11:07:36 1.22 @@ -7,7 +7,7 @@ # # 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer # 03/23 Guy Albertelli -# 03/24 Gerd Kortemeyer +# 03/24,03/29 Gerd Kortemeyer package Apache::lonpublisher; @@ -631,8 +631,19 @@ if (-e $target) { my $thisdistarget=$target; $thisdistarget=~s/^$docroot//; + my $thissrc=$source; + $thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/; + + my $thissrcdir=$thissrc; + $thissrcdir=~s/\/[^\/]+$/\//; + + return $scrout. - '
View Target'; + '
Back to Source'. + '
Back to Source Directory'; + } # ================================================================ Main Handler @@ -646,7 +657,6 @@ sub handler { return OK; } -unless ($ENV{'form.pubdir'}) { # -------------------------------------------------------------- Check filename my $fn=$ENV{'form.filename'}; @@ -775,55 +785,7 @@ unless ($ENV{'form.phase'} eq 'two') { } $r->print('