[MKDoc-commit] [1.6] new users on single language sites prefer that language

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6] new users on single language sites prefer that language

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/flo/Record:
        Editor.pm
    mkd/flo/User:
        Preferences.pm

-------------- next part --------------
Index: Editor.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/Record/Editor.pm,v
retrieving revision 1.25.2.20
retrieving revision 1.25.2.21
diff -Lflo/Record/Editor.pm -Lflo/Record/Editor.pm -u -r1.25.2.20 -r1.25.2.21
--- flo/Record/Editor.pm
+++ flo/Record/Editor.pm
@@ -53,6 +53,7 @@
     if ($self->validate())
     {
 	$self->save();
+        $self->preferences->set_default_language;
 	return $self;
     }
     
Index: Preferences.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/User/Preferences.pm,v
retrieving revision 1.11.2.12
retrieving revision 1.11.2.13
diff -Lflo/User/Preferences.pm -Lflo/User/Preferences.pm -u -r1.11.2.12 -r1.11.2.13
--- flo/User/Preferences.pm
+++ flo/User/Preferences.pm
@@ -445,6 +445,19 @@
 }
 
 
+##
+# $obj->set_default_language;
+# ---------------------------
+#   If there is only one language in use, sets language preference to that,
+#   otherwise does nothing.
+##
+sub set_default_language
+{
+    my $self = shift;
+    my @langs = $self->language_names;
+    $self->set_language_preference ($langs[0], LIKE) if (scalar @langs == 1);
+}
+
 
 ##
 # $val = $obj->language_preference($name);