loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.20, 2002/10/19 06:34:15	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,