--- loncom/interface/lonparmset.pm 2000/11/28 11:23:15 1.17
+++ loncom/interface/lonparmset.pm 2001/02/08 14:05:10 1.23
@@ -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;
@@ -136,9 +138,18 @@ sub valout {
sub plink {
my ($type,$dis,$value,$marker,$return,$call)=@_;
- return ''.
- &valout($value,$type).'';
+ &valout($value,$type).'';
}
# ================================================================ Main Handler
@@ -250,7 +261,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 +400,18 @@ 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;
+ var typedef=new Array();
+ typedef=document.parmform.pres_type.value.split('_');
+ if (typedef[0]=='date') {
+ eval('document.parmform.recent_'+
+ document.parmform.pres_type.value+
+ '.value=document.parmform.pres_value.value;');
+ } else {
+ eval('document.parmform.recent_'+typedef[0]+
+ '.value=document.parmform.pres_value.value;');
+ }
document.parmform.submit();
} else {
document.parmform.pres_value.value='';
@@ -420,6 +441,11 @@ at Domain
ENDHEAD
+ map {
+ $r->print('');
+ } ('tolerance','date_default','date_start','date_end','date_interval',
+ 'int','float','string');
$r->print('
'.$message.'
Sort list by ');
$r->print('