add a logout link (RT 1330 & 5518)

[freeside.git] / httemplate / elements / xmlhttp.html

diff --git a/httemplate/elements/xmlhttp.html b/httemplate/elements/xmlhttp.html
index 6efc395..2df3c42 100644 (file)
--- a/httemplate/elements/xmlhttp.html
+++ b/httemplate/elements/xmlhttp.html
@@ -1,37 +1,22 @@
-%
-%  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';
-%
-%
+<%doc>
 
+Example:
 
-<SCRIPT TYPE="text/javascript">
+  include( '/elements/xmlhttp.html',
+    # required
+    'url'  => $p.'misc/something.html',
+    'subs' => [ 'subroutine' ],
 
-  function rs_init_object() {
-    var A;
-    try {
-      A=new ActiveXObject("Msxml2.XMLHTTP");
-    } catch (e) {
-      try {
-        A=new ActiveXObject("Microsoft.XMLHTTP");
-      } catch (oc) {
-        A=null;
-      }
-    }
-    if(!A && typeof XMLHttpRequest != "undefined")
-      A = new XMLHttpRequest();
-    if (!A)
-      alert("Can't create XMLHttpRequest object");
-    return A;
+    # optional
+    'method' => 'GET', #defaults to GET, could specify POST
+    'key'    => 'unique', #unique key
+
+  );
+
+</%doc>
+<% include( '/elements/rs_init_object.html' ) %>
+<SCRIPT TYPE="text/javascript">
 
-  }
 % foreach my $func ( @{$opt{'subs'}} ) { 
 %
 %       my $furl = $url;
@@ -109,3 +94,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>