Lines 57-62
BEGIN {
Link Here
|
57 |
&GetBiblioItemInfosOf |
57 |
&GetBiblioItemInfosOf |
58 |
&GetBiblioItemByBiblioNumber |
58 |
&GetBiblioItemByBiblioNumber |
59 |
&GetBiblioFromItemNumber |
59 |
&GetBiblioFromItemNumber |
|
|
60 |
&GetBiblioSummary |
60 |
|
61 |
|
61 |
&GetRecordValue |
62 |
&GetRecordValue |
62 |
&GetFieldMapping |
63 |
&GetFieldMapping |
Lines 1267-1272
sub GetCOinSBiblio {
Link Here
|
1267 |
|
1268 |
|
1268 |
return $coins_value; |
1269 |
return $coins_value; |
1269 |
} |
1270 |
} |
|
|
1271 |
=head2 GetBiblioSummary |
1272 |
|
1273 |
=over 4 |
1274 |
|
1275 |
$summary = GetBiblioSummary($marcrecord); |
1276 |
|
1277 |
Return the summary of a record. |
1278 |
|
1279 |
=back |
1280 |
|
1281 |
=cut |
1282 |
|
1283 |
sub GetBiblioSummary { |
1284 |
my $recorddata =shift @_; |
1285 |
|
1286 |
my $marcflavour = C4::Context->preference("marcflavour"); |
1287 |
my $marc=MARC::Record::new_from_xml($recorddata,"utf-8",$marcflavour); |
1288 |
|
1289 |
my $str; |
1290 |
|
1291 |
if($marcflavour eq "MARC21"){ |
1292 |
$str="<b>".$marc->subfield('245',"a")."</b>" if $marc->subfield('245','a'); |
1293 |
$str.= " <i>".$marc->subfield('245',"b")."</i> " if $marc->subfield('245','b'); |
1294 |
|
1295 |
if ($marc->field('245')){ |
1296 |
$str.=" / "; |
1297 |
foreach ($marc->field('100')->subfield("a")) { |
1298 |
$str.=$_." ; "; |
1299 |
} |
1300 |
$str=~s/ ; $/. /; |
1301 |
} |
1302 |
|
1303 |
if ($marc->field('260')){ |
1304 |
$str.=" - "; |
1305 |
$str.=$marc->subfield('260',"a")." " if $marc->subfield('260','a'); |
1306 |
$str.=" : ".$marc->subfield('260',"b")." " if $marc->subfield('260','b'); |
1307 |
$str.=", ".$marc->subfield('260',"c")." " if $marc->subfield('260','c'); |
1308 |
} |
1309 |
if ($marc->field('300')){ |
1310 |
$str.=" - "; |
1311 |
$str.=$marc->subfield('300','a') if ($marc->subfield(300,'a')); |
1312 |
$str.=" ; ".$marc->subfield('300','b') if $marc->subfield('300','b'); |
1313 |
$str.=" ; ".$marc->subfield('300','c') if $marc->subfield('300','c'); |
1314 |
$str.=" ; ".$marc->subfield('300','e') if $marc->subfield('300','e'); |
1315 |
} |
1316 |
foreach ($marc->field('500')){ |
1317 |
$str.= " - "; |
1318 |
foreach ($_->subfield("a")){ |
1319 |
$str.=$_."; " |
1320 |
} |
1321 |
} |
1322 |
my $itemtypes=GetItemTypes(); |
1323 |
$str.=" - <u>".$itemtypes->{$marc->subfield('942','c')}->{'description'}."</u> "; |
1324 |
$str.="<br />\n"; |
1325 |
|
1326 |
}else{ |
1327 |
$str = "<b>".$marc->subfield('200','a')."</b>" if $marc->subfield('200','a'); |
1328 |
$str.= " <i>".$marc->subfield('200','e')."</i> " if $marc->subfield('200','e'); |
1329 |
if ($marc->field('200')){ |
1330 |
$str.=" / "; |
1331 |
foreach ($marc->field('200')->subfield("f")) { |
1332 |
$str.=$_." ; "; |
1333 |
} |
1334 |
$str=~s/ ; $/. /; |
1335 |
} |
1336 |
|
1337 |
if ($marc->subfield('200','g')){ |
1338 |
$str.=" ; "; |
1339 |
foreach ($marc->field('200')->subfield("g")){ |
1340 |
$str.=$_." ; "; |
1341 |
} |
1342 |
$str=~s/ ; $/. /; |
1343 |
} |
1344 |
|
1345 |
if ($marc->field('461')){ |
1346 |
$str.="- In :"; |
1347 |
$str.= $marc->subfield('461','t') if $marc->subfield('461','t'); |
1348 |
$str.=", ".$marc->subfield('461','d') if $marc->subfield('461','d'); |
1349 |
$str.=", ".$marc->subfield('461','v') if $marc->subfield('461','v'); |
1350 |
$str.=", ".$marc->subfield('461','h') if $marc->subfield('461','h'); |
1351 |
$str.=" ; ".$marc->subfield('461','x') if $marc->subfield('461','x'); |
1352 |
} |
1353 |
|
1354 |
if ($marc->field('210')){ |
1355 |
$str.=" - "; |
1356 |
$str.=$marc->subfield('210',"a")." " if $marc->subfield('210','a'); |
1357 |
$str.=" : ".$marc->subfield('210',"c")." " if $marc->subfield('210','c'); |
1358 |
$str.=", ".$marc->subfield('210',"d")." " if $marc->subfield('210','d'); |
1359 |
} |
1360 |
|
1361 |
if ($marc->field('215')){ |
1362 |
$str.=" - "; |
1363 |
$str.=$marc->subfield('215','a') if ($marc->subfield(215,'a')); |
1364 |
$str.=" ; ".$marc->subfield('215','d') if $marc->subfield('215','d'); |
1365 |
$str.=" ; ".$marc->subfield('215','c') if $marc->subfield('215','c'); |
1366 |
$str.=" ; ".$marc->subfield('215','e') if $marc->subfield('215','e'); |
1367 |
} |
1368 |
foreach ($marc->field('300')){ |
1369 |
$str.=" - "; |
1370 |
foreach ($_->subfield("a")){ |
1371 |
$str.=$_."; " |
1372 |
} |
1373 |
} |
1374 |
|
1375 |
my $itemtypes=GetItemTypes; |
1376 |
if($itemtypes->{$marc->subfield('200','b')}){ |
1377 |
$str.=" - <u>".$itemtypes->{$marc->subfield('200','b')}->{'description'}."</u> "; |
1378 |
} |
1379 |
$str.="<br />\n"; |
1380 |
} |
1381 |
return $str; |
1382 |
} |
1270 |
|
1383 |
|
1271 |
=head2 GetAuthorisedValueDesc |
1384 |
=head2 GetAuthorisedValueDesc |
1272 |
|
1385 |
|