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.19 and 1.23

version 1.19, 2000/12/19 15:40:08	version 1.23, 2001/01/01 16:16:08
Line 2	Line 2
# Spreadsheet/Grades Display Handler	# Spreadsheet/Grades Display Handler
#	#
# 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 Gerd Kortemeyer	# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30,
	# 01/01/01 Gerd Kortemeyer

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

Line 267 sub sett {	Line 268 sub sett {
$pattern='[A-Z]';	$pattern='[A-Z]';
}	}
map {	map {
if ($f{$_}) {	if ($_=~/template\_(\w)/) {
	my $col=$1;
	unless ($col=~/^$pattern/) {
	map {
	if ($_=~/A(\d+)/) {
	my $trow=$1;
	if ($trow) {
	my $lb=$col.$trow;
	$t{$lb}=$f{'template_'.$col};
	$t{$lb}=~s/\#/$trow/g;
	$t{$lb}=~s/\.\.+/\,/g;
	$t{$lb}=~s/(^\|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g;
	}
	}
	} keys %f;
	}
	}
	} keys %f;
	map {
	if (($f{$_}) && ($_!~/template\_/)) {
if ($_=~/^$pattern/) {	if ($_=~/^$pattern/) {
unless ($f{$_}=~/^\!/) {	unless ($f{$_}=~/^\!/) {
$t{$_}=$c{$_};	$t{$_}=$c{$_};
Line 309 sub calc {	Line 329 sub calc {
return '';	return '';
}	}

	sub templaterow {
	my @cols=();
	$cols[0]='<b><font size=+1>Template</font></b>';
	map {
	my $fm=$f{'template_'.$_};
	$fm=~s/[\'\"]/\&\#34;/g;
	$cols[$#cols+1]="'template_$_','$fm'".'___eq___'.$fm;
	} ('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',
	'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');
	return @cols;
	}

sub outrowassess {	sub outrowassess {
my $n=shift;	my $n=shift;
my @cols=();	my @cols=();
Line 332 sub outrow {	Line 366 sub outrow {
my $n=shift;	my $n=shift;
my @cols=();	my @cols=();
if ($n) {	if ($n) {
$cols[0]=$rl{$f{'A'.$n}}.' stuff';	$cols[0]=$rl{$f{'A'.$n}};
} else {	} else {
$cols[0]='<b><font size=+1>Export</font></b>';	$cols[0]='<b><font size=+1>Export</font></b>';
}	}
Line 461 sub exportrow {	Line 495 sub exportrow {

sub rown {	sub rown {
my ($safeeval,$n)=@_;	my ($safeeval,$n)=@_;
my $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';	my $defaultbg;
	unless ($n eq '-') {
	$defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';
	} else {
	$defaultbg='#E0FF';
	}
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;
my $proc;	my $proc;
Line 473 sub rown {	Line 512 sub rown {
$proc='&outrow';	$proc='&outrow';
$maxred=26;	$maxred=26;
}	}
	if ($n eq '-') { $proc='&templaterow'; $n=-1; }
map {	map {
my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');	my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');
my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);	my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);
Line 533 sub outsheet {	Line 573 sub outsheet {
$tabledata.='</tr>';	$tabledata.='</tr>';
my $row;	my $row;
my $maxrow=&getmaxrow($safeeval);	my $maxrow=&getmaxrow($safeeval);
	$tabledata.=&rown($safeeval,'-');
for ($row=0;$row<=$maxrow;$row++) {	for ($row=0;$row<=$maxrow;$row++) {
$tabledata.=&rown($safeeval,$row);	$tabledata.=&rown($safeeval,$row);
}	}
Line 546 sub outsheet {	Line 587 sub outsheet {
sub readsheet {	sub readsheet {
my ($safeeval,$fn,$r)=@_;	my ($safeeval,$fn,$r)=@_;
my %f=();	my %f=();
unless ($fn) {	if (($fn eq '') \|\| ($fn=~/^default\_/)) {
my $sheetxml='';	my $sheetxml='';
{	{
my $fh;	my $fh;
Line 563 sub readsheet {	Line 604 sub readsheet {
$f{$token->[2]->{'col'}.$token->[2]->{'row'}}=	$f{$token->[2]->{'col'}.$token->[2]->{'row'}}=
$parser->get_text('/field');	$parser->get_text('/field');
}	}
	if ($token->[1] eq 'template') {
	$f{'template_'.$token->[2]->{'col'}}=
	$parser->get_text('/template');
	}
}	}
}	}
&setfilename($safeeval,'default_'.&gettype($safeeval));	&setfilename($safeeval,'default_'.&gettype($safeeval));
Line 584 sub readsheet {	Line 629 sub readsheet {
&Apache::lonnet::unescape($value);	&Apache::lonnet::unescape($value);
} split(/\&/,$spreadsheets{$fn});	} split(/\&/,$spreadsheets{$fn});
}	}

&setformulas($safeeval,%f);	&setformulas($safeeval,%f);
}	}

Line 605 sub writesheet {	Line 651 sub writesheet {
&getfilename($safeeval).':'.	&getfilename($safeeval).':'.
$sheetdata,	$sheetdata,
$ENV{'course.'.$ENV{'request.course.id'}.'.home'});	$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
}	if ($reply eq 'ok') {
	return &Apache::lonnet::reply('put:'.
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':'.
	&gettype($safeeval).'_spreadsheets:'.
	&Apache::lonnet::escape(&getfilename($safeeval)).'='.
	$ENV{'user.name'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
	} else {
	return $reply;
	}
	}
	return 'unauthorized';
}	}

# ----------------------------------------------- Make a temp copy of the sheet	# ----------------------------------------------- Make a temp copy of the sheet

sub tmpwrite {	sub tmpwrite {
my ($safeeval,$tmpdir,$symb)=@_;	my ($safeeval,$tmpdir,$symb)=@_;
my $fn=$uname.'_'.$udom.'_spreadsheet_'.&getfilename($safeeval);	my $fn=$uname.'_'.$udom.'_spreadsheet_'.$symb.'_'.&getfilename($safeeval);
$fn=~s/\W/\_/g;	$fn=~s/\W/\_/g;
$fn=$tmpdir.$fn.'.tmp';	$fn=$tmpdir.$fn.'.tmp';
my $fh;	my $fh;
Line 625 sub tmpwrite {	Line 683 sub tmpwrite {

sub tmpread {	sub tmpread {
my ($safeeval,$tmpdir,$symb,$nfield,$nform)=@_;	my ($safeeval,$tmpdir,$symb,$nfield,$nform)=@_;
my $fn=$uname.'_'.$udom.'_spreadsheet_'.&getfilename($safeeval);	my $fn=$uname.'_'.$udom.'_spreadsheet_'.$symb.'_'.&getfilename($safeeval);
$fn=~s/\W/\_/g;	$fn=~s/\W/\_/g;
$fn=$tmpdir.$fn.'.tmp';	$fn=$tmpdir.$fn.'.tmp';
my $fh;	my $fh;
Line 639 sub tmpread {	Line 697 sub tmpread {
$fo{$name}=$value;	$fo{$name}=$value;
}	}
}	}
$fo{$nfield}=$nform;	if ($nfield) { $fo{$nfield}=$nform; }
&setformulas($safeeval,%fo);	&setformulas($safeeval,%fo);
}	}

Line 746 sub parmval {	Line 804 sub parmval {

}	}

	# ---------------------------------------------- Update rows for course listing

	sub updatestudentrows {
	my $safeeval=shift;
	my $cid=$ENV{'request.course.id'};
	my $classlst=&Apache::lonnet::reply
	('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.
	$ENV{'course.'.$cid.'.num'}.':classlist',
	$ENV{'course.'.$cid.'.home'});
	my %currentlist=();
	my $now=time;
	unless ($classlst=~/^error\:/) {
	map {
	my ($name,$value)=split(/\=/,$_);
	my ($end,$start)=split(/\_/,&Apache::lonnet::unescape($value));
	my $active=1;
	if (($end) && ($now>$end)) { $active=0; }
	if ($active) {
	$currentlist{&Apache::lonnet::unescape($name)}=1;
	}
	} split(/\&/,$classlst);
	#
	# -------------------- Find discrepancies between the course row table and this
	#
	my %f=&getformulas($safeeval);
	my $changed=0;

	my $maxrow=0;
	my %existing=();

	# ----------------------------------------------------------- Now obsolete rows
	map {
	if ($_=~/^A(\d+)/) {
	$maxrow=($1>$maxrow)?$1:$maxrow;
	$existing{$f{$_}}=1;
	unless ((defined($currentlist{$f{$_}})) \|\| (!$1)) {
	$f{$_}='!!! Obsolete';
	$changed=1;
	}
	}
	} keys %f;

	# -------------------------------------------------------- New and unknown keys

	map {
	unless ($existing{$_}) {
	$changed=1;
	$maxrow++;
	$f{'A'.$maxrow}=$_;
	}
	} keys %currentlist;

	if ($changed) { &setformulas($safeeval,%f); }

	&setmaxrow($safeeval,$maxrow);
	&setrowlabels($safeeval,%currentlist);

	} else {
	return 'Could not access course data';
	}
	}
# ----------------------------------------------------------------- Update rows	# ----------------------------------------------------------------- Update rows

sub updaterows {	sub updaterows {
Line 1062 sub handler {	Line 1180 sub handler {
</script>	</script>
ENDSCRIPT	ENDSCRIPT
$r->print('</head><body bgcolor="#FFFFFF">'.	$r->print('</head><body bgcolor="#FFFFFF">'.
	'<img align=right src=/adm/lonIcons/lonlogos.gif>'.
	'<h1>LON-CAPA Spreadsheet</h1>'.
'<form action="'.$r->uri.'" name=sheet method=post>'.	'<form action="'.$r->uri.'" name=sheet method=post>'.
&hiddenfield('uname',$ENV{'form.uname'}).	&hiddenfield('uname',$ENV{'form.uname'}).
&hiddenfield('udom',$ENV{'form.udom'}).	&hiddenfield('udom',$ENV{'form.udom'}).
&hiddenfield('usymb',$ENV{'form.usymb'}).	&hiddenfield('usymb',$ENV{'form.usymb'}).
&hiddenfield('ufn',$ENV{'form.ufn'}).
&hiddenfield('unewfield','').	&hiddenfield('unewfield','').
&hiddenfield('unewformula',''));	&hiddenfield('unewformula',''));
}	}
Line 1079 ENDSCRIPT	Line 1198 ENDSCRIPT
if ($ENV{'form.unewfield'}) {	if ($ENV{'form.unewfield'}) {
$r->print('<h2>Modified Workcopy</h2>');	$r->print('<h2>Modified Workcopy</h2>');
$ENV{'form.unewformula'}=~s/\'/\"/g;	$ENV{'form.unewformula'}=~s/\'/\"/g;
$r->print('New formula: '.$ENV{'form.unewfield'}.'='.	$r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.
$ENV{'form.unewformula'}.'<br>');	$ENV{'form.unewformula'}.'<p>');
&setfilename($sheetone,$ENV{'form.ufn'});	&setfilename($sheetone,$ENV{'form.ufn'});
&tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',	&tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',
$ENV{'form.usymb'},	$ENV{'form.usymb'},
$ENV{'form.unewfield'},$ENV{'form.unewformula'});	$ENV{'form.unewfield'},$ENV{'form.unewformula'});
	} elsif ($ENV{'form.saveas'}) {
	&setfilename($sheetone,$ENV{'form.ufn'});
	&tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',
	$ENV{'form.usymb'});
} else {	} else {
&readsheet($sheetone,$ENV{'form.ufn'},$r);	&readsheet($sheetone,$ENV{'form.ufn'},$r);
	$ENV{'form.ufn'}=&getfilename($sheetone);
}	}

# --------------------------------------------- See if all import rows uptodate	if (&gettype($sheetone) eq 'classcalc') {
	# ---------------------------------- For course view: get courselist and update
	&updatestudentrows($sheetone);
	} else {
	# ----------------- For assessment and student: See if all import rows uptodate

if (tie(%parmhash,'GDBM_File',	if (tie(%parmhash,'GDBM_File',
$ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640)) {	$ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640)) {
Line 1104 ENDSCRIPT	Line 1232 ENDSCRIPT
$r->print('<h3><font color=red>'.	$r->print('<h3><font color=red>'.
'Could not initialize import fields (not in a course)</font></h3>');	'Could not initialize import fields (not in a course)</font></h3>');
}	}
	}
	# ---------------------------------------------------- See if something to save
	if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
	my $fname='';
	if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) {
	$fname=~s/\W/\_/g;
	if ($fname eq 'default') { $fname='course_default'; }
	$fname.='_'.&gettype($sheetone);
	&setfilename($sheetone,$fname);
	$ENV{'form.ufn'}=$fname;
	my $reply=&writesheet($sheetone);
	unless ($reroute) {
	$r->print('<p>Saving spreadsheet: '.$reply.'<p>');
	}
	}
	}
# ------------------------------------------------ Write the modified worksheet	# ------------------------------------------------ Write the modified worksheet

&tmpwrite($sheetone,$r->dir_config('lonDaemons').'/tmp/',	&tmpwrite($sheetone,$r->dir_config('lonDaemons').'/tmp/',
Line 1112 ENDSCRIPT	Line 1255 ENDSCRIPT

# ----------------------------------------------------- Print user, course, etc	# ----------------------------------------------------- Print user, course, etc
unless ($reroute) {	unless ($reroute) {
$r->print("<b>User '$uname' at domain '$udom' for '".	if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}."'");	my $fname=$ENV{'form.ufn'};
	$fname=~s/\_[^\_]+$//;
	if ($fname eq 'default') { $fname='course_default'; }
	$r->print('<input type=submit name=saveas value="Save as ...">'.
	'<input type=text size=20 name=newfn value="'.$fname.'"><p>');
	}
	$r->print(&hiddenfield('ufn',$ENV{'form.ufn'}));
	unless (&gettype($sheetone) eq 'classcalc') {
	$r->print('<br><b>User:</b> '.$uname.'<br><b>Domain:</b> '.$udom);
	}
	$r->print('<h1>'.
	$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1>');
if ($csec) {	if ($csec) {
$r->print(", group/section '$csec'");	$r->print('<h3>Group/Section: '.$csec.'</h3>');
}	}
$r->print("</b>\n");
}	}
# -------------------------------------------------------- Import and calculate	# -------------------------------------------------------- Import and calculate

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

Removed from v.1.19
changed lines
	Added in v.1.23