From 6c689187c0d8cf8a78ecfcd8786441ad73c83c11 Mon Sep 17 00:00:00 2001 From: christopherm Date: Wed, 6 Sep 2006 00:10:38 +0000 Subject: fixing css search/replace to include all possible SL style sheets other than the default git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@26 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/User.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'LedgerSMB') diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index d0d304e8..57afd8d8 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -746,7 +746,7 @@ sub create_config { $self->{$key} =~ s/\\/\\\\/g; $self->{$key} =~ s/'/\\'/g; #remaining conversion from SL - $self->{$key} =~ s/sql-ledger.css/ledger-smb.css/g; + $self->{$key} =~ s/sql-ledger([^.]*)\.css/ledger-smb$1.css/g; print CONF qq| $key => '$self->{$key}',\n|; } @@ -782,7 +782,7 @@ sub save_member { while ($line = shift @config) { last if ($line =~ /^\[$self->{login}\]/); #remaining conversion from SL - $line =~ s/sql-ledger.css/ledger-smb.css/g; + $line =~ s/sql-ledger([^.]*)\.css/ledger-smb$1.css/g; print CONF $line; } -- cgit v1.2.3