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

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

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

Revision 3371 Revision 3503
24 my $self = shift; my $equation = shift; 24 my $self = shift; my $equation = shift;
25 my $context = $equation->{context}; 25 my $context = $equation->{context};
26 my @strings = grep {not defined($context->strings->get($_)->{alias})} 26 my @strings = grep {not defined($context->strings->get($_)->{alias})}
27 $context->strings->names; 27 $context->strings->names;
28 my $strings = join(', ',@strings[0..$#strings-1]).' or '.$strings[-1]; 28 my $strings = join(', ',@strings[0..$#strings-1]).' or '.$strings[-1];
29 $equation->Error("Your answer should be one of %s",$strings); 29 $equation->Error(["Your answer should be one of %s",$strings]);
30} 30}
31 31
32package contextString::Formula; 32package contextString::Formula;
33our @ISA = qw(Value::Formula Parser Value); 33our @ISA = qw(Value::Formula Parser Value);
34 34

Legend:
Removed from v.3371  
changed lines
  Added in v.3503

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9