projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 11169: (follow-up) only count orders that have been placed
[koha_fer]
/
cataloguing
/
value_builder
/
unimarc_field_121a.pl
diff --git
a/cataloguing/value_builder/unimarc_field_121a.pl
b/cataloguing/value_builder/unimarc_field_121a.pl
index
a855332
..
d40f49c
100755
(executable)
--- a/
cataloguing/value_builder/unimarc_field_121a.pl
+++ b/
cataloguing/value_builder/unimarc_field_121a.pl
@@
-63,6
+63,14
@@
function Clic$function_name(i) {
return ($function_name,$res);
}
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');
sub plugin {
my ($input) = @_;
my $index= $input->param('index');
@@
-80,8
+88,8
@@
my ($template, $loggedinuser, $cookie)
debug => 1,
});
my $f1 = substr($result,0,1);
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);
my $f4 = substr($result,3,2);
my $f5 = substr($result,5,1);
my $f6 = substr($result,6,1);