projects
/
share-koha-fer
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5682cea
)
parse JMBAG from reader
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 10 Sep 2019 12:30:47 +0000
(14:30 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 10 Sep 2019 12:30:47 +0000
(14:30 +0200)
intranet/cgi-bin/members/member.pl
patch
|
blob
|
history
diff --git
a/intranet/cgi-bin/members/member.pl
b/intranet/cgi-bin/members/member.pl
index
11cbc41
..
727fde7
100755
(executable)
--- a/
intranet/cgi-bin/members/member.pl
+++ b/
intranet/cgi-bin/members/member.pl
@@
-44,6
+44,7
@@
my ($template, $loggedinuser, $cookie)
my $theme = $input->param('theme') || "default";
my $searchmember = $input->param('searchmember');
+$searchmember =~ s/^.*%B601983\d\d(\d{10})\d&.*$/S$1/ && warn "JMBAG: $1";
my $quicksearch = $input->param('quicksearch') // 0;
if ( $quicksearch and $searchmember ) {