|
Lines 37-42
my $dbh = C4::Context->dbh;
Link Here
|
| 37 |
$dbh->{AutoCommit} = 0; |
37 |
$dbh->{AutoCommit} = 0; |
| 38 |
$dbh->{RaiseError} = 1; |
38 |
$dbh->{RaiseError} = 1; |
| 39 |
|
39 |
|
|
|
40 |
# Reset item types to only the default ones |
| 41 |
$dbh->do(q|DELETE FROM itemtypes;|); |
| 42 |
my $sql = " |
| 43 |
INSERT INTO itemtypes (itemtype, description, rentalcharge, notforloan, imageurl, summary) VALUES |
| 44 |
('BK', 'Books',5,0,'bridge/book.gif',''), |
| 45 |
('MX', 'Mixed Materials',5,0,'bridge/kit.gif',''), |
| 46 |
('CF', 'Computer Files',5,0,'bridge/computer_file.gif',''), |
| 47 |
('MP', 'Maps',5,0,'bridge/map.gif',''), |
| 48 |
('VM', 'Visual Materials',5,1,'bridge/dvd.gif',''), |
| 49 |
('MU', 'Music',5,0,'bridge/sound.gif',''), |
| 50 |
('CR', 'Continuing Resources',5,0,'bridge/periodical.gif',''), |
| 51 |
('REF', 'Reference',0,1,'bridge/reference.gif','');"; |
| 52 |
$dbh->do($sql); |
| 40 |
$dbh->do(q|DELETE FROM suggestions|); |
53 |
$dbh->do(q|DELETE FROM suggestions|); |
| 41 |
$dbh->do(q|DELETE FROM issues|); |
54 |
$dbh->do(q|DELETE FROM issues|); |
| 42 |
$dbh->do(q|DELETE FROM borrowers|); |
55 |
$dbh->do(q|DELETE FROM borrowers|); |
| 43 |
- |
|
|