[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;