version 1.363, 2016/07/18 19:29:11
|
version 1.365, 2016/09/14 16:13:17
|
Line 231 sub check_slot_access {
|
Line 231 sub check_slot_access {
|
my ($returned_slot,$slot_name,$checkinslot,$ipused,$blockip,$now,$ip, |
my ($returned_slot,$slot_name,$checkinslot,$ipused,$blockip,$now,$ip, |
$consumed_uniq); |
$consumed_uniq); |
$now = time; |
$now = time; |
$ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'}; |
$ip=$ENV{'REMOTE_ADDR'} || $env{'request.host'}; |
|
|
if ($checkedin) { |
if ($checkedin) { |
$checkinslot = $Apache::lonhomework::history{"$checkin.slot"}; |
$checkinslot = $Apache::lonhomework::history{"$checkin.slot"}; |
Line 1431 sub get_template_html {
|
Line 1431 sub get_template_html {
|
sub newproblem { |
sub newproblem { |
my ($request) = @_; |
my ($request) = @_; |
|
|
if ($env{'form.mode'} eq 'blank'){ |
if ($env{'form.mode'} eq 'blank'){ |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
&File::Copy::copy('/home/httpd/html/res/adm/includes/templates/blank.problem',$dest); |
my $templatefilename = |
|
$request->dir_config('lonIncludes').'/templates/blank.problem'; |
|
&File::Copy::copy($templatefilename,$dest); |
&renderpage($request,$dest); |
&renderpage($request,$dest); |
return; |
return; |
} |
} |