loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.27, 2005/04/07 06:56:27	version 1.28, 2005/12/12 21:59:12
Line 63 sub phaseone {	Line 63 sub phaseone {
&mt('Version').'</th>'.	&mt('Version').'</th>'.
'<th>'.&mt('Published on ...').'</th>'.	'<th>'.&mt('Published on ...').'</th>'.
'<th>'.&mt('Metadata').'</th></tr>');	'<th>'.&mt('Metadata').'</th></tr>');
my $filename;
opendir(DIR,$resdir);	opendir(DIR,$resdir);
while ($filename=readdir(DIR)) {	my @files = grep(/^\Q$main\E\.(\d+)\.\Q$suffix\E$/,readdir(DIR));
	@files = sort {
	my ($aver) = ($a=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/);
	my ($bver) = ($b=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/);
	return $aver <=> $bver;
	} (@files);
	closedir(DIR);

	foreach my $filename (@files) {
if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {	if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {
my $version=$1;	my $version=$1;
my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate');	my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate');