deleting bibs by source

# Lookup our bib_source's id
my $source = OpenILS::Application::AppUtils->storagereq('open-ils.storage.direct.config.bib_source.search_where',
                                                        { "source" => $config->findvalue("/config/oils/bib_source")->value() });
print("source: " . $source->id . "\n");

# Delete everything if we're doing a full replacement load.
if ($download_type eq 'full') {
    print("Full download\n");
    my $session = OpenSRF::AppSession->create('open-ils.storage');
    my $request = $session->request('open-ils.storage.direct.biblio.record_entry.search_where.atomic', { "creator" => $user->id, "source" => $source->id });
    my $response;
    until ($request->complete) {
        $response = $request->recv("timeout" => 10);
    }
    my $bibs = $response->content;
    print("bibs: " . scalar @$bibs . "\n");
    foreach my $b (@$bibs) {
        print $b->id . "\n";
        my $r = OpenILS::Application::AppUtils->simplereq('open-ils.cat', 'open-ils.cat.biblio.record_entry.delete', $authtoken, $b->id);
        print Dumper $r;
    }
}