X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fxmlhttp.html;h=3f4462b94e1eee74ec804a1feb9b2de20c449566;hb=49db59d3a1fad43b35295d89c71141b79c70c1de;hp=6efc395f7a94eb3ccb667a6721dfa0dc9710b9f6;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git diff --git a/httemplate/elements/xmlhttp.html b/httemplate/elements/xmlhttp.html index 6efc395f7..3f4462b94 100644 --- a/httemplate/elements/xmlhttp.html +++ b/httemplate/elements/xmlhttp.html @@ -1,17 +1,3 @@ -% -% my ( %opt ) = @_; -% -% my $url = $opt{'url'}; -% my $method = exists($opt{'method'}) ? $opt{'method'} : 'GET'; -% #my @subs = @{ $opt{'subs'}; -% my $key = exists($opt{'key'}) ? $opt{'key'} : ''; -% -% $url .= ( ($url =~ /\?/) ? '&' : '?' ) -% if $method eq 'GET'; -% -% - - +<%init> +my ( %opt ) = @_; + +my $url = $opt{'url'}; +my $method = exists($opt{'method'}) ? $opt{'method'} : 'GET'; +#my @subs = @{ $opt{'subs'}; +my $key = exists($opt{'key'}) ? $opt{'key'} : ''; + +$url .= ( ($url =~ /\?/) ? '&' : '?' ) + if $method eq 'GET'; + +