]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/app/app1/lib/App1/DoBill.pm
5 App1::DoBill - handle this step of the App1 app
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.037824 seconds and 5 git commands to generate.