|
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 |
- |
|
|