parse JMBAG from reader

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 ) {