/[koha]/koha/value_builder/unimarc_field_4XX.pl
ViewVC logotype

Diff of /koha/value_builder/unimarc_field_4XX.pl

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

revision 1.4.2.2 by tipaul, Thu May 19 22:50:29 2005 UTC revision 1.4.2.3 by hdl, Mon Nov 21 17:13:40 2005 UTC
# Line 105  sub plugin { Line 105  sub plugin {
105                  my $subfield_value_0;                  my $subfield_value_0;
106                  $subfield_value_0=$marcrecord->field('001')->data if $marcrecord->field('001');                  $subfield_value_0=$marcrecord->field('001')->data if $marcrecord->field('001');
107                  my $subfield_value_a;                  my $subfield_value_a;
108                  if ($marcrecord->field('200')){                  if ($marcrecord->field('700')){
                         $subfield_value_a=$marcrecord->field('200')->subfield("f");  
                 } elsif ($marcrecord->field('700')){  
109                          $subfield_value_a=$marcrecord->field('700')->subfield("a");                          $subfield_value_a=$marcrecord->field('700')->subfield("a");
110                            $subfield_value_a.=", ".$marcrecord->field('700')->subfield("b") if ($marcrecord->field('700')->subfield("b"));
111                            $subfield_value_a.=" ".$marcrecord->field('700')->subfield("d") if ($marcrecord->field('700')->subfield("d"));
112                            $subfield_value_a.=" (".$marcrecord->field('700')->subfield("c")." - " if ($marcrecord->field('700')->subfield("c"));
113                            $subfield_value_a.=" (" if (($marcrecord->field('700')->subfield("f")) and not( $marcrecord->field('700')->subfield("c")));
114                            $subfield_value_a.=$marcrecord->field('700')->subfield("f") if ($marcrecord->field('700')->subfield("f"));
115                            $subfield_value_a.=")" if ($marcrecord->field('701')->subfield("f")) or ($marcrecord->field('701')->subfield("c"));
116                    } elsif ($marcrecord->field('702')){
117                            $subfield_value_a=$marcrecord->field('702')->subfield("a");
118                            $subfield_value_a.=", ".$marcrecord->field('702')->subfield("b") if ($marcrecord->field('702')->subfield("b"));
119                            $subfield_value_a.=" ".$marcrecord->field('702')->subfield("d") if ($marcrecord->field('702')->subfield("d"));
120                            $subfield_value_a.=" (".$marcrecord->field('702')->subfield("c")."; " if ($marcrecord->field('702')->subfield("c"));
121                            $subfield_value_a.=" (" if (($marcrecord->field('702')->subfield("f")) and not($marcrecord->field('702')->subfield("c")) );
122                            $subfield_value_a.=$marcrecord->field('702')->subfield("f") if ($marcrecord->field('702')->subfield("f"));
123                            $subfield_value_a.=")" if ($marcrecord->field('702')->subfield("f")) or ($marcrecord->field('702')->subfield("c"));
124                    } elsif ($marcrecord->field('710')){
125                            $subfield_value_a=$marcrecord->field('710')->subfield("d")."° " if ($marcrecord->field('710')->subfield("d"));
126                            $subfield_value_a.=$marcrecord->field('710')->subfield("a") if ($marcrecord->field('710')->subfield("a"));
127                            $subfield_value_a.=", ".$marcrecord->field('710')->subfield("b") if ($marcrecord->field('710')->subfield("b"));
128                            $subfield_value_a.=" (".$marcrecord->field('710')->subfield("f")." - " if ($marcrecord->field('710')->subfield("f"));
129                            $subfield_value_a.=" (" if (($marcrecord->field('710')->subfield("e")) and not( $marcrecord->field('710')->subfield("f")));
130                            $subfield_value_a.=$marcrecord->field('710')->subfield("e") if ($marcrecord->field('710')->subfield("e"));
131                            $subfield_value_a.=")" if (($marcrecord->field('710')->subfield("e")) or ($marcrecord->field('710')->subfield("f")));
132                  } elsif ($marcrecord->field('701')){                  } elsif ($marcrecord->field('701')){
133                          $subfield_value_a=$marcrecord->field('701')->subfield("a");                          $subfield_value_a=$marcrecord->field('701')->subfield("a");
134                  }                          $subfield_value_a.=", ".$marcrecord->field('701')->subfield("b") if ($marcrecord->field('701')->subfield("b"));
135                            $subfield_value_a.=" ".$marcrecord->field('701')->subfield("d") if ($marcrecord->field('701')->subfield("d"));
136                            $subfield_value_a.=" (".$marcrecord->field('701')->subfield("c")." - " if ($marcrecord->field('701')->subfield("c"));
137                            $subfield_value_a.=" (" if (($marcrecord->field('701')->subfield("f")) and not( $marcrecord->field('701')->subfield("c")));
138                            $subfield_value_a.=$marcrecord->field('701')->subfield("f") if ($marcrecord->field('701')->subfield("f"));
139                            $subfield_value_a.=")" if ($marcrecord->field('701')->subfield("f")) or ($marcrecord->field('701')->subfield("c"));
140                    } elsif ($marcrecord->field('712')){
141                            $subfield_value_a=$marcrecord->field('712')->subfield("d")."° " if ($marcrecord->field('712')->subfield("d"));
142                            $subfield_value_a.=$marcrecord->field('712')->subfield("a") if ($marcrecord->field('712')->subfield("a"));
143                            $subfield_value_a.=", ".$marcrecord->field('712')->subfield("b") if ($marcrecord->field('712')->subfield("b"));
144                            $subfield_value_a.=" (".$marcrecord->field('712')->subfield("f")." - " if ($marcrecord->field('712')->subfield("f"));
145                            $subfield_value_a.=" (" if (($marcrecord->field('712')->subfield("e")) and not( $marcrecord->field('712')->subfield("f")));
146                            $subfield_value_a.=$marcrecord->field('712')->subfield("e") if ($marcrecord->field('712')->subfield("e"));
147                            $subfield_value_a.=")" if (($marcrecord->field('712')->subfield("e")) or ($marcrecord->field('712')->subfield("f")));
148                    } elsif ($marcrecord->field('200')){
149                            $subfield_value_a=$marcrecord->field('200')->subfield("f");
150                    }
151                  my $subfield_value_c = $marcrecord->field('210')->subfield("a") if ($marcrecord->field('210'));                  my $subfield_value_c = $marcrecord->field('210')->subfield("a") if ($marcrecord->field('210'));
152                  my $subfield_value_d = $marcrecord->field('210')->subfield("d") if ($marcrecord->field('210'));                  my $subfield_value_d = $marcrecord->field('210')->subfield("d") if ($marcrecord->field('210'));
153                                    

Legend:
Removed from v.1.4.2.2  
changed lines
  Added in v.1.4.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26