loncom/publisher/testbankimport.pm - diff

Return to testbankimport.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.29, 2011/01/31 17:49:13	version 1.30, 2011/03/05 22:25:09
Line 1330 sub create_mcq {	Line 1330 sub create_mcq {
my $numfoils = scalar(@{$qstnref}) - 1;	my $numfoils = scalar(@{$qstnref}) - 1;
my $datestamp = localtime;	my $datestamp = localtime;
my $numansrs = scalar(@{$answerref});	my $numansrs = scalar(@{$answerref});
my $output = '<problem>	my $output = '<problem>';
	if ($qtype eq 'MC') {
	$output .= "\n".'<parameter name="maxtries" type="int_pos" default="2" description="Maximum Number of Tries" />';
	}
	$output .= '
<startouttext />';	<startouttext />';
if ($res eq 'application/rtf' \|\| $res eq 'text/html') {	if ($res eq 'application/rtf' \|\| $res eq 'text/html') {
if ($header ne '') {	if ($header ne '') {