$row->{department} =~ s/, Filozofski fakultet u Zagrebu\s*// || next;
$row->{department} =~ s/^.+\.\s*//;
push @{ $auth_department->{ $row->{department} } }, $row->{authid};
- warn dump( $row );
+# warn dump( $row );
push @authors, $row;
}
#print dump( $authors );
-print dump( $auth_header );
+#print dump( $auth_header );
-print dump( $auth_department );
+#print dump( $auth_department );
my $department_category_author;
}
}
-print dump( $department_category_author );
+#print dump( $department_category_author );
mkdir 'html/departments' unless -d 'html/departments';