projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 7201 follow-up, fixing some indentation mistakes
[koha_gimpoz]
/
acqui
/
newordersuggestion.pl
diff --git
a/acqui/newordersuggestion.pl
b/acqui/newordersuggestion.pl
index
8be5b45
..
b65e4ea
100755
(executable)
--- a/
acqui/newordersuggestion.pl
+++ b/
acqui/newordersuggestion.pl
@@
-87,11
+87,13
@@
can be equal to
=cut
use strict;
=cut
use strict;
-require Exporter;
+#use warnings; FIXME - Bug 2505
+
use CGI;
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::Suggestions;
use CGI;
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::Suggestions;
+use C4::Bookseller qw/ GetBookSellerFromId /;
use C4::Biblio;
my $input = new CGI;
use C4::Biblio;
my $input = new CGI;
@@
-105,6
+107,7
@@
my $publishercode = $input->param('publishercode');
my $op = $input->param('op');
my $suggestionid = $input->param('suggestionid');
my $duplicateNumber = $input->param('duplicateNumber');
my $op = $input->param('op');
my $suggestionid = $input->param('suggestionid');
my $duplicateNumber = $input->param('duplicateNumber');
+my $uncertainprice = $input->param('uncertainprice');
$op = 'else' unless $op;
$op = 'else' unless $op;
@@
-115,7
+118,7
@@
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
type => "intranet",
query => $input,
authnotrequired => 1,
type => "intranet",
query => $input,
authnotrequired => 1,
- flagsrequired => { acquisition =>
1
},
+ flagsrequired => { acquisition =>
'order_manage'
},
}
);
}
);
@@
-125,18
+128,19
@@
if ( $op eq 'connectDuplicate' ) {
# getting all suggestions.
my $suggestions_loop =
# getting all suggestions.
my $suggestions_loop =
- &SearchSuggestion( $borrowernumber, $author, $title, $publishercode,'ACCEPTED',
- -1 );
-
+ &SearchSuggestion(
+ { managedby => $borrowernumber,
+ author => $author,
+ title => $title,
+ publishercode => $publishercode,
+ STATUS => 'ACCEPTED'});
+my $vendor = GetBookSellerFromId($supplierid);
$template->param(
suggestions_loop => $suggestions_loop,
basketno => $basketno,
supplierid => $supplierid,
$template->param(
suggestions_loop => $suggestions_loop,
basketno => $basketno,
supplierid => $supplierid,
+ name => $vendor->{'name'},
"op_$op" => 1,
"op_$op" => 1,
- intranetcolorstylesheet =>
- C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
);
output_html_with_http_headers $input, $cookie, $template->output;
);
output_html_with_http_headers $input, $cookie, $template->output;