--- loncom/interface/spreadsheet/default_assesscalc 2001/10/16 22:57:07 1.5
+++ loncom/interface/spreadsheet/default_assesscalc 2002/12/13 16:36:34 1.6
@@ -1,15 +1,74 @@
-(I0?(K0?(K0==I0?'correct':K0.'/'.I0.' correct'):'incorrect'):'')
+
+if ([stores_0_solved] eq 'excused') {
+ 'excused';
+} elsif (M0) {
+ if(K0) {
+ if (K0 == M0) {
+ "correct";
+ } else {
+ K0.'/'.M0.' 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?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)];
+}
+
+
'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)]
+}
+