X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Felements%2Fxmlhttp.html;h=6efc395f7a94eb3ccb667a6721dfa0dc9710b9f6;hp=41965ace204c10acd5b0daf0838d7fdc77ae6898;hb=3ce7691203a7737406bf2d4442f7fd84b81f847e;hpb=673b9a458d9138523026963df6fa3b4683e09bae

diff --git a/httemplate/elements/xmlhttp.html b/httemplate/elements/xmlhttp.html
index 41965ace2..6efc395f7 100644
--- a/httemplate/elements/xmlhttp.html
+++ b/httemplate/elements/xmlhttp.html
@@ -1,14 +1,16 @@
-<%
-  my ( %opt ) = @_;
+%
+%  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';
+%
+%
 
-  my $url = $opt{'url'};
-  #my $action = exists $opt{'action'} ? $opt{'action'} : 'GET';
-  #my @subs = @{ $opt{'subs'};
-
-  $url .= ( ($url =~ /\?/) ? '&' : '?' ).
-          'sub=';
-
-%>
 
 <SCRIPT TYPE="text/javascript">
 
@@ -30,50 +32,80 @@
     return A;
 
   }
+% foreach my $func ( @{$opt{'subs'}} ) { 
+%
+%       my $furl = $url;
+%       $furl =~ s/\"/\\\\\"/; #javascript escape
+%
+%  
 
-  <% foreach my $func ( @{$opt{'subs'}} ) { 
-
-       my $furl = $url . uri_escape($func);
-       $furl =~ s/\"/\\\\\"/; #javascript escape
 
-  %>
+    function <%$key%><%$func%>() {
+        // count args; build URL
+        var url = "<%$furl%>";
+        var a = <%$key%><%$func%>.arguments;
 
-    function <%=$func%>() {
-	// count args; build URL
-	var url = "<%=$furl%>";
-	var a = <%=$func%>.arguments;
-	var args;
-	var len;
-	if ( a && typeof a  == 'object'  && a[0].constructor == Array ) {
-	    args = a[0];
+        var args;
+        var len;
+        var content = 'sub=<% uri_escape($func) %>';
+        if ( a && typeof a  == 'object'  && a[0].constructor == Array ) {
+            args = a[0];
             len = args.length
-	} else {
+        } else {
             args = a;
             len = args.length - 1;
-	}
-	for (var i = 0; i < len; i++) 
-	    url = url + "&arg=" + escape(args[i]);
-	url = url.replace( /[+]/g, '%2B'); // fix the unescaped plus signs 
-	var xmlhttp = rs_init_object();
-	xmlhttp.open("GET", url, true);
-	xmlhttp.setRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");
-	xmlhttp.onreadystatechange = function() {
-	    if (xmlhttp.readyState != 4) 
-		return;
-	    //rs_debug("received " + x.responseText);
-
-	    if (xmlhttp.status != 200) {
-	      alert(xmlhttp.status + " status connecting to " + url);
-	    } else {
+        }
+        for (var i = 0; i < len; i++) 
+            content = content + "&arg=" + escape(args[i]);
+        content = content.replace( /[+]/g, '%2B'); // fix unescaped plus signs 
+
+        if ( '<%$method%>' == 'GET' ) {
+          url = url + content;
+        }
+
+        //alert('<%$method%> ' + url);
+
+        var xmlhttp = rs_init_object();
+        xmlhttp.open("<%$method%>", url, true);
+
+        xmlhttp.onreadystatechange = function() {
+            if (xmlhttp.readyState != 4) 
+        	return;
+
+            if (xmlhttp.status != 200) {
+              alert(xmlhttp.status + " status connecting to " + url);
+            } else {
               var data = xmlhttp.responseText;
+              //alert('received response: ' + data);
               a[a.length-1](data);
+              if ( data.indexOf("<b>System error</b>") > -1 ) {
+                var w;
+                if ( w = window.open("about:blank") ) {
+                  w.document.write(data);
+                } else {
+                  // popup blocking?  should use an overlib popup instead 
+                  alert("Error popup disabled; try disabling popup blocking to see");
+                }
+              }
             }
         }
-        xmlhttp.send(null);
+
+        if ( '<%$method%>' == 'POST' ) {
+
+          xmlhttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
+          xmlhttp.send(content);
+
+        } else {
+
+          xmlhttp.setRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");
+          xmlhttp.send(null);
+
+        }
+
         //rs_debug("x_$func_name url = " + url);
         //rs_debug("x_$func_name waiting..");
     }
+% } 
 
-  <% } %>
 
 </SCRIPT>