Attachment #175027 for bug #37993

View | Details | Raw Unified | Return to bug 37993
Collapse All | Expand All




#!/usr/bin/perl

# Copyright 2012 Mark Gavillet & PTFS Europe Ltd
#
# 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, see <http://www.gnu.org/licenses>.

# This is an awkward construct and should probably be totally replaced
# but as all sites so far are single ordering ean its not clear what we should
# replace it with
#
use Modern::Perl;

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
use CGI;
my $schema = Koha::Database->new()->schema();

my @eans = $schema->resultset('EdifactEan')->search(
    {},
    {
        join => 'branch',
    }
);
my $query    = CGI->new();
my $basketno = $query->param('basketno');

if ( @eans == 1 ) {
    my $ean = $eans[0]->ean;
    print $query->redirect(
        "/cgi-bin/koha/acqui/basket.pl?basketno=$basketno&op=cud-ediorder&ean=$ean"
    );
}
else {
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
        {
            template_name   => 'acqui/edi_ean.tt',
            query           => $query,
            type            => 'intranet',
            flagsrequired   => { acquisition => 'order_manage' },
        }
    );
    $template->param( eans     => \@eans );
    $template->param( basketno => $basketno );

    output_html_with_http_headers( $query, $cookie, $template->output );
}




[% USE raw %]
[% PROCESS 'i18n.inc' %]
[% INCLUDE 'doc-head-open.inc' %]
<title>[% FILTER collapse %]
    [% tx("Basket {basketnumber}", { basketnumber = basketno }) | html %] &rsaquo;
    [% t("Acquisitions") | html %] &rsaquo;
    [% t("Koha") | html %]
[% END %]</title>
[% INCLUDE 'doc-head-close.inc' %]

</head>
<body id="acq_edi_ean" class="acq">
[% WRAPPER 'header.inc' %]
    [% INCLUDE 'acquisitions-search.inc' %]
[% END %]

