1.1 --- a/cgi-bin/LJ/S2/IconsPage.pm	Fri May 13 12:49:42 2011 +0800
     1.2 +++ b/cgi-bin/LJ/S2/IconsPage.pm	Fri Jan 27 17:59:59 2012 +0800
     1.3 @@ -35,11 +35,11 @@
     1.4          my @newpics;
     1.5          my $default_pic;
     1.6          foreach my $pic ( @allpics ) {
     1.7 -            my $keyword = $pic->keywords;
     1.8 +            my @keyword = $pic->keywords;
     1.9              if ( $pic->is_default ) {
    1.10 -                $default_pic = { keywords => [ $keyword ] , userpic => $pic };
    1.11 +                $default_pic = { keywords => \@keyword, userpic => $pic };
    1.12              } else {
    1.13 -                push @newpics, { keywords => [ $keyword ], userpic => $pic };
    1.14 +                push @newpics, { keywords => \@keyword, userpic => $pic };
    1.15              }
    1.16          }
    1.17          @pics = $default_pic if $default_pic;
    1.18 @@ -123,4 +123,4 @@
    1.19      return $p;
    1.20  }
    1.21  
    1.22 -1;
    1.23 \ No newline at end of file
    1.24 +1;