unless $self->$key;
}
+ if (not defined $self->{created_by}) {
+ my $userenv = C4::Context->userenv;
+ if ($userenv) {
+ $self->created_by($userenv->{number});
+ }
+ }
+
$self->quantityreceived(0) unless $self->quantityreceived;
$self->entrydate(dt_from_string) unless $self->entrydate;
my $suggestion = GetSuggestionInfoFromBiblionumber($order->{biblionumber});
-my $authorisedby = $order->{authorisedby};
-my $authorised_patron = Koha::Patrons->find( $authorisedby );
-if ( $authorised_patron ) { # This should not happen unless there was a migration issue (or very old install?)
- $template->param(
- memberfirstname => $authorised_patron->firstname || "",
- membersurname => $authorised_patron->surname || "",
- );
-}
+my $creator = Koha::Patrons->find( $order->{created_by} );
my $budget = GetBudget( $order->{budget_id} );
ecost => $ecost,
unitprice => $unitprice,
tax_rate => $tax_rate,
+ creator => $creator,
invoiceid => $invoice->{invoiceid},
invoice => $invoice->{invoicenumber},
datereceived => $datereceived,
--- /dev/null
+#!/usr/bin/perl
+
+# 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 3 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.
+
+use Modern::Perl;
+use CGI;
+
+use C4::Auth;
+use C4::Output;
+
+use Koha::Acquisition::Orders;
+use Koha::Patrons;
+
+my $cgi = new CGI;
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
+ template_name => "acqui/showorder.tt",
+ query => $cgi,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { acquisition => '*' },
+});
+
+my $ordernumber = $cgi->param('ordernumber');
+my $order = Koha::Acquisition::Orders->find($ordernumber);
+my $creator = Koha::Patrons->find($order->created_by);
+
+$template->param(
+ order => $order,
+ creator => $creator,
+);
+
+output_html_with_http_headers $cgi, $cookie, $template->output;
--- /dev/null
+ALTER TABLE aqorders ADD COLUMN created_by int(11) NULL DEFAULT NULL AFTER quantityreceived;
+UPDATE aqorders, aqbasket SET aqorders.created_by = aqbasket.authorisedby WHERE aqorders.basketno = aqbasket.basketno;
`unitprice_tax_excluded` decimal(28,6) default NULL, -- the unit price excluding tax (on receiving)
`unitprice_tax_included` decimal(28,6) default NULL, -- the unit price including tax (on receiving)
`quantityreceived` smallint(6) NOT NULL default 0, -- the quantity that have been received so far
+ `created_by` int(11) NULL DEFAULT NULL, -- the borrowernumber of order line's creator
`datecancellationprinted` date default NULL, -- the date the line item was deleted
`cancellationreason` MEDIUMTEXT default NULL, -- reason of cancellation
`order_internalnote` LONGTEXT, -- notes related to this order line, made for staff
[% END %]
</select></li>
<li><label> </label><span>(Current: [% budget_period_description %] - [% bookfund %])</span></li>
- <li><label for="creator">Created by: </label><span> [% IF ( memberfirstname and membersurname ) %][% IF ( memberfirstname ) %][% memberfirstname %][% END %] [% membersurname %][% ELSE %]No name[% END %]</span></li>
+ <li>
+ <label for="creator">Created by: </label>
+ <span>
+ [% IF (creator && creator.firstname && creator.surname) %]
+ [% IF creator.firstname %]
+ [% creator.firstname %]
+ [% END %]
+ [% creator.surname %]
+ [% ELSE %]
+ No name
+ [% END %]
+ </span>
+ </li>
<li><label for="quantity_to_receive">Quantity to receive: </label><span class="label">
[% IF ( edit and not subscriptionid) %]
<input type="text" id="quantity_to_receive" name="quantity" value="[% quantity %]" />
<th>Basket group</th>
<th>Order line</th>
<th>Summary</th>
- <th>View record</th>
+ <th>More</th>
<th>Quantity</th>
<th>Unit cost</th>
<th>Order cost</th>
[<a href="/cgi-bin/koha/acqui/modordernotes.pl?ordernumber=[% loop_order.ordernumber %]&referrer=/cgi-bin/koha/acqui/parcel.pl%3Finvoiceid=[% invoiceid %]&type=vendor">Add vendor note</a>]
[% END %]
</td>
- <td><a href="/cgi-bin/koha/catalogue/showmarc.pl?id=[% loop_order.biblionumber %]" class="previewData">MARC</a> | <a href="/cgi-bin/koha/catalogue/showmarc.pl?viewas=card&id=[% loop_order.biblionumber %]" class="previewData">Card</a></td>
+ <td>
+ <a href="/cgi-bin/koha/acqui/showorder.pl?ordernumber=[% loop_order.ordernumber %]" class="previewData">Order</a><br>
+ <a href="/cgi-bin/koha/catalogue/showmarc.pl?id=[% loop_order.biblionumber %]" class="previewData">MARC</a><br>
+ <a href="/cgi-bin/koha/catalogue/showmarc.pl?viewas=card&id=[% loop_order.biblionumber %]" class="previewData">Card</a>
+ </td>
<td>[% loop_order.quantity %]</td>
<td>[% loop_order.ecost | $Price %]</td>
<td>[% loop_order.total | $Price %]</td>
--- /dev/null
+[% INCLUDE 'doc-head-open.inc' %]
+<style>
+ td {
+ padding: 0 1em;
+ }
+ td:first-child {
+ font-weight: bold;
+ text-align: right;
+ }
+</style>
+</head>
+<body>
+ [% IF order %]
+ <table>
+ <tbody>
+ <tr>
+ <td>Creation date</td>
+ <td>[% order.entrydate %]</td>
+ </tr>
+ <tr>
+ <td>Creator</td>
+ <td>[% creator.firstname %] [% creator.surname %]</td>
+ </tr>
+ <tr>
+ <td>Claims count</td>
+ <td>[% order.claims_count %]</td>
+ </tr>
+ <tr>
+ <td>Last claim date</td>
+ <td>[% order.claimed_date %]</td>
+ </tr>
+ </tbody>
+ </table>
+ [% ELSE %]
+ No order found.
+ [% END %]
+</body>
+</html>