loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/edit.pm between versions 1.84.2.1 and 1.88

version 1.84.2.1, 2004/08/19 21:03:23	version 1.88, 2004/10/26 15:06:58
Line 68 sub tag_start {	Line 68 sub tag_start {
# "</tr><tr><td colspan=\"3\">\n";	# "</tr><tr><td colspan=\"3\">\n";
my @help = Apache::lonxml::helpinfo($token);	my @help = Apache::lonxml::helpinfo($token);
if ($help[0]) {	if ($help[0]) {
$result .= '<td align="right" valign="top">' .	$result .= '</td><td align="right" valign="top">' .
Apache::loncommon::help_open_topic(@help) .	Apache::loncommon::help_open_topic(@help);
'</td>';	} else { $result .= "</td><td> "; }
} else { $result .= "<td> </td>"; }
$result .= &end_row().&start_spanning_row();	$result .= &end_row().&start_spanning_row();
}	}
return $result;	return $result;
Line 191 sub get_insert_list {	Line 190 sub get_insert_list {
$descrip."</option>\n";	$descrip."</option>\n";
}	}
foreach my $option (sort(keys(%options))) {$result.=$options{$option};}	foreach my $option (sort(keys(%options))) {$result.=$options{$option};}
if ($result) { $result='<option selected="on"></option>'.$result; }	if ($result) { $result='<option selected="selected"></option>'.$result; }
}	}
return $result;	return $result;
}	}
Line 282 sub insert_responseparam {	Line 281 sub insert_responseparam {
<responseparam />';	<responseparam />';
}	}

	sub insert_parameter {
	return '
	<parameter />';
	}

sub insert_formularesponse {	sub insert_formularesponse {
return '	return '
<formularesponse answer="" samples="">	<formularesponse answer="" samples="">
Line 505 sub editfield {	Line 509 sub editfield {
'" cols="'.$cols.'" name="homework_edit_'.	'" cols="'.$cols.'" name="homework_edit_'.
$Apache::lonxml::curdepth.'" id="homework_edit_'.	$Apache::lonxml::curdepth.'" id="homework_edit_'.
$Apache::lonxml::curdepth.'">'.	$Apache::lonxml::curdepth.'">'.
&HTML::Entities::encode($data,'<>&"').'</textarea>'."\n";	&HTML::Entities::encode($data,'<>&"').'</textarea>'.
	($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework',
	'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";
}	}

sub modifiedfield {	sub modifiedfield {
Line 606 sub checked_arg {	Line 612 sub checked_arg {
&html_element_name($name)."'";	&html_element_name($name)."'";
foreach my $selected (split(/,/,$allselected)) {	foreach my $selected (split(/,/,$allselected)) {
if ( $selected eq $option ) {	if ( $selected eq $option ) {
$result.=" checked='on' ";	$result.=" checked='checked' ";
last;	last;
}	}
}	}
Line 641 sub select_arg {	Line 647 sub select_arg {
$value='value="'.$option.'"';	$value='value="'.$option.'"';
}	}
if ( $selected eq $option ) {	if ( $selected eq $option ) {
$optionlist.="<option $value selected=\"on\">$text</option>\n";	$optionlist.="<option $value selected=\"selected\">$text</option>\n";
} else {	} else {
$optionlist.="<option $value >$text</option>\n";	$optionlist.="<option $value >$text</option>\n";
}	}
Line 670 sub select_or_text_arg {	Line 676 sub select_or_text_arg {
$value='value="'.$option.'"';	$value='value="'.$option.'"';
}	}
if ( $selected eq $option ) {	if ( $selected eq $option ) {
$optionlist.="<option $value selected=\"on\">$text</option>\n";	$optionlist.="<option $value selected=\"selected\">$text</option>\n";
$found=1;	$found=1;
} else {	} else {
$optionlist.="<option $value>$text</option>\n";	$optionlist.="<option $value>$text</option>\n";
}	}
}	}
$optionlist.="<option value=\"TYPEDINVALUE\"".	$optionlist.="<option value=\"TYPEDINVALUE\"".
((!$found)?' selected="on"':'').	((!$found)?' selected="selected"':'').
">".&mt('Type-in value')."</option>\n";	">".&mt('Type-in value')."</option>\n";
#	#
my $element=&html_element_name($name);	my $element=&html_element_name($name);

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

Removed from v.1.84.2.1
changed lines
	Added in v.1.88