[LON-CAPA-cvs] cvs: loncom /publisher lonretrieve.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 12 Dec 2005 21:59:12 -0000
albertel Mon Dec 12 16:59:12 2005 EDT
Modified files:
/loncom/publisher lonretrieve.pm
Log:
- put past reviosns in revision order
Index: loncom/publisher/lonretrieve.pm
diff -u loncom/publisher/lonretrieve.pm:1.27 loncom/publisher/lonretrieve.pm:1.28
--- loncom/publisher/lonretrieve.pm:1.27 Thu Apr 7 02:56:27 2005
+++ loncom/publisher/lonretrieve.pm Mon Dec 12 16:59:12 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to retrieve an old version of a file
#
-# $Id: lonretrieve.pm,v 1.27 2005/04/07 06:56:27 albertel Exp $
+# $Id: lonretrieve.pm,v 1.28 2005/12/12 21:59:12 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -63,9 +63,17 @@
&mt('Version').'</th>'.
'<th>'.&mt('Published on ...').'</th>'.
'<th>'.&mt('Metadata').'</th></tr>');
- my $filename;
+
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$/) {
my $version=$1;
my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate');