Committer: gprochaev
LJSUP-6590. admin can create userhead without pictureU trunk/htdocs/admin/userheads/manage.bml
Modified: trunk/htdocs/admin/userheads/manage.bml =================================================================== --- trunk/htdocs/admin/userheads/manage.bml 2010-08-25 04:30:31 UTC (rev 9389) +++ trunk/htdocs/admin/userheads/manage.bml 2010-08-25 04:39:08 UTC (rev 9390) @@ -21,13 +21,12 @@ seek $userhead->fh, 0,0; read $userhead->fh, my $userhead_content, $userhead->size; - my $uh = LJ::UserHead->new; - $uh->save; + if ($POST{'uh_file'}) { + my $uh = LJ::UserHead->new; + $uh->save; - my ($result_l, $result_s, $content_length, $magic, $mime_type) = (); + my ($result_l, $result_s, $content_length, $magic, $mime_type) = (); - ## Set large image - if ($POST{'uh_file'}) { $content_length = bytes::length($POST{'uh_file'}); $magic = substr $POST{'uh_file'}, 0, 20; $mime_type = format_magic($magic) @@ -56,6 +55,7 @@ my $uh = LJ::UserHead->get_userhead ($FORM{'uh_id'}); foreach my $user (split /,[ ]?/, $FORM{'users'}) { my $u = LJ::load_user ($user); + next unless $u; $u->set_custom_usericon ($uh->get_uh_img); } }