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.100.2.2 and 1.100.4.1

version 1.100.2.2, 2002/09/10 21:11:23	version 1.100.4.1, 2002/09/27 18:43:10
Line 1187 sub rown {	Line 1187 sub rown {
if ($vl eq '') {	if ($vl eq '') {
$vl='<font size=+2 color='.$bgcolor.'>#</font>';	$vl='<font size=+2 color='.$bgcolor.'>#</font>';
}	}
$rowdata.=	$rowdata.='<td bgcolor='.$bgcolor.'>';
'<td bgcolor='.$bgcolor.'><a href="javascript:celledit('.$fm.');">'.$vl.	if ($ENV{'request.role'} =~ /^st\./) {
'</a></td>';	$rowdata.=$vl;
	} else {
	$rowdata.='<a href="javascript:celledit('.$fm.');">'.
	$vl.'</a>';
	}
	$rowdata.='</td>';
} else {	} else {
$rowdata.='<td bgcolor='.$bgcolor.'> '.$vl.' </td>';	$rowdata.='<td bgcolor='.$bgcolor.'> '.$vl.' </td>';
}	}
Line 2461 sub handler {	Line 2466 sub handler {
return OK;	return OK;
}	}

	if ($ENV{'request.role'} =~ /^st\./) {
	delete $ENV{'form.unewfield'} if (exists($ENV{'form.unewfield'}));
	delete $ENV{'form.unewformula'} if (exists($ENV{'form.unewformula'}));
	}

# ---------------------------------------------------- Global directory configs	# ---------------------------------------------------- Global directory configs

$includedir=$r->dir_config('lonIncludes');	$includedir=$r->dir_config('lonIncludes');
Line 2506 $tmpdir=$r->dir_config('lonDaemons').'/t	Line 2516 $tmpdir=$r->dir_config('lonDaemons').'/t
# --------------------------------------------------------------- Screen output	# --------------------------------------------------------------- Screen output

$r->print('<html><head><title>LON-CAPA Spreadsheet</title>');	$r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
$r->print(<<ENDSCRIPT);	if ($ENV{'request.role'} !~ /^st\./) {
	$r->print(<<ENDSCRIPT);
<script language="JavaScript">	<script language="JavaScript">

function celledit(cn,cf) {	function celledit(cn,cf) {
Line 2532 $tmpdir=$r->dir_config('lonDaemons').'/t	Line 2543 $tmpdir=$r->dir_config('lonDaemons').'/t

</script>	</script>
ENDSCRIPT	ENDSCRIPT
	}
$r->print('</head><body bgcolor="#FFFFFF">'.	$r->print('</head><body bgcolor="#FFFFFF">'.
'<img align=right src=/adm/lonIcons/lonlogos.gif>'.	'<img align=right src=/adm/lonIcons/lonlogos.gif>'.
'<h1>LON-CAPA Spreadsheet</h1>'.	'<h1>LON-CAPA Spreadsheet</h1>'.

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

Removed from v.1.100.2.2
changed lines
	Added in v.1.100.4.1