[Koha-cvs] CVS: koha/opac opac-reserve.pl,1.10,1.11
Finlay Thompson
finlayt at users.sourceforge.net
Tue Mar 18 21:57:54 CET 2003
Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1:/tmp/cvs-serv18843
Modified Files:
opac-reserve.pl
Log Message:
fixed so that it works with the old templates too
Index: opac-reserve.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-reserve.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** opac-reserve.pl 18 Mar 2003 20:25:31 -0000 1.10
--- opac-reserve.pl 18 Mar 2003 20:57:52 -0000 1.11
***************
*** 83,86 ****
--- 83,114 ----
# get the itemtype data....
my @items = ItemInfo(undef, $biblionumber, 'opac');
+
+ #######################################################
+ # old version, add so that old templates still work
+ my %types_old;
+ foreach my $itm (@items) {
+ my $ity = $itm->{'itemtype'};
+ unless ($types_old {$ity}) {
+ $types_old{$ity}->{'itemtype'} = $ity;
+ $types_old{$ity}->{'branchinfo'}->{$itm->{'branchcode'}} = 1;
+ $types_old{$ity}->{'description'} = $itm->{'description'};
+ } else {
+ $types_old{$ity}->{'branchinfo'}->{$itm->{'branchcode'}} ++;
+ }
+ }
+
+ foreach my $type (values %types_old) {
+ my $copies = "";
+ foreach my $bc (keys %{$type->{'branchinfo'}}) {
+ $copies .= $branches->{$bc}->{'branchname'}."(".$type->{'branchinfo'}->{$bc}.")";
+ }
+ $type->{'copies'} = $copies;
+ }
+
+ my @types_old = values %types_old;
+
+ # end old version
+ ################################
+
my @temp;
foreach my $itm (@items) {
***************
*** 222,228 ****
--- 250,258 ----
}
unless ($noreserves) {
+ $template->param(TYPES => \@types_old);
$template->param(select_item_types => 1);
}
}
+
# check that you can actually make the reserve.
More information about the Koha-cvs
mailing list