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

(-)a/installer/data/mysql/atomicupdate/bug_16401.perl (-1 / +7 lines)
Lines 2-7 $DBversion = 'XXX'; # will be replaced by the RM Link Here
2
if( CheckVersion( $DBversion ) ) {
2
if( CheckVersion( $DBversion ) ) {
3
    $dbh->do( "UPDATE systempreferences SET value = CONCAT('http://', value) WHERE variable = 'staffClientBaseURL' AND value <> '' AND value NOT LIKE 'http%'" );
3
    $dbh->do( "UPDATE systempreferences SET value = CONCAT('http://', value) WHERE variable = 'staffClientBaseURL' AND value <> '' AND value NOT LIKE 'http%'" );
4
4
5
    my ( $staffClientBaseURL_used_in_notices ) = $dbh->selectrow_array(q|
6
        SELECT COUNT(*) FROM letter where content like "%staffClientBaseURL%"
7
    |);
8
    if ( $staffClientBaseURL_used_in_notices ) {
9
        warn "\tYou may need to update one or more notice templates if they contain 'staffClientBaseURL'\n";
10
    }
11
5
    # Always end with this (adjust the bug info)
12
    # Always end with this (adjust the bug info)
6
    SetVersion( $DBversion );
13
    SetVersion( $DBversion );
7
    print "Upgrade to $DBversion done (Bug 16401 - fix potentialy bad set staffClientBaseURL preference)\n";
14
    print "Upgrade to $DBversion done (Bug 16401 - fix potentialy bad set staffClientBaseURL preference)\n";
8
- 

Return to bug 16401