| … | |
… | |
| 306 | my @problems = sort {$a <=> $b} &getAllProblemsForProbSetRecord($psvn); |
306 | my @problems = sort {$a <=> $b} &getAllProblemsForProbSetRecord($psvn); |
| 307 | foreach $i (@problems) { |
307 | foreach $i (@problems) { |
| 308 | @row5 = ("ProblemFileName$i", "ProblemStatus$i","ProblemSeed$i", "ProblemValue$i", "ProblemMaxNumOfIncorrectAttemps$i"); |
308 | @row5 = ("ProblemFileName$i", "ProblemStatus$i","ProblemSeed$i", "ProblemValue$i", "ProblemMaxNumOfIncorrectAttemps$i"); |
| 309 | print "<TR>"; |
309 | print "<TR>"; |
| 310 | print &formatHeaderCell( qq! |
310 | print &formatHeaderCell( qq! |
| 311 | <A HREF="${Global::processProblem_CGI}?probSetKey=$psvn&probNum=$i&Mode=$Mode&course=$Course&user=$User&key=$Key" TARGET="ViewProblem"> |
311 | <A HREF="${Global::processProblem_CGI}?probSetKey=$psvn&probNum=$i&Mode=$Mode&show_old_answers=1&course=$Course&user=$User&key=$Key" TARGET="ViewProblem"> |
| 312 | Problem $i</A>!); |
312 | Problem $i</A>!); |
| 313 | |
313 | |
| 314 | print &formatHeaderCell( "Attempted"); |
314 | print &formatHeaderCell( "Attempted"); |
| 315 | print &formatHeaderCell( "Status"); |
315 | print &formatHeaderCell( "Status"); |
| 316 | print &formatHeaderCell( "Correct"); |
316 | print &formatHeaderCell( "Correct"); |