version 1.25, 2014/01/13 13:20:33
|
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); |
Line 324 sub end_externalresponse {
|
Line 339 sub end_externalresponse {
|
'uploadedurl']); |
'uploadedurl']); |
if (&Apache::response::show_answer()) { |
if (&Apache::response::show_answer()) { |
$result.='<table border="1"><tr><th>'.&mt('Your answer:').'</th></tr><tr><td><pre>'. |
$result.='<table border="1"><tr><th>'.&mt('Your answer:').'</th></tr><tr><td><pre>'. |
$Apache::lonhomework::history{"resource.$part.$id.submission"}. |
&HTML::Entities::encode( |
|
$Apache::lonhomework::history{"resource.$part.$id.submission"},'"<>&'). |
'</pre></td></table><br />'.&Apache::lonxml::get_param('answerdisplay',$parstack,$safeeval). |
'</pre></td></table><br />'.&Apache::lonxml::get_param('answerdisplay',$parstack,$safeeval). |
'<br />'; |
'<br />'; |
} |
} |