&GetBiblioItemInfosOf
&GetBiblioItemByBiblioNumber
&GetBiblioFromItemNumber
+ &GetBiblioSummary
&GetRecordValue
&GetFieldMapping
=cut
sub AddBiblio {
- my $record = shift;
- my $frameworkcode = shift;
- my $options = @_ ? shift : undef;
- my $defer_marc_save = 0;
- if (defined $options and exists $options->{'defer_marc_save'} and $options->{'defer_marc_save'}) {
- $defer_marc_save = 1;
- }
-
- my ($biblionumber,$biblioitemnumber,$error);
+ my ( $record, $frameworkcode, $options ) = @_;
my $dbh = C4::Context->dbh;
# transform the data into koha-table style data
my $olddata = TransformMarcToKoha( $dbh, $record, $frameworkcode );
- ($biblionumber,$error) = _koha_add_biblio( $dbh, $olddata, $frameworkcode );
+ my ($biblionumber) = _koha_add_biblio( $dbh, $olddata, $frameworkcode );
$olddata->{'biblionumber'} = $biblionumber;
- ($biblioitemnumber,$error) = _koha_add_biblioitem( $dbh, $olddata );
+ my ($biblioitemnumber) = _koha_add_biblioitem( $dbh, $olddata );
_koha_marc_update_bib_ids($record, $frameworkcode, $biblionumber, $biblioitemnumber);
_koha_marc_update_biblioitem_cn_sort($record, $olddata, $frameworkcode);
# now add the record
- ModBiblioMarc( $record, $biblionumber, $frameworkcode ) unless $defer_marc_save;
+ ModBiblioMarc( $record, $biblionumber, $frameworkcode ) unless $$options{defer_marc_save} ||= 0;
logaction("CATALOGUING", "ADD", $biblionumber, "biblio") if C4::Context->preference("CataloguingLog");
return ( $biblionumber, $biblioitemnumber );
my $tagslib = &GetMarcStructure( 1, $itemtype );
my $ISBD = C4::Context->preference('ISBD');
+ if($template eq "opac"){
+ $ISBD = C4::Context->preference('OPACISBD');
+ }
+
my $bloc = $ISBD;
my $res;
my $blocres;
my $tagsubf = $tag . $subfvalue;
$calculated =~
s/\{(.?.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
- $calculated =~s#/cgi-bin/koha/[^/]+/([^.]*.pl\?.*)$#opac-$1#g if ($template eq "opac");
# field builded, store the result
if ( $calculated && !$hasputtextbefore )
else {
my @subf = $field->subfields;
for my $i ( 0 .. $#subf ) {
- my $valuecode = $subf[$i][1];
- my $subfieldcode = $subf[$i][0];
- my $subfieldvalue =
- GetAuthorisedValueDesc( $tag, $subf[$i][0],
- $subf[$i][1], '', $tagslib );
- my $tagsubf = $tag . $subfieldcode;
-
- $calculated =~ s/ # replace all {{}} codes by the value code.
- \{\{$tagsubf\}\} # catch the {{actualcode}}
- /
- $valuecode # replace by the value code
- /gx;
-
- $calculated =~
- s/\{(.?.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
- $calculated =~s#/cgi-bin/koha/[^/]+/([^.]*.pl\?.*)$#opac-$1#g if ($template eq "opac");
+ my $valuecode = $subf[$i][1];
+ my $subfieldcode = $subf[$i][0];
+ my $subfieldvalue =
+ GetAuthorisedValueDesc( $tag, $subf[$i][0],
+ $subf[$i][1], '', $tagslib );
+ my $tagsubf = $tag . $subfieldcode;
+
+ $calculated =~ s/\{\{$tagsubf\}\}/$valuecode/gx;
+ $calculated =~
+ s/\{(.?.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
}
# field builded, store the result
$genre = ($mtx eq 'dc') ? "&rft.type=$genre" : "&rft.genre=$genre";
# Setting datas
- $aulast = $record->subfield('700','a');
- $aufirst = $record->subfield('700','b');
+ $aulast = $record->subfield('700','a') || '';
+ $aufirst = $record->subfield('700','b') || '';
$oauthors = "&rft.au=$aufirst $aulast";
# others authors
if($record->field('200')){
}
$title = ( $mtx eq 'dc' ) ? "&rft.title=".$record->subfield('200','a') :
"&rft.title=".$record->subfield('200','a')."&rft.btitle=".$record->subfield('200','a');
- $pubyear = $record->subfield('210','d');
- $publisher = $record->subfield('210','c');
- $isbn = $record->subfield('010','a');
- $issn = $record->subfield('011','a');
+ $pubyear = $record->subfield('210','d') || '';
+ $publisher = $record->subfield('210','c') || '';
+ $isbn = $record->subfield('010','a') || '';
+ $issn = $record->subfield('011','a') || '';
}else{
# MARC21 need some improve
my $fmts;
return $coins_value;
}
+=head2 GetBiblioSummary
+
+=over 4
+
+$summary = GetBiblioSummary($marcrecord);
+
+Return the summary of a record.
+
+=back
+
+=cut
+
+sub GetBiblioSummary {
+ my $recorddata =shift @_;
+
+ return unless $recorddata;
+ my $marcflavour = C4::Context->preference("marcflavour");
+ my $marc=MARC::Record::new_from_xml($recorddata,"utf-8",$marcflavour);
+ return unless $marc;
+
+ my $str;
+
+ if($marcflavour eq "MARC21"){
+ $str="<b>".$marc->subfield('245',"a")."</b>" if $marc->subfield('245','a');
+ $str.= " <i>".$marc->subfield('245',"b")."</i> " if $marc->subfield('245','b');
+
+ if ($marc->field('245')){
+ $str.=" / ";
+ foreach ($marc->field('100')->subfield("a")) {
+ $str.=$_." ; ";
+ }
+ $str=~s/ ; $/. /;
+ }
+
+ if ($marc->field('260')){
+ $str.=" - ";
+ $str.=$marc->subfield('260',"a")." " if $marc->subfield('260','a');
+ $str.=" : ".$marc->subfield('260',"b")." " if $marc->subfield('260','b');
+ $str.=", ".$marc->subfield('260',"c")." " if $marc->subfield('260','c');
+ }
+ if ($marc->field('300')){
+ $str.=" - ";
+ $str.=$marc->subfield('300','a') if ($marc->subfield(300,'a'));
+ $str.=" ; ".$marc->subfield('300','b') if $marc->subfield('300','b');
+ $str.=" ; ".$marc->subfield('300','c') if $marc->subfield('300','c');
+ $str.=" ; ".$marc->subfield('300','e') if $marc->subfield('300','e');
+ }
+ foreach ($marc->field('500')){
+ $str.= " - ";
+ foreach ($_->subfield("a")){
+ $str.=$_."; "
+ }
+ }
+ my $itemtypes=GetItemTypes();
+ $str.=" - <u>".$itemtypes->{$marc->subfield('942','c')}->{'description'}."</u> ";
+ $str.="<br />\n";
+
+ }else{
+ $str = "<b>".$marc->subfield('200','a')."</b>" if $marc->subfield('200','a');
+ $str.= " <i>".$marc->subfield('200','e')."</i> " if $marc->subfield('200','e');
+ if ($marc->field('200')){
+ $str.=" / ";
+ foreach ($marc->field('200')->subfield("f")) {
+ $str.=$_." ; ";
+ }
+ $str=~s/ ; $/. /;
+ }
+
+ if ($marc->subfield('200','g')){
+ $str.=" ; ";
+ foreach ($marc->field('200')->subfield("g")){
+ $str.=$_." ; ";
+ }
+ $str=~s/ ; $/. /;
+ }
+
+ if ($marc->field('461')){
+ $str.="- In :";
+ $str.= $marc->subfield('461','t') if $marc->subfield('461','t');
+ $str.=", ".$marc->subfield('461','d') if $marc->subfield('461','d');
+ $str.=", ".$marc->subfield('461','v') if $marc->subfield('461','v');
+ $str.=", ".$marc->subfield('461','h') if $marc->subfield('461','h');
+ $str.=" ; ".$marc->subfield('461','x') if $marc->subfield('461','x');
+ }
+
+ if ($marc->field('210')){
+ $str.=" - ";
+ $str.=$marc->subfield('210',"a")." " if $marc->subfield('210','a');
+ $str.=" : ".$marc->subfield('210',"c")." " if $marc->subfield('210','c');
+ $str.=", ".$marc->subfield('210',"d")." " if $marc->subfield('210','d');
+ }
+
+ if ($marc->field('215')){
+ $str.=" - ";
+ $str.=$marc->subfield('215','a') if ($marc->subfield(215,'a'));
+ $str.=" ; ".$marc->subfield('215','d') if $marc->subfield('215','d');
+ $str.=" ; ".$marc->subfield('215','c') if $marc->subfield('215','c');
+ $str.=" ; ".$marc->subfield('215','e') if $marc->subfield('215','e');
+ }
+ foreach ($marc->field('300')){
+ $str.=" - ";
+ foreach ($_->subfield("a")){
+ $str.=$_."; "
+ }
+ }
+
+ my $itemtypes=GetItemTypes;
+ if($itemtypes->{$marc->subfield('200','b')}){
+ $str.=" - <u>".$itemtypes->{$marc->subfield('200','b')}->{'description'}."</u> ";
+ }
+ $str.="<br />\n";
+ }
+ return $str;
+}
+
=head2 GetAuthorisedValueDesc
=over 4
my @marcurls;
for my $field ( $record->field('856') ) {
- my $marcurl;
my @notes;
for my $note ( $field->subfield('z') ) {
push @notes, { note => $note };
}
my @urls = $field->subfield('u');
foreach my $url (@urls) {
+ my $marcurl;
if ( $marcflavour eq 'MARC21' ) {
my $s3 = $field->subfield('3');
my $link = $field->subfield('y');
}
}
else { # @$tags[$i] eq $prevtag
- if ( @$values[$i] eq "" ) {
+ my $indicator1=eval{substr( @$indicator[$j], 0, 1 )};
+ my $indicator2=eval{substr( @$indicator[$j], 1, 1 )};
+ my $ind1 = _default_ind_to_space($indicator1);
+ my $ind2;
+ if ( @$indicator[$j] ) {
+ $ind2 = _default_ind_to_space($indicator2);
+ }
+ else {
+ warn "Indicator in @$tags[$i] is empty";
+ $ind2 = " ";
+ }
+ if ( @$values[$i] eq "" ) {
}
else {
if ($first) {
sub _koha_add_biblioitem {
my ( $dbh, $biblioitem ) = @_;
- my $error;
+ my @fields = qw/ biblionumber
+ cn_class cn_item cn_sort cn_source cn_suffix
+ collectionissn collectiontitle collectionvolume
+ editionresponsibility editionstatement
+ illus isbn issn itemtype lccn marc
+ notes number pages place
+ publicationyear publishercode size
+ totalissues url
+ volume volumedate volumedesc
+ /;
+
+ ($$biblioitem{cn_sort}) = GetClassSort( @$biblioitem{qw/ biblioitems.cn_source cn_class cn_item /} );
+
+ my $query = 'INSERT INTO biblioitems SET '
+ . join ( ',', map { "$_ =?" } @fields )
+ . ';'
+ ;
- my ($cn_sort) = GetClassSort($biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );
- my $query =
- "INSERT INTO biblioitems SET
- biblionumber = ?,
- volume = ?,
- number = ?,
- itemtype = ?,
- isbn = ?,
- issn = ?,
- publicationyear = ?,
- publishercode = ?,
- volumedate = ?,
- volumedesc = ?,
- collectiontitle = ?,
- collectionissn = ?,
- collectionvolume= ?,
- editionstatement= ?,
- editionresponsibility = ?,
- illus = ?,
- pages = ?,
- notes = ?,
- size = ?,
- place = ?,
- lccn = ?,
- marc = ?,
- url = ?,
- cn_source = ?,
- cn_class = ?,
- cn_item = ?,
- cn_suffix = ?,
- cn_sort = ?,
- totalissues = ?
- ";
my $sth = $dbh->prepare($query);
- $sth->execute(
- $biblioitem->{'biblionumber'},
- $biblioitem->{'volume'},
- $biblioitem->{'number'},
- $biblioitem->{'itemtype'},
- $biblioitem->{'isbn'},
- $biblioitem->{'issn'},
- $biblioitem->{'publicationyear'},
- $biblioitem->{'publishercode'},
- $biblioitem->{'volumedate'},
- $biblioitem->{'volumedesc'},
- $biblioitem->{'collectiontitle'},
- $biblioitem->{'collectionissn'},
- $biblioitem->{'collectionvolume'},
- $biblioitem->{'editionstatement'},
- $biblioitem->{'editionresponsibility'},
- $biblioitem->{'illus'},
- $biblioitem->{'pages'},
- $biblioitem->{'bnotes'},
- $biblioitem->{'size'},
- $biblioitem->{'place'},
- $biblioitem->{'lccn'},
- $biblioitem->{'marc'},
- $biblioitem->{'url'},
- $biblioitem->{'biblioitems.cn_source'},
- $biblioitem->{'cn_class'},
- $biblioitem->{'cn_item'},
- $biblioitem->{'cn_suffix'},
- $cn_sort,
- $biblioitem->{'totalissues'}
- );
+ $sth->execute( @$biblioitem{@fields} );
my $bibitemnum = $dbh->{'mysql_insertid'};
- if ( $dbh->errstr ) {
- $error.="ERROR in _koha_add_biblioitem $query".$dbh->errstr;
- warn $error;
- }
+ my $error = '';
+ $dbh->errstr and warn $error .=
+ 'ERROR in _koha_add_biblioitem '
+ . $query
+ . $dbh->errstr
+ ;
$sth->finish();
return ($bibitemnum,$error);
}
projects / koha.git / blobdiff