[Koha] Barcode's continued part two

[library at princeofpeaceabbey.org]

I removed those """ at the beginning and end then got this message:

Cant locate koha/Biblios.pm in @INC

Quoting Ere Maijala <ere.maijala at helsinki.fi>:

> If you have those """ at the beginning and end of the file, remove  
> them. So the first line would be:
>
> use Modern::Perl;
>
> --Ere
>
> library at princeofpeaceabbey.org kirjoitti 19.2.2021 klo 15.05:
>>
>> Trying to run this:
>>
>> """
>>
>> use Modern::Perl;
>> use Koha::Biblios;
>> use Koha::Items;
>>
>> my $biblios = Koha::Biblios->search;
>> my $branchcode='ppa';
>> while ( my $biblio=$biblios->next) {
>>
>>
>>         Koha::Item->new(
>>           {
>>                 biblionumber => $biblio->biblionumber,
>>                 homebranch   => $branchcode,
>>                 holdingbranch =>$branchcode,
>>                 barcode    =>"barcode_".$biblio->biblionumber,
>>                 itype =>$biblio->biblioitem->itemtype,
>>           }
>>         )->store;
>> }
>>
>> """
>>
>> But get this instead:
>>
>> String found where operator expected at barcode.pl line 22, near “””
>>     (Might be a runaway multi-line “” string starting on line 1)
>>         (Missing semicolon on previous line?)
>> syntax error at barcode.pl line 22, near “””
>> execution of barcode.pl aborted due to compilation errors.
>>
>> As you can tell I do not know Perl. So any help will be nice.
>>
>> Raphael
>>
>>
>> _______________________________________________
>>
>> Koha mailing list  http://koha-community.org
>> Koha at lists.katipo.co.nz
>> Unsubscribe: https://lists.katipo.co.nz/mailman/listinfo/koha
>
> -- 
> Ere Maijala
> Kansalliskirjasto / The National Library of Finland
> _______________________________________________
>
> Koha mailing list  http://koha-community.org
> Koha at lists.katipo.co.nz
> Unsubscribe: https://lists.katipo.co.nz/mailman/listinfo/koha