loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.17, 2002/05/29 18:25:17	version 1.19, 2002/09/16 13:05:50
Line 177 sub handler {	Line 177 sub handler {
# Get query string for limited number of parameters	# Get query string for limited number of parameters

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['filename');	['filename']);

if ($ENV{'form.filename'}) {	if ($ENV{'form.filename'}) {
$fn=$ENV{'form.filename'};	$fn=$ENV{'form.filename'};
Line 215 sub handler {	Line 215 sub handler {

$r->print('<html><head><title>LON-CAPA Construction Space</title></head>');	$r->print('<html><head><title>LON-CAPA Construction Space</title></head>');

$r->print(	$r->print(&Apache::loncommon::bodytag('Retrieve Published Resources'));
'<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>');


$r->print('<h1>Retrieve previous versions of <tt>'.$fn.'</tt></h1>');	$r->print('<h1>Retrieve previous versions of <tt>'.$fn.'</tt></h1>');