Lines 111-117
for my $vendor (@suppliers) {
Link Here
|
111 |
|
111 |
|
112 |
for my $basket ( @{$baskets} ) { |
112 |
for my $basket ( @{$baskets} ) { |
113 |
my $authorisedby = $basket->{authorisedby}; |
113 |
my $authorisedby = $basket->{authorisedby}; |
114 |
my $basketbranch = GetMember( borrowernumber => $authorisedby )->{branchcode}; |
114 |
my $basketbranch = ''; # set a blank branch to start with |
|
|
115 |
if ( GetMember( borrowernumber => $authorisedby ) ) { |
116 |
# authorisedby may not be a valid borrowernumber; it's not foreign-key constrained! |
117 |
$basketbranch = GetMember( borrowernumber => $authorisedby )->{branchcode}; |
118 |
} |
115 |
|
119 |
|
116 |
if ($userenv->{'flags'} & 1 || #user is superlibrarian |
120 |
if ($userenv->{'flags'} & 1 || #user is superlibrarian |
117 |
(haspermission( $uid, { acquisition => q{*} } ) && #user has acq permissions and |
121 |
(haspermission( $uid, { acquisition => q{*} } ) && #user has acq permissions and |
118 |
- |
|
|