loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2001/03/13 15:50:47	version 1.45, 2001/03/17 16:52:30
Line 4	Line 4
# 11/11,11/15,11/27,12/04,12/05,12/06,12/07,	# 11/11,11/15,11/27,12/04,12/05,12/06,12/07,
# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30,	# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30,
# 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 Gerd Kortemeyer	# 03/05,03/08,03/10,03/12,03/13,03/15,03/17 Gerd Kortemeyer

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

Line 1025 sub updateclasssheet {	Line 1025 sub updateclasssheet {
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.	my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
':environment:firstname&middlename&lastname&generation',	':environment:firstname&middlename&lastname&generation',
&Apache::lonnet::homeserver($sname,$sdom));	&Apache::lonnet::homeserver($sname,$sdom));
$rowlabel=$ssec.' '.$reply{$sname}.'<br>';	$rowlabel='<a href="/adm/studentcalc?uname='.$sname.
	'&udom='.$sdom.'">'.
	$ssec.' '.$reply{$sname}.'<br>';
map {	map {
$rowlabel.=&Apache::lonnet::unescape($_).' ';	$rowlabel.=&Apache::lonnet::unescape($_).' ';
} split(/\&/,$reply);	} split(/\&/,$reply);
	$rowlabel.='</a>';
}	}
$currentlist{&Apache::lonnet::unescape($name)}=$rowlabel;	$currentlist{&Apache::lonnet::unescape($name)}=$rowlabel;
}	}