loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.49 and 1.50

version 1.49, 2001/03/20 21:49:05	version 1.50, 2001/03/21 01:43:22
Line 1096 sub updatestudentassesssheet {	Line 1096 sub updatestudentassesssheet {
my %allkeys=();	my %allkeys=();
my %allassess=();	my %allassess=();

	my $adduserstr='';
	if ((&getuname($safeeval) ne $ENV{'user.name'}) \|\|
	(&getudom($safeeval) ne $ENV{'user.domain'})) {
	$adduserstr='&uname='.&getuname($safeeval).
	'&udom='.&getudom($safeeval);
	}

map {	map {
if ($_=~/^src\_(\d+)\.(\d+)$/) {	if ($_=~/^src\_(\d+)\.(\d+)$/) {
my $mapid=$1;	my $mapid=$1;
Line 1108 sub updatestudentassesssheet {	Line 1115 sub updatestudentassesssheet {
'___'.$resid.'___'.	'___'.$resid.'___'.
&Apache::lonnet::declutter($srcf);	&Apache::lonnet::declutter($srcf);
$allassess{$symb}=	$allassess{$symb}=
'<a href="/adm/assesscalc?usymb='.$symb.'">'.$bighash{'title_'.$id}.'</a>';	'<a href="/adm/assesscalc?usymb='.$symb.$adduserstr.'">'.
	$bighash{'title_'.$id}.'</a>';
if ($stype eq 'assesscalc') {	if ($stype eq 'assesscalc') {
map {	map {
if (($_=~/^stores\_(.)/) \|\| ($_=~/^parameter\_(.)/)) {	if (($_=~/^stores\_(.)/) \|\| ($_=~/^parameter\_(.)/)) {
Line 1260 sub loadcourse {	Line 1268 sub loadcourse {
<script>	<script>
popwin=open('','popwin','width=400,height=100');	popwin=open('','popwin','width=400,height=100');
popwin.document.writeln('<html><body bgcolor="#FFFFFF">'+	popwin.document.writeln('<html><body bgcolor="#FFFFFF">'+
'<h1>Spreadsheet Calculation Progress</h1>'+	'<h3>Spreadsheet Calculation Progress</h3>'+
'<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>');

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

Removed from v.1.49
changed lines
	Added in v.1.50