[prev in list] [next in list] [prev in thread] [next in thread] 

List:       cgiapp
Subject:    [cgiapp] Load_tmpl() minimal clean-up patch - INLINED.
From:       "Emanuele Zeppieri" <emazep () katamail ! com>
Date:       2004-04-09 12:51:25
Message-ID: 004001c41e31$5e7408b0$1400000a () main
[Download RAW message or body]

--- Application.pm	Sat Feb 14 03:36:57 2004
+++ Application.pm.new	Fri Apr 09 14:33:13 2004
@@ -382,19 +382,18 @@
 	my $self = shift;
 	my ($tmpl_file, @extra_params) = @_;
 
-	# add tmpl_path to path array of one is set, otherwise add a
path arg
+	# add tmpl_path to path array if one is set, otherwise add a
path arg
 	if (my $tmpl_path = $self->tmpl_path) {
 	        my $found = 0;
 	        for( my $x = 0; $x < @extra_params; $x += 2 ) {
 		        if ($extra_params[$x] eq 'path' and 
-		            ref $extra_params[$x+1]     and
 		            ref $extra_params[$x+1] eq 'ARRAY') {
 		                unshift @{$extra_params[$x+1]},
$tmpl_path;
 		                $found = 1;
 		                last;
 		        }
 		}
-	    push(@extra_params, path => [ $tmpl_path ]) unless $found;
+	    	push(@extra_params, path => [ $tmpl_path ]) unless
$found;
 	}
 
 	require HTML::Template;


---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/cgiapp@lists.erlbaum.net/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: cgiapp-unsubscribe@lists.erlbaum.net
For additional commands, e-mail: cgiapp-help@lists.erlbaum.net

[prev in list] [next in list] [prev in thread] [next in thread]