Mercurial > laserkard

view buy.pl @ 63:3d3b8671de71 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r64] Changed 1. About page text to agreed on 4/1/10 2. top_menu link "The Story" --> "About"
author hong
date Thu, 01 Apr 2010 20:06:28 -0400
parents 95fa4bcc5d67
children 343dc947f999
line wrap: on
line source
     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.