Committer: sbelyaev
LJSUP-12531: Repost: Error: Not able to create new entryU trunk/cgi-bin/LJ/Entry/Repost.pm
Modified: trunk/cgi-bin/LJ/Entry/Repost.pm =================================================================== --- trunk/cgi-bin/LJ/Entry/Repost.pm 2012-06-15 11:17:22 UTC (rev 22256) +++ trunk/cgi-bin/LJ/Entry/Repost.pm 2012-06-15 11:29:34 UTC (rev 22257) @@ -124,25 +124,32 @@ 'tz' => $timezone, ); - warn "----------------------------"; - warn "request " . LJ::D(%req); - # move to LJ::API my $res = LJ::Protocol::do_request("postevent", \%req, \$err, $flags); - $flags->{u} = undef; - warn "flags: " . LJ::D($flags); - warn "result: " . LJ::D($res); - warn "error: $err" if $err; - warn "---------------------------------"; my $fail = !defined $res->{itemid} && $res->{message}; if ($fail) { + warn "----------------------------"; + warn "request " . LJ::D(%req); + warn "flags: " . LJ::D($flags); + warn "result: " . LJ::D($res); + warn "error: $err" if $err; + warn "---------------------------------"; + $$error = LJ::API::Error->make_error( $res->{message},($err || -10000) ); return; } if ($err) { + + warn "----------------------------"; + warn "request " . LJ::D(%req); + warn "flags: " . LJ::D($flags); + warn "result: " . LJ::D($res); + warn "error: $err"; + warn "---------------------------------"; + $$error = LJ::API::Error->get_error('create_entry_failed'); return; }