Koha/acqui/newbiblio.pl
2006-01-18 14:52:07 +00:00

208 lines
6.2 KiB
Perl
Executable file

#!/usr/bin/perl
#script to show display basket of orders
#written by chris@katipo.co.nz 24/2/2000
# Copyright 2000-2002 Katipo Communications
#
# 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., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
use strict;
use CGI;
use C4::Context;
use C4::Input;
use C4::Database;
use C4::Auth;
use C4::Acquisition;
use C4::Suggestions;
use C4::Biblio;
use C4::Search;
use C4::Output;
use C4::Input;
use C4::Koha;
use C4::Interface::CGI::Output;
use HTML::Template;
my $input=new CGI;
my $booksellerid=$input->param('booksellerid');
my $title=$input->param('title');
my $author=$input->param('author');
my $copyright=$input->param('copyright');
my ($count,@booksellers)=bookseller($booksellerid);
my $ordnum=$input->param('ordnum');
my $biblio=$input->param('biblio');
my $basketno=$input->param('basketno');
my $suggestionid = $input->param('suggestionid');
my $close= $input->param('close');
my $data;
my $new;
my $dbh = C4::Context->dbh;
if ($ordnum eq ''){ # create order
$new='yes';
# $ordnum=newordernum;
if ($biblio && !$suggestionid) {
$data=bibdata($biblio);
}
# get suggestion fields if applicable. If it's a subscription renewal, then the biblio already exists
# otherwise, retrieve suggestion information.
if ($suggestionid) {
if ($biblio) {
$data=bibdata($biblio);
} else {
$data = getsuggestion($suggestionid);
}
}
if ($data->{'title'} eq ''){
$data->{'title'}=$title;
$data->{'author'}=$author;
$data->{'copyrightdate'}=$copyright;
}
}else { #modify order
$data=getsingleorder($ordnum);
$biblio=$data->{'biblionumber'};
}
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "acqui/newbiblio.tmpl",
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {acquisition => 1},
debug => 1,
});
# get currencies (for change rates calcs if needed
my ($count,$rates)=getcurrencies();
my @loop_currency = ();
for (my $i=0;$i<$count;$i++){
my %line;
$line{currency} = $rates->[$i]->{'currency'};
$line{rate} = $rates->[$i]->{'rate'};
push @loop_currency, \%line;
}
# build itemtype list
my $sth=$dbh->prepare("Select itemtype,description from itemtypes order by description");
$sth->execute;
my @itemtype;
my %itemtypes;
while (my ($value,$lib) = $sth->fetchrow_array) {
push @itemtype, $value;
$itemtypes{$value}=$lib;
}
my $CGIitemtype=CGI::scrolling_list( -name => 'format',
-values => \@itemtype,
-default => $data->{'itemtype'},
-labels => \%itemtypes,
-size => 1,
-multiple => 0 );
$sth->finish;
# build branches list
my $branches = getbranches;
my @branchloop;
foreach my $thisbranch (sort keys %$branches) {
my %row =(value => $thisbranch,
branchname => $branches->{$thisbranch}->{'branchname'},
);
push @branchloop, \%row;
}
$template->param(branchloop =>\@branchloop);
# build bookfund list
my $sthtemp = $dbh->prepare("Select flags, branchcode from borrowers where borrowernumber = ?");
$sthtemp->execute($loggedinuser);
my ($flags, $homebranch)=$sthtemp->fetchrow;
my $count2;
my @bookfund;
my @select_bookfund;
my %select_bookfunds;
($count2,@bookfund)=bookfunds($homebranch);
for (my $i=0;$i<$count2;$i++){
push @select_bookfund, $bookfund[$i]->{'bookfundid'};
$select_bookfunds{$bookfund[$i]->{'bookfundid'}} = $bookfund[$i]->{'bookfundname'}
}
my $CGIbookfund=CGI::scrolling_list( -name => 'bookfund',
-values => \@select_bookfund,
-default => $data->{'bookfundid'},
-labels => \%select_bookfunds,
-size => 1,
-multiple => 0 );
my $bookfundname;
my $bookfundid;
if ($close){
$bookfundid=$data->{'bookfundid'};
$bookfundname= $select_bookfunds{$bookfundid};
}
#Build sort lists
my $CGIsort1 = buildCGIsort("Asort1","sort1",$data->{'sort1'});
if ($CGIsort1) {
$template->param(CGIsort1 => $CGIsort1);
} else {
$template->param( sort1 => $data->{'sort1'});
}
my $CGIsort2 = buildCGIsort("Asort2","sort2",$data->{'sort2'});
if ($CGIsort2) {
$template->param(CGIsort2 =>$CGIsort2);
} else {
$template->param( sort2 => $data->{'sort2'});
}
# fill template
$template->param( close=> $close, bookfundid=>$bookfundid, bookfundname=>$bookfundname) if ($close);
$template->param( existing => $biblio,
title => $title,
ordnum => $ordnum,
basketno => $basketno,
booksellerid => $booksellerid,
suggestionid => $suggestionid,
biblio => $biblio,
biblioitemnumber => $data->{'biblioitemnumber'},
itemtype => $data->{'itemtype'},
discount => $booksellers[0]->{'discount'},
listincgst => $booksellers[0]->{'listincgst'},
listprice => $booksellers[0]->{'listprice'},
gstreg => $booksellers[0]->{'gstreg'},
invoiceinc => $booksellers[0]->{'invoiceincgst'},
invoicedisc => $booksellers[0]->{'invoicedisc'},
nocalc => $booksellers[0]->{'nocalc'},
name => $booksellers[0]->{'name'},
currency => $booksellers[0]->{'listprice'},
gstrate => C4::Context->preference("gist") ,
loop_currencies => \@loop_currency,
orderexists => ($new eq 'yes')?0:1,
title => $data->{'title'},
author => $data->{'author'},
copyrightdate => $data->{'copyrightdate'},
CGIitemtype => $CGIitemtype,
CGIbookfund => $CGIbookfund,
isbn => $data->{'isbn'},
seriestitle => $data->{'seriestitle'},
quantity => $data->{'quantity'},
listprice => $data->{'listprice'},
rrp => $data->{'rrp'},
invoice => $data->{'booksellerinvoicenumber'},
ecost => $data->{'ecost'},
notes => $data->{'notes'},
publishercode => $data->{'publishercode'});
output_html_with_http_headers $input, $cookie, $template->output;