[system] / trunk / pg / macros / problemPreserveAnswers.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/problemPreserveAnswers.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 5372 Revision 5373
1 1
2=pod 2sub _problemPreserveAnswers_init {PreserveAnswers::Init()}
3
4=head1 PreserveAnswers();
3 5
4###################################################################### 6######################################################################
5# 7#
6# This file implements a fragile hack to overcome a problem with 8# This file implements a fragile hack to overcome a problem with
7# PGbasicmacros.pl, which removes special characters from student 9# PGbasicmacros.pl, which removes special characters from student
22# 24#
23# at the top of your PG file. 25# at the top of your PG file.
24# 26#
25 27
26=cut 28=cut
27
28sub _problemPreserveAnswers_init {PreserveAnswers::Init()}
29 29
30package PreserveAnswers; 30package PreserveAnswers;
31 31
32# 32#
33# Escape the specials in answers, and then 33# Escape the specials in answers, and then
64 my $original = $main::inputs_ref_orig; 64 my $original = $main::inputs_ref_orig;
65 my $inputs = $main::inputs_ref; 65 my $inputs = $main::inputs_ref;
66 foreach my $id (keys %{$original}) {$inputs->{$id} = $original->{$id}} 66 foreach my $id (keys %{$original}) {$inputs->{$id} = $original->{$id}}
67} 67}
68 68
69our $ENDDOCUMENT; 69our $ENDDOCUMENT; # holds pointer to original ENDDOCUMENT
70 70
71###################################################################### 71######################################################################
72 72
731; 731;

Legend:
Removed from v.5372  
changed lines
  Added in v.5373

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9