|
Lines 421-427
sub create_user_and_session {
Link Here
|
| 421 |
|
421 |
|
| 422 |
my $flags = ( $args->{authorized} ) ? $args->{authorized} : 0; |
422 |
my $flags = ( $args->{authorized} ) ? $args->{authorized} : 0; |
| 423 |
my $categorycode = $builder->build({ source => 'Category' })->{categorycode}; |
423 |
my $categorycode = $builder->build({ source => 'Category' })->{categorycode}; |
| 424 |
my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode }; |
424 |
my $branchcode = $builder->build( |
|
|
425 |
{ |
| 426 |
source => 'Branch', |
| 427 |
value => { |
| 428 |
branchemail => 'tomasito@koha-community.org', |
| 429 |
branchreplyto => undef, |
| 430 |
branchreturnpath => undef |
| 431 |
} |
| 432 |
} |
| 433 |
)->{branchcode}; |
| 425 |
my $dbh = C4::Context->dbh; |
434 |
my $dbh = C4::Context->dbh; |
| 426 |
|
435 |
|
| 427 |
my $borrower = $builder->build({ |
436 |
my $borrower = $builder->build({ |
|
Lines 431-436
sub create_user_and_session {
Link Here
|
| 431 |
categorycode => $categorycode, |
440 |
categorycode => $categorycode, |
| 432 |
lost => 0, |
441 |
lost => 0, |
| 433 |
flags => $flags, |
442 |
flags => $flags, |
|
|
443 |
email => 'tomasito@koha-community.org' |
| 434 |
} |
444 |
} |
| 435 |
}); |
445 |
}); |
| 436 |
|
446 |
|
| 437 |
- |
|
|