jro_apps/redmine Commit - r1632:81baddad00af

180

if ($arg && $CanUseMemcached) {

180

if ($arg && $CanUseMemcached) {

181

$self->{RedmineMemcached} = new Cache::Memcached {

181

$self->{RedmineMemcached} = new Cache::Memcached {

182

'servers' => [ $arg, ],

182

'servers' => [ $arg, ],

183

'debug' => 1,

183

'debug' => 0,

184

};

184

};

185

$self->{RedmineMemcache} = 1;

185

$self->{RedmineMemcache} = 1;

186

}

186

}

190

191

sub RedmineMemcacheNamespace {

191

sub RedmineMemcacheNamespace {

192

my ($self, $parms, $arg) = @_;

192

my ($self, $parms, $arg) = @_;

193

if ($~~CanU~~seMemcached) {

193

if ($self->{RedmineMemcache}) {

194

# Undocumented feature of Cache::Memcached, please don't kill me

194

# Undocumented feature of Cache::Memcached, please don't kill me

195

$self->{RedmineMemcached}->{namespace} = $arg;

195

$self->{RedmineMemcached}->{namespace} = $arg;

196

$self->{RedmineMemcached}->{namespace_len} = length $self->{RedmineMemcached}->{namespace};

196

$self->{RedmineMemcached}->{namespace_len} = length $self->{RedmineMemcached}->{namespace};

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

               if ($arg && $CanUseMemcached) {
                 $self->{RedmineMemcached} = new Cache::Memcached {
                   'servers' => [ $arg, ],
-                  'debug' => 1,
+                  'debug' => 0,
                 };
                 $self->{RedmineMemcache} = 1;
               }
             sub RedmineMemcacheNamespace {
               my ($self, $parms, $arg) = @_;
-              if ($CanUseMemcached) {
+              if ($self->{RedmineMemcache}) {
                 # Undocumented feature of Cache::Memcached, please don't kill me
                 $self->{RedmineMemcached}->{namespace} = $arg;
                 $self->{RedmineMemcached}->{namespace_len} = length $self->{RedmineMemcached}->{namespace};