[Koha-cvs] CVS: koha detail.pl,1.10,1.11

[Finlay Thompson]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv20254

Modified Files:
        detail.pl 
Log Message:

added a Boolean: $norequests whhich is set on the template detail.tmpl so that 
the "requests" button only apears if it is actually possible to make a request. 
This is set by checking against the "notforloan" field on the itemtypes table.


Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/detail.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** detail.pl   14 Aug 2002 18:12:51 -0000      1.10
--- detail.pl   19 Aug 2002 05:37:15 -0000      1.11
***************
*** 46,57 ****
     $value=~s/\s*$//g;
     $configfile{$variable}=$value;
-  }
  }
  
  my $biblionumber=$query->param('bib');
  my $type='intra';
  
  # change back when ive fixed request.pl
  my @items = ItemInfo(undef, $biblionumber, $type);
  my $dat=bibdata($biblionumber);
  my ($authorcount, $addauthor)= &addauthor($biblionumber);
--- 46,67 ----
     $value=~s/\s*$//g;
     $configfile{$variable}=$value;
  }
+ }     
  
  my $biblionumber=$query->param('bib');
  my $type='intra';
  
+ 
  # change back when ive fixed request.pl
  my @items = ItemInfo(undef, $biblionumber, $type);
+ my $norequests = 1;
+ foreach my $itm (@items) {
+      $norequests = 0 unless $itm->{'notforloan'};
+ }
+ 
+ warn "Biblionumber: $biblionumber";
+ warn "Norequests: $norequests"; 
+ 
+ 
  my $dat=bibdata($biblionumber);
  my ($authorcount, $addauthor)= &addauthor($biblionumber);
***************
*** 101,104 ****
--- 111,115 ----
  $template->param(BIBLIO_RESULTS => $resultsarray);
  $template->param(ITEM_RESULTS => $itemsarray);
+ $template->param(norequests => $norequests);
  $template->param(WEB_RESULTS => $webarray);
  $template->param(SITE_RESULTS => $sitearray);