diff options
Diffstat (limited to 'perllib/FixMyStreet')
-rw-r--r-- | perllib/FixMyStreet/Template/Variable.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/Template/Variable.pm b/perllib/FixMyStreet/Template/Variable.pm index 9b5a0fcc4..0142a4db5 100644 --- a/perllib/FixMyStreet/Template/Variable.pm +++ b/perllib/FixMyStreet/Template/Variable.pm @@ -8,13 +8,15 @@ sub op_factory { my ($op) = @_; return eval q|sub { - my ($self, $str) = @_; + my ($self, $str, $swapped) = @_; if ( ref $str eq __PACKAGE__) { - return $self->{value} | . $op . q| $str->{value}; + return $self->{value} | . $op . q| $str->{value} unless $swapped; + return $str->{value} | . $op . q| $self->{value}; } else { - return $self->{value} | . $op . q| $str; + return $self->{value} | . $op . q| $str unless $swapped; + return $str | . $op . q| $self->{value}; } }|; } |