--- loncom/interface/loncommon.pm 2010/12/16 16:01:14 1.988
+++ loncom/interface/loncommon.pm 2010/12/18 23:53:57 1.989
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.988 2010/12/16 16:01:14 raeburn Exp $
+# $Id: loncommon.pm,v 1.989 2010/12/18 23:53:57 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3421,6 +3421,7 @@ sub get_previous_attempt {
my ($ign,@parts) = split(/\./,$key);
if ($#parts > 0) {
my $data=$parts[-1];
+ next if ($data eq 'foilorder');
pop(@parts);
if ($data eq 'type') {
unless ($showsurv) {
@@ -3457,6 +3458,7 @@ sub get_previous_attempt {
'
'.&mt('Transaction [_1]',$version).' | ';
if (@hidden) {
foreach my $key (sort(keys(%lasthash))) {
+ next if ($key =~ /\.foilorder$/);
my $hide;
foreach my $id (@hidden) {
if ($key =~ /^\Q$id\E/) {
@@ -3485,6 +3487,7 @@ sub get_previous_attempt {
}
} else {
foreach my $key (sort(keys(%lasthash))) {
+ next if ($key =~ /\.foilorder$/);
my $value = &format_previous_attempt_value($key,
$returnhash{$version.':'.$key});
$prevattempts.=''.$value.' | ';
@@ -3496,6 +3499,7 @@ sub get_previous_attempt {
my @currhidden = keys(%lasthidden);
$prevattempts.=&start_data_table_row().''.&mt('Current').' | ';
foreach my $key (sort(keys(%lasthash))) {
+ next if ($key =~ /\.foilorder$/);
if (%typeparts) {
my $hidden;
foreach my $id (@currhidden) {