From: Salvador Zaragoza Rubio <[email protected]>

Due to changing to T-T $template->pama("lang") return undef,
now is $template->{param} the right value.

Signed-off-by: Nicole C. Engard <[email protected]>
---
 cataloguing/value_builder/marc21_field_006.pl |    2 +-
 cataloguing/value_builder/marc21_field_008.pl |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cataloguing/value_builder/marc21_field_006.pl 
b/cataloguing/value_builder/marc21_field_006.pl
index 6a4445a..7b55a0a 100755
--- a/cataloguing/value_builder/marc21_field_006.pl
+++ b/cataloguing/value_builder/marc21_field_006.pl
@@ -86,7 +86,7 @@ sub plugin {
 
     my $errorXml = '';
     # Check if the xml, xsd exists and is validated
-    my $dir = C4::Context->config('intrahtdocs') . '/prog/' . 
$template->param('lang') . '/modules/cataloguing/value_builder/';
+    my $dir = C4::Context->config('intrahtdocs') . '/prog/' . 
$template->{lang} . '/modules/cataloguing/value_builder/';
     if (-r $dir . 'marc21_field_006.xml') {
         my $doc = XML::LibXML->new->parse_file($dir . 'marc21_field_006.xml');
         if (-r $dir . 'marc21_field_CF.xsd') {
diff --git a/cataloguing/value_builder/marc21_field_008.pl 
b/cataloguing/value_builder/marc21_field_008.pl
index 8b5db26..5b8a7e5 100755
--- a/cataloguing/value_builder/marc21_field_008.pl
+++ b/cataloguing/value_builder/marc21_field_008.pl
@@ -100,7 +100,7 @@ sub plugin {
     $result = "$dateentered" . "t        xxu||||| |||| 00| 0 eng d" unless 
$result;
     my $errorXml = '';
     # Check if the xml, xsd exists and is validated
-    my $dir = C4::Context->config('intrahtdocs') . '/prog/' . 
$template->param('lang') . '/modules/cataloguing/value_builder/';
+    my $dir = C4::Context->config('intrahtdocs') . '/prog/' . 
$template->{lang} . '/modules/cataloguing/value_builder/';
     if (-r $dir . 'marc21_field_008.xml') {
         my $doc = XML::LibXML->new->parse_file($dir . 'marc21_field_008.xml');
         if (-r $dir . 'marc21_field_CF.xsd') {
-- 
1.7.2.3

_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/

Reply via email to