loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.66, 2001/10/16 09:53:50	version 1.67, 2001/10/16 19:27:19
Line 6	Line 6
# 01/01/01,02/01,03/01,19/01,20/01,22/01,	# 01/01/01,02/01,03/01,19/01,20/01,22/01,
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17,	# 03/05,03/08,03/10,03/12,03/13,03/15,03/17,
# 03/19,03/20,03/21,03/27,04/05,04/09,	# 03/19,03/20,03/21,03/27,04/05,04/09,
# 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13,9/14,9/17,10/16 Gerd Kortemeyer	# 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13,9/14,9/17 Gerd Kortemeyer

package Apache::lonspreadsheet;	package Apache::lonspreadsheet;

Line 1247 sub updatestudentassesssheet {	Line 1247 sub updatestudentassesssheet {
$display.=	$display.=
&Apache::lonnet::metadata($srcf,$key.'.name');	&Apache::lonnet::metadata($srcf,$key.'.name');
}	}
$key=~s/\W/\_/g;
$display.='<br>'.$key;	$display.='<br>'.$key;
$allkeys{$key}=$display;	$allkeys{$key}=$display;
}	}
Line 1567 sub loadassessment {	Line 1566 sub loadassessment {
} else {	} else {
my $key=$f{$_};	my $key=$f{$_};
my $ckey=$key;	my $ckey=$key;
$ckey=~s/\W/\_/g;
$key=~s/^stores\_/resource\./;	$key=~s/^stores\_/resource\./;
$key=~s/\_/\./;	$key=~s/\_/\./;
$c{$_}=$returnhash{$key};	$c{$_}=$returnhash{$key};