- Fixed cloning

www/projects/clone-2.tcl

@@ -81,14 +81,6 @@ if {!$parent_read} {
     return
 }
 
-# Make sure the user can read the new parent_project
-im_project_permissions $current_user_id $new_parent_project_id parent_view parent_read parent_write parent_admin
-if {!$parent_read} {
-    ad_return_complaint "Insufficient Privileges" "
-	<li>You don't have sufficient privileges to add a new sub-project to the selected parent project"
-    return
-}
-
 # If the to be cloned project should be a sub-project, we would need to set the company id 
 # to the company_id of the parent-project  
 if { "" != $new_parent_project_id } { 

www/projects/clone.adp

@@ -25,15 +25,6 @@
 	<%= [im_gif help [lang::message::lookup "" intranet-core.A_project_number_is_composed_blurb "A project number is composed by 4 digits for the year plus 4 digits for current identification"]] %> &nbsp; 
       </td>
     </tr>
-<!--
-    <tr>
-      <td>#intranet-core.Parent_Project# &nbsp;</td>
-      <td>
-        <%=[im_project_select -include_empty_p 1 -include_empty_name "" -project_status_id [im_project_status_open] -exclude_subprojects_p 0 new_parent_project_id "" "open"]%>
-        <%= [im_gif help [lang::message::lookup "" intranet-core.If_you_plan_to_make_sub_project "If you plan to make the newly created project a sub-project of an existing project, please select a parent project now"]] %> &nbsp;
-      </td>
-    </tr>
--->
     @clone_html;noquote@
     <tr> 
       <td valign="top">