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