--- 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)] +} +