[interchange-cvs] interchange - racke modified dist/lib/UI/Primitive.pm

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Mon May 19 18:12:00 2003


User:      racke
Date:      2003-05-19 22:11:54 GMT
Modified:  dist/lib/UI Primitive.pm
Log:
use HTMLsuffix configuration directive as default extension for
UI::Primitive::list_pages, which fits better than StaticSuffix
even without the removal of the Static Page features

Revision  Changes    Path
2.21      +3 -3      interchange/dist/lib/UI/Primitive.pm


rev 2.21, prev_rev 2.20
Index: Primitive.pm
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/Primitive.pm,v
retrieving revision 2.20
retrieving revision 2.21
diff -u -r2.20 -r2.21
--- Primitive.pm	12 Sep 2002 15:56:32 -0000	2.20
+++ Primitive.pm	19 May 2003 22:11:54 -0000	2.21
@@ -1,6 +1,6 @@
 # UI::Primitive - Interchange configuration manager primitives
 
-# $Id: Primitive.pm,v 2.20 2002/09/12 15:56:32 mheins Exp $
+# $Id: Primitive.pm,v 2.21 2003/05/19 22:11:54 racke Exp $
 
 # Copyright (C) 1998-2002 Red Hat, Inc. <interchange@redhat.com>
 
@@ -25,7 +25,7 @@
 
 package UI::Primitive;
 
-$VERSION = substr(q$Revision: 2.20 $, 10);
+$VERSION = substr(q$Revision: 2.21 $, 10);
 
 $DEBUG = 0;
 
@@ -446,7 +446,7 @@
 
 sub list_pages {
 	my ($keep, $suf, $base) = @_;
-	$suf = $Vend::Cfg->{StaticSuffix} if ! $suf;
+	$suf = $Vend::Cfg->{HTMLsuffix} if ! $suf;
 	$base = Vend::Util::catfile($Vend::Cfg->{VendRoot}, $base) if $base;
 	$base ||= $Vend::Cfg->{PageDir};
 	my @names;