Lines 3336-3342
sub ModBiblioMarc {
Link Here
|
3336 |
my $userenv = C4::Context->userenv; |
3336 |
my $userenv = C4::Context->userenv; |
3337 |
if ($userenv) { |
3337 |
if ($userenv) { |
3338 |
my $borrowernumber = $userenv->{number}; |
3338 |
my $borrowernumber = $userenv->{number}; |
3339 |
my $borrowername = join ' ', @$userenv{qw(firstname surname)}; |
3339 |
my $borrowername = join ' ', map { $_ // q{} } @$userenv{qw(firstname surname)}; |
3340 |
unless ($m_rs->in_storage) { |
3340 |
unless ($m_rs->in_storage) { |
3341 |
Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorId'), $borrowernumber); |
3341 |
Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorId'), $borrowernumber); |
3342 |
Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorName'), $borrowername); |
3342 |
Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorName'), $borrowername); |
3343 |
- |
|
|