loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2001/03/10 16:46:52	version 1.42, 2001/03/10 22:30:18
Line 326 sub sett {	Line 326 sub sett {
} keys %f;	} keys %f;
map {	map {
if (($f{$_}) && ($_!~/template\_/)) {	if (($f{$_}) && ($_!~/template\_/)) {
if ($_=~/^$pattern/) {	my $matches=($_=~/^$pattern(\d+)/);
	if (($matches) && ($1)) {
unless ($f{$_}=~/^\!/) {	unless ($f{$_}=~/^\!/) {
$t{$_}=$c{$_};	$t{$_}=$c{$_};
}	}
Line 1200 sub loadstudent {	Line 1201 sub loadstudent {
map {	map {
if ($_=~/^A(\d+)/) {	if ($_=~/^A(\d+)/) {
my $row=$1;	my $row=$1;
unless ($f{$_}=~/^\!/) {	unless (($f{$_}=~/^\!/) \|\| ($row==0)) {
@assessdata=&exportsheet(&getuname($safeeval),	@assessdata=&exportsheet(&getuname($safeeval),
&getudom($safeeval),	&getudom($safeeval),
'assesscalc',$f{$_});	'assesscalc',$f{$_});
Line 1251 sub loadcourse {	Line 1252 sub loadcourse {
'<form name=popremain>'+	'<form name=popremain>'+
'<input type=text size=35 name=remaining value=Starting></form>'+	'<input type=text size=35 name=remaining value=Starting></form>'+
'</body></html>');	'</body></html>');
popwin.document.close;	popwin.document.close();
	popwin.close();
</script>	</script>
ENDPOP	ENDPOP
$r->rflush();	$r->rflush();
map {	map {
if ($_=~/^A(\d+)/) {	if ($_=~/^A(\d+)/) {
my $row=$1;	my $row=$1;
unless ($f{$_}=~/^\!/) {	unless (($f{$_}=~/^\!/) \|\| ($row==0)) {
my @studentdata=&exportsheet(split(/\:/,$f{$_}),	my @studentdata=&exportsheet(split(/\:/,$f{$_}),
'studentcalc');	'studentcalc');
undef %userrdatas;	undef %userrdatas;