/[webpac2]/trunk/vhost/koha/marc.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/vhost/koha/marc.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1251 by dpavlin, Sun Jul 12 15:10:23 2009 UTC revision 1252 by mglavica, Mon Jul 27 13:40:29 2009 UTC
# Line 19  search( 'impressum', Line 19  search( 'impressum',
19                  rec('260','c'),                  rec('260','c'),
20          )          )
21  );  );
22    if ( my $year = rec('008') ) {
23            search( 'year',
24                    substr( $year,7,4 )
25            ) if length($year) > 13;
26    }
27  search( 'keywords',  search( 'keywords',
28          join_with(' ; ',          join_with(' ; ',
29                  rec('653','a')                  rec('653','a')
Legend:
Removed from v.1251  
changed lines
  Added in v.1252
  ViewVC Help
Powered by ViewVC 1.1.26