Mercurial > laserkard

     1 #!/usr/bin/perl

     2 

     3 

     4 

     5 use Laserkard;

     6 

     7 

     8 my $q = new CGI;

     9 

    10 #print Laserkard::gen();

    11 

    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 );

    23 

    24  

    25 

    26 my $pjx = CGI::Ajax->new(%hash);

    27 

    28 

    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'}); 

    31 

    32 

    33 # it's a refrence to a function, not a function itself.
author	Robert McIntyre <rlm@mit.edu>
date	Wed, 23 Jun 2010 10:14:46 -0400
parents	95fa4bcc5d67
children	343dc947f999