[rt-users] Issue with scrip.

[William Graboyes]

Hi Kevin,

Thanks for the Quick response.  Is there any good documentation anywhere on
the RT:Date functions? A quick search of the wiki resulted in nothing more
or less, so for the time being, I believe the solution should be something
along the lines of:


     my $CF_Obj = RT::CustomField->new($self->CurrentUser);
     my $cf_name = 'Ticket_resolveDate';
     my ( $sec, $min, $hour, $day, $mon, $year ) = localtime( time );
     my $cf_value = sprintf( '%d-%02d-%02d %02d:%02d:%02d', $year + 1900,
$mon + 1, $day, $hour,
     $min, $sec );
     $CF_Obj->LoadByName( Name => $cf_name,);
     $RT::Logger->debug( "Loaded \$CF_Obj->Name = ". $CF_Obj->Name() ."\n"
);

     $CF_Obj->AddValueForObject( Object => $self->TicketObj,
     Content => $cf_value, );
     1;

Thanks,
Bill G.

On Tue, Sep 1, 2009 at 11:35 AM, Kevin Falcone <falcone at bestpractical.com>wrote:

> On Tue, Sep 01, 2009 at 11:29:36AM -0700, William Graboyes wrote:
> >    Hi all,
> >
> >    I am having a strange issue with a script, I was wondering if those
> who are a bit more
> >    proficient than myself can give me a couple of pointers.
> >
> >    The issue is that sometimes, quite regularly actually, it is printing
> a date that is 1 month
> >    behind the current date. this has me very confused, there are a few
> that wrote the date
> >    properly, (about 17 out of 330). So with out further complications,
> here is a copy of the
> >    scrip.
>
> You may want to read
> $ perldoc -f localtime
>
> which explains that $mon is not 1-12
>
> Also, you may want one of the functions from RT::Date rather than
> doing it by hand.
>
> -kevin
>
> >
> >      my $CF_Obj = RT::CustomField->new($self->CurrentUser);
> >      my $cf_name = 'Ticket_resolveDate';
> >      my ( $sec, $min, $hour, $day, $mon, $year ) = localtime( time );
> >      my $cf_value = sprintf( '%d-%02d-%02d %02d:%02d:%02d', $year + 1900,
> $mon, $day, $hour,
> >      $min, $sec );
> >      $CF_Obj->LoadByName( Name => $cf_name,);
> >      $RT::Logger->debug( "Loaded \$CF_Obj->Name = ". $CF_Obj->Name()
> ."\n" );
> >
> >      $CF_Obj->AddValueForObject( Object => $self->TicketObj,
> >      Content => $cf_value, );
> >      1;
> _______________________________________________
> http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
>
> Community help: http://wiki.bestpractical.com
> Commercial support: sales at bestpractical.com
>
>
> Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
> Buy a copy at http://rtbook.bestpractical.com
>



-- 
Bill Graboyes
On Assignment At:
Toyota Motor Sales, USA, Inc.
Consumer Portal Delivery
Office: (310) 468-6754
Cell: (714) 515-8312
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.bestpractical.com/pipermail/rt-users/attachments/20090901/1d30a7f9/attachment.htm>