/[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 563 by dpavlin,
Sun Jul  2 18:36:22 2006 UTC
+revision 570 by dpavlin,
Mon Jul  3 10:32:46 2006 UTC
 Line 1
  # Leader
  if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
          marc_leader('05','c');
  } else {
 Line 16 
 if ( rec('230') ) {
          marc_leader('19','r');
  }
- # greška - 000 se ne zapisuje u marc:
+ # greška! - 000 se ne zapisuje u marc:
  marc('001',
          rec('000')
-Line 59 
 marc('250','a',
+Line 61 
 marc('250','a',
          rec('205','a')
  );
- _debug( 2 );
- warn "210a: ",dump( first(rec('210','a' )) );
  marc_compose('260',
          'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
          'b', first(rec('210','c')),
-Line 69 
 marc_compose('260',
+Line 68 
 marc_compose('260',
          'c', first(rec('210','d')),
  );
- _debug( 0 );
  marc('300','a',
          rec('215','a')
  );
-Line 104 
 marc('490','a',
+Line 100 
 marc('490','a',
  );
  marc('490','v',
-         rec('225','v')
+         join_with(', ',
+                 rec('225','v'),
+                 rec('225','w')
+         )
  );
  marc('500','a',
-Line 194 
 marc('111','a',
+Line 193 
 marc('111','a',
          rec('710','a')
  );
+ marc('111','c',
+         rec('710','e')
+ );
+ marc('111','d',
+         rec('710','f')
+ );
  marc('111','e',
          rec('710','b')
  );
-Line 202 
 marc('111','n',
+Line 209 
 marc('111','n',
          rec('710','d')
  );
- marc('111','c',
-         rec('710','e')
- );
- marc('111','d',
-         rec('710','f')
- );
  } else {

 Legend:



Removed from v.563
 


changed lines


 
Added in v.570
 Legend:



Removed from v.563
 


changed lines


 
Added in v.570
-Removed from v.563
+Added in v.570

	ViewVC Help
Powered by ViewVC 1.1.26