loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.141, 2003/11/03 21:29:23	version 1.143, 2003/11/04 21:21:35
Line 521 function select1_changed() {	Line 521 function select1_changed() {
// in with the nuclear	// in with the nuclear
for (i=0;i<values.length; i++) {	for (i=0;i<values.length; i++) {
$second.options[i] = new Option(values[i]);	$second.options[i] = new Option(values[i]);
	$second.options[i].value = values[i];
$second.options[i].text = texts[i];	$second.options[i].text = texts[i];
if (values[i] == select2def) {	if (values[i] == select2def) {
$second.options[i].selected = true;	$second.options[i].selected = true;
Line 1771 sub get_previous_attempt {	Line 1772 sub get_previous_attempt {
} else {	} else {
$value=$returnhash{$version.':'.$_};	$value=$returnhash{$version.':'.$_};
}	}
$prevattempts.='<td>'.$value.' </td>';	$prevattempts.='<td>'.&Apache::lonnet::unescape($value).' </td>';
}	}
}	}
}	}
Line 1783 sub get_previous_attempt {	Line 1784 sub get_previous_attempt {
} else {	} else {
$value=$lasthash{$_};	$value=$lasthash{$_};
}	}
	$value=&Apache::lonnet::unescape($value);
if ($_ =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}	if ($_ =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}
$prevattempts.='<td>'.$value.' </td>';	$prevattempts.='<td>'.$value.' </td>';
}	}