diff options
| author | matthew <matthew> | 2009-12-22 11:02:47 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2009-12-22 11:02:47 +0000 |
| commit | 8e99f63cb78ef9b8f19972607f7bbc0ff8995127 (patch) | |
| tree | 327eeeca9df001a509c19e8adb1fb42027f52b74 | |
| parent | ab78cc1cfd9d722ff745842d533addccca9a1f7d (diff) | |
Correct base URL for live.
| -rw-r--r-- | perllib/Cobrands/Barnet/Util.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perllib/Cobrands/Barnet/Util.pm b/perllib/Cobrands/Barnet/Util.pm index 1c6d028d8..a518543a2 100644 --- a/perllib/Cobrands/Barnet/Util.pm +++ b/perllib/Cobrands/Barnet/Util.pm @@ -7,7 +7,7 @@ # Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: Util.pm,v 1.2 2009-12-15 16:53:10 matthew Exp $ +# $Id: Util.pm,v 1.3 2009-12-22 11:02:47 matthew Exp $ package Cobrands::Barnet::Util; use Standard; @@ -29,7 +29,8 @@ Return the base url for this cobranded site sub base_url { my $base_url = mySociety::Config::get('BASE_URL'); if ($base_url !~ /barnet/) { - $base_url =~ s/http:\/\//http:\/\/barnet\./g; + $base_url =~ s/http:\/\/(?!www\.)/http:\/\/barnet\./g; + $base_url =~ s/http:\/\/www\./http:\/\/barnet\./g; } return $base_url; } |