annotate buy.pl @ 51:95fa4bcc5d67 laserkard

[svn r52] implemented SVG backend
author rlm
date Wed, 03 Feb 2010 03:14:09 -0500
parents 4431dc7d4bb5
children 343dc947f999
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'});
rlm@42 31
rlm@47 32
rlm@51 33 # it's a refrence to a function, not a function itself.