--- loncom/interface/lonparmset.pm 2009/03/01 01:12:20 1.436
+++ loncom/interface/lonparmset.pm 2009/05/06 16:19:34 1.444
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.436 2009/03/01 01:12:20 raeburn Exp $
+# $Id: lonparmset.pm,v 1.444 2009/05/06 16:19:34 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1076,12 +1076,20 @@ sub print_td {
my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
$r->print('
');
- if ($which<11 || $which > 12) {
- $r->print(&plink($$typeoutpar[$which],
- $$display{$value},$$outpar[$which],
- $mprefix."$which",'parmform.pres','psub'));
+ my $nolink = 0;
+ if ($which == 11 || $which == 12) {
+ $nolink = 1;
+ } elsif ($mprefix =~ /availablestudent\&$/) {
+ if ($which > 3) {
+ $nolink = 1;
+ }
+ }
+ if ($nolink) {
+ $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
} else {
- $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
+ $r->print(&plink($$typeoutpar[$which],
+ $$display{$value},$$outpar[$which],
+ $mprefix."$which",'parmform.pres','psub'));
}
$r->print(' | '."\n");
}
@@ -1314,6 +1322,11 @@ sub parmmenu {
ENDSCRIPT
$r->print();
+ $r->print('');
+ $r->print('');
+ $r->print(''.&mt('Select Parameters to View').' ');
+ $r->print(' | ');
+ $r->print('');
$r->print("\n".''
);
+ $r->print(' |
');
}
sub partmenu {
my ($r,$allparts,$psprt)=@_;
+ $r->print('');
+ $r->print('');
+ $r->print(''. &mt('Select Parts to View').' ');
+ $r->print(' | ');
+ $r->print('');
$r->print('');
+ $r->print(' |
');
}
sub usermenu {
@@ -1409,7 +1429,7 @@ sub usermenu {
my $g_s_header='';
my $g_s_footer='';
-
+
if (%sectionhash) {
$sections=&mt('Section:').'