projects
/
koha.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Bug 24606: DBRev 22.06.00.083
[koha.git]
/
installer
/
data
/
mysql
/
db_revs
/
210600011.pl
1
use Modern::Perl;
2
3
return {
4
bug_number => "28567",
5
description => "Set to NULL empty branches fields",
6
up => sub {
7
my ($args) = @_;
8
my $dbh = $args->{dbh};
9
10
my @fields = qw(
11
branchname
12
branchaddress1
13
branchaddress2
14
branchaddress3
15
branchzip
16
branchcity
17
branchstate
18
branchcountry
19
branchphone
20
branchfax
21
branchemail
22
branchillemail
23
branchreplyto
24
branchreturnpath
25
branchurl
26
branchip
27
branchnotes
28
opac_info
29
marcorgcode
30
);
31
for my $f ( @fields ) {
32
$dbh->do(qq{
33
UPDATE branches
34
SET $f = NULL
35
WHERE $f = ""
36
});
37
}
38
},
39
}