loncom/homework/externalresponse.pm - diff

Return to externalresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.28, 2014/12/06 17:46:40	version 1.29, 2014/12/06 20:08:16
Line 173 sub end_externalresponse {	Line 173 sub end_externalresponse {
}	}
my $uploadedflag=0;	my $uploadedflag=0;
my $totalsize=0;	my $totalsize=0;
my %info;	my %info = (
	'is_submit' => $is_submit,
	);
my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval);	my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval);
if ($url =~ m{^https?://([^/]+)/}) {	if ($url =~ m{^https?://([^/]+)/}) {
use Socket;	use Socket;