X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=cataloguing%2Fmoveitem.pl;h=2622c36449fcba00717f8cb70ffde8323786a837;hb=c6721b2fceb47f4599d092b6473323b687f9669f;hp=0f842ca262d2821836cf43ad9f026e114947b47e;hpb=d948e8ba4279849fe28c6a291f0e18ff64b62714;p=koha_fer diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl index 0f842ca262..2622c36449 100755 --- a/cataloguing/moveitem.pl +++ b/cataloguing/moveitem.pl @@ -15,12 +15,13 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -use CGI; use strict; +#use warnings; FIXME - Bug 2505 +use CGI; use C4::Auth; use C4::Output; use C4::Biblio; @@ -29,7 +30,7 @@ use C4::Context; use C4::Koha; use C4::Branch; use C4::ClassSource; -use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder ModOrderItem/; +use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/; use Date::Calc qw(Today); @@ -47,7 +48,7 @@ my ($template, $loggedinuser, $cookie) query => $query, type => "intranet", authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, + flagsrequired => { editcatalogue => 'edit_items' }, debug => 1, }); @@ -70,23 +71,11 @@ if ($barcode && $biblionumber) { if ($item) { my $results = GetBiblioFromItemNumber($itemnumber, $barcode); - my $frombiblionumber = $results->{'biblionumber'}; + my $frombiblionumber = $results->{'biblionumber'}; my $moveresult = MoveItemFromBiblio($itemnumber, $frombiblionumber, $biblionumber); - if ($moveresult) { - my $order = GetOrderFromItemnumber($itemnumber); - if ($order){ - $order->{'biblionumber'} = $biblionumber; - ModOrder($order); - my $orderitem = { - ordernumber => $order->{'ordernumber'}, - itemnumber => $itemnumber, - newitemnumber => $itemnumber, - }; - ModOrderItem($orderitem); - } - $template->param(success => 1); + $template->param(success => 1); } else { $template->param(error => 1, errornonewitem => 1);