loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.3 and 1.5

version 1.3, 2003/07/09 10:05:15	version 1.5, 2003/09/09 19:39:04
Line 138 sub handler {	Line 138 sub handler {
}	}

# -------------------------------------------------------------------- Allowed?	# -------------------------------------------------------------------- Allowed?
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {	unless (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
# ----------------------------------------------------------------- Send header	# ----------------------------------------------------------------- Send header
Line 210 ENDDOCUMENT	Line 210 ENDDOCUMENT
$qtype=$qparms{$prefix.'questiontype'};	$qtype=$qparms{$prefix.'questiontype'};
unless (defined($qtype)) { $qtype='radio'; }	unless (defined($qtype)) { $qtype='radio'; }
unless ($questiontypes{$qtype}) { $qtype='radio'; }	unless ($questiontypes{$qtype}) { $qtype='radio'; }
$r->print('Question Type: '.&Apache::loncommon::select_form	$r->print('<b>Question Type: '.&Apache::loncommon::select_form
($qtype,'questiontype',%questiontypes).	($qtype,'questiontype',%questiontypes).
'<p> </p>');	'</b><br /><input type="submit" value="Store Changes" /><p> </p>');
# Question Text	# Question Text
$r->print(&questiontext());	$r->print(&questiontext());
# Radio, Option ===	# Radio, Option ===
Line 281 ENDDOCUMENT	Line 281 ENDDOCUMENT
}	}
# Store Button	# Store Button
$r->print(	$r->print(
'<input type="submit" name="storeproblem" value="Store Changes" /></form>');	'<input type="submit" value="Store Changes" /></form>');
} else {	} else {
$r->print('Could not identify problem.');	$r->print('Could not identify problem.');
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.3
changed lines
	Added in v.1.5