This patch change the way to retrieve the value to insert in the record.
The way it was done, was verry ugly.
---
cataloguing/value_builder/unimarc_field_210c.pl | 9 +++++----
.../value_builder/unimarc_field_210c.tmpl | 2 +-
2 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/cataloguing/value_builder/unimarc_field_210c.pl
b/cataloguing/value_builder/unimarc_field_210c.pl
index c91eeb6..44a6829 100755
--- a/cataloguing/value_builder/unimarc_field_210c.pl
+++ b/cataloguing/value_builder/unimarc_field_210c.pl
@@ -136,9 +136,10 @@ my ($input) = @_;
$startfrom*$resultsperpage,
$resultsperpage,$authtypecode, $orderby);
# Getting the $b if it exists
- foreach my $_ (@$results) {
- if ($_->{reported_tag} =~ m/^\$b/) {
- $_->{to_report} = substr($_->{reported_tag}, 2);
+ for (@$results) {
+ my $authority = GetAuthority($_->{authid});
+ if ($authority->field('200') and
$authority->subfield('200','b')) {
+ $_->{to_report} = $authority->subfield('200','b');
}
}
@@ -181,7 +182,7 @@ my ($input) = @_;
$to = (($startfrom+1)*$resultsperpage);
}
my
$link="../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&authtypecode=EDITORS&and_or=$and_or&marclist=$marclist&operator=$operator&orderby=$orderby&excluding=$excluding&".join("&",map
{"value=".$_} @value)."&op=do_search&type=intranet&index=$index";
- warn "$link ,".getnbpages($total, $resultsperpage);
+
$template->param(result => $results) if $results;
$template->param('index' => $query->param('index'));
$template->param(startfrom=> $startfrom,
diff --git
a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_210c.tmpl
b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_210c.tmpl
index bde1feb..c2d19c7 100644
---
a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_210c.tmpl
+++
b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_210c.tmpl
@@ -3,7 +3,7 @@
<html xmlns="http://www.w3.org/1999/xhtml";>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
-<title>UNIMARC_Field 125b builder</title>
+<title>UNIMARC_Field 210c builder</title>
</head>
<body>
--
1.7.0.4
_______________________________________________
Koha-patches mailing list
Koha-patches@lists.koha.org
http://lists.koha.org/mailman/listinfo/koha-patches
