--- loncom/interface/spreadsheet/default_assesscalc 2001/03/10 22:30:18 1.2
+++ loncom/interface/spreadsheet/default_assesscalc 2002/12/13 16:36:34 1.6
@@ -1,9 +1,74 @@
-[stores_0_solved]
+
+if ([stores_0_solved] eq 'excused') {
+ 'excused';
+} elsif (M0) {
+ if(K0) {
+ if (K0 == M0) {
+ "correct";
+ } else {
+ K0.'/'.M0.' correct';
+ }
+ } else {
+ "incorrect";
+ }
+} else {
+ '';
+}
+
+
'Tries:'
-[stores_0_tries]
-'Duedate:'
-[parameter_0_duedate]
+
+if (M0) {
+ [&EXPANDSUM(PART;stores_PART_tries)]/M0;
+} else {
+ '';
+}
+
+
+'Timestamp:'
+[timestamp]
+
+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:'
-[parameter_0_weight]
+
+if (([stores_0_solved]) eq 'excused') {
+ 0
+} else {
+ [&EXPANDSUM(PART;parameter_PART_weight)];
+}
+
+
'Awarded Points:'
-[parameter_0_weight]*[stores_0_awarded]
+
+if (([stores_0_solved]) eq 'excused') {
+ 0
+} else {
+ [&EXPANDSUM(PART;parameter_PART_weight*stores_PART_awarded)]
+}
+