view buy.pl @ 73:5fb0e5db5926 laserkard

ready to load live site to server
author Robert McIntyre <rlm@mit.edu>
date Wed, 23 Jun 2010 10:14:46 -0400
parents 95fa4bcc5d67
children 343dc947f999
line wrap: on
line source
1 #!/usr/bin/perl
5 use Laserkard;
8 my $q = new CGI;
10 #print Laserkard::gen();
12 my %hash =
13 (
14 'material' => \&Laserkard::material,
15 'template' => \&Laserkard::template,
16 'inputbox' => \&Laserkard::inputbox,
17 'display' => \&Laserkard::display,
18 'change_rules' => \&Laserkard::change_rules,
19 'vanish' => \&Laserkard::vanish,
20 'updateForm' => \&Laserkard::updateForm,
21 'cardType' => \&Laserkard::cardType
22 );
26 my $pjx = CGI::Ajax->new(%hash);
29 # this outputs the html for the page
30 print $pjx->build_html($q,\&Laserkard::genBuy,{-Cache_Control => 'no-store, no-cache, must-revalidate', -Pragma => 'no-cache'});
33 # it's a refrence to a function, not a function itself.