2 my( $formname, $fields, $action, $url_or_message, $key ) = @_;
3 $key = '' unless defined $key;
5 my $url_or_message_link;
6 if ( ref($url_or_message) ) { #its a message or something
8 'message='. uri_escape( $url_or_message->{'message'} )
10 $url_or_message_link = "url=$url_or_message";
14 <%= include('/elements/xmlhttp.html',
17 'subs' => [ 'start_job' ],
21 <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws.js"></SCRIPT>
22 <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_iframe.js"></SCRIPT>
23 <SCRIPT TYPE="text/javascript">
24 function OLiframeContent(src, width, height, name) {
25 return ('<iframe src="'+src+'" width="'+width+'" height="'+height+'"'
26 +(name?' name="'+name+'" id="'+name+'"':'')+' scrolling="auto">'
27 +'<div>[iframe not supported]</div></iframe>');
30 function <%=$key%>process () {
32 //alert('<%=$key%>process for form <%=$formname%>');
34 if ( document.<%=$formname%>.submit.disabled == false ) {
35 document.<%=$formname%>.submit.disabled=true;
38 overlib( 'Submitting job to server...', WIDTH, 444, HEIGHT, 168, CAPTION, 'Please wait...', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', CLOSECLICK, MIDX, 0, MIDY, 0 );
40 var Hash = new Array();
43 for (var i = 0; i<document.<%=$formname%>.elements.length; i++) {
44 field = document.<%=$formname%>.elements[i];
45 if ( <%= join(' || ', map { "(field.name.indexOf('$_') > -1)" } @$fields ) %>
48 if ( field.type == 'select-multiple' ) {
49 //alert('select-multiple ' + field.name);
50 for (var j=0; j < field.options.length; j++) {
51 if ( field.options[j].selected ) {
52 //alert(field.name + ' => ' + field.options[j].value);
53 Hash[x++] = field.name;
54 Hash[x++] = field.options[j].value;
57 } else if ( ( field.type != 'radio' && field.type != 'checkbox' )
58 || ( ( field.type == 'radio' || field.type == 'checkbox' )
59 && document.<%=$formname%>.elements[i].checked
63 Hash[x++] = field.name;
64 Hash[x++] = field.value;
70 // jsrsExecute( '<%= $action %>', <%=$key%>myCallback, 'start_job', Hash );
72 //alert('start_job( ' + Hash + ', <%=$key%>myCallback )' );
73 //alert('start_job()' );
74 <%=$key%>start_job( Hash, <%=$key%>myCallback );
78 function <%=$key%>myCallback( jobnum ) {
80 overlib( OLiframeContent('<%=$p%>elements/progress-popup.html?jobnum=' + jobnum + ';<%=$url_or_message_link%>;formname=<%=$formname%>' , 444, 168, 'progress_popup'), CAPTION, 'Please wait...', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', CLOSECLICK, MIDX, 0, MIDY, 0 );