--- loncom/interface/lonparmset.pm 2000/11/28 11:23:15 1.17 +++ loncom/interface/lonparmset.pm 2001/02/08 12:36:57 1.22 @@ -9,7 +9,9 @@ # # 10/11,10/12,10/16 Gerd Kortemeyer) # -# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28 Gerd Kortemeyer +# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, +# 12/08,12/12, +# 16/01/01,02/08 Gerd Kortemeyer package Apache::lonparmset; @@ -138,7 +140,7 @@ sub plink { my ($type,$dis,$value,$marker,$return,$call)=@_; return ''. - &valout($value,$type).''; + &valout($value,$type).''; } # ================================================================ Main Handler @@ -250,7 +252,7 @@ sub handler { $allkeys{$allkey}=$display; if ($allkey eq $fcat) { $defp{$id}= - &Apache::lonnet::metadata($srcf,$key.'.default'); + &Apache::lonnet::metadata($srcf,$key); } if ($keyp{$id}) { $keyp{$id}.=','.$key; @@ -389,8 +391,8 @@ sub handler { function psub() { pclose(); - if ((document.parmform.pres_value.value!='') && - (document.parmform.pres_marker.value!='')) { + if (document.parmform.pres_marker.value!='') { + document.parmform.action+='#'+document.parmform.pres_marker.value; document.parmform.submit(); } else { document.parmform.pres_value.value=''; @@ -461,8 +463,20 @@ ENDTABLEHEADFOUR $r->print('
'. $bighash{'title_'.$rid}); @@ -493,60 +510,79 @@ ENDTABLEHEADFOUR $r->print(' ('.$thistitle.')'); } $r->print('