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 |
|
|