Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

continuing the road to zebra :

Browse source 
- the biblio add begins to work.
- the biblio modif begins to work.

(still without doing anything on zebra)
(no new change in updatedatabase)
This commit is contained in:
tipaul 2005-08-10 10:21:14 +00:00
parent 3a48682514
commit 139d01cf13
4 changed files with 130 additions and 184 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

227
C4/Biblio.pm
View file

@ -23,6 +23,7 @@ use C4::Context;
use C4::Database;
use MARC::Record;
use MARC::File::USMARC;
use MARC::File::XML;
use vars qw($VERSION @ISA @EXPORT);
@ -483,7 +484,6 @@ sub MARCgetbiblio {
$sth->execute($biblionumber);
my ($marc) = $sth->fetchrow;
my $record = MARC::File::USMARC::decode($marc);
warn "$biblionumber => $marc = ".$record->as_usmarc();
return $record;
}
@ -950,6 +950,7 @@ sub MARChtml2marc {
my $prevvalue; # if tag <10
my $field; # if tag >=10
for (my $i=0; $i< @$rtags; $i++) {
next unless @$rvalues[$i];
# rebuild MARC::Record
# warn "0=>".@$rtags[$i].@$rsubfields[$i]." = ".@$rvalues[$i].": ";
if (@$rtags[$i] ne $prevtag) {
@ -1123,34 +1124,57 @@ sub MARCdelword {
# it's used with marcimport, and marc management tools
#
=item ($bibid,$oldbibnum,$oldbibitemnum) = NEWnewbibilio($dbh,$MARCRecord,$oldbiblio,$oldbiblioitem);
=item ($bibid,$oldbibnum,$oldbibitemnum) = NEWnewbibilio($dbh,$MARCRecord,$frameworkcode);
creates a new biblio from a MARC::Record. The 3rd and 4th parameter are hashes and may be ignored. If only 2 params are passed to the sub, the old-db hashes
are builded from the MARC::Record. If they are passed, they are used.
creates a biblio from a MARC::Record.
=item NEWnewitem($dbh, $record,$bibid);
adds an item in the db.
creates an item from a MARC::Record
=cut
sub NEWnewbiblio {
my ( $dbh, $record, $frameworkcode ) = @_;
my $oldbibnum;
my $oldbibitemnum;
my $biblionumber;
my $biblioitemnumber;
my $olddata = MARCmarc2koha( $dbh, $record,$frameworkcode );
$oldbibnum = OLDnewbiblio( $dbh, $olddata );
$olddata->{'biblionumber'} = $oldbibnum;
$oldbibitemnum = OLDnewbiblioitem( $dbh, $olddata );
$olddata->{frameworkcode} = $frameworkcode;
$biblionumber = OLDnewbiblio( $dbh, $olddata );
$olddata->{biblionumber} = $biblionumber;
# add biblionumber into the MARC record (it's the ID for zebra)
my ( $tagfield, $tagsubfield ) =
MARCfind_marc_from_kohafield( $dbh, "biblio.biblionumber",$frameworkcode );
# create the field
my $newfield;
if ($tagfield<10) {
$newfield = MARC::Field->new(
$tagfield, $biblionumber,
);
} else {
$newfield = MARC::Field->new(
$tagfield, '', '', "$tagsubfield" => $biblionumber,
);
}
# drop old field (just in case it already exist and create new one...
my $old_field = $record->field($tagfield);
$record->delete_field($old_field);
$record->add_fields($newfield);
#create the marc entry, that stores the rax marc record in Koha 3.0
$olddata->{marc} = $record->as_usmarc();
$olddata->{marcxml} = $record->as_xml();
# and create biblioitem, that's all folks !
$biblioitemnumber = OLDnewbiblioitem( $dbh, $olddata );
# search subtiles, addiauthors and subjects
my ( $tagfield, $tagsubfield ) =
( $tagfield, $tagsubfield ) =
MARCfind_marc_from_kohafield( $dbh, "additionalauthors.author",$frameworkcode );
my @addiauthfields = $record->field($tagfield);
foreach my $addiauthfield (@addiauthfields) {
my @addiauthsubfields = $addiauthfield->subfield($tagsubfield);
foreach my $subfieldcount ( 0 .. $#addiauthsubfields ) {
OLDmodaddauthor( $dbh, $oldbibnum,
OLDmodaddauthor( $dbh, $biblionumber,
$addiauthsubfields[$subfieldcount] );
}
}
@ -1160,7 +1184,7 @@ sub NEWnewbiblio {
foreach my $subtitlefield (@subtitlefields) {
my @subtitlesubfields = $subtitlefield->subfield($tagsubfield);
foreach my $subfieldcount ( 0 .. $#subtitlesubfields ) {
OLDnewsubtitle( $dbh, $oldbibnum,
OLDnewsubtitle( $dbh, $biblionumber,
$subtitlesubfields[$subfieldcount] );
}
}
@ -1174,67 +1198,8 @@ sub NEWnewbiblio {
push @subjects, $subjsubfield[$subfieldcount];
}
}
OLDmodsubject( $dbh, $oldbibnum, 1, @subjects );
# we must add bibnum and bibitemnum in MARC::Record...
# we build the new field with biblionumber and biblioitemnumber
# we drop the original field
# we add the new builded field.
# NOTE : Works only if the field is ONLY for biblionumber and biblioitemnumber
# (steve and paul : thinks 090 is a good choice)
my $sth =
$dbh->prepare(
"select tagfield,tagsubfield from marc_subfield_structure where kohafield=?"
);
$sth->execute("biblio.biblionumber");
( my $tagfield1, my $tagsubfield1 ) = $sth->fetchrow;
$sth->execute("biblioitems.biblioitemnumber");
( my $tagfield2, my $tagsubfield2 ) = $sth->fetchrow;
my $newfield;
# biblionumber & biblioitemnumber are in different fields
if ( $tagfield1 != $tagfield2 ) {
# deal with biblionumber
if ($tagfield1<10) {
$newfield = MARC::Field->new(
$tagfield1, $oldbibnum,
);
} else {
$newfield = MARC::Field->new(
$tagfield1, '', '', "$tagsubfield1" => $oldbibnum,
);
}
# drop old field and create new one...
my $old_field = $record->field($tagfield1);
$record->delete_field($old_field);
$record->add_fields($newfield);
# deal with biblioitemnumber
if ($tagfield2<10) {
$newfield = MARC::Field->new(
$tagfield2, $oldbibitemnum,
);
} else {
$newfield = MARC::Field->new(
$tagfield2, '', '', "$tagsubfield2" => $oldbibitemnum,
);
}
# drop old field and create new one...
$old_field = $record->field($tagfield2);
$record->delete_field($old_field);
$record->add_fields($newfield);
# biblionumber & biblioitemnumber are in the same field (can't be <10 as fields <10 have only 1 value)
} else {
my $newfield = MARC::Field->new(
$tagfield1, '', '', "$tagsubfield1" => $oldbibnum,
"$tagsubfield2" => $oldbibitemnum
);
# drop old field and create new one...
my $old_field = $record->field($tagfield1);
$record->delete_field($old_field);
$record->add_fields($newfield);
}
# warn "REC : ".$record->as_formatted;
my $bibid = MARCaddbiblio( $dbh, $record, $oldbibnum, $frameworkcode );
return ( $bibid, $oldbibnum, $oldbibitemnum );
OLDmodsubject( $dbh, $biblionumber, 1, @subjects );
return ( $biblionumber, $biblioitemnumber );
}
sub NEWmodbiblioframework {
@ -1243,12 +1208,19 @@ sub NEWmodbiblioframework {
$sth->execute($frameworkcode);
return 1;
}
sub NEWmodbiblio {
my ($dbh,$record,$bibid,$frameworkcode) =@_;
my ($dbh,$record,$biblionumber,$frameworkcode) =@_;
$frameworkcode="" unless $frameworkcode;
&MARCmodbiblio($dbh,$bibid,$record,$frameworkcode,0);
# &MARCmodbiblio($dbh,$bibid,$record,$frameworkcode,0);
my $oldbiblio = MARCmarc2koha($dbh,$record,$frameworkcode);
my $oldbiblionumber = OLDmodbiblio($dbh,$oldbiblio);
$oldbiblio->{frameworkcode} = $frameworkcode;
#create the marc entry, that stores the rax marc record in Koha 3.0
$oldbiblio->{marc} = $record->as_usmarc();
$oldbiblio->{marcxml} = $record->as_xml();
OLDmodbiblio($dbh,$oldbiblio);
OLDmodbibitem($dbh,$oldbiblio);
# now, modify addi authors, subject, addititles.
my ($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"additionalauthors.author",$frameworkcode);
@ -1256,7 +1228,7 @@ sub NEWmodbiblio {
foreach my $addiauthfield (@addiauthfields) {
my @addiauthsubfields = $addiauthfield->subfield($tagsubfield);
foreach my $subfieldcount (0..$#addiauthsubfields) {
OLDmodaddauthor($dbh,$oldbiblionumber,$addiauthsubfields[$subfieldcount]);
OLDmodaddauthor($dbh,$biblionumber,$addiauthsubfields[$subfieldcount]);
}
}
($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"bibliosubtitle.subtitle",$frameworkcode);
@ -1265,10 +1237,10 @@ sub NEWmodbiblio {
my @subtitlesubfields = $subtitlefield->subfield($tagsubfield);
# delete & create subtitle again because OLDmodsubtitle can't handle new subtitles
# between 2 modifs
$dbh->do("delete from bibliosubtitle where biblionumber=$oldbiblionumber");
$dbh->do("delete from bibliosubtitle where biblionumber=$biblionumber");
foreach my $subfieldcount (0..$#subtitlesubfields) {
foreach my $subtit(split /\||#/,$subtitlesubfields[$subfieldcount]) {
OLDnewsubtitle($dbh,$oldbiblionumber,$subtit);
OLDnewsubtitle($dbh,$biblionumber,$subtit);
}
}
}
@ -1281,7 +1253,7 @@ sub NEWmodbiblio {
push @subjects,$subjsubfield[$subfieldcount];
}
}
OLDmodsubject($dbh,$oldbiblionumber,1,@subjects);
OLDmodsubject($dbh,$biblionumber,1,@subjects);
return 1;
}
@ -1415,7 +1387,7 @@ delete a biblio
sub OLDnewbiblio {
my ( $dbh, $biblio ) = @_;
# my $dbh = &C4Connect;
$dbh->do('lock tables biblio WRITE');
my $sth = $dbh->prepare("Select max(biblionumber) from biblio");
$sth->execute;
my $data = $sth->fetchrow_arrayref;
@ -1425,43 +1397,37 @@ sub OLDnewbiblio {
if ( $biblio->{'seriestitle'} ) { $series = 1 }
$sth->finish;
$sth =
$dbh->prepare(
"insert into biblio set biblionumber = ?, title = ?, author = ?, copyrightdate = ?, serial = ?, seriestitle = ?, notes = ?, abstract = ?, unititle = ?"
$dbh->prepare("insert into biblio set biblionumber=?, title=?, author=?, copyrightdate=?,
serial=?, seriestitle=?, notes=?, abstract=?,
unititle=?"
);
$sth->execute(
$bibnum, $biblio->{'title'},
$biblio->{'author'}, $biblio->{'copyrightdate'},
$biblio->{'serial'}, $biblio->{'seriestitle'},
$biblio->{'notes'}, $biblio->{'abstract'},
$biblio->{'unititle'},
$biblio->{'unititle'}
);
$sth->finish;
# $dbh->disconnect;
$dbh->do('unlock tables');
return ($bibnum);
}
sub OLDmodbiblio {
my ( $dbh, $biblio ) = @_;
# my $dbh = C4Connect;
my $query;
my $sth;
$query = "";
$sth =
$dbh->prepare(
"Update biblio set title = ?, author = ?, abstract = ?, copyrightdate = ?, seriestitle = ?, serial = ?, unititle = ?, notes = ? where biblionumber = ?"
my $sth = $dbh->prepare("Update biblio set title=?, author=?, abstract=?, copyrightdate=?,
seriestitle=?, serial=?, unititle=?, notes=?, frameworkcode=?
where biblionumber = ?"
);
$sth->execute(
$biblio->{'title'}, $biblio->{'author'},
$biblio->{'abstract'}, $biblio->{'copyrightdate'},
$biblio->{'seriestitle'}, $biblio->{'serial'},
$biblio->{'unititle'}, $biblio->{'notes'},
$biblio->{frameworkcode},
$biblio->{'biblionumber'}
);
$sth->finish;
return ( $biblio->{'biblionumber'} );
} # sub modbiblio
@ -1568,47 +1534,18 @@ sub OLDmodbibitem {
my ( $dbh, $biblioitem ) = @_;
my $query;
$biblioitem->{'itemtype'} = $dbh->quote( $biblioitem->{'itemtype'} );
$biblioitem->{'url'} = $dbh->quote( $biblioitem->{'url'} );
$biblioitem->{'isbn'} = $dbh->quote( $biblioitem->{'isbn'} );
$biblioitem->{'issn'} = $dbh->quote( $biblioitem->{'issn'} );
$biblioitem->{'publishercode'} =
$dbh->quote( $biblioitem->{'publishercode'} );
$biblioitem->{'publicationyear'} =
$dbh->quote( $biblioitem->{'publicationyear'} );
$biblioitem->{'classification'} =
$dbh->quote( $biblioitem->{'classification'} );
$biblioitem->{'dewey'} = $dbh->quote( $biblioitem->{'dewey'} );
$biblioitem->{'subclass'} = $dbh->quote( $biblioitem->{'subclass'} );
$biblioitem->{'illus'} = $dbh->quote( $biblioitem->{'illus'} );
$biblioitem->{'pages'} = $dbh->quote( $biblioitem->{'pages'} );
$biblioitem->{'volumeddesc'} = $dbh->quote( $biblioitem->{'volumeddesc'} );
$biblioitem->{'bnotes'} = $dbh->quote( $biblioitem->{'bnotes'} );
$biblioitem->{'size'} = $dbh->quote( $biblioitem->{'size'} );
$biblioitem->{'place'} = $dbh->quote( $biblioitem->{'place'} );
$query = "Update biblioitems set
itemtype = $biblioitem->{'itemtype'},
url = $biblioitem->{'url'},
isbn = $biblioitem->{'isbn'},
issn = $biblioitem->{'issn'},
publishercode = $biblioitem->{'publishercode'},
publicationyear = $biblioitem->{'publicationyear'},
classification = $biblioitem->{'classification'},
dewey = $biblioitem->{'dewey'},
subclass = $biblioitem->{'subclass'},
illus = $biblioitem->{'illus'},
pages = $biblioitem->{'pages'},
volumeddesc = $biblioitem->{'volumeddesc'},
notes = $biblioitem->{'bnotes'},
size = $biblioitem->{'size'},
place = $biblioitem->{'place'}
where biblioitemnumber = $biblioitem->{'biblioitemnumber'}";
$dbh->do($query);
if ( $dbh->errstr ) {
warn "$query";
}
my $sth = $dbh->prepare("update biblioitems set itemtype=?, url=?, isbn=?, issn=?,
publishercode=?, publicationyear=?, classification=?, dewey=?,
subclass=?, illus=?, pages=?, volumeddesc=?,
notes=?, size=?, place=?, marc=?,
marcxml=?
where biblioitemnumber=?");
$sth->execute( $biblioitem->{itemtype}, $biblioitem->{url}, $biblioitem->{isbn}, $biblioitem->{issn},
$biblioitem->{publishercode}, $biblioitem->{publicationyear}, $biblioitem->{classification}, $biblioitem->{dewey},
$biblioitem->{subclass}, $biblioitem->{illus}, $biblioitem->{pages}, $biblioitem->{volumeddesc},
$biblioitem->{bnotes}, $biblioitem->{size}, $biblioitem->{place}, $biblioitem->{marc},
$biblioitem->{marcxml}, $biblioitem->{biblioitemnumber});
# warn "MOD : $biblioitem->{biblioitemnumber} = ".$biblioitem->{marc};
} # sub modbibitem
sub OLDmodnote {
@ -1649,7 +1586,8 @@ sub OLDnewbiblioitem {
volumeddesc = ?, illus = ?,
pages = ?, notes = ?,
size = ?, lccn = ?,
marc = ?, place = ?"
marc = ?, place = ?,
marcxml = ?"
);
$sth->execute(
$bibitemnum, $biblioitem->{'biblionumber'},
@ -1662,7 +1600,8 @@ sub OLDnewbiblioitem {
$biblioitem->{'volumeddesc'}, $biblioitem->{'illus'},
$biblioitem->{'pages'}, $biblioitem->{'bnotes'},
$biblioitem->{'size'}, $biblioitem->{'lccn'},
$biblioitem->{'marc'}, $biblioitem->{'place'}
$biblioitem->{'marc'}, $biblioitem->{'place'},
$biblioitem->{marcxml},
);
$sth->finish;
@ -2660,6 +2599,14 @@ Paul POULAIN paul.poulain@free.fr
# $Id$
# $Log$
# Revision 1.124 2005/08/10 10:21:15 tipaul
# continuing the road to zebra :
# - the biblio add begins to work.
# - the biblio modif begins to work.
#
# (still without doing anything on zebra)
# (no new change in updatedatabase)
#
# Revision 1.123 2005/08/09 14:10:28 tipaul
# 1st commit to go to zebra.
# don't update your cvs if you want to have a working head...

51
acqui.simple/addbiblio.pl
View file

@ -396,17 +396,17 @@ $record = MARCgetbiblio($dbh,$biblionumber) if ($biblionumber);
($record,$encoding) = MARCfindbreeding($dbh,$breedingid) if ($breedingid);
$is_a_modif=0;
my ($oldbiblionumtagfield,$oldbiblionumtagsubfield);
my ($oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield,$bibitem,$oldbiblioitemnumber);
my ($biblionumtagfield,$biblionumtagsubfield);
my ($biblioitemnumtagfield,$biblioitemnumtagsubfield,$bibitem,$biblioitemnumber);
if ($biblionumber) {
$is_a_modif=1;
# if it's a modif, retrieve old biblio and bibitem numbers for the future modification of old-DB.
($oldbiblionumtagfield,$oldbiblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber",$frameworkcode);
($oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblioitems.biblioitemnumber",$frameworkcode);
# if it's a modif, retrieve bibli and biblioitem numbers for the future modification of old-DB.
($biblionumtagfield,$biblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber",$frameworkcode);
($biblioitemnumtagfield,$biblioitemnumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblioitems.biblioitemnumber",$frameworkcode);
# search biblioitems value
my $sth=$dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");
$sth->execute($biblionumber);
($oldbiblioitemnumber) = $sth->fetchrow;
($biblioitemnumber) = $sth->fetchrow;
}
#------------------------------------------------------------------------------------------------------------------------------
if ($op eq "addbiblio") {
@ -429,15 +429,14 @@ if ($op eq "addbiblio") {
# it is not a duplicate (determined either by Koha itself or by user checking it's not a duplicate)
if (!$duplicatebiblionumber or $confirm_not_duplicate) {
# MARC::Record built => now, record in DB
my $oldbibnum;
my $oldbibitemnum;
if ($is_a_modif) {
NEWmodbiblioframework($dbh,$biblionumber,$frameworkcode);
NEWmodbiblio($dbh,$record,$biblionumber,$frameworkcode);
logaction($loggedinuser,"acqui.simple","modify",$biblionumber,"record : ".$record->as_formatted) if (C4::Context->preference("Activate_Log"));
} else {
($biblionumber,$oldbibnum,$oldbibitemnum) = NEWnewbiblio($dbh,$record,$frameworkcode);
logaction($loggedinuser,"acqui.simple","add",$oldbibnum,"record : ".$record->as_formatted) if (C4::Context->preference("Activate_Log"));
my $biblioitemnumber;
($biblionumber,$biblioitemnumber) = NEWnewbiblio($dbh,$record,$frameworkcode);
logaction($loggedinuser,"acqui.simple","add",$biblionumber,"record : ".$record->as_formatted) if (C4::Context->preference("Activate_Log"));
}
# now, redirect to additem page
print $input->redirect("additem.pl?biblionumber=$biblionumber&frameworkcode=$frameworkcode");
@ -448,11 +447,11 @@ if ($op eq "addbiblio") {
build_hidden_data;
$template->param(
biblionumber => $biblionumber,
oldbiblionumtagfield => $oldbiblionumtagfield,
oldbiblionumtagsubfield => $oldbiblionumtagsubfield,
oldbiblioitemnumtagfield => $oldbiblioitemnumtagfield,
oldbiblioitemnumtagsubfield => $oldbiblioitemnumtagsubfield,
oldbiblioitemnumber => $oldbiblioitemnumber,
biblionumtagfield => $biblionumtagfield,
biblionumtagsubfield => $biblionumtagsubfield,
biblioitemnumtagfield => $biblioitemnumtagfield,
biblioitemnumtagsubfield => $biblioitemnumtagsubfield,
biblioitemnumber => $biblioitemnumber,
duplicatebiblionumber => $duplicatebiblionumber,
duplicatetitle => $duplicatetitle,
);
@ -479,11 +478,11 @@ if ($op eq "addbiblio") {
build_hidden_data;
$template->param(
biblionumber => $biblionumber,
oldbiblionumtagfield => $oldbiblionumtagfield,
oldbiblionumtagsubfield => $oldbiblionumtagsubfield,
oldbiblioitemnumtagfield => $oldbiblioitemnumtagfield,
oldbiblioitemnumtagsubfield => $oldbiblioitemnumtagsubfield,
oldbiblioitemnumber => $oldbiblioitemnumber );
biblionumtagfield => $biblionumtagfield,
biblionumtagsubfield => $biblionumtagsubfield,
biblioitemnumtagfield => $biblioitemnumtagfield,
biblioitemnumtagsubfield => $biblioitemnumtagsubfield,
biblioitemnumber => $biblioitemnumber );
} elsif ($op eq "delete") {
#------------------------------------------------------------------------------------------------------------------------------
&NEWdelbiblio($dbh,$biblionumber);
@ -491,7 +490,7 @@ if ($op eq "addbiblio") {
print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=/cgi-bin/koha/search.marc/search.pl?type=intranet\"></html>";
exit;
#------------------------------------------------------------------------------------------------------------------------------logaction($loggedinuser,"acqui.simple","add","biblionumber :$oldbibnum");
#------------------------------------------------------------------------------------------------------------------------------
#------------------------------------------------------------------------------------------------------------------------------
} else {
#------------------------------------------------------------------------------------------------------------------------------
@ -506,11 +505,11 @@ if ($op eq "addbiblio") {
build_hidden_data;
$template->param(
biblionumber => $biblionumber,
oldbiblionumtagfield => $oldbiblionumtagfield,
oldbiblionumtagsubfield => $oldbiblionumtagsubfield,
oldbiblioitemnumtagfield => $oldbiblioitemnumtagfield,
oldbiblioitemnumtagsubfield => $oldbiblioitemnumtagsubfield,
oldbiblioitemnumber => $oldbiblioitemnumber,
biblionumtagfield => $biblionumtagfield,
biblionumtagsubfield => $biblionumtagsubfield,
biblioitemnumtagfield => $biblioitemnumtagfield,
biblioitemnumtagsubfield => $biblioitemnumtagsubfield,
biblioitemnumber => $biblioitemnumber,
);
}
$template->param(

14
koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbiblio.tmpl
View file

@ -378,15 +378,15 @@
<input type="hidden" name="tag_mandatory" value="<!-- TMPL_VAR NAME="tag_mandatory" -->">
<!-- /TMPL_LOOP -->
</div>
<!-- TMPL_IF name="oldbiblionumtagfield" -->
<input type="hidden" name="tag" value="<!-- TMPL_VAR NAME="oldbiblionumtagfield" -->">
<input type="hidden" name="subfield" value="<!-- TMPL_VAR NAME="oldbiblionumtagsubfield" -->">
<input type="hidden" name="field_value" value="<!-- TMPL_VAR NAME="oldbiblionumber" -->">
<!-- TMPL_IF name="biblionumtagfield" -->
<input type="hidden" name="tag" value="<!-- TMPL_VAR NAME="biblionumtagfield" -->">
<input type="hidden" name="subfield" value="<!-- TMPL_VAR NAME="biblionumtagsubfield" -->">
<input type="hidden" name="field_value" value="<!-- TMPL_VAR NAME="biblionumber" -->">
<input type="hidden" name="mandatory" value="0">
<input type="hidden" name="kohafield" value="<!-- TMPL_VAR NAME="kohafield" -->">
<input type="hidden" name="tag" value="<!-- TMPL_VAR NAME="oldbiblioitemnumtagfield" -->">
<input type="hidden" name="subfield" value="<!-- TMPL_VAR NAME="oldbiblioitemnumtagsubfield" -->">
<input type="hidden" name="field_value" value="<!-- TMPL_VAR NAME="oldbiblioitemnumber" -->">
<input type="hidden" name="tag" value="<!-- TMPL_VAR NAME="biblioitemnumtagfield" -->">
<input type="hidden" name="subfield" value="<!-- TMPL_VAR NAME="biblioitemnumtagsubfield" -->">
<input type="hidden" name="field_value" value="<!-- TMPL_VAR NAME="biblioitemnumber" -->">
<input type="hidden" name="mandatory" value="0">
<input type="hidden" name="kohafield" value="<!-- TMPL_VAR NAME="kohafield" -->">
<input type="hidden" name="tag_mandatory" value="<!-- TMPL_VAR NAME="tag_mandatory" -->">

8
koha-tmpl/intranet-tmpl/default/en/acqui.simple/additem.tmpl
View file

@ -5,16 +5,16 @@
<input type="hidden" name="bibid" value="<!-- TMPL_VAR NAME="bibid" -->">
<div class="tabbed">
<h1 class="catalogue"><!-- TMPL_VAR name="title" --> (<!-- TMPL_VAR name="author" --> biblionumber #<!-- TMPL_VAR NAME="biblionumber" -->)</h1>
<a href="addbiblio.pl?oldbiblionumber=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue">
<a href="addbiblio.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue">
Edit biblio
</a>
<a href="../MARCdetail.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue">
<a href="../MARCdetail.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue">
MARC
</a>
<a href="../detail.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue">
<a href="../detail.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue">
Normal
</a>
<a href="../ISBDdetail.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue">
<a href="../ISBDdetail.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue">
ISBD
</a>
</div>