Merge branch 'master' of github.com:tla/stemmatology

Conflicts:
	stemmaweb/lib/stemmaweb/Controller/Root.pm

diff --cc lib/stemmaweb/Controller/Root.pm
index 5decf72,070f7d8..5ab5e92
--- 1/lib/stemmaweb/Controller/Root.pm
--- 2/lib/stemmaweb/Controller/Root.pm
+++ b/lib/stemmaweb/Controller/Root.pm
@@@ -319,10 -319,8 +319,10 @@@ sub stemma :Local :Args(2) 
                        try {
                                if( $stemmaid eq 'n' ) {
                                        # We are adding a new stemma.
+                                       $stemmaid = $tradition->stemma_count;
                                        $stemma = $tradition->add_stemma( 'dot' => $dot );
-                                       $stemmaid = $tradition->stemma_count - 1;
 +                              } elsif( $stemmaid !~ /^\d+$/ ) {
 +                                      return _json_error( $c, 403, "Invalid stemma ID specification $stemmaid" );
                                } elsif( $stemmaid < $tradition->stemma_count ) {
                                        # We are updating an existing stemma.
                                        $stemma = $tradition->stemma( $stemmaid );