Mercurial > boosterpack
changeset 1:c702488ef795 boosterpack
[svn r3] modified
author | robert |
---|---|
date | Mon, 31 Aug 2009 14:53:15 -0400 |
parents | 477258d09353 |
children | d7dd496a4fa6 |
files | cards.html cards.pl |
diffstat | 2 files changed, 10 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/cards.html Sun Aug 30 02:19:26 2009 -0400 1.2 +++ b/cards.html Mon Aug 31 14:53:15 2009 -0400 1.3 @@ -3,7 +3,7 @@ 1.4 <head> 1.5 1.6 <title> 1.7 -Edit Pokèmon Cards 1.8 +Edit Pokèmon Cards~ 1.9 </title> 1.10 1.11
2.1 --- a/cards.pl Sun Aug 30 02:19:26 2009 -0400 2.2 +++ b/cards.pl Mon Aug 31 14:53:15 2009 -0400 2.3 @@ -7,7 +7,7 @@ 2.4 my $q = new CGI; 2.5 2.6 2.7 -my %hash = ( 'card_list' => \&work, 'current_card' => \&funtwo); 2.8 +my %hash = ( 'card_list' => \&CardList, 'display_card' => \&DisplayCard , 'tags' => \&getAllTags); 2.9 2.10 2.11 2.12 @@ -21,31 +21,25 @@ 2.13 2.14 2.15 2.16 -sub funtwo 2.17 +sub getAllTags 2.18 { 2.19 return 14; 2.20 }; 2.21 2.22 2.23 2.24 -sub work 2.25 +sub DisplayCard 2.26 { 2.27 return 13; 2.28 }; 2.29 2.30 2.31 - 2.32 - 2.33 - 2.34 - 2.35 - 2.36 - 2.37 - 2.38 - 2.39 - 2.40 - 2.41 - 2.42 - 2.43 +sub CardList 2.44 +{ 2.45 + 2.46 + return 15; 2.47 + 2.48 +}; 2.49 2.50 2.51 sub gen