loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

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;
}	}