loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.10, 2001/05/09 17:15:26	version 1.11, 2001/05/09 17:38:13
Line 11	Line 11
# 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/02 Gerd Kortemeyer	# 03/31,04/03,05/02,05/09 Gerd Kortemeyer

package Apache::lonretrieve;	package Apache::lonretrieve;

Line 59 sub phaseone {	Line 59 sub phaseone {
'Metadata Version '.$version.'</a>');	'Metadata Version '.$version.'</a>');
if (&Apache::lonnet::fileembstyle($suffix) eq 'ssi') {	if (&Apache::lonnet::fileembstyle($suffix) eq 'ssi') {
$r->print(	$r->print(
'  <a target=cat href="/adm/diff?filename='.$fn.	'  <a target=cat href="/adm/diff?filename=/~'.
	$uname.$fn.
'&versionone=priv&versiontwo='.$version.	'&versionone=priv&versiontwo='.$version.
'">Diffs with Version '.$version.'</a>');	'">Diffs with Version '.$version.'</a>');
}	}
Line 77 sub phaseone {	Line 78 sub phaseone {
'Metadata current version</a>');	'Metadata current version</a>');
if (&Apache::lonnet::fileembstyle($suffix) eq 'ssi') {	if (&Apache::lonnet::fileembstyle($suffix) eq 'ssi') {
$r->print(	$r->print(
'  <a target=cat href="/adm/diff?filename='.$fn.	'  <a target=cat href="/adm/diff?filename=/~'.
	$uname.$fn.
'&versionone=priv'.	'&versionone=priv'.
'">Diffs with current Version</a>');	'">Diffs with current Version</a>');
}	}