%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
if ( !$Create ) {
if ( $Template eq 'new' ) {
my ( $val, $msg )
- = $TemplateObj->Create( Queue => $Queue, Name => $Name );
+ = $TemplateObj->Create( Queue => $Queue, Name => $Name, Type => $Type );
Abort( loc( "Could not create template: [_1]", $msg ) ) unless ($val);
push @results, $msg;
} else {
$Queue = $TemplateObj->Queue;
$QueueObj = $TemplateObj->QueueObj;
- my @attribs = qw( Description Content Queue Name Type );
+ my @attribs = qw( Name Description Queue Type Content );
my @aresults = UpdateRecordObject( AttributesRef => \@attribs,
Object => $TemplateObj,
ARGSRef => \%ARGS
$Template => ''
$Create => undef
$Name => undef
+$Type => undef
</%ARGS>