1.1 --- a/cards.pl	Sun Aug 30 02:19:26 2009 -0400
     1.2 +++ b/cards.pl	Mon Aug 31 14:53:15 2009 -0400
     1.3 @@ -7,7 +7,7 @@
     1.4  my $q = new CGI;
     1.5  
     1.6  
     1.7 -my %hash = ( 'card_list' => \&work, 'current_card' => \&funtwo);
     1.8 +my %hash = ( 'card_list' => \&CardList, 'display_card' => \&DisplayCard , 'tags' => \&getAllTags);
     1.9  
    1.10  
    1.11  
    1.12 @@ -21,31 +21,25 @@
    1.13  
    1.14  
    1.15  
    1.16 -sub funtwo
    1.17 +sub getAllTags
    1.18  {
    1.19  	return 14;
    1.20  };
    1.21  
    1.22  
    1.23  
    1.24 -sub work
    1.25 +sub DisplayCard
    1.26  {
    1.27  	return 13;	
    1.28  };
    1.29  
    1.30  
    1.31 -
    1.32 -
    1.33 -
    1.34 -
    1.35 -
    1.36 -
    1.37 -
    1.38 -
    1.39 -
    1.40 -
    1.41 -
    1.42 -
    1.43 +sub CardList
    1.44 +{
    1.45 +	
    1.46 +	return 15;
    1.47 +	
    1.48 +};
    1.49  
    1.50  
    1.51  sub gen