group departments into humanities and social sciences

diff --git a/AZVO.txt b/AZVO.txt
index 1fc934a..8d3e9a7 100644 (file)
--- a/AZVO.txt
+++ b/AZVO.txt
@@ -1,6 +1,6 @@
 Znanstveni rad u časopisu - ukupno    1.01 + 1.02 + 1.03
 Znanstveni rad u časopisu - baze      1.01 + 1.02 + 1.03
-       - CC, WoS, Scopus:                      942r    ^(CC|SCI|SSCI|A&CI|Scopus)
+       - CC, WoS, Scopus:                      942r    (CC|SCI|SSCI|A&CI|Scopus)
        - ostale relevantne baze:       942r    .+
        - nije u bazi:                          942r
 Znanstveni rad sa skupa        recenzija       1.06 + 1.08
@@ -19,13 +19,7 @@ Autorska knjiga              2.01 + 2.01.1 + 2.02 + 2.03 + 2.04 + 2.06 + 2.25
 Urednička knjiga      2.01 edt + 2.02 edt + 2.03 edt + 2.06 edt + 2.25 edt
        - domaća:                      008             ^.{15}(ci|hr)
        - strana:                       008             .+
-Prijevod knjige                2.01 trl + 2.02 trl + 2.03 trl + 2.06 trl + 2.25 trl + 2.50 trl + 2.50.1 trl + 2.50.2 trl
-Prijevod znanstvenog članka           1.01 trl + 1.01 trl + 1.03 trl
-Prijevod stručnog članka             1.04 trl
-Prijevod znanstvenog rada s konferencije       1.06 trl + 1.08 trl
-Prijevod stručnog članka s konferencije              1.07 trl + 1.09 trl
-Prijevod poglavlja u knjizi (znanstveni rad)   1.16.1 trl
-Prijevod poglavlja u knjizi (stručni rad)             1.17 trl
-Prijevod umjetničkog djela (članak)                          1.23 trl
-Kritički prijevod (poglavlje, članak)        1.50.1
-Kritički prijevod (knjiga)                            2.50.1
+Prijevod knjige                2.01 trl + 2.02 trl + 2.03 trl + 2.06 trl + 2.25 trl + 2.50 trl + 2.50.1 trl + 2.50.2 trl + 2.50.3 trl
+Prijevod članka       ili poglavlja   1.01 trl + 1.01 trl + 1.03 trl + 1.04 trl + 1.06 trl + 1.08 trl + 1.07 trl + 1.09 trl + 1.16 trl + 1.16.1 trl + 1.16.2 trl + 1.17 trl + 1.23 trl + 1.50.1 trl
+Kritičko izdanje (knjiga)                             2.50.1 + 2.01.1
+Kritičko izdanje (poglavlje, članak) 1.50.1

diff --git a/html.pl b/html.pl
index 32fa173..7e7b81a 100755 (executable)
--- a/html.pl
+++ b/html.pl
@@ -33,11 +33,17 @@ my $azvo_group_title = {
 'asistenti i novaci' => qr/(asistent|novak)/i,
 };
 
+my $department_groups = {
+'ZZA_humanističke'            => qr/(anglistiku|arheologiju|antropologiju|filozofiju|fonetiku|germanistiku|hungarologiju|indologiju|slavenske|filologiju|komparativnu|kroatistiku|lingvistiku|povijest|romanistiku|talijanistiku)/i,
+'ZZB_društvene'                       => qr/(informacijske|pedagogiju|psihologiju|sociologiju)/i,
+};
+
 my $auth_header;
 my $auth_department;
 my $auth_group;
 my @authors;
 my $department_in_sum;
+my $department_in_group;
 
 my $skip;
 
@@ -79,8 +85,17 @@ while( my $row = $sth_auth->fetchrow_hashref ) {
        push @{ $auth_department->{ $row->{department} } }, $row->{authid};
        push @authors, $row;
        $department_in_sum->{ $row->{department} }++;
+       foreach my $name ( keys %$department_groups ) {
+               my $regex = $department_groups->{$name};
+               if ( $row->{department} =~ $regex ) {
+                       $department_in_group->{ $row->{department} } = $name;
+                       last;
+               }
+       }
 }
 
+debug 'department_in_group' => $department_in_group;
+
 foreach my $department ( keys %$department_in_sum ) {
        $department_in_sum->{$department} = 0 unless $department =~ m/(centar|croaticum|katedra|odsjek)/i;
 }
@@ -389,7 +404,12 @@ foreach my $department ( sort keys %$auth_department ) {
                push @categories,  keys %{ $authors->{$authid}->{sec} };
                foreach my $category ( sort @categories ) {
                        push @{ $department_category_author->{$department}->{$category} }, $authid;
-                       push @{ $department_category_author->{''}->{$category} }, $authid if $department_in_sum->{$department};
+                       push @{ $department_category_author->{'ZZZ_ukupno'}->{$category} }, $authid if $department_in_sum->{$department};
+                       if ( my $group = $department_in_group->{ $department } ) {
+                               push @{ $department_category_author->{$group}->{$category} }, $authid;
+                       } else {
+                               $skip->{'department_not_in_group'}->{ $department }++;
+                       }
                }
        }
 }