]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/app/app1/lib/App1/DoBill.pm
e759e918ac0490eabc4dd4b4f7c7b5e4a6ecc206
5 App1::DoBill - This step would process the billing
12 use CGI
::Ex
::Dump
qw(debug);
17 my $r = $self->cgix->apache_request;
20 $self->cgix->print_content_type;
22 print "<div id=fake_progress>\n";
23 print "At this point I would do something useful with the form data<br>\n";
24 print "I would probably add the customer and lineitems and bill the order<br>\n";
26 print "But for now I will just pretend I'm doing something for 10 seconds<br>\n";
29 for my $i (1 .. $max) {
32 print "Sleep $i/$max<br>\n";
36 # this little progress effect would be better off with something like yui
38 var el = document.getElementById('fake_progress');
39 if (el) el.style.display='none';
40 document.scrollTop = '0px';
This page took 0.035174 seconds and 4 git commands to generate.