1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
<%doc>
Example:
In misc/something.html:
<FORM NAME="MyForm">
<INPUT TYPE="hidden" NAME="recordnum" VALUE="42">
<INPUT TYPE="hidden" NAME="what_to_do" VALUE="delete">
<% include( '/elements/progress-init.html',
'MyForm',
[ 'recordnum', 'what_to_do' ],
$p.'misc/process_something.html',
{ url => $p.'where_to_go_next.html' },
#or { message => 'Finished!' },
) %>
</FORM>
<SCRIPT TYPE="text/javascript>process();</SCRIPT>
In misc/process_something.html:
<%init>
my $server = FS::UI::Web::JSRPC->new('FS::something::process_whatever', $cgi);
</%init>
<% $server->process %>
In FS/something.pm:
sub process_whatever { #class method
my $job = shift;
my $param = thaw(base64_decode(shift));
# param = { 'recordnum' => 42, 'what_to_do' => delete }
# make use of this as you like
do_phase1;
$job->update_statustext(20);
do_phase2;
$job->update_statustext(40);
do_phase3;
$job->update_statustext(60);
# etc.
return 'this value will be ignored';
}
</%doc>
<% include('/elements/xmlhttp.html',
'method' => 'POST',
'url' => $action,
'subs' => [ 'start_job' ],
'key' => $key,
)
%>
<% include('/elements/init_overlib.html') %>
<SCRIPT TYPE="text/javascript">
function <%$key%>process () {
//alert('<%$key%>process for form <%$formname%>');
if ( document.<%$formname%>.submit.disabled == false ) {
document.<%$formname%>.submit.disabled=true;
}
overlib( 'Submitting job to server...', WIDTH, 444, HEIGHT, 168, CAPTION, 'Please wait...', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', CLOSECLICK, MIDX, 0, MIDY, 0 );
var Hash = new Array();
var x = 0;
var fieldName;
for (var i = 0; i<document.<%$formname%>.elements.length; i++) {
field = document.<%$formname%>.elements[i];
if ( <% join(' || ', map { "(field.name.indexOf('$_') > -1)" } @$fields ) %>
)
{
if ( field.type == 'select-multiple' ) {
//alert('select-multiple ' + field.name);
for (var j=0; j < field.options.length; j++) {
if ( field.options[j].selected ) {
//alert(field.name + ' => ' + field.options[j].value);
Hash[x++] = field.name;
Hash[x++] = field.options[j].value;
}
}
} else if ( ( field.type != 'radio' && field.type != 'checkbox' )
|| ( ( field.type == 'radio' || field.type == 'checkbox' )
&& document.<%$formname%>.elements[i].checked
)
)
{
Hash[x++] = field.name;
Hash[x++] = field.value;
}
}
}
// jsrsPOST = true;
// jsrsExecute( '<% $action %>', <%$key%>myCallback, 'start_job', Hash );
//alert('start_job( ' + Hash + ', <%$key%>myCallback )' );
//alert('start_job()' );
<%$key%>start_job( Hash, <%$key%>myCallback );
}
function <%$key%>myCallback( jobnum ) {
overlib( OLiframeContent('<%$p%>elements/progress-popup.html?jobnum=' + jobnum + ';<%$url_or_message_link%>;formname=<%$formname%>' , 444, 168, '<% $popup_name %>'), CAPTION, 'Please wait...', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', CLOSECLICK, MIDX, 0, MIDY, 0 );
}
</SCRIPT>
<%init>
my( $formname, $fields, $action, $url_or_message, $key ) = @_;
$key = '' unless defined $key;
my $url_or_message_link;
if ( ref($url_or_message) ) { #its a message or something
$url_or_message_link = 'message='. uri_escape( $url_or_message->{'message'} );
$url_or_message_link .= ';url='. uri_escape( $url_or_message->{'url'} )
if $url_or_message->{'url'};
} else {
$url_or_message_link = "url=$url_or_message";
}
#stupid safari is caching the "location" of popup iframs, and submitting them
#instead of displaying them. this should prevent that.
my $popup_name = 'popup-'.time. "-$$-". rand() * 2**32;
</%init>
|