loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/rankresponse.pm between versions 1.55 and 1.57.2.1

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

version 1.55, 2007/10/15 09:47:29	version 1.57.2.1, 2008/12/11 04:04:15
Line 48 sub start_rankresponse {	Line 48 sub start_rankresponse {
if ($target eq 'meta') {	if ($target eq 'meta') {
$result=&Apache::response::meta_package_write('rankresponse');	$result=&Apache::response::meta_package_write('rankresponse');
} elsif ($target eq 'edit' ) {	} elsif ($target eq 'edit' ) {
$result.=&Apache::edit::start_table($token).	$result.=&Apache::edit::start_table($token)
'<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:".	.'<tr><td>'.&Apache::lonxml::description($token).'</td>'
&Apache::edit::deletelist($target,$token)	.'<td>span class="LC_nobreak">'.&mt('Delete?').' '
."</td><td>&nbsp".&Apache::edit::end_row()	.&Apache::edit::deletelist($target,$token)
.&Apache::edit::start_spanning_row();	.'</span></td>'
	.'<td> '.&Apache::edit::end_row()
	.&Apache::edit::start_spanning_row();

$result.=	$result.=
&Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4').	&Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4').
&Apache::edit::select_arg('Randomize Foil Order','randomize',	&Apache::edit::select_arg('Randomize Foil Order:','randomize',
['yes','no'],$token).	['yes','no'],$token).
&Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";	&Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
Line 66 sub start_rankresponse {	Line 68 sub start_rankresponse {
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
} elsif ($target eq 'analyze') {	} elsif ($target eq 'analyze') {
my $part_id="$Apache::inputtags::part.$id";	my $part_id="$Apache::inputtags::part.$id";
	$Apache::lonhomework::analyze{"$part_id.type"} = 'rankresponse';
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);	push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);	push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);

Line 473 sub end_foil {	Line 476 sub end_foil {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
&Apache::lonxml::debug("Got a name of :$name:");	&Apache::lonxml::debug("Got a name of :$name:");
if ($name eq "") {	if ($name eq "") {
&Apache::lonxml::warning("Foils without names exist. This can cause problems to malfunction.");	&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.'));
$name=$Apache::lonxml::curdepth;	$name=$Apache::lonxml::curdepth;
}	}
&Apache::lonxml::debug("Using a name of :$name:");	&Apache::lonxml::debug("Using a name of :$name:");
if (defined($Apache::response::foilnames{$name})) {	if (defined($Apache::response::foilnames{$name})) {
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));	&Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>'));
}	}
$Apache::response::foilnames{$name}++;	$Apache::response::foilnames{$name}++;
my $location =&Apache::lonxml::get_param('location',$parstack,	my $location =&Apache::lonxml::get_param('location',$parstack,

Removed from v.1.55
changed lines
	Added in v.1.57.2.1