![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonparmset.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.591, 2019/03/02 15:40:14 | version 1.592, 2019/04/09 13:45:57 |
|---|---|
| Line 1071 sub plink { | Line 1071 sub plink { |
| my ($type,$dis,$value,$marker,$return,$call,$recursive,$extra)=@_; | my ($type,$dis,$value,$marker,$return,$call,$recursive,$extra)=@_; |
| my $winvalue=$value; | my $winvalue=$value; |
| unless ($winvalue) { | unless ($winvalue) { |
| if ((&isdateparm($type) || (&is_specialstring($type))) { | if (&isdateparm($type) || (&is_specialstring($type))) { |
| $winvalue=$env{'form.recent_'.$type}; | $winvalue=$env{'form.recent_'.$type}; |
| } elsif ($type eq 'string_yesno') { | } elsif ($type eq 'string_yesno') { |
| if ($env{'form.recent_string'} =~ /^(yes|no)$/i) { | if ($env{'form.recent_string'} =~ /^(yes|no)$/i) { |