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.8

version 1.3, 2003/07/09 10:05:15	version 1.8, 2003/11/04 19:18:16
Line 32 use strict;	Line 32 use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::lonlocal;

my %qparms;	my %qparms;
my $prefix;	my $prefix;
Line 60 sub rawrendering {	Line 61 sub rawrendering {
$ENV{'user.name'}=time;	$ENV{'user.name'}=time;
$ENV{'user.domain'}=time;	$ENV{'user.domain'}=time;
my $result = &Apache::lonxml::xmlparse($request,'web', $problem);	my $result = &Apache::lonxml::xmlparse($request,'web', $problem);
	undef($Apache::lonhomework::parsing_a_problem);
$ENV{'user.name'}=$uname;	$ENV{'user.name'}=$uname;
$ENV{'user.domain'}=$udom;	$ENV{'user.domain'}=$udom;
$result=~s/^.\<body[^\>]\>//si;	$result=~s/^.\<body[^\>]\>//si;
Line 132 sub handler {	Line 134 sub handler {
my $r = shift;	my $r = shift;

if ($r->header_only) {	if ($r->header_only) {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}

# -------------------------------------------------------------------- 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
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
# ----------------------------------------------------- Figure out where we are	# ----------------------------------------------------- Figure out where we are
my $uri=$r->uri;	my $uri=$r->uri;
Line 167 sub handler {	Line 169 sub handler {
}	}
$ENV{'form.options'}="('".join("','",keys %curoptions)."')";	$ENV{'form.options'}="('".join("','",keys %curoptions)."')";
}	}
	$ENV{'form.hiddenparts'}='!'.$ENV{'form.questiontype'};
foreach (keys %ENV) {	foreach (keys %ENV) {
if ($_=~/^form\.(\w+)$/) {	if ($_=~/^form\.(\w+)$/) {
my $parm=$1;	my $parm=$1;
Line 210 ENDDOCUMENT	Line 213 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="'.&mt('Store Changes').
	'" /><p> </p>');
# Question Text	# Question Text
$r->print(&questiontext());	$r->print(&questiontext());
# Radio, Option ===	# Radio, Option ===
Line 229 ENDDOCUMENT	Line 233 ENDDOCUMENT
unless ($randomizes{$randomize}) { $randomize='yes'; }	unless ($randomizes{$randomize}) { $randomize='yes'; }
$r->print(	$r->print(
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.	'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
'<tr><td>Max number of foils displayed: <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />  '.	'<tr><td>'.&mt('Max number of foils displayed').
	': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />  '.
&Apache::loncommon::select_form	&Apache::loncommon::select_form
($randomize,'randomize',%randomizes).	($randomize,'randomize',%randomizes).
'</td></tr><tr><td bgcolor="#AAAAAA">');	'</td></tr><tr><td bgcolor="#AAAAAA">');
Line 242 ENDDOCUMENT	Line 247 ENDDOCUMENT
'<table bgcolor="#ffcc22" cellspacing="4" cellpadding="2">'.	'<table bgcolor="#ffcc22" cellspacing="4" cellpadding="2">'.
'<tr><td><input type="hidden" name="options" value="'.	'<tr><td><input type="hidden" name="options" value="'.
$options.'" />Add new option: '.	$options.'" />Add new option: '.
'<input type="text" name="newopt" size="15" />Delete an option: '.	'<input type="text" name="newopt" size="15" />'.
	&mt('Delete an option').': '.
&Apache::loncommon::select_form('','delopt',('' => '',%optionshash)).	&Apache::loncommon::select_form('','delopt',('' => '',%optionshash)).
'</td></tr><tr><td>');	'</td></tr><tr><td>');
}	}
Line 272 ENDDOCUMENT	Line 278 ENDDOCUMENT
unless ($stringtypes{$stringtype}) { $stringtype='cs'; }	unless ($stringtypes{$stringtype}) { $stringtype='cs'; }
$r->print(	$r->print(
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.	'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
'<tr><td>Correct answer: <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />  '.	'<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />  '.
&Apache::loncommon::select_form	&Apache::loncommon::select_form
($stringtype,'stringtype',%stringtypes).	($stringtype,'stringtype',%stringtypes).
'</td></tr></table><br />');	'</td></tr></table><br />');
Line 281 ENDDOCUMENT	Line 287 ENDDOCUMENT
}	}
# Store Button	# Store Button
$r->print(	$r->print(
'<input type="submit" name="storeproblem" value="Store Changes" /></form>');	'<input type="submit" value="'.&mt('Store Changes').'" /></form>');
} else {	} else {
$r->print('Could not identify problem.');	$r->print(&mt('Could not identify problem.'));
}	}
$r->print('</body></html>');	$r->print('</body></html>');
return OK;	return OK;

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

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