Fix related media creation.

It was broken by the addition of autocompleted category selection for new media in 1.11.3. Thanks to Iván Chavero for the spot [#135 state:resolved].

comp/widgets/help/debuggers.html

@@ -89,4 +89,5 @@
   <li>Denny de la Haye</li>
   <li>Krzysztof Rudnik</li>
   <li>Adam Wilson</li>
+  <li>Iván Chavero</li>
 </ul>

lib/Bric/App/Callback/ContainerProf.pm

@@ -236,14 +236,14 @@ sub create_related_media : Callback( priority => 6) {
         ? Bric::Util::Trans::FS->base_name($param->{"$widget|file"}, 'win32')
         : $param->{"$widget|file"};
     my $m_param = {
-        'title'                   => $filename,
-        'cover_date'              => strfdate(),
-        'priority'                => $asset->get_priority,
-        'media_prof|category__id' => $asset->get_primary_category->get_id,
-        'media_prof|source__id'   => $asset->get_source__id,
-        'media_prof|at_id'        => $param->{'media_prof|at_id'},
-        'media_prof|file'         => $param->{"$widget|file"},
-        'file_field_name'         => "$widget|file",
+        'title'                     => $filename,
+        'cover_date'                => strfdate(),
+        'priority'                  => $asset->get_priority,
+        'new_category_autocomplete' => $asset->get_primary_category->get_uri,
+        'media_prof|source__id'     => $asset->get_source__id,
+        'media_prof|at_id'          => $param->{'media_prof|at_id'},
+        'media_prof|file'           => $param->{"$widget|file"},
+        'file_field_name'           => "$widget|file",
     };
 
     my $media_cb = Bric::App::Callback::Profile::Media->new(

lib/Bric/Changes.pod

@@ -96,6 +96,12 @@ report (Bug #121). [David]
 Fixed the "Log In" button so that the word "In" is antialiased. [Waldo
 Jaquith]
 
+=item *
+
+New media can once again be created from a related media element. It was
+broken by the switch to autocompleted category selection for new media
+documents in 1.11.3. Thanks to Iván Chavero for the spot (Bug #135). [David]
+
 =back
 
 =head1 Version 1.11.3 (2010-01-28)

lib/Bric/License.pod

@@ -484,6 +484,8 @@ Friends who have spotted bugs include:
 
 =item * Adam Wilson
 
+=item * Iván Chavero
+
 =back
 
 Bricolage's translation team: