Thread: [Lxr-commits] CVS: lxr source,1.63,1.64
Brought to you by:
ajlittoz
From: Andre-Littoz <ajl...@us...> - 2013-03-18 13:21:00
|
Update of /cvsroot/lxr/lxr In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25422 Modified Files: source Log Message: source, templates/global.conf.part: add 'parenticon' configuration parameter Also, a few speed optimisations on source Index: source =================================================================== RCS file: /cvsroot/lxr/lxr/source,v retrieving revision 1.63 retrieving revision 1.64 diff -u -d -r1.63 -r1.64 --- source 17 Jan 2013 09:30:00 -0000 1.63 +++ source 18 Mar 2013 13:20:57 -0000 1.64 @@ -75,7 +75,13 @@ my $img; if ($node eq '../') { - $img = "/icons/back.gif"; + if (exists $config->{'iconfolder'} + && exists $config->{'parenticon'} + ) { + $img = $config->{'iconfolder'} . $config->{'parenticon'}; + } else { + $img = "/icons/back.gif"; + } } else { if (exists $config->{'iconfolder'} && exists $config->{'diricon'} @@ -324,7 +330,7 @@ sub _edittime { my ($thetime) = @_; - if ($thetime =~ m/:/) { # Was a formatted string provided? + if (0 <= index($thetime, ':')) { # Was a formatted string provided? return $thetime; } else { my @t = gmtime($thetime); @@ -690,7 +696,7 @@ sub printfile { my $raw = shift; - if ($pathname =~ m|/$|) { + if (substr($pathname, -1) eq '/') { printdir($pathname); } else { @@ -779,7 +785,7 @@ if ($HTTP->{'param'}{'_raw'}) { printfile(1); } else { - my $type = ($pathname !~ m|/$| ? 'source' : 'sourcedir'); + my $type = ((substr($pathname, -1) eq '/') ? 'source' : 'sourcedir'); makeheader($type); printfile(0); |