- push @f942, t => '1.01' if $row->{kategorija} =~ m/Znanstveni/;
- push @f942, t => '1.04' if $row->{kategorija} =~ m/Strucni/;
+
+ if ( $self->{_table} =~ m/(casopis|preprint)/ ) {
+
+ if ( $row->{kategorija} =~ m/Znanstveni/ ) {
+ push @f942, t => '1.01'
+ } elsif ( $row->{kategorija} =~ m/Strucni/ ) {
+ push @f942, t => '1.04';
+ } else {
+ warn "ERROR kategorija $row->{kategorija}";
+ }
+
+ } elsif ( $self->{_table} =~ m/rknjiga/ ) {
+
+ if ( $row->{kategorija} =~ m/Znanstveni/ ) {
+ push @f942, t => '1.16.1';
+ } elsif ( $row->{kategorija} =~ m/Pregledni/ ) {
+ push @f942, t => '1.16.2';
+ } elsif ( $row->{kategorija} =~ m/Strucni/ ) {
+ push @f942, t => '1.17';
+ } else {
+ warn "ERROR kategorija $row->{kategorija}";
+ }
+
+ } else {
+ die "ERROR _table $self->{_table}";
+ }