/[webpac2]/trunk/conf/normalize/minimal.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/conf/normalize/minimal.pl

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

revision 1009 by dpavlin, Wed Oct 31 18:07:33 2007 UTC revision 1010 by dpavlin, Tue Nov 6 20:20:37 2007 UTC
# Line 1  Line 1 
1    
2  if ( rec('200','a') ) {  if ( rec('200','a') ) {
3    
4    marc('035','6',
5            join_with('',
6                    uc( config() ),
7                    ' A',
8                    rec('000')
9            )
10    );
11    
12  marc_indicators('245', 1, 0);  marc_indicators('245', 1, 0);
13    
14  marc('245','a',  marc('245','a',
15          first( rec('200','a') )          join_with(' / ',
16  );                  join_with(' : ',
17                            join_with(' = ',
18  marc('999','a',                                  rec('225','a'),
19          rec('110','a')                                  rec('225','d')
20                            ),
21                            rec('225','e')
22                    ),
23                    join_with(' ; ',
24                            rec('225','f'),
25                            rec('225','g')
26                    ),
27            ),
28  );  );
29    
30  }  }
Legend:
Removed from v.1009  
changed lines
  Added in v.1010
  ViewVC Help
Powered by ViewVC 1.1.26