loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.36, 2003/07/17 13:50:44	version 1.37, 2003/08/03 01:20:02
Line 165 sub getEffectiveUrl {	Line 165 sub getEffectiveUrl {
$fn=~s\|^/~(\w+)\|/home/$1/public_html\|;	$fn=~s\|^/~(\w+)\|/home/$1/public_html\|;
}	}
}	}
	$fn=~s/\/+/\//g;
return $fn;	return $fn;
}	}
#	#
Line 189 sub startpage {	Line 190 sub startpage {
$r->print(&Apache::loncommon::bodytag(undef,undef,undef,1));	$r->print(&Apache::loncommon::bodytag(undef,undef,undef,1));
my $pubdirscript=(<<ENDPUBDIRSCRIPT);	my $pubdirscript=(<<ENDPUBDIRSCRIPT);
<script>	<script>
	// Store directory location for menu bar to find

	parent.lastknownpriv='/~$uname/$thisdisfn/';

	// Confirmation dialogues

function pubdir(theform) {	function pubdir(theform) {
if (confirm('Publish complete directory?')) {	if (confirm('Publish complete directory?')) {
theform.submit();	theform.submit();