--- loncom/interface/spreadsheet/default_assesscalc 2001/10/16 22:57:07 1.5
+++ loncom/interface/spreadsheet/default_assesscalc 2003/08/01 13:47:26 1.7
@@ -1,15 +1,78 @@
-(I0?(K0?(K0==I0?'correct':K0.'/'.I0.' correct'):'incorrect'):'')
+
+if ("[stores_0_solved]" eq 'excused') {
+ 'excused';
+} elsif (M0) {
+ if(K0) {
+ if (K0 == M0) {
+ "correct";
+ } elsif (K0 < M0) {
+ K0.'/'.M0.' correct';
+ } else {
+ 'correct';
+ }
+ } else {
+ "incorrect";
+ }
+} else {
+ '';
+}
+
+
'Tries:'
-(I0?[&EXPANDSUM(PART;stores_PART_tries)]/I0:'')
+
+if (M0) {
+ [&EXPANDSUM(PART;stores_PART_tries)]/M0;
+} else {
+ '';
+}
+
+
'Timestamp:'
[timestamp]
-'Duedate:'
-[parameter_0_duedate]
-'Attempted Parts:'
-[&EXPANDSUM(PART;(stores_PART_solved?1:0))]
-'Solved Parts:'
-[&EXPANDSUM(PART;(stores_PART_awarded?1:0))]
+
+if ([timestamp]>100000000) {
+ $tmp = localtime([timestamp]);
+ $tmp =~ s/\s/ /g;
+ $tmp;
+} else {
+ '';
+}
+
+
+'Duedate:'
+[parameter_0_duedate]
+
+if ([parameter_0_duedate]>100000000) {
+ $tmp = localtime([parameter_0_duedate]);
+ $tmp =~ s/\s/ /g;
+ $tmp;
+} else {
+ '';
+}
+
+
+'Attempted Parts:'
+
+[&EXPANDSUM(PART;(stores_PART_solved !~ /^(\W?excused\W?|)$/ ?1:0))]
+
+
+'Solved Parts:'
+[&EXPANDSUM(PART;(stores_PART_awarded?1:0))]
+
'Available Points:'
-[&EXPANDSUM(PART;parameter_PART_weight)]
+
+if ("[stores_0_solved]" eq 'excused') {
+ 0
+} else {
+ [&EXPANDSUM(PART;parameter_PART_weight*(stores_PART_solved !~ /^\W?excused\W?$/ ? 1 : 0))];
+}
+
+
'Awarded Points:'
-[&EXPANDSUM(PART;parameter_PART_weight*stores_PART_awarded)]
+
+if ("[stores_0_solved]" eq 'excused') {
+ 0
+} else {
+ [&EXPANDSUM(PART;parameter_PART_weight*stores_PART_awarded)]
+}
+