|
version 1.1172.2.146.2.28, 2025/02/07 22:54:30
|
version 1.1172.2.146.2.29, 2025/06/06 21:18:46
|
|
Line 14301 sub receipt {
|
Line 14301 sub receipt {
|
| } |
} |
| |
|
| sub whichuser { |
sub whichuser { |
| my ($passedsymb)=@_; |
my ($passedsymb,$ignorecachednull)=@_; |
| my ($symb,$courseid,$domain,$name,$publicuser); |
my ($symb,$courseid,$domain,$name,$publicuser); |
| if (defined($env{'form.grade_symb'})) { |
if (defined($env{'form.grade_symb'})) { |
| my ($tmp_courseid)=&get_env_multiple('form.grade_courseid'); |
my ($tmp_courseid)=&get_env_multiple('form.grade_courseid'); |
|
Line 14321 sub whichuser {
|
Line 14321 sub whichuser {
|
| } |
} |
| } |
} |
| if (!$passedsymb) { |
if (!$passedsymb) { |
| $symb=&symbread(); |
$symb=&symbread('','',$ignorecachednull); |
| } else { |
} else { |
| $symb=$passedsymb; |
$symb=$passedsymb; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl