[Lxr-commits] CVS: lxr source,1.63,1.64

[Andre-Littoz <ajl...@us...>]

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