loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.252, 2012/03/05 11:50:39	version 1.254, 2013/01/21 06:04:07
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# caparesponse definition	# caparesponse definition
#	#
# caparesponse.pm,v 1.249.8.2 2012/02/04 20:40:15 foxr	# $Id$
#	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
Line 456 sub check_submission {	Line 456 sub check_submission {
my ($result,@msgs) =	my ($result,@msgs) =
&Apache::run::run("&caparesponse_check_list()",$safeeval);	&Apache::run::run("&caparesponse_check_list()",$safeeval);
&Apache::lonxml::debug("checking $name $result with $response took ".&Time::HiRes::tv_interval($t0));	&Apache::lonxml::debug("checking $name $result with $response took ".&Time::HiRes::tv_interval($t0));

&Apache::lonxml::debug('msgs are '.join(':',@msgs));	&Apache::lonxml::debug('msgs are '.join(':',@msgs));
my ($awards)=split(/:/,$result);	my ($awards)=split(/:/,$result);
my @awards= split(/,/,$awards);	my @awards= split(/,/,$awards);