--- loncom/interface/lonparmset.pm 2000/11/25 19:57:17 1.12
+++ loncom/interface/lonparmset.pm 2000/11/27 12:14:32 1.13
@@ -9,7 +9,7 @@
#
# 10/11,10/12,10/16 Gerd Kortemeyer)
#
-# 11/20,11/21,11/22,11/23,11/24,11/25 Gerd Kortemeyer
+# 11/20,11/21,11/22,11/23,11/24,11/25,11/27 Gerd Kortemeyer
package Apache::lonparmset;
@@ -267,6 +267,10 @@ sub handler {
}
}
} keys %bighash;
+# ---------------------------------------------------------- Anything to store?
+ if ($ENV{'form.pres_marker'}) {
+ $message.="
Storing $ENV{'form.pres.value'} type $ENV{'form.pres_type'} under $ENV{'form.pres_marker'}
";
+ }
# ------------------------------------------------------------------- Sort this
@ids=sort bycat @ids;
# ------------------------------------------------------------------ Start page
@@ -277,6 +281,7 @@ sub handler {
LON-CAPA Assessment Parameters
@@ -309,6 +327,9 @@ at Domain
+
+
+
ENDHEAD
$r->print($message.'Sort list by ');
@@ -399,32 +420,46 @@ ENDTABLEHEADFOUR
$r->print("
$part{$_} | $display{$_} | ");
my $mprefix=$rid.'&'.$_.'&';
+
$r->print(''.
&valout($outpar[11],$type{$_}).' | ');
$r->print(''.
&valout($outpar[10],$type{$_}).' | ');
+
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9').' | ');
+ &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9',
+ 'parmform.pres','psub').'');
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8').' | ');
+ &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8',
+ 'parmform.pres','psub').'');
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7').' | ');
+ &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7',
+ 'parmform.pres','psub').'');
+
if ($csec) {
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6').' | ');
+ &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6',
+ 'parmform.pres','psub').'');
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5').' | ');
+ &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5',
+ 'parmform.pres','psub').'');
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4').' | ');
+ &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4',
+ 'parmform.pres','psub').'');
}
+
if ($uname) {
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3').' | ');
+ &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3',
+ 'parmform.pres','psub').'');
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2').' | ');
+ &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2',
+ 'parmform.pres','psub').'');
$r->print(''.
- &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1').' | ');
+ &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1',
+ 'parmform.pres','psub').'');
}
+
$r->print(''.&valout($outpar[$result],$type{$_}).' | ');
$r->print("\n");
} sort keys %name;