[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

sakharuk lon-capa-cvs@mail.lon-capa.org
Fri, 10 Jan 2003 15:41:26 -0000


sakharuk		Fri Jan 10 10:41:26 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Added line 163 to correct sorting of problems/files from the primary sequence. 
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.102 loncom/interface/lonprintout.pm:1.103
--- loncom/interface/lonprintout.pm:1.102	Wed Jan  8 10:05:52 2003
+++ loncom/interface/lonprintout.pm	Fri Jan 10 10:41:26 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.102 2003/01/08 15:05:52 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.103 2003/01/10 15:41:26 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -160,6 +160,7 @@
       else {$primary_sequence = '/res/'.$sequence[0];} 
     my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);
     my @master_seq_view = sort @master_seq;
+    @master_seq = sort @master_seq;
     for (my $i=0;$i<=$#master_seq_view;$i++) {
 	$master_seq_view[$i]=~/\/([^\/]+)$/;
 	$master_seq_view[$i]=$1;