[interchange-cvs] interchange - heins modified dist/lib/UI/ContentEditor.pm

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-08-31 08:13:33 GMT
Modified:  dist/lib/UI ContentEditor.pm
Log:
* Remove ui_page_picture and other redundant and unneeded things from
  the saved page.

Revision  Changes    Path
2.5       +2 -2      interchange/dist/lib/UI/ContentEditor.pm


rev 2.5, prev_rev 2.4
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.4
retrieving revision 2.5
diff -u -r2.4 -r2.5
--- ContentEditor.pm	27 Jun 2002 20:18:36 -0000	2.4
+++ ContentEditor.pm	31 Aug 2002 08:13:32 -0000	2.5
@@ -2,7 +2,7 @@
 #
 # UI::ContentEditor - Interchange page/component edit
 #=20
-# $Id: ContentEditor.pm,v 2.4 2002/06/27 20:18:36 mheins Exp $
+# $Id: ContentEditor.pm,v 2.5 2002/08/31 08:13:32 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.4 $, 10);
+$VERSION =3D substr(q$Revision: 2.5 $, 10);
 $DEBUG =3D 0;
=20
 use POSIX qw/strftime/;
@@ -1421,9 +1421,8 @@
 	my @header;
=20
 	my $slots =3D delete $ref->{ui_slots} || [];
-	push @header, "ui_$type: $name";
-	push @header, "ui_type: $type";
 	push @header, "ui_name: $name";
+	push @header, "ui_type: $type";
 	push @header, "ui_page_template: $ref->{ui_page_template}";
 	push @header, "ui_version: " . $Tag->version();
 	delete $ref->{ui_name};
@@ -1432,6 +1431,7 @@
 	delete $ref->{ui_slots};
 	delete $ref->{ui_version};
 	delete $ref->{ui_page_template};
+	delete $ref->{ui_page_picture};
 	my $body =3D delete $ref->{CONTENT};
 	$body =3D~ s/\r\n/\n/g;
 	$body =3D~ s/\r/\n/g;