[MKDoc-commit] [1.8] trim any existing extensions from components uri_name and

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.8] trim any existing extensions from components uri_name and regenerate all
components uri_name when using add_component()

Modified Files:
--------------
    mkd/flo/editor/Mixin:
        normalize_name.pm
    mkd/flo:
        Editor.pm

-------------- next part --------------
Index: normalize_name.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/editor/Mixin/normalize_name.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -Lflo/editor/Mixin/normalize_name.pm -Lflo/editor/Mixin/normalize_name.pm -u -r1.8 -r1.9
--- flo/editor/Mixin/normalize_name.pm
+++ flo/editor/Mixin/normalize_name.pm
@@ -46,6 +46,7 @@
     my $class = shift;
     my $name  = shift;
     $name = lc ($name);
+    $name =~ s/\..*//g;
     $name =~ s/[^a-z0-9-]/ /g;
     $name =~ s/\s+/-/g;
     $name =~ s/\-+/-/g;
Index: Editor.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/Editor.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -Lflo/Editor.pm -Lflo/Editor.pm -u -r1.31 -r1.32
--- flo/Editor.pm
+++ flo/Editor.pm
@@ -652,6 +652,7 @@
     $component->{parent_id}    = $parent->id();
     $component->{position}     = $next_id;
     $self->{block}->{$next_id} = $component;
+    $self->_initialize_uri_names();
 }