--- loncom/interface/lonparmset.pm 2003/11/17 20:56:30 1.135
+++ loncom/interface/lonparmset.pm 2003/11/18 22:18:42 1.136
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.135 2003/11/17 20:56:30 albertel Exp $
+# $Id: lonparmset.pm,v 1.136 2003/11/18 22:18:42 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -485,21 +485,23 @@ sub print_row {
} # end of $brief if/else
} # end of $parmlev if/else
- if ($parmlev eq 'full' || $parmlev eq 'brief') {
- $r->print('
'.
+ $r->print(' | '.
&valout($outpar[$result],$typeoutpar[$result]).' | ');
- }
- my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
+
+ if ($parmlev eq 'full' || $parmlev eq 'brief') {
+ my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
'.'.$$name{$which},$symbp{$rid});
+
# this doesn't seem to work, and I don't think is correct
# my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
# '.'.$$name{$which}.'.type',$symbp{$rid});
# this seems to work
- my $sessionvaltype=$typeoutpar[$result];
- if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
- $r->print(''.
+ my $sessionvaltype=$typeoutpar[$result];
+ if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
+ $r->print(' | '.
&valout($sessionval,$sessionvaltype).' '.
' | ');
+ }
$r->print('');
$r->print("\n");
}