From 2e7a14fe4d470904e91bdf0ee2af90353acb9538 Mon Sep 17 00:00:00 2001
From: Joshua Ferraro <jmf@liblime.com>
Date: Fri, 10 Aug 2007 01:55:29 -0500
Subject: [PATCH] patch to fix marc21 leader

Signed-off-by: Chris Cormack <crc@liblime.com>
---
 cataloguing/addbiblio.pl                   | 3 +--
 cataloguing/value_builder/marc21_leader.pl | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl
index a4f0cfab8d..8777e6c3e7 100755
--- a/cataloguing/addbiblio.pl
+++ b/cataloguing/addbiblio.pl
@@ -337,8 +337,7 @@ sub create_input {
             $cgidir = C4::Context->intranetdir . "/cataloguing/value_builder";
         }
         my $plugin = $cgidir . "/" . $tagslib->{$tag}->{$subfield}->{'value_builder'};
-        
-        do $plugin;
+        do $plugin || die "Plugin Failed: ".$plugin;
         my $extended_param = plugin_parameters( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop );
         my ( $function_name, $javascript ) = plugin_javascript( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop );
 #         my ( $function_name, $javascript,$extended_param );
diff --git a/cataloguing/value_builder/marc21_leader.pl b/cataloguing/value_builder/marc21_leader.pl
index 6ded994f47..b10401f750 100755
--- a/cataloguing/value_builder/marc21_leader.pl
+++ b/cataloguing/value_builder/marc21_leader.pl
@@ -40,7 +40,7 @@ return "";
 
 sub plugin_javascript {
 my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= $field_number
+my $function_name= $field_number;
 my $res="
 <script>
 function Focus$function_name(subfield_managed) {
-- 
2.39.5