view cards.pl @ 10:3b52ac950753 boosterpack tip

going to try to fix this thing
author Robert McIntyre <rlm@mit.edu>
date Mon, 27 Sep 2010 17:24:06 -0400
parents 8c6d2ce90677
children
line wrap: on
line source
1 #!/usr/bin/perl
4 use CGI::Ajax;
5 use CGI;
7 my $q = new CGI;
10 my %hash = ( 'card_list' => \&CardList, 'display_card' => \&DisplayCard , 'tags' => \&getAllTags);
15 my $pjx = CGI::Ajax->new(%hash);
16 $pjx->JSDEBUG(1);
17 $pjx->DEBUG(1);
18 print $pjx->build_html($q,\&gen); # this outputs the html for the page
24 sub getAllTags
25 {
26 return 14;
27 };
31 sub DisplayCard
32 {
33 return 13;
34 };
37 sub CardList
38 {
40 return 15;
42 };
45 sub gen
46 {
47 open FILE, "<cards.html";
48 return do { local $/; <FILE> };
49 };