Lines 136-142
sub transfer {
Link Here
|
136 |
|
136 |
|
137 |
$self->colBranchcode( $library->branchcode )->store; |
137 |
$self->colBranchcode( $library->branchcode )->store; |
138 |
|
138 |
|
139 |
my $from = C4::Context->userenv->{'branch'} if C4::Context->userenv; |
139 |
my $from; |
|
|
140 |
$from = C4::Context->userenv->{'branch'} if C4::Context->userenv; |
140 |
|
141 |
|
141 |
my $items = $self->items; |
142 |
my $items = $self->items; |
142 |
while ( my $item = $items->next ) { |
143 |
while ( my $item = $items->next ) { |