%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
%defaults => ()
</%ARGS>
<%INIT>
-my $WillResolveObj = $TicketObj->WillResolveObj;
+my $WillResolveObj = $TicketObj->WillResolveObj if defined $TicketObj;
unless ( @fields ) {
+ my $subject = $defaults{'Subject'} || $TicketObj->Subject;
@fields = (
{ name => 'Subject',
- html => '<input name="Subject" value="'.$m->interp->apply_escapes( $defaults{'Subject'} || $TicketObj->Subject, 'h' ).'" />',
+ html => '<input name="Subject" value="'.(defined($subject) ? $m->interp->apply_escapes( $subject, 'h' ) : '').'" />',
},
{ name => 'Status',
comp => '/Elements/SelectStatus',
args => {
menu_prefix => 'WillResolve',
Default => $ARGS{'WillResolve'} ||
- ($WillResolveObj->Unix > 0 ?
+ (defined($WillResolveObj)
+ and $WillResolveObj->Unix > 0 ?
$WillResolveObj->Date : ''),
current => 0,
ShowTime => 0,