loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.19, 2002/09/16 13:05:50	version 1.22, 2003/05/19 21:53:03
Line 39	Line 39
# 03/24,03/29 Gerd Kortemeyer)	# 03/24,03/29 Gerd Kortemeyer)
#	#
# 03/31,04/03,05/02,05/09,06/23,08/20 Gerd Kortemeyer	# 03/31,04/03,05/02,05/09,06/23,08/20 Gerd Kortemeyer
# 12/16 Scott Harrison
#	#
###	###

Line 78 sub phaseone {	Line 77 sub phaseone {
my $filename;	my $filename;
opendir(DIR,$resdir);	opendir(DIR,$resdir);
while ($filename=readdir(DIR)) {	while ($filename=readdir(DIR)) {
if ($filename=~/^$main\.(\d+)\.$suffix$/) {	if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {
my $version=$1;	my $version=$1;
my ($rdev,$rino,$rmode,$rnlink,	my ($rdev,$rino,$rmode,$rnlink,
$ruid,$rgid,$rrdev,$rsize,	$ruid,$rgid,$rrdev,$rsize,
Line 93 sub phaseone {	Line 92 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 111 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>'.