| … | |
… | |
| 562 | } |
562 | } |
| 563 | |
563 | |
| 564 | sub previewAnswer($$) { |
564 | sub previewAnswer($$) { |
| 565 | my ($self, $answerResult) = @_; |
565 | my ($self, $answerResult) = @_; |
| 566 | my $ce = $self->{courseEnvironment}; |
566 | my $ce = $self->{courseEnvironment}; |
| 567 | my $user = $self->{user}; |
567 | my $effectiveUser = $self->{effectiveUser}; |
| 568 | my $set = $self->{set}; |
568 | my $set = $self->{set}; |
| 569 | my $problem = $self->{problem}; |
569 | my $problem = $self->{problem}; |
| 570 | my $displayMode = $self->{displayMode}; |
570 | my $displayMode = $self->{displayMode}; |
| 571 | |
571 | |
| 572 | # note: right now, we have to do things completely differently when we are |
572 | # note: right now, we have to do things completely differently when we are |
| … | |
… | |
| 592 | } |
592 | } |
| 593 | return $result; |
593 | return $result; |
| 594 | } elsif ($displayMode eq "images") { |
594 | } elsif ($displayMode eq "images") { |
| 595 | # how are we going to name this? |
595 | # how are we going to name this? |
| 596 | my $targetPathCommon = "/png/" |
596 | my $targetPathCommon = "/png/" |
| 597 | . $user->id . "." |
597 | . $effectiveUser->id . "." |
| 598 | . $set->id . "." |
598 | . $set->id . "." |
| 599 | . $problem->id . "." |
599 | . $problem->id . "." |
| 600 | . $answerResult->{ans_name} . ".png"; |
600 | . $answerResult->{ans_name} . ".png"; |
| 601 | |
601 | |
| 602 | # figure out where to put things |
602 | # figure out where to put things |
Parent Directory
| 
Revision Log
| 
Patch