--- loncom/interface/spreadsheet/default_assesscalc 2001/10/16 22:57:07 1.5 +++ loncom/interface/spreadsheet/default_assesscalc 2014/02/28 19:20:11 1.8 @@ -1,15 +1,78 @@ -(I0?(K0?(K0==I0?'correct':K0.'/'.I0.' correct'):'incorrect'):'') + +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:' -(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 { + ''; +} + + +'Due Date:' +[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:' -[&EXPANDSUM(PART;parameter_PART_weight)] + +if ("[stores_0_solved]" eq 'excused') { + 0 +} else { + [&EXPANDSUM(PART;parameter_PART_weight*(stores_PART_solved !~ /^\W?excused\W?$/ ? 1 : 0))]; +} + + '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)] +} +