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