![[BACK]](/icons/back.gif){kind=icon}
Return to loncgi.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / cgi|
Return to loncgi.pm CVS log | Up to [LON-CAPA] / loncom / cgi |
| version 1.12, 2011/10/21 20:00:30 | version 1.13, 2013/05/13 01:26:54 |
|---|---|
| Line 154 Returns: undef | Line 154 Returns: undef |
| ############################################# | ############################################# |
| sub transfer_profile_to_env { | sub transfer_profile_to_env { |
| my ($handle)=@_; | my ($handle)=@_; |
| if (tie(my %disk_env,'GDBM_File',"$lonidsdir/$handle.id",&GDBM_READER(), | if (tie(my %disk_env,'GDBM_File',"$lonidsdir/$handle.id",&GDBM_READER(), |
| 0640)) { | 0640)) { |
| %Apache::lonnet::env = %disk_env; | %Apache::lonnet::env = %disk_env; |
| untie(%disk_env); | untie(%disk_env); |