X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=circ%2Fview_holdsqueue.pl;h=3023cdf43aed01ad21a59f4d0334f03deafee76f;hb=d7a51d83c16f5617ee975bfedd055eddde0c8c9f;hp=920f852a050a7c151cb652acd4c6809088ddeb96;hpb=d5908e57c073585427ae3cbbca9f3c2154e1f215;p=koha.git diff --git a/circ/view_holdsqueue.pl b/circ/view_holdsqueue.pl index 920f852a05..3023cdf43a 100755 --- a/circ/view_holdsqueue.pl +++ b/circ/view_holdsqueue.pl @@ -29,7 +29,7 @@ use C4::Auth; use C4::Output; use C4::Biblio; use C4::Items; -use C4::Koha; # GetItemTypes +use C4::Koha; # GetItemTypes use C4::Branch; # GetBranches use C4::Dates qw/format_date/; @@ -46,48 +46,34 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( ); my $params = $query->Vars; -my $run_report = $params->{'run_report'}; -my $branchlimit = $params->{'branchlimit'}; +my $run_report = $params->{'run_report'}; +my $branchlimit = $params->{'branchlimit'}; my $itemtypeslimit = $params->{'itemtypeslimit'}; if ( $run_report ) { - my $items = GetHoldsQueueItems( $branchlimit,$itemtypeslimit ); + my $items = GetHoldsQueueItems($branchlimit, $itemtypeslimit); $template->param( - branch => $branchlimit, - total => scalar @$items, - itemsloop => $items, - run_report => $run_report, - dateformat => C4::Context->preference("dateformat"), - ); -} - -# getting all branches. -my $branches = GetBranches; -my $branch = C4::Context->userenv->{"branchname"}; -my @branchloop; -foreach my $thisbranch (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches ) { - my $selected = 1 if $thisbranch eq $branch; - my %row = ( - value => $thisbranch, - selected => $selected, - branchname => $branches->{$thisbranch}->{'branchname'}, + branch => $branchlimit, + total => scalar @$items, + itemsloop => $items, + run_report => $run_report, + dateformat => C4::Context->preference("dateformat"), ); - push @branchloop, \%row; } # getting all itemtypes my $itemtypes = &GetItemTypes(); my @itemtypesloop; foreach my $thisitemtype ( sort keys %$itemtypes ) { - my %row = ( + push @itemtypesloop, { value => $thisitemtype, description => $itemtypes->{$thisitemtype}->{'description'}, - ); - push @itemtypesloop, \%row; + }; } -$template->param( branchloop => \@branchloop, - itemtypeloop => \@itemtypesloop, +$template->param( + branchloop => GetBranchesLoop(C4::Context->userenv->{'branch'}), + itemtypeloop => \@itemtypesloop, ); sub GetHoldsQueueItems { @@ -97,9 +83,9 @@ sub GetHoldsQueueItems { my @bind_params = (); my $query = q/SELECT tmp_holdsqueue.*, biblio.author, items.ccode, items.location, items.enumchron, items.cn_sort, biblioitems.publishercode,biblio.copyrightdate,biblioitems.publicationyear,biblioitems.pages,biblioitems.size,biblioitems.publicationyear,biblioitems.isbn FROM tmp_holdsqueue - JOIN biblio USING (biblionumber) + JOIN biblio USING (biblionumber) LEFT JOIN biblioitems USING (biblionumber) - LEFT JOIN items USING (itemnumber) + LEFT JOIN items USING ( itemnumber) /; if ($branchlimit) { $query .=" WHERE tmp_holdsqueue.holdingbranch = ?"; @@ -110,11 +96,16 @@ sub GetHoldsQueueItems { $sth->execute(@bind_params); my $items = []; while ( my $row = $sth->fetchrow_hashref ){ - $row->{reservedate} = format_date($row->{reservedate}); + $row->{reservedate} = format_date($row->{reservedate}); + my $record = GetMarcBiblio($row->{biblionumber}); + if ($record){ + $row->{subtitle} = GetRecordValue('subtitle',$record,'')->[0]->{subfield}; + $row->{parts} = GetRecordValue('parts',$record,'')->[0]->{subfield}; + $row->{numbers} = GetRecordValue('numbers',$record,'')->[0]->{subfield}; + } push @$items, $row; } return $items; - } # writing the template output_html_with_http_headers $query, $cookie, $template->output;