loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.127, 2003/07/25 02:04:51	version 1.128, 2003/08/13 18:41:59
Line 1744 unless ($ENV{'form.phase'} eq 'two') {	Line 1744 unless ($ENV{'form.phase'} eq 'two') {
if ($fn=~/\/$/) {	if ($fn=~/\/$/) {
# -------------------------------------------------------- This is a directory	# -------------------------------------------------------- This is a directory
&publishdirectory($r,$fn,$thisdisfn);	&publishdirectory($r,$fn,$thisdisfn);
	$r->print('<hr><font size="+2">Done</font><br><a href="/priv/'
	.$cuname.'/'.$thisdisfn
	.'">Return to Directory</a>');


} else {	} else {
# ---------------------- Evaluate individual file, and then output information.	# ---------------------- Evaluate individual file, and then output information.