--- loncom/interface/spreadsheet/default_assesscalc 2001/03/10 15:24:05 1.1
+++ loncom/interface/spreadsheet/default_assesscalc 2003/08/01 13:47:26 1.7
@@ -1,7 +1,78 @@
-[stores_0_solved]
+
+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:'
-[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 !~ /^(\W?excused\W?|)$/ ?1:0))]
+
+
+'Solved Parts:'
+[&EXPANDSUM(PART;(stores_PART_awarded?1:0))]
+
+'Available Points:'
+
+if ("[stores_0_solved]" eq 'excused') {
+ 0
+} else {
+ [&EXPANDSUM(PART;parameter_PART_weight*(stores_PART_solved !~ /^\W?excused\W?$/ ? 1 : 0))];
+}
+
+
'Awarded Points:'
-[parameter_0_weight]*[stores_0_awarded]
+
+if ("[stores_0_solved]" eq 'excused') {
+ 0
+} else {
+ [&EXPANDSUM(PART;parameter_PART_weight*stores_PART_awarded)]
+}
+