[Koha-cvs] CVS: koha/C4 BookShelves.pm,1.13,1.14

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13519/C4

Modified Files:
        BookShelves.pm 
Log Message:
adding bookshelf features :
* create bookshelf on the fly
* modify a bookshelf (this being not finished, will commit the rest soon)

Index: BookShelves.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/BookShelves.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** BookShelves.pm      11 Mar 2004 16:06:20 -0000      1.13
--- BookShelves.pm      15 Dec 2004 17:28:23 -0000      1.14
***************
*** 54,58 ****
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&GetShelfList &GetShelfContents &AddToShelf &AddToShelfFromBiblio
                                &RemoveFromShelf &AddShelf &RemoveShelf
                                &ShelfPossibleAction);
--- 54,59 ----
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&GetShelfList &GetShelfContents &GetShelf
!                               &AddToShelf &AddToShelfFromBiblio
                                &RemoveFromShelf &AddShelf &RemoveShelf
                                &ShelfPossibleAction);
***************
*** 135,138 ****
--- 136,145 ----
  }
  
+ sub GetShelf {
+       my ($shelfnumber) = @_;
+       my $sth=$dbh->prepare("select shelfnumber,shelfname,owner,category from 
bookshelf where shelfnumber=?");
+       $sth->execute($shelfnumber);
+       return $sth->fetchrow;
+ }
  =item GetShelfContents
  
***************
*** 240,248 ****
        $sth->execute($shelfname);
      if ($sth->rows) {
!       return(1, "Shelf \"$shelfname\" already exists");
      } else {
!       $sth=$dbh->prepare("insert into bookshelf (shelfname,owner,category) 
values (?,?,?)");
!       $sth->execute($shelfname,$owner,$category);
!       return (0, "Done");
      }
  }
--- 247,256 ----
        $sth->execute($shelfname);
      if ($sth->rows) {
!               return(1, "Shelf \"$shelfname\" already exists");
      } else {
!               $sth=$dbh->prepare("insert into bookshelf 
(shelfname,owner,category) values (?,?,?)");
!               $sth->execute($shelfname,$owner,$category);
!               my $shelfnumber = $dbh->{'mysql_insertid'};
!               return (0, "Done",$shelfnumber);
      }
  }
***************
*** 283,286 ****
--- 291,299 ----
  #
  # $Log$
+ # Revision 1.14  2004/12/15 17:28:23  tipaul
+ # adding bookshelf features :
+ # * create bookshelf on the fly
+ # * modify a bookshelf (this being not finished, will commit the rest soon)
+ #
  # Revision 1.13  2004/03/11 16:06:20  tipaul
  # *** empty log message ***