loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.72, 2004/12/10 18:26:49	version 1.74, 2004/12/15 19:15:59
Line 214 sub startpage {	Line 214 sub startpage {
}	}
my $pubdirscript=(<<ENDPUBDIRSCRIPT);	my $pubdirscript=(<<ENDPUBDIRSCRIPT);
<script>	<script>
	top.document.title = '$thisdisfn/ - LON-CAPA Construction Space';
// Store directory location for menu bar to find	// Store directory location for menu bar to find

parent.lastknownpriv='/~$uname$thisdisfn/';	parent.lastknownpriv='/~$uname$thisdisfn/';
Line 332 parent.lastknownpriv='/~$uname$thisdisfn	Line 333 parent.lastknownpriv='/~$uname$thisdisfn
ENDPUBDIRSCRIPT	ENDPUBDIRSCRIPT
$r->print($pubdirscript);	$r->print($pubdirscript);

if (($uname ne $ENV{'user.name'}) \|\| ($udom ne $ENV{'user.domain'})) {	if ((($uname ne $ENV{'user.name'}) \|\| ($udom ne $ENV{'user.domain'})) &&
	$ENV{'environment.remote'} ne 'off') {
$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.	$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.
'</h3>');	'</h3>');
}	}