CVS: koha/C4 Maintainance.pm,1.2,1.3

15 Mar 2001


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

Modified Files:
	Maintainance.pm 
Log Message:
Added functionality to allow invalid itemtype to be fixed


Index: Maintainance.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Maintainance.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** Maintainance.pm	2001/03/13 22:04:04	1.2
--- Maintainance.pm	2001/03/15 10:15:51	1.3
***************
*** 14,18 ****
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&listsubjects &updatesub &shiftgroup &deletedbib &undeletebib);
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
  
--- 14,19 ----
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&listsubjects &updatesub &shiftgroup &deletedbib &undeletebib
! &updatetype);
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
  
***************
*** 139,143 ****
  }
  
! 
  END { }       # module clean-up code here (global destructor)
      
--- 140,151 ----
  }
  
! sub updatetype{
!   my ($bi,$type)=@_;
!   my $dbh=C4Connect;
!   my $sth=$dbh->prepare("Update biblioitems set itemtype='$type' where biblioitemnumber=$bi");
!   $sth->execute;
!   $sth->finish;
!   $dbh->disconnect;
! }
  END { }       # module clean-up code here (global destructor)

Chris Cormack

tags

participants (1)