| … | … | ||
|---|---|---|---|
| 272 | if ($user->{picture} =~ m/\bmale/) { | 272 | if ($user->{picture} =~ m/\bmale/) { |
| 273 | $user->{gender} = 'm'; | 273 | $user->{gender} = 'm'; |
| 274 | } elsif ($user->{picture} =~ m/female/) { | 274 | } elsif ($user->{picture} =~ m/female/) { |
| 275 | $user->{gender} = 'f'; | 275 | $user->{gender} = 'f'; |
| 276 | } | 276 | } |
| 277 | |||
| 277 | return $user; | 278 | return $user; |
| 278 | } | 279 | } |
| 279 | 280 | ||
| 280 | sub clean_windef { | 281 | sub clean_windef { |
| 281 | my ($self, $windef) = @_; | 282 | my ($self, $windef) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |