diff options
author | Adam Mitz <mitza-oci@users.noreply.github.com> | 2010-08-05 17:01:36 +0000 |
---|---|---|
committer | Adam Mitz <mitza-oci@users.noreply.github.com> | 2010-08-05 17:01:36 +0000 |
commit | 4ef1a5f5e86aac9aa76c3fc6f2cee1f22c4f2c8e (patch) | |
tree | 6cdef8df8eaf81b71ef34427a595999ea2a44357 /modules/TemplateParser.pm | |
parent | d8025ca319f632f81f35614d14a1e73d909beddd (diff) | |
download | MPC-4ef1a5f5e86aac9aa76c3fc6f2cee1f22c4f2c8e.tar.gz |
ChangeLogTag: Thu Aug 5 17:00:23 UTC 2010 Adam Mitz <mitza@ociweb.com>
Diffstat (limited to 'modules/TemplateParser.pm')
-rw-r--r-- | modules/TemplateParser.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/modules/TemplateParser.pm b/modules/TemplateParser.pm index b22190ff..9c1eb56f 100644 --- a/modules/TemplateParser.pm +++ b/modules/TemplateParser.pm @@ -81,6 +81,7 @@ my %keywords = ('if' => 0, 'translate_vars' => 2 | 1, 'convert_slashes' => 2, 'new_guid' => 0, + 'deref' => 0, 'set' => 0, ); @@ -1885,6 +1886,13 @@ sub handle_new_guid { } +sub handle_deref { + my($self, $name) = @_; + my $val = $self->get_value_with_default($self->get_value_with_default($name)); + $self->append_current($val); +} + + sub handle_set { my($self, $val) = @_; my @params = $self->split_parameters($val); |