--- loncom/cgi/loncgi.pm 2011/10/21 20:00:30 1.12 +++ loncom/cgi/loncgi.pm 2013/05/13 01:26:54 1.13 @@ -1,7 +1,7 @@ # # LON-CAPA helpers for cgi-bin scripts # -# $Id: loncgi.pm,v 1.12 2011/10/21 20:00:30 raeburn Exp $ +# $Id: loncgi.pm,v 1.13 2013/05/13 01:26:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -154,7 +154,7 @@ Returns: undef ############################################# sub transfer_profile_to_env { 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)) { %Apache::lonnet::env = %disk_env; untie(%disk_env);