$dbh->{RaiseError} = 1;
C4::Context->_new_userenv('xxx');
C4::Context::set_userenv(42, 'ordercreator', '0042', 'Order', 'Creator', 'CPL',
C4::Context->set_userenv(42, 'ordercreator', '0042', 'Order', 'Creator', 'CPL',
0, 'ordercreator@example.com');
my $booksellerid = C4::Bookseller::AddBookseller(
-