From bdb68f3b3ea1253cd7eeed5c4232b78359c035b0 Mon Sep 17 00:00:00 2001 From: Amit Gupta Date: Sat, 22 Jun 2013 22:33:10 +0530 Subject: [PATCH] Bug 10393 - Receive shipment link in acquisitions main page To add some shortcuts to acquisitions main screen e.g. RECEIVE SHIPMENT and the FILTER BOX Test plan: 1) Click on Receive shipment link on the left hand side. 2) It will give all the vendor list click on recieve shipment link to receive items. 3) For creating new basket click on "New Basket" link. Sponsored-by: Staffordshire University/Halton Borough Council/PTFS Europe Signed-off-by: Srdjan --- acqui/receiveshipment.pl | 57 +++++++++++++++++ .../prog/en/includes/acquisitions-menu.inc | 1 + .../prog/en/modules/acqui/receiveshipment.tt | 71 ++++++++++++++++++++++ 3 files changed, 129 insertions(+) create mode 100755 acqui/receiveshipment.pl create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/acqui/receiveshipment.tt diff --git a/acqui/receiveshipment.pl b/acqui/receiveshipment.pl new file mode 100755 index 0000000..b24adf9 --- /dev/null +++ b/acqui/receiveshipment.pl @@ -0,0 +1,57 @@ +#!/usr/bin/perl + +# Copyright 2013 Amit Gupta(amitddng135@gmail.com) +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# 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., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +=head1 NAME + +receiveshipment.pl + +=head1 DESCRIPTION + +this script is the main page for acqui + +=cut + +use strict; +use warnings; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Members; +use C4::Branch; +use C4::Debug; +use C4::Bookseller qw/ GetBookSeller /; + +my $input = CGI->new(); + +my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( + { template_name => 'acqui/receiveshipment.tmpl', + query => $input, + type => 'intranet', + authnotrequired => 0, + flagsrequired => { acquisition => '*' }, + debug => 1, + } +); + +my $user = GetMember( 'borrowernumber' => $loggedinuser ); +my $branchname = GetBranchName($user->{branchcode}); + +my @suppliers = GetBookSeller(); +$template->param( supplier_loop => \@suppliers); + +output_html_with_http_headers $input, $cookie, $template->output; diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/acquisitions-menu.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/acquisitions-menu.inc index 439118d..9657466 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/acquisitions-menu.inc +++ b/koha-tmpl/intranet-tmpl/prog/en/includes/acquisitions-menu.inc @@ -2,6 +2,7 @@
  • Late orders
  • [% IF ( suggestion ) %]
  • Suggestions
  • [% ELSE %][% END %]
  • Invoices
  • +
  • Receive shipment
  • [% IF ( CAN_user_acquisition_budget_manage ) %]
  • Budgets
  • Funds
  • diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/receiveshipment.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/receiveshipment.tt new file mode 100644 index 0000000..b1004a3 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/receiveshipment.tt @@ -0,0 +1,71 @@ +[% INCLUDE 'doc-head-open.inc' %] +Koha › Acquisitions › Receive shipment +[% INCLUDE 'doc-head-close.inc' %] + + +[% INCLUDE 'datatables-strings.inc' %] + + + + +[% INCLUDE 'header.inc' %] +[% INCLUDE 'acquisitions-search.inc' %] + + +
    +
    +
    +
    +
    +
    +[% IF (supplier_loop) %] +

    Receive shipment

    +
    + + + + + + + + + + +[% FOREACH suppliers IN supplier_loop %] + + + [% IF(suppliers.active == 1)%] + + [% ELSE %] + + [% END %] + + + +[% END %] + +
    VendorStatus  
    [% suppliers.name %]ActiveInactiveReceive shipmentNew basket
    +
    +[% END %] +
    +
    +
    +
    +
    +[% INCLUDE 'acquisitions-menu.inc' %] +
    +
    +[% INCLUDE 'intranet-bottom.inc' %] -- 1.8.1.2