Lines 34-39
my $dbh = C4::Context->dbh;
Link Here
|
34 |
$dbh->{AutoCommit} = 0; |
34 |
$dbh->{AutoCommit} = 0; |
35 |
$dbh->{RaiseError} = 1; |
35 |
$dbh->{RaiseError} = 1; |
36 |
|
36 |
|
|
|
37 |
$dbh->do(q|DELETE FROM virtualshelves|); |
38 |
|
37 |
# Pick a categorycode from the DB |
39 |
# Pick a categorycode from the DB |
38 |
my @categories = C4::Category->all; |
40 |
my @categories = C4::Category->all; |
39 |
my $categorycode = $categories[0]->categorycode; |
41 |
my $categorycode = $categories[0]->categorycode; |
40 |
- |
|
|