[LON-CAPA-cvs] cvs: loncom /publisher lonretrieve.pm

[albertel]

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');