|
version 1.12, 2011/10/21 20:00:30
|
version 1.14, 2014/10/14 19:54:00
|
|
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); |
|
Line 246 sub cgi_header {
|
Line 246 sub cgi_header {
|
| if ($contenttype ne '') { |
if ($contenttype ne '') { |
| if ($mimetypes->type($contenttype) ne '') { |
if ($mimetypes->type($contenttype) ne '') { |
| $headers{'-type'} = $contenttype; |
$headers{'-type'} = $contenttype; |
| |
if ($contenttype =~ m{^text/}) { |
| |
$headers{'-charset'} = 'utf-8'; |
| |
} |
| } |
} |
| } |
} |
| if ($nocache) { |
if ($nocache) { |
![[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