[Koha-cvs] CVS: koha/C4 Biblio.pm,1.47,1.48

[Chris Cormack]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv23436/C4

Modified Files:
	Biblio.pm 
Log Message:
Just added an order clause to getitemtypes


Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -r1.47 -r1.48
*** Biblio.pm	20 May 2003 16:22:44 -0000	1.47
--- Biblio.pm	16 Jun 2003 09:22:53 -0000	1.48
***************
*** 2,5 ****
--- 2,8 ----
  # $Id$
  # $Log$
+ # Revision 1.48  2003/06/16 09:22:53  rangi
+ # Just added an order clause to getitemtypes
+ #
  # Revision 1.47  2003/05/20 16:22:44  tipaul
  # fixing typo in Biblio.pm POD
***************
*** 1616,1624 ****
  						replacementpricedate = NOW(),	itemnotes            = ?,
  						notforloan = ?
  						");
  	$sth->execute($itemnumber,	$item->{'biblionumber'},
  							$item->{'biblioitemnumber'},$barcode,
  							$item->{'booksellerid'},
! 							$item->{'homebranch'},$item->{'homebranch'},
  							$item->{'price'},$item->{'replacementprice'},
  							$item->{'itemnotes'},$item->{'loan'});
--- 1619,1628 ----
  						replacementpricedate = NOW(),	itemnotes            = ?,
  						notforloan = ?
+ 
  						");
  	$sth->execute($itemnumber,	$item->{'biblionumber'},
  							$item->{'biblioitemnumber'},$barcode,
  							$item->{'booksellerid'},
! 							$item->{'homebranch'},$item->{'holdingbranch'},
  							$item->{'price'},$item->{'replacementprice'},
  							$item->{'itemnotes'},$item->{'loan'});
***************
*** 2035,2039 ****
  sub getitemtypes {
    my $dbh   = C4::Context->dbh;
!   my $query = "select * from itemtypes";
    my $sth   = $dbh->prepare($query);
      # || die "Cannot prepare $query" . $dbh->errstr;
--- 2039,2043 ----
  sub getitemtypes {
    my $dbh   = C4::Context->dbh;
!   my $query = "select * from itemtypes order by description";
    my $sth   = $dbh->prepare($query);
      # || die "Cannot prepare $query" . $dbh->errstr;