- Additional files for helpdesk

- Additional files for modifying currencies

www/new-typeselect.adp

+<master>
+<property name="title">@page_title@</property>
+<property name="main_navbar_label"></property>
+
+<%= [im_box_header $page_title] %>
+<form action='@return_url;noquote@' method=POST>
+<%= [export_form_vars ticket_id ticket_nr ticket_name] %>
+<table cellspacing=2 cellpadding=2>
+
+
+<!-- ticket sla -->
+
+<if "" eq @ticket_sla_id@>
+	<tr class=roweven>
+	    <td><%= [lang::message::lookup "" intranet-helpdesk.SLA_long "Customer<br>Service<br>Level<br>Agreement"] %></td>
+	    <td>
+		<%= [im_select ticket_sla_id $ticket_sla_options $ticket_sla_id] %>
+	    </td>
+	</tr>
+</if>
+<else>
+	<%= [export_form_vars ticket_sla_id] %>
+</else>
+
+
+<!-- ticket type -->
+
+<if "" eq @ticket_type_id@>
+		<tr class=rowodd>
+		<td><%= [lang::message::lookup "" intranet-helpdesk.Ticket_type "Ticket<br>Type"] %></td>
+		<td>
+			<table>
+			@category_select_html;noquote@
+			</table>
+		</td>
+		</tr>
+
+		<tr>
+		    <td></td>
+		    <td><input type=submit value='<%= [lang::message::lookup "" intranet-core.Continue "Continue"] %>'></td>
+		</tr>
+</if>
+<else>
+	<%= [export_form_vars ticket_type_id] %>
+</else>
+
+
+
+</table>
+</form>
+<%= [im_box_footer] %>
+

www/new-typeselect.tcl

+# /packages/intranet-helpdesk/www/new-typeselect.tcl
+#
+# Copyright (c) 2008 ]project-open[
+#
+
+ad_page_contract {
+    We get redirected here from the ticket's "New" page if there
+    are DynFields per object subtype and no type is specified.
+
+    @author frank.bergmann@project-open.com
+} {
+    return_url
+    ticket_id:optional
+    { ticket_name "" }
+    { ticket_nr "" }
+    { ticket_sla_id "" }
+    { ticket_type_id "" }
+    { ticket_customer_id "" }
+}
+
+# No permissions necessary, that's handled by the object's new page
+# Here we just select an object_type_id for the given object.
+
+set user_id [ad_maybe_redirect_for_registration]
+set page_title [lang::message::lookup "" intranet-helpdesk.Please_Select_Ticket_Properties "Please select ticket properties"]
+set context_bar [im_context_bar $page_title]
+
+set ticket_sla_options [im_select_flatten_list [im_helpdesk_ticket_sla_options -customer_id $ticket_customer_id -include_create_sla_p 1]]
+
+# ad_return_complaint 1 "sla=$ticket_sla_id, type=$ticket_type_id"
+
+set sql "
+	select	c.*
+	from	im_categories c
+	where	c.category_type = 'Intranet Ticket Type'
+		and (c.enabled_p is null or c.enabled_p = 't')
+	order by
+		category
+"
+db_foreach cats $sql {
+
+    regsub -all " " $category "_" category_key
+    set category_l10n [lang::message::lookup "" intranet-core.category_key $category]
+    set category_comment_key ${category_key}_comment
+
+    set comment $category_description
+    if {"" == $comment} { set comment " " }
+    set comment [lang::message::lookup "" intranet-core.$category_comment_key $comment]
+
+    append category_select_html "
+	<tr>
+		<td>
+		<nobr>
+		<input type=radio name=ticket_type_id value=$category_id>$category_l10n</input>
+		&nbsp;
+		</nobr>
+		</td>
+		<td>$comment</td>
+	</tr>
+    "
+
+}