[system] / trunk / pg / lib / AnswerIO.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/AnswerIO.pm

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

Revision 4765 Revision 4766
38 my $logFileID = shift; 38 my $logFileID = shift;
39 my $string = shift; 39 my $string = shift;
40 # We want to allow acces only to predetermined files 40 # We want to allow acces only to predetermined files
41 # We accomplish this by translating legal IDs into a file name 41 # We accomplish this by translating legal IDs into a file name
42 42
43 my $rh_allowableFiles = {preflight => 'preflight.log', 43 my $rh_allowableFiles = {
44 preflight => 'preflight.log',
45 questionnaire => 'questionnaire.txt',
44 46
45 }; 47 };
46 my $error=undef; 48 my $error=undef;
47 my $logFileName = $rh_allowableFiles->{$logFileID}; 49 my $logFileName = $rh_allowableFiles->{$logFileID};
48 if ( defined($logFileName) ) { 50 if ( defined($logFileName) ) {

Legend:
Removed from v.4765  
changed lines
  Added in v.4766

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9