koha-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-devel] CVS: koha/C4 Maintainance.pm,1.2,1.3


From: Chris Cormack
Subject: [Koha-devel] CVS: koha/C4 Maintainance.pm,1.2,1.3
Date: Thu, 15 Mar 2001 02:15:53 -0800

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)address@hidden;
!   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)
      




reply via email to

[Prev in Thread] Current Thread [Next in Thread]