[Top][All Lists]
[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha/C4 Maintainance.pm,1.2,1.3,
Chris Cormack <=
- Prev by Date:
[Koha-devel] CVS: koha/maint catmaintain.pl,1.1,1.2
- Next by Date:
[Koha-devel] CVS: koha detail.pl,1.2,1.3 moredetail.pl,1.1.1.1,1.2
- Previous by thread:
[Koha-devel] CVS: koha/maint catmaintain.pl,1.1,1.2
- Next by thread:
[Koha-devel] CVS: koha detail.pl,1.2,1.3 moredetail.pl,1.1.1.1,1.2
- Index(es):