X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=html.pl;h=994570cbc20581fef8870d4a5f567ab9a1b637ea;hb=eaa3b686bea886e4c15d2850f2a0d5fa3489870c;hp=92b12a09f8c74cf206e5be222829e5262e18ef51;hpb=c0fea1a16c6b1f017d159373d443532c6a708430;p=koha-bibliografija

diff --git a/html.pl b/html.pl
index 92b12a0..994570c 100755
--- a/html.pl
+++ b/html.pl
@@ -28,14 +28,14 @@ sub debug {
 my $xslfilename = 'compact.xsl';
 
 my $azvo_group_title = {
-'znanstveno nastavni' => qr/(profesor|docent|znanstveni)/i,
+'znanstveno nastavni' => qr/(profes|docent|znanstveni savjetnik|znanstveni suradnik)/i,
 'lektori i predavači' => qr/(lektor|predavač)/i,
 'asistenti i novaci' => qr/(asistent|novak)/i,
 };
 
 my $department_groups = {
-'AAA_humanističke'		=> qr/(anglistiku|arheologiju|antropologiju|filozofiju|fonetiku|germanistiku|hungarologiju|indologiju|slavenske|filologiju|komparativnu|kroatistiku|lingvistiku|povijest|romanistiku|talijanistiku)/i,
-'AAB_društvene'			=> qr/(informacijske|pedagogiju|psihologiju|sociologiju)/i,
+'AAB_humanističke'		=> qr/(anglistiku|arheologiju|antropologiju|filozofiju|fonetiku|germanistiku|hungarologiju|indologiju|slavenske|filologiju|komparativnu|kroatistiku|lingvistiku|povijest|romanistiku|talijanistiku)/i,
+'AAC_društvene'			=> qr/(informacijske|pedagogiju|psihologiju|sociologiju)/i,
 };
 
 my $auth_header;
@@ -387,7 +387,9 @@ sub author_html {
 	foreach my $category ( sort keys %{ $authors->{$authid}->{$type} } ) {
 		my $label = $category_label->{$category} || 'Bez kategorije';
 		print $fh qq|<h3>$label</h3>\n<ul>\n|;
-		foreach my $biblionumber ( @{ $authors->{$authid}->{$type}->{$category} } ) {
+		foreach my $biblionumber ( sort {
+				$biblio_year->{$b} <=> $biblio_year->{$a} || $a <=> $b
+			} @{ $authors->{$authid}->{$type}->{$category} } ) {
 			print $fh li_biblio( $biblionumber );
 		}
 		print $fh qq|</ul>\n|;
@@ -432,7 +434,7 @@ 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->{'AAZ_ukupno'}->{$category} }, $authid if $department_in_sum->{$department};
+			push @{ $department_category_author->{'AAA_ukupno'}->{$category} }, $authid if $department_in_sum->{$department};
 			if ( my $group = $department_in_group->{ $department } ) {
 				push @{ $department_category_author->{$group}->{$category} }, $authid;
 			} else {