[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;