[% WRAPPER 'sub-header.inc' %]
    [% WRAPPER breadcrumbs %]
        [% WRAPPER breadcrumb_item %]
            <a href="/cgi-bin/koha/acqui/acqui-home.pl">Acquisitions</a>
        [% END %]
        [% WRAPPER breadcrumb_item bc_active= 1 %]
            <span>Basket ([% basketno | html %])</span>
        [% END %]
    [% END #/ WRAPPER breadcrumbs %]
[% END #/ WRAPPER sub-header.inc %]

<div class="main container-fluid">
    <div class="row">
        <div class="col-md-10 order-md-2 order-sm-2">
            <main>
                [% INCLUDE 'messages.inc' %]

    <h1>Select the library account submitting the EDI order</h1>

    <div class="page-section">
        <form action="/cgi-bin/koha/acqui/basket.pl" method="post">
            [% INCLUDE 'csrf-token.inc' %]
            <p>Select ordering library account: </p>
            <select id="ean" name="ean">
                [% FOREACH eanacct IN eans %]
                    <option value="[% eanacct.ean | html %]">[% eanacct.branch.branchname | html %] ([% eanacct.ean | html %]) [% IF eanacct.description %][[% eanacct.description | html %]][% END %]</option>
                [% END %]
            </select>
            <input type="hidden" id="basketno" value="[% basketno | html %]" name="basketno" />
            <input type="hidden" value="cud-ediorder" name="op" />
            <p>
                <input type="submit" class="btn btn-primary" value="Send EDI order" />
            </p>
        </form>
    </div> <!-- /.page-section -->
</main>
</div> <!-- /.col-md-10.order-md-2 -->

<div class="col-md-2 order-sm-2 order-md-1">
    <aside>
        [% INCLUDE 'acquisitions-menu.inc' %]
    </aside>
</div> <!-- /.col-md-2.order-md-1 -->
</div>

[% INCLUDE 'intranet-bottom.inc' %]
- 

Return to bug 37993

Lines 1-60 Link Here

(-)a/acqui/edi_ean.pl (-60 lines)
1	#!/usr/bin/perl
2
3	# Copyright 2012 Mark Gavillet & PTFS Europe Ltd
4	#
5	# This file is part of Koha.
6	#
7	# Koha is free software; you can redistribute it and/or modify it
8	# under the terms of the GNU General Public License as published by
9	# the Free Software Foundation; either version 3 of the License, or
10	# (at your option) any later version.
11	#
12	# Koha is distributed in the hope that it will be useful, but
13	# WITHOUT ANY WARRANTY; without even the implied warranty of
14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15	# GNU General Public License for more details.
16	#
17	# You should have received a copy of the GNU General Public License
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20	# This is an awkward construct and should probably be totally replaced
21	# but as all sites so far are single ordering ean its not clear what we should
22	# replace it with
23	#
24	use Modern::Perl;
25
26	use C4::Auth qw( get_template_and_user );
27	use C4::Output qw( output_html_with_http_headers );
28	use Koha::Database;
29	use CGI;
30	my $schema = Koha::Database->new()->schema();
31
32	my @eans = $schema->resultset('EdifactEan')->search(
33	{},
34	{
35	join => 'branch',
36	}
37	);
38	my $query = CGI->new();
39	my $basketno = $query->param('basketno');
40
41	if ( @eans == 1 ) {
42	my $ean = $eans[0]->ean;
43	print $query->redirect(
44	"/cgi-bin/koha/acqui/basket.pl?basketno=$basketno&op=cud-ediorder&ean=$ean"
45	);
46	}
47	else {
48	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
49	{
50	template_name => 'acqui/edi_ean.tt',
51	query => $query,
52	type => 'intranet',
53	flagsrequired => { acquisition => 'order_manage' },
54	}
55	);
56	$template->param( eans => \@eans );
57	$template->param( basketno => $basketno );
58
59	output_html_with_http_headers( $query, $cookie, $template->output );
60	}

Lines 1-62 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/edi_ean.tt (-63 lines)
1	[% USE raw %]
2	[% PROCESS 'i18n.inc' %]
3	[% INCLUDE 'doc-head-open.inc' %]
4	<title>[% FILTER collapse %]
5	[% tx("Basket {basketnumber}", { basketnumber = basketno }) \| html %] &rsaquo;
6	[% t("Acquisitions") \| html %] &rsaquo;
7	[% t("Koha") \| html %]
8	[% END %]</title>
9	[% INCLUDE 'doc-head-close.inc' %]
10
11	</head>
12	<body id="acq_edi_ean" class="acq">
13	[% WRAPPER 'header.inc' %]
14	[% INCLUDE 'acquisitions-search.inc' %]
15	[% END %]
16
17	[% WRAPPER 'sub-header.inc' %]
18	[% WRAPPER breadcrumbs %]
19	[% WRAPPER breadcrumb_item %]
20	<a href="/cgi-bin/koha/acqui/acqui-home.pl">Acquisitions</a>
21	[% END %]
22	[% WRAPPER breadcrumb_item bc_active= 1 %]
23	<span>Basket ([% basketno \| html %])</span>
24	[% END %]
25	[% END #/ WRAPPER breadcrumbs %]
26	[% END #/ WRAPPER sub-header.inc %]
27
28	<div class="main container-fluid">
29	<div class="row">
30	<div class="col-md-10 order-md-2 order-sm-2">
31	<main>
32	[% INCLUDE 'messages.inc' %]
33
34	<h1>Select the library account submitting the EDI order</h1>
35
36	<div class="page-section">
37	<form action="/cgi-bin/koha/acqui/basket.pl" method="post">
38	[% INCLUDE 'csrf-token.inc' %]
39	<p>Select ordering library account: </p>
40	<select id="ean" name="ean">
41	[% FOREACH eanacct IN eans %]
42	<option value="[% eanacct.ean \| html %]">[% eanacct.branch.branchname \| html %] ([% eanacct.ean \| html %]) [% IF eanacct.description %][[% eanacct.description \| html %]][% END %]</option>
43	[% END %]
44	</select>
45	<input type="hidden" id="basketno" value="[% basketno \| html %]" name="basketno" />
46	<input type="hidden" value="cud-ediorder" name="op" />
47	<p>
48	<input type="submit" class="btn btn-primary" value="Send EDI order" />
49	</p>
50	</form>
51	</div> <!-- /.page-section -->
52	</main>
53	</div> <!-- /.col-md-10.order-md-2 -->
54
55	<div class="col-md-2 order-sm-2 order-md-1">
56	<aside>
57	[% INCLUDE 'acquisitions-menu.inc' %]
58	</aside>
59	</div> <!-- /.col-md-2.order-md-1 -->
60	</div>
61
62	[% INCLUDE 'intranet-bottom.inc' %]
63	-