loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.29, 2002/11/18 15:26:10	version 1.31, 2003/05/16 20:47:08
Line 36	Line 36
# 03/23 Guy Albertelli	# 03/23 Guy Albertelli
# 03/24,03/29 Gerd Kortemeyer)	# 03/24,03/29 Gerd Kortemeyer)
# 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer	# 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer
# 12/15 Scott Harrison
# 12/28 Gerd Kortemeyer	# 12/28 Gerd Kortemeyer
#	#
###	###
Line 203 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.'/" />'.