loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.18, 2002/05/30 14:08:42	version 1.20, 2002/10/19 06:34:15
Line 93 sub phaseone {	Line 93 sub phaseone {
$r->print(	$r->print(
'  <a target=cat href="/adm/diff?filename=/~'.	'  <a target=cat href="/adm/diff?filename=/~'.
$uname.$fn.	$uname.$fn.
'&versionone=priv&versiontwo='.$version.	'&versiontwo=priv&versiontwo='.$version.
'">Diffs with Version '.$version.'</a>');	'">Diffs with Version '.$version.'</a>');
}	}
$r->print('</a></td></tr>');	$r->print('</a></td></tr>');
Line 112 sub phaseone {	Line 112 sub phaseone {
$r->print(	$r->print(
'  <a target=cat href="/adm/diff?filename=/~'.	'  <a target=cat href="/adm/diff?filename=/~'.
$uname.$fn.	$uname.$fn.
'&versionone=priv'.	'&versiontwo=priv'.
'">Diffs with current Version</a>');	'">Diffs with current Version</a>');
}	}
$r->print('</td></tr></table><p>'.	$r->print('</td></tr></table><p>'.
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>');