From 48b5cebb0bddebb11a43b2999d2a3cee7ff6e395 Mon Sep 17 00:00:00 2001 From: sushi Date: Wed, 7 Jun 2006 03:55:54 +0000 Subject: [PATCH] *** empty log message *** --- acqui/newbasket2.pl | 422 +++++++++++++++++++++++++------------------- 1 file changed, 240 insertions(+), 182 deletions(-) diff --git a/acqui/newbasket2.pl b/acqui/newbasket2.pl index ab7100710c..a693d4360d 100755 --- a/acqui/newbasket2.pl +++ b/acqui/newbasket2.pl @@ -2,7 +2,6 @@ #origninally script to provide intranet (librarian) advanced search facility #now script to do searching for acquisitions - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -30,222 +29,281 @@ use HTML::Template; use C4::Auth; use C4::Interface::CGI::Output; +#use Data::Dumper; + my $env; my $input = new CGI; #print $input->header; #whether it is called from the opac of the intranet -my $type=$input->param('type'); -if ($type eq ''){ - $type = 'intra'; +my $type = $input->param('type'); +if ( $type eq '' ) { + $type = 'intra'; } #print $input->dump; my $blah; my %search; + #build hash of users input -my $title=$input->param('search'); -$search{'title'}=$title; -my $keyword=$input->param('d'); -$search{'keyword'}=$keyword; -my $author=$input->param('author'); -$search{'author'}=$author; +my $title = $input->param('search'); +$search{'title'} = $title; +my $keyword = $input->param('d'); +$search{'keyword'} = $keyword; +my $author = $input->param('author'); +$search{'author'} = $author; my @results; -my $offset=$input->param('offset'); -if ($offset eq ''){ - $offset=0; +my $offset = $input->param('offset'); +if ( $offset eq '' ) { + $offset = 0; +} +my $num = $input->param('num'); +if ( $num eq '' ) { + $num = 10; } -my $num=$input->param('num'); -if ($num eq ''){ - $num=10; +my $donation; +my $booksellerid = $input->param('booksellerid'); +if ( $booksellerid == 72 ) { + $donation = 'yes'; } -my $booksellerid=$input->param('booksellerid'); -my $basketno=$input->param('basketno'); -my $sub=$input->param('sub'); +my $basketno = $input->param('basketno'); +my $sub = $input->param('sub'); + #print $sub; -my ($count,@booksellers)=bookseller($booksellerid); -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "acqui/newbasket2.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {acquisition => 1}, - debug => 1, - }); +my ( $count, @booksellers ) = bookseller($booksellerid); +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "acqui/newbasket2.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { order => 1 }, + debug => 1, + } +); #my $template = gettemplate("acqui/newbasket2.tmpl"); #print startpage(); #print startmenu('acquisitions'); +my $invalidsearch; -if ($keyword ne ''){ - ($count,@results)=KeywordSearch(undef,'intra',\%search,$num,$offset); -} elsif ($search{'front'} ne '') { - ($count,@results)=FrontSearch(undef,'intra',\%search,$num,$offset); -}else { - ($count,@results)=CatSearch(undef,'loose',\%search,$num,$offset); +if ( $keyword ne '' ) { + ( $count, @results ) = + KeywordSearch( undef, 'intra', \%search, $num, $offset ); +} +elsif ( $search{'front'} ne '' ) { + ( $count, @results ) = + FrontSearch( undef, 'intra', \%search, $num, $offset ); +} +elsif ( $search{'author'} || $search{'title'} ) { + ( $count, @results ) = CatSearch( undef, 'loose', \%search, $num, $offset ); +} +else { + $invalidsearch = 1; } my @loopsearch; -while ( my ($key, $value) = each %search) { - if ($value ne ''){ - my %linesearch; - $value=~ s/\\//g; - $linesearch{key}=$key; - $linesearch{value}=$value; - push(@loopsearch,\%linesearch); - } +while ( my ( $key, $value ) = each %search ) { + if ( $value ne '' ) { + my %linesearch; + $value =~ s/\\//g; + $linesearch{key} = $key; + $linesearch{value} = $value; + push( @loopsearch, \%linesearch ); + } } -my $offset2=$num+$offset; -my $dispnum=$offset+1; -if ($offset2>$count) { - $offset2=$count +my $offset2 = $num + $offset; +my $dispnum = $offset + 1; +if ( $offset2 > $count ) { + $offset2 = $count; } - -my $count2=@results; -if ($keyword ne '' && $offset > 0){ - $count2=$count-$offset; - if ($count2 > 10){ - $count2=10; - } +my $count2 = @results; +if ( $keyword ne '' && $offset > 0 ) { + $count2 = $count - $offset; + if ( $count2 > 10 ) { + $count2 = 10; + } } -my $i=0; -my $colour=0; +my $i = 0; +my $colour = 0; my @loopresult; -while ($i < $count2){ - my %lineres; - my $toggle; - - my $result=$results[$i]; - $result->{'title'}=~ s/\`/\\\'/g; - my $title2=$result->{'title'}; - my $author2=$result->{'author'}; - $author2=~ s/ /%20/g; - $title2=~ s/ /%20/g; - $title2=~ s/\#/\&\#x23;/g; - $title2=~ s/\"/\"\;/g; - - my $itemcount; - my $location=''; - my $location_only=''; - my $word=$result->{'author'}; - $word=~ s/([a-z]) +([a-z])/$1%20$2/ig; - $word=~ s/ //g; - $word=~ s/ /%20/g; - $word=~ s/\,/\,%20/g; - $word=~ s/\n//g; - $lineres{word}=$word; - $lineres{type}=$type; - - my ($count,$lcount,$nacount,$fcount,$scount,$lostcount,$mending,$transit)=C4::Search::itemcount($env,$result->{'biblionumber'},$type); - if ($nacount > 0){ - $location .= "On Loan"; - if ($nacount >1 ){ - $location .= " ($nacount)"; - } - $location.=" "; - $lineres{'on-loan-p'}=1; - } - if ($lcount > 0){ - $location .= "Levin"; - $location_only .= "Levin"; - if ($lcount >1 ){ - $location .= " ($lcount)"; - $location_only .= " ($lcount)"; - } - $location.=" "; - $location_only.=" "; - } - if ($fcount > 0){ - $location .= "Foxton"; - $location_only .= "Foxton"; - if ($fcount >1 ){ - $location .= " ($fcount)"; - $location_only .= " ($fcount)"; - } - $location.=" "; - $location_only.=" "; - } - if ($scount > 0){ - $location .= "Shannon"; - $location_only .= "Shannon"; - if ($scount >1 ){ - $location .= " ($scount)"; - $location_only .= " ($scount)"; - } - $location.=" "; - $location_only.=" "; - } - if ($lostcount > 0){ - $location .= "Lost"; - if ($lostcount >1 ){ - $location .= " ($lostcount)"; - } - $location.=" "; - $lineres{'lost-p'}=1; - } - if ($mending > 0){ - $location .= "Mending"; - if ($mending >1 ){ - $location .= " ($mending)"; - } - $location.=" "; - $lineres{'mending-p'}=1; - } - if ($transit > 0){ - $location .= "In Transit"; - if ($transit >1 ){ - $location .= " ($transit)"; - } - $location.=" "; - $lineres{'in-transit-p'}=1; - } - if ($colour == 1){ - $toggle='#ffffcc'; - $colour = 0; - } else{ - $colour = 1; - $toggle='white'; - } - $lineres{author2}=$author2; - $lineres{title2}=$title2; - $lineres{copyright}=$result->{'copyrightdate'}; - $lineres{booksellerid}=$booksellerid; - $lineres{basketno}=$basketno; - $lineres{sub}=$sub; - $lineres{biblionumber}=$result->{biblionumber}; - $lineres{title}=$result->{title}; - $lineres{author}=$result->{author}; - $lineres{toggle}=$toggle; - $lineres{itemcount}=$count; - $lineres{location}=$location; - $lineres{'location-only'}=$location_only; - push(@loopresult,\%lineres); - $i++; +while ( $i < $count2 ) { + my %lineres; + my $toggle; + + my $result = $results[$i]; + $result->{'title'} =~ s/\`/\\\'/g; + my $title2 = $result->{'title'}; + my $author2 = $result->{'author'}; + $author2 =~ s/ /%20/g; + $title2 =~ s/ /%20/g; + $title2 =~ s/\#/\&\#x23;/g; + $title2 =~ s/\"/\"\;/g; + + my $itemcount; + my $location = ''; + my $location_only = ''; + my $word = $result->{'author'}; + $word =~ s/([a-z]) +([a-z])/$1%20$2/ig; + $word =~ s/ //g; + $word =~ s/ /%20/g; + $word =~ s/\,/\,%20/g; + $word =~ s/\n//g; + $lineres{word} = $word; + $lineres{type} = $type; + + my ( $counts, $branchcounts ) = + C4::Search::itemcount( $env, $result->{'biblionumber'}, $type ); + + if ( $counts->{'nacount'} > 0 ) { + $location .= "On Loan"; + if ( $counts->{'nacount'} > 1 ) { + $location .= "=($counts->{'nacount'})"; + } + $location .= " "; + $lineres{'on-loan-p'} = 1; + } + foreach my $key ( keys %$branchcounts ) { + if ( $branchcounts->{$key} > 0 ) { + $location .= $key; + $location_only .= $key; + + if ( $branchcounts->{$key} > 1 ) { + $location .= "=$branchcounts->{$key}"; + $location_only .= "=$branchcounts->{$key}"; + } + $location .= " "; + $location_only .= " "; + } + } + if ( $counts->{'lostcount'} > 0 ) { + $location .= "Lost"; + if ( $counts->{'lostcount'} > 1 ) { + $location .= "=($counts->{'lostcount'})"; + } + $location .= " "; + $lineres{'lost-p'} = 1; + } + if ( $counts->{'mending'} > 0 ) { + $location .= "Mending"; + if ( $counts->{'mending'} > 1 ) { + $location .= "=($counts->{'mending'})"; + } + $location .= " "; + $lineres{'mending-p'} = 1; + } + if ( $counts->{'transit'} > 0 ) { + $location .= "In Transit"; + if ( $counts->{'transit'} > 1 ) { + $location .= "=($counts->{'transit'})"; + } + $location .= " "; + $lineres{'in-transit-p'} = 1; + } + if ( $colour eq 0 ) { + $toggle = 1; + $colour = 1; + } + else { + $colour = 0; + $toggle = 0; + } + $lineres{author2} = $author2; + $lineres{title2} = $title2; + $lineres{copyright} = $result->{'copyrightdate'}; + $lineres{booksellerid} = $booksellerid; + $lineres{basketno} = $basketno; + $lineres{sub} = $sub; + $lineres{biblionumber} = $result->{biblionumber}; + $lineres{title} = $result->{title}; + $lineres{author} = $result->{author}; + $lineres{toggle} = $toggle; + $lineres{itemcount} = $counts->{'count'}; + $lineres{location} = $location; + $lineres{'location-only'} = $location_only; + + # lets get a list on existing orders for all bibitems. + ( my $count1, my @bibitems ) = + getbiblioitembybiblionumber( $result->{biblionumber} ); + + my $order, my $ordernumber; + + my $i1 = 0; + + my @ordernumbers; + foreach my $bibitem (@bibitems) { + + ( $order, $ordernumber ) = + &getorder( $bibitem->{biblioitemnumber}, $result->{biblionumber} ); + + #only show order if its current; + my %order; + $order{'number'} = $ordernumber; + if ( ( !$order->{cancelledby} ) + && ( $order->{quantityreceived} < $order->{quantity} ) ) + { + push @ordernumbers, \%order; + } + } + $lineres{existingorder} = \@ordernumbers; + push( @loopresult, \%lineres ); + $i++; } -$offset=$num+$offset; -$template->param( bookselname => $booksellers[0]->{'name'}, - booksellerid => $booksellerid, - basketno => $basketno, - parsub => $sub, - count => $count, - offset2 =>$offset2, - dispnum => $dispnum, - offsetover => ($offset < $count ), - num => $num, - offset => $offset, - type => $type, - title => $title, - author => $author, - loopsearch =>\@loopsearch, - loopresult =>\@loopresult, - 'use-location-flags-p' => 1); +my $prevoffset = $offset - $num; +my $offsetprev = 1; +if ( $prevoffset < 0 ) { + $offsetprev = 0; +} + +$offset = $num + $offset; + +my @numbers = (); +if ( $count > 10 ) { + for ( my $i = 0 ; $i < ( $count / $num ) ; $i++ ) { + my $highlight = 0; + my $numberoffset = $i * $num; + if ( ( $numberoffset + $num ) == $offset ) { $highlight = 1 } + + # warn "I $i | N $num | O $offset | NO $numberoffset | H $highlight"; + push @numbers, + { + number => ( $i + 1 ), + highlight => $highlight, + numberoffset => $numberoffset + }; + } +} + +$template->param( + bookselname => $booksellers[0]->{'name'}, + booksellerid => $booksellerid, + basketno => $basketno, + parsub => $sub, + count => $count, + offset2 => $offset2, + dispnum => $dispnum, + offsetover => ( $offset < $count ), + num => $num, + offset => $prevoffset, + offsetprev => $offsetprev, + type => $type, + title => $title, + author => $author, + donation => $donation, + loopsearch => \@loopsearch, + loopresult => \@loopresult, + numbers => \@numbers, + invalidsearch => $invalidsearch, + 'use-location-flags-p' => 1 +); output_html_with_http_headers $input, $cookie, $template->output; + -- 2.20.1