From 9ba8a8caddeef0649f7f9fa2b8da9ff3d98ec06b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 1 Aug 2007 19:22:52 +0000
Subject: masonization

---
 httemplate/elements/xmlhttp.html | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

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';
-%
-%
-
-
 <SCRIPT TYPE="text/javascript">
 
   function rs_init_object() {
@@ -109,3 +95,15 @@
 
 
 </SCRIPT>
+<%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';
+
+</%init>
-- 
cgit v1.2.1