annotate buy.pl @ 106:5b0753c6f34d laserkard tip

updated to newest compojure and a simpler syntax
author Robert McIntyre <rlm@mit.edu>
date Mon, 27 Sep 2010 20:22:58 -0400
parents 343dc947f999
children
rev   line source
rlm@0 1 #!/usr/bin/perl
rlm@0 2
rlm@0 3
rlm@0 4
rlm@51 5 use Laserkard;
rlm@0 6
rlm@0 7
rlm@0 8 my $q = new CGI;
rlm@0 9
rlm@51 10 #print Laserkard::gen();
rlm@0 11
rlm@51 12 my %hash =
rlm@51 13 (
rlm@51 14 'material' => \&Laserkard::material,
rlm@51 15 'template' => \&Laserkard::template,
rlm@51 16 'inputbox' => \&Laserkard::inputbox,
rlm@51 17 'display' => \&Laserkard::display,
rlm@51 18 'change_rules' => \&Laserkard::change_rules,
rlm@51 19 'vanish' => \&Laserkard::vanish,
rlm@51 20 'updateForm' => \&Laserkard::updateForm,
rlm@51 21 'cardType' => \&Laserkard::cardType
rlm@23 22 );
rlm@0 23
rlm@0 24
rlm@0 25
rlm@0 26 my $pjx = CGI::Ajax->new(%hash);
rlm@0 27
rlm@0 28
rlm@42 29 # this outputs the html for the page
rlm@51 30 print $pjx->build_html($q,\&Laserkard::genBuy,{-Cache_Control => 'no-store, no-cache, must-revalidate', -Pragma => 'no-cache'});