/[webpac2]/trunk/conf/normalize/mapping.pl

This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!

Diff of /trunk/conf/normalize/mapping.pl

Parent Directory | Revision Log | View Patch Patch

-revision 622 by dpavlin,
Fri Aug 25 19:22:33 2006 UTC
+revision 629 by dpavlin,
Tue Sep  5 21:02:39 2006 UTC
 Line 84 
 marc_compose('245',
                          rec('200','a')
          ),
          'h', rec('200','b'),
-         'b', rec('200','k'),
+         'b',
+                 join_with(' ; ',
+                         rec('200','k'),
+                 ),
          'b', rec('200','d'),
          'b',
                  join_with(' : ',
-Line 368 
 marc('110','c',
+Line 371 
 marc('110','c',
  marc_indicators('740', 0, ' ');
+ if ( ! rec('464') ) {
  marc('740','a',
          rec('200','c')
  );
+ marc('740','a',
+         rec('200','k')
+ );
- # višerazinci
+ } else {
- #
+ marc('740','a',
- # if ( rec('230') ) {
+         rec('464','a')
- #
+ );
- #       marc_duplicate();
+ };
- #       marc_remove('245');
- #
- #       marc('245','a',
- #               rec('230','a')
+ ## višerazinci
- #       );
- #
+ if ( rec('230') ) {
- #       if ( ! rec('230','a') ) {
- #
+         marc_duplicate();
- #               marc('245','a',
- #                       rec('200','a')
+         marc_remove('245');
- #               );
+         marc_compose('245',
- #       }
+         'a', suffix(
- #
+                 rec('200','b') ? '. '   :
- #       marc('245','b',
+                 rec('200','k') ? ' ; '  :
- #               rec('230','e')
+                 rec('200','d') ? ' = '  :
- #       );
+                 rec('200','e') ? ' : '  :
- #
+                 rec('200','f') ? ' / '  :
- #       marc('245','c',
+                                  '.',
- #               rec('230','f')
+                         rec('230','a')
- #       );
+         ),
- #
+         'b',
- #       marc('245','n',
+                 join_with(' ; ',
- #               rec('230','v')
+                         rec('230','k'),
- #       );
+                 ),
- #
+         'b', rec('230','d'),
- # }
+         'b',
- #
+                 join_with(' : ',
- # if ( rec('231') ) {
+                         rec('230','e'),
- #
+                 ),
- #       marc_duplicate();
+         'c',
- #       marc_remove('245');
+                 join_with(' ; ',
- #
+                         rec('230','f'),
- #       marc('245','a',
+                 ),
- #               rec('231','a')
+         );
- #       );
- #
+         marc_remove('260');
- #       if ( ! rec('231','a') ) {
+         marc('260','c',
- #
+                 rec('250')
- #               marc('245','a',
+         );
- #                       rec('200','a')
- #               );
+         marc_remove('300');
- #       }
+         marc('300','a',
- #
+                 rec('260')
- #       marc('245','b',
+         );
- #               rec('231','e')
- #       );
+         marc_remove('490');
- #
+         marc('490','a',
- #       marc('245','c',
+                 rec('270')
- #               rec('231','f')
+         );
- #       );
- #
+         marc_remove('500');
- #       marc('245','n',
+         marc('500','a',
- #               rec('231','v')
+                 rec('280')
- #       );
+         );
- #
- # }
+         marc_remove('020');
+         marc('020','a',
+                 rec('290')
+         );
+         marc_indicators('774', 0, ' ');
+         marc('774','6',
+                 join_with('',
+                         config(),
+                         rec('000')
+                 )
+         );
+         marc('774','g',
+                 rec('230','v')
+         );
+ };
  }

 Legend:



Removed from v.622
 


changed lines


 
Added in v.629
 Legend:



Removed from v.622
 


changed lines


 
Added in v.629
-Removed from v.622
+Added in v.629

	ViewVC Help
Powered by ViewVC 1.1.26