From 9e52f8eb286e7e85d39c1d26117a2b9dda2fbf1d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 24 Nov 2013 17:51:07 +0100
Subject: [PATCH] fix author extraction fir just Filozofski fakultet u Zagrebu

---
 html.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/html.pl b/html.pl
index a638c23..0c55a7a 100755
--- a/html.pl
+++ b/html.pl
@@ -42,11 +42,15 @@ from auth_header
 
 $sth_auth->execute();
 while( my $row = $sth_auth->fetchrow_hashref ) {
+	if ( $row->{department} !~ m/Filozofski fakultet u Zagrebu/ ) {
+		push @{ $skip->{nije_ffzg} }, $row;
+		next;
+	}
 	$auth_header->{ $row->{authid} } = $row->{full_name};
-	$row->{department} =~ s/, Filozofski fakultet u Zagrebu\s*// || next;
+	$row->{department} =~ s/, Filozofski fakultet u Zagrebu.*$//;
 	$row->{department} =~ s/^.+\.\s*//;
-	push @{ $auth_department->{ $row->{department} } }, $row->{authid};
 #	warn dump( $row );
+	push @{ $auth_department->{ $row->{department} } }, $row->{authid};
 	push @authors, $row;
 
 }
-- 
2.20.1