Mercurial > boosterpack

comparison cards.pl @ 1:c702488ef795 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r3] modified
author robert
date Mon, 31 Aug 2009 14:53:15 -0400
parents 477258d09353
children 8c6d2ce90677
comparison
equal deleted inserted replaced
0:477258d09353 1:c702488ef795
5 use CGI; 5 use CGI;
6 6
7 my $q = new CGI; 7 my $q = new CGI;
8 8
9 9
10 my %hash = ( 'card_list' => \&work, 'current_card' => \&funtwo); 10 my %hash = ( 'card_list' => \&CardList, 'display_card' => \&DisplayCard , 'tags' => \&getAllTags);
11 11
12 12
13 13
14 14
15 my $pjx = CGI::Ajax->new(%hash); 15 my $pjx = CGI::Ajax->new(%hash);
19 19
20 20
21 21
22 22
23 23
24 sub funtwo 24 sub getAllTags
25 { 25 {
26 return 14; 26 return 14;
27 }; 27 };
28 28
29 29
30 30
31 sub work 31 sub DisplayCard
32 { 32 {
33 return 13; 33 return 13;
34 }; 34 };
35 35
36 36
37 37 sub CardList
38 38 {
39 39
40 40 return 15;
41 41
42 42 };
43
44
45
46
47
48
49 43
50 44
51 sub gen 45 sub gen
52 { 46 {
53 open FILE, "<cards.html"; 47 open FILE, "<cards.html";