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)