Bug 32437: Add Objects for ImportAuths

[koha-ffzg.git] / cataloguing / value_builder / marc21_orgcode.pl

diff --git a/cataloguing/value_builder/marc21_orgcode.pl b/cataloguing/value_builder/marc21_orgcode.pl
index 48a30ab..aa9142c 100755 (executable)
--- a/cataloguing/value_builder/marc21_orgcode.pl
+++ b/cataloguing/value_builder/marc21_orgcode.pl
@@ -23,12 +23,14 @@
 use Modern::Perl;
 use C4::Context;
 
+use Koha::Libraries;
+
 my $builder = sub {
     my ( $params ) = @_;
-    my $org = C4::Context->preference('MARCOrgCode');
+    my $library = Koha::Libraries->find( C4::Context->userenv->{'branch'} );
+    my $org = $library->get_effective_marcorgcode;
     return <<"HERE";
-<script type=\"text/javascript\">
-//<![CDATA[
+<script>
 
 function Focus$params->{id}(event) {
     if( ! \$('#'+event.data.id).val() ) {
@@ -36,7 +38,6 @@ function Focus$params->{id}(event) {
     }
 }
 
-//]]>
 </script>
 HERE
 };