--- loncom/interface/lonparmset.pm 2005/06/28 15:21:22 1.233
+++ loncom/interface/lonparmset.pm 2005/10/03 19:10:22 1.256
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.233 2005/06/28 15:21:22 albertel Exp $
+# $Id: lonparmset.pm,v 1.256 2005/10/03 19:10:22 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -904,12 +904,12 @@ ENDSCRIPT
$r->print("\n
");
my $cnt=0;
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
- $r->print("\nprint("\n | | ');
+ $r->print('>'.$$allparms{$tempkey}.'');
$cnt++;
if ($cnt==3) {
$r->print("
\n");
@@ -941,7 +941,9 @@ sub partmenu {
$r->print('>'.&mt('All Parts').'');
my %temphash=();
foreach (@{$psprt}) { $temphash{$_}=1; }
- foreach my $tempkey (sort keys %{$allparts}) {
+ foreach my $tempkey (sort {
+ if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }
+ } keys(%{$allparts})) {
unless ($tempkey =~ /\./) {
$r->print('