From 0855e8ef29dff613764d816a3e2ded5005bd74e7 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Tue, 3 Jun 2008 12:40:18 -0500 Subject: [PATCH] Show copy/volume info on STAFF detail page. This change helps the staff side catch up w/ the OPAC display and be more useful to librarians dealing with serials. Signed-off-by: Joshua Ferraro --- catalogue/detail.pl | 50 +++++++++------- .../prog/en/modules/catalogue/detail.tmpl | 60 ++++++++++++------- 2 files changed, 65 insertions(+), 45 deletions(-) diff --git a/catalogue/detail.pl b/catalogue/detail.pl index 5487676121..b8aeb569a1 100755 --- a/catalogue/detail.pl +++ b/catalogue/detail.pl @@ -80,23 +80,24 @@ my $dat = &GetBiblioData($biblionumber); #coping with subscriptions my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); my @subscriptions = GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber ); - - - my @subs; +$dat->{'serial'}=1 if $subscriptionsnumber; foreach my $subscription (@subscriptions) { my %cell; $cell{subscriptionid} = $subscription->{subscriptionid}; $cell{subscriptionnotes} = $subscription->{notes}; - + $cell{branchcode} = $subscription->{branchcode}; + $cell{hasalert} = $subscription->{hasalert}; #get the three latest serials. $cell{latestserials} = GetLatestSerials( $subscription->{subscriptionid}, 3 ); push @subs, \%cell; } $dat->{imageurl} = getitemtypeimagesrc() . "/".$itemtypes->{ $dat->{itemtype} }{imageurl}; -$dat->{'count'} = @items; -my @itemloop; +$dat->{'count'} = scalar @items; +my $shelflocations = GetKohaAuthorisedValues('items.location', $fw); +my $collections = GetKohaAuthorisedValues('items.ccode' , $fw); +my (@itemloop, %itemfields); my $norequests = 1; foreach my $item (@items) { @@ -106,21 +107,22 @@ foreach my $item (@items) { # format some item fields for display $item->{ $item->{'publictype'} } = 1; $item->{imageurl} = getitemtypeimagesrc() . "/".$itemtypes->{ $item->{itype} }{imageurl}; - $item->{datedue} = format_date($item->{datedue}); - $item->{datelastseen} = format_date($item->{datelastseen}); - $item->{onloan} = format_date($item->{onloan}); + foreach (qw(datedue datelastseen onloan)) { + $item->{$_} = format_date($item->{$_}); + } # item damaged, lost, withdrawn loops $item->{itemlostloop}= GetAuthorisedValues(GetAuthValCode('items.itemlost',$fw),$item->{itemlost}) if GetAuthValCode('items.itemlost',$fw); if ($item->{damaged}) { $item->{itemdamagedloop}= GetAuthorisedValues(GetAuthValCode('items.damaged',$fw),$item->{damaged}) if GetAuthValCode('items.damaged',$fw); } #get shelf location and collection code description if they are authorised value. - my $shelflocations = GetKohaAuthorisedValues('items.location',$fw ); my $shelfcode= $item->{'location'}; $item->{'location'} = $shelflocations->{$shelfcode} if(defined($shelflocations) && exists($shelflocations->{$shelfcode})); - my $collections = GetKohaAuthorisedValues('items.ccode',$fw ); my $ccode= $item->{'ccode'}; $item->{'ccode'} = $collections->{$ccode} if(defined($collections) && exists($collections->{$ccode})); + foreach (qw(ccode enumchron copynumber)) { + $itemfields{$_} = 1 if($item->{$_}); + } # checking for holds my ($reservedate,$reservedfor,$expectedAt) = GetReservesFromItemnumber($item->{itemnumber}); @@ -131,7 +133,7 @@ foreach my $item (@items) { $item->{reservedate} = format_date($reservedate); $item->{ReservedForBorrowernumber} = $reservedfor; $item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; - $item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; + $item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; $item->{ExpectedAtLibrary} = $branches->{$expectedAt}{branchname}; } @@ -140,7 +142,7 @@ foreach my $item (@items) { if ( $transfertwhen ne '' ) { $item->{transfertwhen} = format_date($transfertwhen); $item->{transfertfrom} = $branches->{$transfertfrom}{branchname}; - $item->{transfertto} = $branches->{$transfertto}{branchname}; + $item->{transfertto} = $branches->{$transfertto}{branchname}; $item->{nocancel} = 1; } @@ -155,15 +157,17 @@ foreach my $item (@items) { } $template->param( norequests => $norequests ); - - $template->param( - MARCNOTES => $marcnotesarray, - MARCSUBJCTS => $marcsubjctsarray, - MARCAUTHORS => $marcauthorsarray, - MARCSERIES => $marcseriesarray, - MARCURLS => $marcurlsarray, - subtitle => $subtitle, - ); +$template->param( + MARCNOTES => $marcnotesarray, + MARCSUBJCTS => $marcsubjctsarray, + MARCAUTHORS => $marcauthorsarray, + MARCSERIES => $marcseriesarray, + MARCURLS => $marcurlsarray, + subtitle => $subtitle, + itemdata_ccode => $itemfields{ccode}, + itemdata_enumchron => $itemfields{enumchron}, + itemdata_copynumber => $itemfields{copynumber}, +); my @results = ( $dat, ); foreach ( keys %{$dat} ) { @@ -179,6 +183,8 @@ $template->param( subscriptiontitle => $dat->{title}, ); +# $debug and $template->param(debug_display => 1); + # XISBN Stuff my $xisbn=$dat->{'isbn'}; $xisbn =~ s/(p|-| |:)//g; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl index 9741541fd1..12632d8c3d 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl @@ -159,32 +159,35 @@ function verify_images() { Item type Location - Collection + Collection Call Number Status Last seen Barcode - Volume + Publication Details + Volume + + Copy No. - " alt="" title=""> - - - - + " alt="" title=""> + + + + - - Checked out, due - - Checked out to "> , due - - - - In transit from , - to , since - + Checked out + + to "> + + : due + + + In transit from , + to , since + @@ -244,13 +247,16 @@ function verify_images() { - + &item=&biblionumber=&bi=#item - - () - - - + + + + () + + + + &item=">Fix Itemtype @@ -258,6 +264,14 @@ function verify_images() { + +

+ + + + +
itemdata_enumchron
itemdata_copynumber
serial
+

No physical items for this record

-- 2.39.5