version 1.26, 2014/01/13 15:29:10
|
version 1.27, 2014/12/04 15:41:30
|
Line 211 sub end_externalresponse {
|
Line 211 sub end_externalresponse {
|
} |
} |
my $uploadedflag=0; |
my $uploadedflag=0; |
my $totalsize=0; |
my $totalsize=0; |
&Apache::essayresponse::file_submission($part,$id,\$award,\$uploadedflag,\$totalsize,\@deletions); |
my %info; |
|
my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval); |
|
if ($url =~ m{^https?://([^/]+)/}) { |
|
use Socket; |
|
my $ip = gethostbyname($1); |
|
if (length($ip) eq 4) { |
|
$info{'ip'} = inet_ntoa($ip); |
|
} |
|
} elsif ($url =~ m{^/}) { |
|
my $ip = &Apache::lonnet::get_host_ip($Apache::lonnet::perlvar{'lonHostID'}); |
|
if ($ip =~ /^[\d\.]+$/) { |
|
$info{'ip'} = $ip; |
|
} |
|
} |
|
&Apache::essayresponse::file_submission($part,$id,\$award,\$uploadedflag,\$totalsize, |
|
\@deletions,'externalresponse',\%info); |
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; |
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award; |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award; |
my %previous=&Apache::response::check_for_previous($response,$part,$id); |
my %previous=&Apache::response::check_for_previous($response,$part,$id); |