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.8 and 1.9

version 1.8, 2000/12/07 22:51:29	version 1.9, 2000/12/08 17:16:37
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# Spreadsheet/Grades Display Handler	# Spreadsheet/Grades Display Handler
#	#
# 11/11,11/15,11/27,12/04,12/05,12/06,12/07 Gerd Kortemeyer	# 11/11,11/15,11/27,12/04,12/05,12/06,12/07,12/08 Gerd Kortemeyer

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

Line 399 sub getfilename {	Line 399 sub getfilename {

sub rown {	sub rown {
my ($safeeval,$n)=@_;	my ($safeeval,$n)=@_;
	my $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';
my $rowdata="\n<tr><td><b><font size=+1>$n</font></b></td>";	my $rowdata="\n<tr><td><b><font size=+1>$n</font></b></td>";
my $showf=0;	my $showf=0;
map {	map {
	my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');
my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);	my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);
if ($showf==0) { $vl=$_; }	if ($showf==0) { $vl=$_; }
	if ($showf<=1) { $bgcolor='#FFDDDD'; }
	if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; }
if ($showf>1) {	if ($showf>1) {
if ($vl eq '') {	if ($vl eq '') {
$vl='<font size=+2 color=white>#</font>';	$vl='<font size=+2 color='.$bgcolor.'>#</font>';
}	}
$rowdata.=	$rowdata.=
'<td><a href="javascript:prompt('.$fm.');">'.$vl.	'<td bgcolor='.$bgcolor.'><a href="javascript:prompt('.$fm.');">'.$vl.
'</a></td>';	'</a></td>';
} else {	} else {
$rowdata.='<td> '.$vl.' </td>';	$rowdata.='<td bgcolor='.$bgcolor.'> '.$vl.' </td>';
}	}
$showf++;	$showf++;
} $safeeval->reval('&outrow('.$n.')');	} $safeeval->reval('&outrow('.$n.')');
Line 423 sub rown {	Line 427 sub rown {

sub outsheet {	sub outsheet {
my $safeeval=shift;	my $safeeval=shift;
my $tabledata='<table border=2><tr><td colspan=2> </td>';	my $tabledata='<table border=2><tr><td colspan=2> </td>'.
	'<td bgcolor=#FFDDDD><b>A Import</b></td>';
map {	map {
$tabledata.="<td><b><font size=+1>$_</font></b></td>";	$tabledata.="<td><b><font size=+1>$_</font></b></td>";
} ('A<br>Import','B','C','D','E','F','G','H','I','J','K','L','M',	} ('B','C','D','E','F','G','H','I','J','K','L','M',
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',	'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
'a','b','c','d','e','f','g','h','i','j','k','l','m',	'a','b','c','d','e','f','g','h','i','j','k','l','m',
'n','o','p','q','r','s','t','u','v','w','x','y','z');	'n','o','p','q','r','s','t','u','v','w','x','y','z');

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

Removed from v.1.8
changed lines
	Added in v.1.9