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