View | Details | Raw Unified | Return to bug 29805
Collapse All | Expand All

(-)a/installer/data/mysql/db_revs/210600016.pl (-15 / +19 lines)
Lines 38-51 return { Link Here
38
            |);
38
            |);
39
        }
39
        }
40
40
41
        $dbh->do(q|
41
        my $contents = $dbh->selectall_arrayref(q|SELECT * FROM additional_contents|, { Slice => {} });
42
            UPDATE letter
42
        my $sth_update = $dbh->prepare(q|
43
            SET content = REGEXP_REPLACE(content, '<<\\\\s*opac_news\.', '<<additional_contents.')
43
            UPDATE additional_contents
44
        |);
44
                SET content=?
45
        $dbh->do(q|
45
                WHERE idnew=?
46
            UPDATE letter
47
            SET content = REGEXP_REPLACE(content, '\\\\[%\\\\s*opac_news\.', '[% additional_contents.')
48
        |);
46
        |);
47
        for my $c ( @$contents ) {
48
            my $content = $c->{content};
49
            $content =~ s|<<\s*opac_news\.|<<additional_contents.|g;
50
            $content =~ s|\[%\s*opac_news\.|[% additional_contents.|g;
51
            $sth_update->execute($content, $c->{idnew});
52
        }
49
53
50
        $dbh->do(q|
54
        $dbh->do(q|
51
            UPDATE systempreferences
55
            UPDATE systempreferences
Lines 82-88 return { Link Here
82
            |);
86
            |);
83
        }
87
        }
84
88
85
        my $contents = $dbh->selectall_arrayref(q|SELECT * FROM additional_contents|, { Slice => {} });
89
        $sth_update = $dbh->prepare(q|
90
            UPDATE additional_contents
91
            SET category=?, location=?, lang=?
92
            WHERE idnew=?
93
        |);
94
95
96
        $contents = $dbh->selectall_arrayref(q|SELECT * FROM additional_contents|, { Slice => {} });
86
        for my $c ( @$contents ) {
97
        for my $c ( @$contents ) {
87
            my ( $category, $location, $new_lang );
98
            my ( $category, $location, $new_lang );
88
            if ( $c->{lang} eq '' ) {
99
            if ( $c->{lang} eq '' ) {
Lines 113-124 return { Link Here
113
124
114
            $new_lang = "default" if $new_lang eq 'en'; # Assume that "en" is "default"
125
            $new_lang = "default" if $new_lang eq 'en'; # Assume that "en" is "default"
115
126
116
            my $sth_update = $dbh->prepare(q|
117
                UPDATE additional_contents
118
                SET category=?, location=?, lang=?
119
                WHERE idnew=?
120
            |);
121
122
            my $parent_idnew;
127
            my $parent_idnew;
123
            if ( $new_lang ne 'default' ) {
128
            if ( $new_lang ne 'default' ) {
124
                $dbh->do(q|
129
                $dbh->do(q|
125
- 

Return to bug 29805