loncom/publisher/testbankimport.pm - diff

Return to testbankimport.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.28, 2010/12/14 16:26:04	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 '') {
Line 1942 sub handler {	Line 1946 sub handler {
my ($result,$flag) = &Apache::lonupload::phasetwo($r,$fn,$uname,$udom,'testbank');	my ($result,$flag) = &Apache::lonupload::phasetwo($r,$fn,$uname,$udom,'testbank');
$r->print($result);	$r->print($result);
if ($flag eq 'ok') {	if ($flag eq 'ok') {
	my $current_page = 0;
my $js;	my $js;
&jscript_zero($webpath,\$js);	&jscript_zero($webpath,\$js);
$js = '<script type="text/javascript">'."\n$js\n".'</script>';	$js = '<script type="text/javascript">'."\n$js\n".'</script>';