[interchange-cvs] interchange - heins modified dist/lib/UI/ContentEditor.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon Sep 2 12:22:01 2002
User: heins
Date: 2002-09-02 16:21:28 GMT
Modified: dist/lib/UI ContentEditor.pm
Log:
* Oops. Deleted one too many parameters -- published improperly
with that change.
Revision Changes Path
2.6 +4 -3 interchange/dist/lib/UI/ContentEditor.pm
rev 2.6, prev_rev 2.5
Index: ContentEditor.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/dist/lib/UI/ContentEditor.pm,v
retrieving revision 2.5
retrieving revision 2.6
diff -u -r2.5 -r2.6
--- ContentEditor.pm 31 Aug 2002 08:13:32 -0000 2.5
+++ ContentEditor.pm 2 Sep 2002 16:21:28 -0000 2.6
@@ -2,7 +2,7 @@
#
# UI::ContentEditor - Interchange page/component edit
#=20
-# $Id: ContentEditor.pm,v 2.5 2002/08/31 08:13:32 mheins Exp $
+# $Id: ContentEditor.pm,v 2.6 2002/09/02 16:21:28 mheins Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -23,7 +23,7 @@
=20
package UI::ContentEditor;
=20
-$VERSION =3D substr(q$Revision: 2.5 $, 10);
+$VERSION =3D substr(q$Revision: 2.6 $, 10);
$DEBUG =3D 0;
=20
use POSIX qw/strftime/;
@@ -1421,8 +1421,9 @@
my @header;
=20
my $slots =3D delete $ref->{ui_slots} || [];
- push @header, "ui_name: $name";
+ push @header, "ui_$type: $name";
push @header, "ui_type: $type";
+ push @header, "ui_name: $name";
push @header, "ui_page_template: $ref->{ui_page_template}";
push @header, "ui_version: " . $Tag->version();
delete $ref->{ui_name};