work on e-journals catalog

[webpac2] / vhost / koha / marc.pl

diff --git a/vhost/koha/marc.pl b/vhost/koha/marc.pl
index 767e323..86d19a5 100644 (file)
--- a/vhost/koha/marc.pl
+++ b/vhost/koha/marc.pl
@@ -19,6 +19,11 @@ search( 'impressum',
                rec('260','c'), 
        )
 );
+if ( my $year = rec('008') ) {
+       search( 'year',
+               substr( $year,7,4 )
+       ) if length($year) > 13;
+}
 search( 'keywords',
        join_with(' ; ',
                rec('653','a')