X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=cataloguing%2Fvalue_builder%2Funimarc_field_121a.pl;h=d40f49c2e7911fe27efde393dae56a99c950a6d6;hb=bed4c271841e7efcfe6ead21a12ef7d510eef931;hp=0880e7c78a227d165a23e72cc47953d3a5b357ba;hpb=6a7d1f448d880c00253f3f8d6442a0dc601cffc6;p=koha_fer diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl index 0880e7c78a..d40f49c2e7 100755 --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ b/cataloguing/value_builder/unimarc_field_121a.pl @@ -14,11 +14,12 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +#use warnings; FIXME - Bug 2505 use C4::Auth; use CGI; use C4::Context; @@ -26,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; @@ -51,7 +55,7 @@ function Blur$function_name(subfield_managed) { function Clic$function_name(i) { defaultvalue=document.getElementById(\"$field_number\").value; - newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_121a.pl&index=$field_number&result=\"+defaultvalue,\"unimarc field 121a\",'width=1210,height=750,toolbar=false,scrollbars=yes'); + newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_121a.pl&index=$field_number&result=\"+defaultvalue,\"unimarc_field_121a\",'width=1210,height=750,toolbar=false,scrollbars=yes'); } @@ -59,6 +63,14 @@ function Clic$function_name(i) { return ($function_name,$res); } + +sub wrapper { + my ($char) = @_; + return "space" if $char eq " "; + return "pipe" if $char eq "|"; + return $char; +} + sub plugin { my ($input) = @_; my $index= $input->param('index'); @@ -76,8 +88,8 @@ my ($template, $loggedinuser, $cookie) debug => 1, }); my $f1 = substr($result,0,1); - my $f2 = substr($result,1,1); - my $f3 = substr($result,2,1); + my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2; + my $f3 = substr($result,2,1); $f3 = wrapper( $f3 ) if $f3; my $f4 = substr($result,3,2); my $f5 = substr($result,5,1); my $f6 = substr($result,6,1);