--- loncom/interface/spreadsheet/default_assesscalc 2001/03/27 14:37:18 1.3 +++ loncom/interface/spreadsheet/default_assesscalc 2002/12/13 16:36:34 1.6 @@ -1,11 +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] + +if (M0) { + [&EXPANDSUM(PART;stores_PART_tries)]/M0; +} else { + ''; +} + + 'Timestamp:' [timestamp] -'Duedate:' -[parameter_0_duedate] + +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)] +} +