-sub create_user_and_session {
-
- my $args = shift;
- my $flags = ( $args->{authorized} ) ? 2052 : 0;
-
- # my $flags = ( $args->{authorized} ) ? $args->{authorized} : 0;
- my $dbh = C4::Context->dbh;
-
- my $user = $builder->build(
- { source => 'Borrower',
- value => { flags => $flags }
- }
- );
-
- # Create a session for the authorized user
- my $session = C4::Auth::get_session('');
- $session->param( 'number', $user->{borrowernumber} );
- $session->param( 'id', $user->{userid} );
- $session->param( 'ip', '127.0.0.1' );
- $session->param( 'lasttime', time() );
- $session->flush;
-
- if ( $args->{authorized} ) {
- $dbh->do(
- q{
- INSERT INTO user_permissions (borrowernumber,module_bit,code)
- VALUES (?,11,'budget_manage_all')},
- undef, $user->{borrowernumber}
- );
- }
-
- return ( $user->{borrowernumber}, $session->id );
-}