[dw-free] Add "expired last month" to circle gifts in the shop

[fu]

[commit: http://hg.dwscoalition.org/dw-free/rev/59a347441ae9]

http://bugs.dwscoalition.org/show_bug.cgi?id=1747

Silence warning.

Patch by kareila.

Files modified:

• cgi-bin/DW/Pay.pm

--------------------------------------------------------------------------------
diff -r b0b6954b7c51 -r 59a347441ae9 cgi-bin/DW/Pay.pm
--- a/cgi-bin/DW/Pay.pm	Fri Dec 10 19:36:11 2010 +0800
+++ b/cgi-bin/DW/Pay.pm	Fri Dec 10 19:40:16 2010 +0800
@@ -364,7 +364,9 @@ sub add_paid_time {
         or return error( ERR_FATAL, "Invalid/not a user object." );
 
     my $type = shift();
-    my ($typeid) = grep { $LJ::CAP{$_}->{_account_type} eq $type } keys %LJ::CAP;
+    my ( $typeid ) = grep { $LJ::CAP{$_}->{_account_type} &&
+                            $LJ::CAP{$_}->{_account_type} eq $type }
+                          keys %LJ::CAP;
     return error( ERR_FATAL, 'Invalid type, no typeid found.' )
         unless $typeid;
 
--------------------------------------------------------------------------------