loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.30, 2003/02/03 18:03:53	version 1.31, 2003/05/16 20:47:08
Line 202 sub startpage {	Line 202 sub startpage {
ENDPUBDIRSCRIPT	ENDPUBDIRSCRIPT

$r->print('<h1>Construction Space Directory <tt>'.	$r->print('<h1>Construction Space Directory <tt>'.
$thisdisfn.'/</tt></h1>'.$pubdirscript.	$thisdisfn.'/</tt></h1>'.
	'<script type="text/javascript">top.document.title = \''.
	$thisdisfn.'/ - LON-CAPA Construction Space\';</script>'.
	$pubdirscript.
'<form method="post" action="/adm/publish" target="_parent">'.	'<form method="post" action="/adm/publish" target="_parent">'.
'<input type="hidden" name="filename" value="/~'.	'<input type="hidden" name="filename" value="/~'.
$uname.$thisdisfn.'/" />'.	$uname.$thisdisfn.'/" />'.