Bugzilla – Attachment 5556 Details for
Bug 3966
receiving items should allow for entering barcode
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
patch
0001-bug_3966-Update-items-on-receive.patch (text/plain), 25.99 KB, created by
Srdjan Jankovic
on 2011-09-23 00:38:18 UTC
(
hide
)
Description:
patch
Filename:
MIME Type:
Creator:
Srdjan Jankovic
Created:
2011-09-23 00:38:18 UTC
Size:
25.99 KB
patch
obsolete
>From 8ddd5cddaffc8b26c6fc3e7ce37c384b26400e90 Mon Sep 17 00:00:00 2001 >From: Srdjan Jankovic <srdjan@catalyst.net.nz> >Date: Fri, 23 Sep 2011 12:18:58 +1200 >Subject: [PATCH] bug_3966: Update items on receive > >Changed AddItem() and ModItem() interface so now they return item >record. >AddItemFromMarc() looks for itemnumber, and calls ModItem() if one is >found. >--- > C4/Biblio.pm | 6 +- > C4/ImportBatch.pm | 4 +- > C4/Items.pm | 19 +++-- > acqui/addorder.pl | 5 +- > acqui/addorderiso2709.pl | 4 +- > acqui/finishreceive.pl | 93 +++++++++++--------- > acqui/orderreceive.pl | 63 ++++++------- > cataloguing/additem.pl | 10 +- > .../prog/en/modules/acqui/orderreceive.tt | 14 ++-- > t/db_dependent/lib/KohaTest.pm | 16 ++-- > t/db_dependent/lib/KohaTest/Biblio/ModBiblio.pm | 6 +- > tools/batchMod.pl | 2 +- > 12 files changed, 124 insertions(+), 118 deletions(-) > >diff --git a/C4/Biblio.pm b/C4/Biblio.pm >index 915139e..53f2f97 100644 >--- a/C4/Biblio.pm >+++ b/C4/Biblio.pm >@@ -2343,7 +2343,7 @@ sub TransformMarcToKohaOneField { > > =head2 PrepareItemrecordDisplay > >- PrepareItemrecordDisplay($itemrecord,$bibnum,$itemumber,$frameworkcode); >+ PrepareItemrecordDisplay($bibnum,$itemumber,$defaultvalues,$frameworkcode); > > Returns a hash with all the fields for Display a given item data in a template > >@@ -2522,14 +2522,14 @@ sub PrepareItemrecordDisplay { > $subfield_data{random} = int(rand(1000000)); # why do we need 2 different randoms? > my $index_subfield = int(rand(1000000)); > $subfield_data{id} = "tag_".$tag."_subfield_".$subfield."_".$index_subfield; >- $subfield_data{marc_value} = qq[<input tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="67" maxlength="255" >+ $subfield_data{marc_value} = qq[<input tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="67" maxlength="255" value="$defaultvalue" > onfocus="Focus$function_name($subfield_data{random}, '$subfield_data{id}');" > onblur=" Blur$function_name($subfield_data{random}, '$subfield_data{id}');" /> > <a href="#" class="buttonDot" onclick="Clic$function_name('$subfield_data{id}'); return false;" title="Tag Editor">...</a> > $javascript]; > } else { > warn "Plugin Failed: $plugin"; >- $subfield_data{marc_value} = qq(<input tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="67" maxlength="255" />); # supply default input form >+ $subfield_data{marc_value} = qq(<input tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="67" maxlength="255" value="$defaultvalue" />); # supply default input form > } > } > elsif ( $tag eq '' ) { # it's an hidden field >diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm >index b6db406..a121d08 100644 >--- a/C4/ImportBatch.pm >+++ b/C4/ImportBatch.pm >@@ -547,10 +547,10 @@ sub BatchCommitItems { > $updsth->execute(); > $num_items_errored++; > } else { >- my ($item_biblionumber, $biblioitemnumber, $itemnumber) = AddItemFromMarc($item_marc, $biblionumber); >+ my $item = AddItemFromMarc($item_marc, $biblionumber); > my $updsth = $dbh->prepare("UPDATE import_items SET status = ?, itemnumber = ? WHERE import_items_id = ?"); > $updsth->bind_param(1, 'imported'); >- $updsth->bind_param(2, $itemnumber); >+ $updsth->bind_param(2, $item->{itemnumber}); > $updsth->bind_param(3, $row->{'import_items_id'}); > $updsth->execute(); > $updsth->finish(); >diff --git a/C4/Items.pm b/C4/Items.pm >index bc36dd1..e8e590e 100644 >--- a/C4/Items.pm >+++ b/C4/Items.pm >@@ -190,11 +190,11 @@ sub CartToShelf { > > =head2 AddItemFromMarc > >- my ($biblionumber, $biblioitemnumber, $itemnumber) >- = AddItemFromMarc($source_item_marc, $biblionumber); >+ my $item = AddItemFromMarc($source_item_marc, $biblionumber); > > Given a MARC::Record object containing an embedded item >-record and a biblionumber, create a new item record. >+record and a biblionumber, create a new item record or update >+existing one. > > =cut > >@@ -210,13 +210,15 @@ sub AddItemFromMarc { > $localitemmarc->append_fields($source_item_marc->field($itemtag)); > my $item = &TransformMarcToKoha( $dbh, $localitemmarc, $frameworkcode ,'items'); > my $unlinked_item_subfields = _get_unlinked_item_subfields($localitemmarc, $frameworkcode); >+ if (my $itemnumber = $item->{itemnumber}) { >+ return ModItem($item, $biblionumber, $itemnumber, $dbh, $frameworkcode, $unlinked_item_subfields); >+ } > return AddItem($item, $biblionumber, $dbh, $frameworkcode, $unlinked_item_subfields); > } > > =head2 AddItem > >- my ($biblionumber, $biblioitemnumber, $itemnumber) >- = AddItem($item, $biblionumber[, $dbh, $frameworkcode, $unlinked_item_subfields]); >+ my $item = AddItem($item, $biblionumber[, $dbh, $frameworkcode, $unlinked_item_subfields]); > > Given a hash containing item column names as keys, > create a new Koha item record. >@@ -268,7 +270,7 @@ sub AddItem { > > logaction("CATALOGUING", "ADD", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); > >- return ($item->{biblionumber}, $item->{biblioitemnumber}, $itemnumber); >+ return $item; > } > > =head2 AddItemBatchFromMarc >@@ -445,13 +447,14 @@ sub ModItemFromMarc { > $item->{$item_field} = $default_values_for_mod_from_marc{$item_field} unless (exists $item->{$item_field}); > } > my $unlinked_item_subfields = _get_unlinked_item_subfields( $localitemmarc, $frameworkcode ); >+ $itemnumber ||= $item->{itemnumber}; > > return ModItem($item, $biblionumber, $itemnumber, $dbh, $frameworkcode, $unlinked_item_subfields); > } > > =head2 ModItem > >- ModItem({ column => $newvalue }, $biblionumber, >+ my $item = ModItem({ column => $newvalue }, $biblionumber, > $itemnumber[, $original_item_marc]); > > Change one or more columns in an item record and update >@@ -512,6 +515,8 @@ sub ModItem { > ModZebra( $biblionumber, "specialUpdate", "biblioserver", undef, undef ); > > logaction("CATALOGUING", "MODIFY", $itemnumber, Dumper($item)) if C4::Context->preference("CataloguingLog"); >+ >+ return $item; > } > > =head2 ModItemTransfer >diff --git a/acqui/addorder.pl b/acqui/addorder.pl >index e321d2c..5352535 100755 >--- a/acqui/addorder.pl >+++ b/acqui/addorder.pl >@@ -260,9 +260,8 @@ if ( $orderinfo->{quantity} ne '0' ) { > $itemhash{$item}->{'indicator'}, > 'ITEM'); > my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); >- my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$$orderinfo{biblionumber}); >- NewOrderItem($itemnumber, $$orderinfo{ordernumber}); >- >+ my $item = AddItemFromMarc($record,$$orderinfo{biblionumber}); >+ NewOrderItem($item->{itemnumber}, $$orderinfo{ordernumber}); > } > } > >diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl >index 46d05dd..4ab36eb 100755 >--- a/acqui/addorderiso2709.pl >+++ b/acqui/addorderiso2709.pl >@@ -259,8 +259,8 @@ if ($op eq ""){ > my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator ); > my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); > for (my $qtyloop=1;$qtyloop <=$quantity;$qtyloop++) { >- my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber ); >- NewOrderItem( $itemnumber, $ordernumber ); >+ my $item = AddItemFromMarc( $record, $biblionumber ); >+ NewOrderItem( $item->{itemnumber}, $ordernumber ); > } > } > } >diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl >index 71b13d6..7327d18 100755 >--- a/acqui/finishreceive.pl >+++ b/acqui/finishreceive.pl >@@ -50,7 +50,7 @@ my $gst=$input->param('gst'); > my $freight=$input->param('freight'); > my $supplierid = $input->param('supplierid'); > my $cnt=0; >-my $error_url_str; >+my $error_url_str = ''; > my $ecost = $input->param('ecost'); > my $note = $input->param("note"); > >@@ -73,45 +73,56 @@ if ( any { $order->{$_} ne $tplorder{$_} } qw(quantity quantityreceived notes rr > } > > #need old recievedate if we update the order, parcel.pl only shows the right parcel this way FIXME >-if ($quantityrec > $origquantityrec ) { >- # now, add items if applicable >- if (C4::Context->preference('AcqCreateItem') eq 'receiving') { >- my @tags = $input->param('tag'); >- my @subfields = $input->param('subfield'); >- my @field_values = $input->param('field_value'); >- my @serials = $input->param('serial'); >- my @itemid = $input->param('itemid'); >- my @ind_tag = $input->param('ind_tag'); >- my @indicator = $input->param('indicator'); >- #Rebuilding ALL the data for items into a hash >- # parting them on $itemid. >- my %itemhash; >- my $countdistinct; >- my $range=scalar(@itemid); >- for (my $i=0; $i<$range; $i++){ >- unless ($itemhash{$itemid[$i]}){ >- $countdistinct++; >- } >- push @{$itemhash{$itemid[$i]}->{'tags'}},$tags[$i]; >- push @{$itemhash{$itemid[$i]}->{'subfields'}},$subfields[$i]; >- push @{$itemhash{$itemid[$i]}->{'field_values'}},$field_values[$i]; >- push @{$itemhash{$itemid[$i]}->{'ind_tag'}},$ind_tag[$i]; >- push @{$itemhash{$itemid[$i]}->{'indicator'}},$indicator[$i]; >- } >- foreach my $item (keys %itemhash){ >- my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'}, >- $itemhash{$item}->{'subfields'}, >- $itemhash{$item}->{'field_values'}, >- $itemhash{$item}->{'ind_tag'}, >- $itemhash{$item}->{'indicator'},'ITEM'); >- my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); >- my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$biblionumber); >- } >+ >+# now, add or update items if applicable >+my @tags = $input->param('tag'); >+my @subfields = $input->param('subfield'); >+my @field_values = $input->param('field_value'); >+my @serials = $input->param('serial'); >+my @itemid = $input->param('itemid'); >+my @ind_tag = $input->param('ind_tag'); >+my @indicator = $input->param('indicator'); >+#Rebuilding ALL the data for items into a hash >+# parting them on $itemid. >+my %itemhash; >+my $countdistinct; >+my $range=scalar(@itemid); >+for (my $i=0; $i<$range; $i++){ >+ unless ($itemhash{$itemid[$i]}){ >+ $countdistinct++; >+ } >+ push @{$itemhash{$itemid[$i]}->{'tags'}},$tags[$i]; >+ push @{$itemhash{$itemid[$i]}->{'subfields'}},$subfields[$i]; >+ push @{$itemhash{$itemid[$i]}->{'field_values'}},$field_values[$i]; >+ push @{$itemhash{$itemid[$i]}->{'ind_tag'}},$ind_tag[$i]; >+ push @{$itemhash{$itemid[$i]}->{'indicator'}},$indicator[$i]; >+} >+my $error; >+my %itemnumbers = map { $_ => 1 } GetItemnumbersFromOrder($ordernumber); >+foreach my $item (keys %itemhash){ >+ my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'}, >+ $itemhash{$item}->{'subfields'}, >+ $itemhash{$item}->{'field_values'}, >+ $itemhash{$item}->{'ind_tag'}, >+ $itemhash{$item}->{'indicator'},'ITEM'); >+ my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); >+ my $item = AddItemFromMarc($record,$biblionumber); >+ my $itemnumber = $item ? $item->{itemnumber} : undef; >+ if ($itemnumber) { >+ NewOrderItem($itemnumber, $ordernumber) unless $itemnumbers{$itemnumber}; >+ } else { >+ $error++; >+ } >+} >+ >+if ($error) { >+ $error_url_str = "&error=Datbase+write+error"; >+} >+else { >+ if ($quantityrec != $origquantityrec ) { >+ # save the quantity received. >+ $datereceived = ModReceiveOrder($biblionumber,$ordernumber, $quantityrec ,$user,$unitprice,$invoiceno,$freight,$replacement,undef,$datereceived); > } >- >- # save the quantity received. >- if( $quantityrec > 0 ) { >- $datereceived = ModReceiveOrder($biblionumber,$ordernumber, $quantityrec ,$user,$unitprice,$invoiceno,$freight,$replacement,undef,$datereceived); >- } > } >- print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str"); >+ >+print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str"); >diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl >index 98ba544..26ca81f 100755 >--- a/acqui/orderreceive.pl >+++ b/acqui/orderreceive.pl >@@ -85,21 +85,13 @@ my $search = $input->param('receive'); > my $invoice = $input->param('invoice'); > my $freight = $input->param('freight'); > my $datereceived = $input->param('datereceived'); >- >- > $datereceived = $datereceived ? C4::Dates->new($datereceived, 'iso') : C4::Dates->new(); > > my $bookseller = GetBookSellerFromId($supplierid); > my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst')); > my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0; > my $results = SearchOrder($ordernumber,$search); >- >- > my $count = scalar @$results; >-my $order = GetOrder($ordernumber); >- >- >-my $date = @$results[0]->{'entrydate'}; > > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( > { >@@ -114,47 +106,50 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( > > # prepare the form for receiving > if ( $count == 1 ) { >- if (C4::Context->preference('AcqCreateItem') eq 'receiving') { >+ my $order = GetOrder($results->[0]->{ordernumber}); >+ my $biblionumber = $order->{biblionumber}; >+ >+ my @itemloop; >+ if ( my @itemnumbers = GetItemnumbersFromOrder($ordernumber) ) { >+ @itemloop = map PrepareItemrecordDisplay($biblionumber,$_), @itemnumbers; >+ } >+ elsif (C4::Context->preference('AcqCreateItem') eq 'receiving') { > # prepare empty item form > my $cell = PrepareItemrecordDisplay('','','','ACQ'); > unless ($cell) { > $cell = PrepareItemrecordDisplay('','','',''); > $template->param('NoACQframework' => 1); > } >- my @itemloop; > push @itemloop,$cell; >- >- $template->param(items => \@itemloop); > } >+ >+ $template->param(items => \@itemloop) if @itemloop; > >- if ( @$results[0]->{'quantityreceived'} == 0 ) { >- @$results[0]->{'quantityreceived'} = ''; >- } >- if ( @$results[0]->{'unitprice'} == 0 ) { >- @$results[0]->{'unitprice'} = ''; >+ if ( $order->{'unitprice'} == 0 ) { >+ $order->{'unitprice'} = ''; > } > $template->param( > count => 1, >- biblionumber => @$results[0]->{'biblionumber'}, >- ordernumber => @$results[0]->{'ordernumber'}, >- biblioitemnumber => @$results[0]->{'biblioitemnumber'}, >- supplierid => @$results[0]->{'booksellerid'}, >+ biblionumber => $biblionumber, >+ ordernumber => $order->{'ordernumber'}, >+ biblioitemnumber => $order->{'biblioitemnumber'}, >+ supplierid => $supplierid, > freight => $freight, > gst => $gst, > name => $bookseller->{'name'}, >- date => format_date($date), >- title => @$results[0]->{'title'}, >- author => @$results[0]->{'author'}, >- copyrightdate => @$results[0]->{'copyrightdate'}, >- isbn => @$results[0]->{'isbn'}, >- seriestitle => @$results[0]->{'seriestitle'}, >- bookfund => @$results[0]->{'bookfundid'}, >- quantity => @$results[0]->{'quantity'}, >- quantityreceivedplus1 => @$results[0]->{'quantityreceived'} + 1, >- quantityreceived => @$results[0]->{'quantityreceived'}, >- rrp => @$results[0]->{'rrp'}, >- ecost => @$results[0]->{'ecost'}, >- unitprice => @$results[0]->{'unitprice'}, >+ date => format_date($order->{'entrydate'}), >+ title => $order->{'title'}, >+ author => $order->{'author'}, >+ copyrightdate => $order->{'copyrightdate'}, >+ isbn => $order->{'isbn'}, >+ seriestitle => $order->{'seriestitle'}, >+ bookfund => $order->{'bookfundid'}, >+ quantity => $order->{'quantity'}, >+ quantityreceived => scalar(@itemloop) || 1, >+ origquantityrec => $order->{'quantityreceived'}, >+ rrp => $order->{'rrp'}, >+ ecost => $order->{'ecost'}, >+ unitprice => $order->{'unitprice'}, > invoice => $invoice, > datereceived => $datereceived->output(), > datereceived_iso => $datereceived->output('iso'), >diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl >index 0db2d2d..dc0fc1d 100755 >--- a/cataloguing/additem.pl >+++ b/cataloguing/additem.pl >@@ -340,8 +340,8 @@ if ($op eq "additem") { > push @errors,"barcode_not_unique" if($exist_itemnumber); > # if barcode exists, don't create, but report The problem. > unless ($exist_itemnumber) { >- my ($oldbiblionumber,$oldbibnum,$oldbibitemnum) = AddItemFromMarc($record,$biblionumber); >- set_item_default_location($oldbibitemnum); >+ my $item = AddItemFromMarc($record,$biblionumber); >+ set_item_default_location($item->{biblioitemnumber}); > } > $nextop = "additem"; > if ($exist_itemnumber) { >@@ -407,8 +407,8 @@ if ($op eq "additem") { > > # Adding the item > if (!$exist_itemnumber) { >- my ($oldbiblionumber,$oldbibnum,$oldbibitemnum) = AddItemFromMarc($record,$biblionumber); >- set_item_default_location($oldbibitemnum); >+ my $item = AddItemFromMarc($record,$biblionumber); >+ set_item_default_location($item->{biblioitemnumber}); > > # We count the item only if it was really added > # That way, all items are added, even if there was some already existing barcodes >@@ -498,7 +498,7 @@ if ($op eq "additem") { > if ($exist_itemnumber && $exist_itemnumber != $itemnumber) { > push @errors,"barcode_not_unique"; > } else { >- my ($oldbiblionumber,$oldbibnum,$oldbibitemnum) = ModItemFromMarc($itemtosave,$biblionumber,$itemnumber); >+ ModItemFromMarc($itemtosave,$biblionumber,$itemnumber); > $itemnumber=""; > } > $nextop="additem"; >diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt >index 746155f..d42e898 100644 >--- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt >+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt >@@ -42,6 +42,7 @@ > <p class="required">No ACQ framework, using default. You should create a framework with code ACQ, the items framework would be used</p> > [% END %] > >+ [% itemid = 1 %] > [% FOREACH item IN items %] > <div id="outeritemblock"> > <div id="itemblock"> >@@ -50,7 +51,7 @@ > > <label>[% iteminformatio.subfield %] - [% IF ( iteminformatio.mandatory ) %]<b>[% END %][% iteminformatio.marc_lib %][% IF ( iteminformatio.mandatory ) %] *</b>[% END %]</label> > [% iteminformatio.marc_value %] >- <input type="hidden" name="itemid" value="1" /> >+ <input type="hidden" name="itemid" value="[% itemid %]" /> > <input type="hidden" name="kohafield" value="[% iteminformatio.kohafield %]" /> > <input type="hidden" name="tag" value="[% iteminformatio.tag %]" /> > <input type="hidden" name="subfield" value="[% iteminformatio.subfield %]" /> >@@ -72,8 +73,9 @@ > <input type="hidden" name="subfield" value="[% item.itemtagsubfield %]" /> > <input type="hidden" name="serial" value="[% item.serialid %]" /> > <input type="hidden" name="bibnum" value="[% item.biblionumber %]" /> >- <input type="hidden" name="itemid" value="1" /> >+ <input type="hidden" name="itemid" value="[% itemid %]" /> > <input type="hidden" name="field_value" value="[% item.itemnumber %]" /> >+ [% itemid = itemid + 1 %] > [% END %] <!-- /items --> > </fieldset> > [% END %] <!-- items --> >@@ -101,14 +103,12 @@ > [% IF ( quantityreceived ) %] > [% IF ( edit ) %] > <input type="text" size="20" name="quantityrec" id="quantity" value="[% quantityreceived %]" /> >- <input id="origquantityrec" READONLY type="hidden" name="origquantityrec" value="[% quantityreceived %]" /> > [% ELSE %] > [% IF ( items ) %] >- <input READONLY type="text" size="20" name="quantityrec" id="quantity" value="[% quantityreceivedplus1 %]" /> >+ <input READONLY type="text" size="20" name="quantityrec" id="quantity" value="[% quantityreceived %]" /> > [% ELSE %] >- <input type="text" size="20" name="quantityrec" id="quantity" value="[% quantityreceivedplus1 %]" /> >+ <input type="text" size="20" name="quantityrec" id="quantity" value="[% quantityreceived %]" /> > [% END %] >- <input id="origquantityrec" READONLY type="hidden" name="origquantityrec" value="[% quantityreceived %]" /> > [% END %] > [% ELSE %] > [% IF ( items ) %] >@@ -116,8 +116,8 @@ > [% ELSE %] > <input type="text" size="20" id="quantity" name="quantityrec" value="1" /> > [% END %] >- <input id="origquantityrec" READONLY type="hidden" name="origquantityrec" value="0" /> > [% END %] >+ <input id="origquantityrec" type="hidden" name="origquantityrec" value="[% origquantityrec %]" /> > </li> > <li><label for="rrp">Replacement cost: </label><input type="text" size="20" name="rrp" id="rrp" value="[% rrp %]" /></li> > <li><label for="ecost">Budgeted cost: </label><input type="text" size="20" name="ecost" id="ecost" value="[% ecost %]" /></li> >diff --git a/t/db_dependent/lib/KohaTest.pm b/t/db_dependent/lib/KohaTest.pm >index 70c963d..77e91d1 100644 >--- a/t/db_dependent/lib/KohaTest.pm >+++ b/t/db_dependent/lib/KohaTest.pm >@@ -572,16 +572,12 @@ sub add_biblios { > ok( $biblionumber, "the biblionumber is $biblionumber" ); > ok( $biblioitemnumber, "the biblioitemnumber is $biblioitemnumber" ); > if ( $param{'add_items'} ) { >- # my @iteminfo = AddItem( {}, $biblionumber ); >- my @iteminfo = AddItemFromMarc( $marcrecord, $biblionumber ); >- is( $iteminfo[0], $biblionumber, "biblionumber is $biblionumber" ); >- is( $iteminfo[1], $biblioitemnumber, "biblioitemnumber is $biblioitemnumber" ); >- ok( $iteminfo[2], "itemnumber is $iteminfo[2]" ); >- push @{ $self->{'items'} }, >- { biblionumber => $iteminfo[0], >- biblioitemnumber => $iteminfo[1], >- itemnumber => $iteminfo[2], >- }; >+ # my $item = AddItem( {}, $biblionumber ); >+ my $item = AddItemFromMarc( $marcrecord, $biblionumber ); >+ is( $item->{biblionumber}, "biblionumber is $biblionumber" ); >+ is( $item->{biblioitemnumber}, "biblioitemnumber is $biblioitemnumber" ); >+ ok( $item->{itemnumber}, "itemnumber is $item->{itemnumber}" ); >+ push @{ $self->{'items'} }, $item; > } > push @{$self->{'biblios'}}, $biblionumber; > } >diff --git a/t/db_dependent/lib/KohaTest/Biblio/ModBiblio.pm b/t/db_dependent/lib/KohaTest/Biblio/ModBiblio.pm >index 5b29ea8..8a83268 100644 >--- a/t/db_dependent/lib/KohaTest/Biblio/ModBiblio.pm >+++ b/t/db_dependent/lib/KohaTest/Biblio/ModBiblio.pm >@@ -31,10 +31,10 @@ sub add_bib_to_modify : Test( startup => 3 ) { > $self->{'bib_to_modify'} = $bibnum; > > # add an item >- my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); >+ my $item = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); > >- cmp_ok($item_bibnum, '==', $bibnum, "new item is linked to correct biblionumber"); >- cmp_ok($item_bibitemnum, '==', $bibitemnum, "new item is linked to correct biblioitemnumber"); >+ cmp_ok($item->{biblionumber}, '==', $bibnum, "new item is linked to correct biblionumber"); >+ cmp_ok($item->{biblioitemnumber}, '==', $bibitemnum, "new item is linked to correct biblioitemnumber"); > > $self->reindex_marc(); > >diff --git a/tools/batchMod.pl b/tools/batchMod.pl >index 9d4431b..ebf9d6e 100755 >--- a/tools/batchMod.pl >+++ b/tools/batchMod.pl >@@ -173,7 +173,7 @@ if ($op eq "action") { > if ($values_to_modify || $values_to_blank) { > my $localmarcitem = Item2Marc($itemdata); > UpdateMarcWith( $marcitem, $localmarcitem ); >- eval{ my ( $oldbiblionumber, $oldbibnum, $oldbibitemnum ) = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) }; >+ eval{ ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) }; > } > } > $i++; >-- >1.6.5 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 3966
:
5421
|
5556
|
6128
|
8047
|
8195
|
8465
|
8793