[Rt-commit] r7559 - in rt/branches/3.6-RELEASE: .
jesse at bestpractical.com
jesse at bestpractical.com
Wed Apr 18 20:53:26 EDT 2007
Author: jesse
Date: Wed Apr 18 20:53:25 2007
New Revision: 7559
Modified:
rt/branches/3.6-RELEASE/ (props changed)
rt/branches/3.6-RELEASE/html/Tools/MyDay.html
Log:
r55724 at 241: jesse | 2007-04-18 16:28:00 -0400
* Made MyDay.html actually work. Based in spirit on a patch from Chris Hobbs
Modified: rt/branches/3.6-RELEASE/html/Tools/MyDay.html
==============================================================================
--- rt/branches/3.6-RELEASE/html/Tools/MyDay.html (original)
+++ rt/branches/3.6-RELEASE/html/Tools/MyDay.html Wed Apr 18 20:53:25 2007
@@ -45,6 +45,9 @@
%# END BPS TAGGED BLOCK }}}
<& /Elements/Header, Title => $title &>
<& /Tools/Elements/Tabs, current_tab => "Tools/MyDay.html", Title => $title &>
+
+<& /Elements/ListActions, actions => \@results &>
+
(displaying new and open tickets for <%$session{'CurrentUser'}->Name%>)
<form method="post" action="MyDay.html">
<table width="100%" cellpadding="0" cellspacing="0">
@@ -75,6 +78,32 @@
my $title = loc("What I did today");
my $i = 0;
+my @results;
+foreach my $arg ( keys %ARGS ) {
+ next unless ( $arg =~ /^UpdateStatus-(\d*)$/ );
+ my $id = $1;
+ my $ticket = LoadTicket($id);
+ next unless ( $ticket->id );
+ if ( my $content = $ARGS{'UpdateContent-'.$id} ) {
+ my ( $val, $msg ) = $ticket->Comment(
+ Content => $content,
+ TimeTaken => $ARGS{ 'UpdateTimeWorked-' . $id }
+ );
+ push @results, loc( "Ticket [_1]: [_2]", $id, $msg );
+ } elsif ( my $worked = $ARGS{ 'UpdateTimeWorked-' . $id } ) {
+ my ( $val, $msg ) = $ticket->SetTimeWorked( $worked + $ticket->TimeWorked );
+ push @results, loc( "Ticket [_1]: [_2]", $id, $msg );
+ }
+
+ if ( my $status = $ARGS{ 'UpdateStatus-' . $id } ) {
+ if ( $status ne $ticket->Status ) {
+ my ( $val, $msg ) = $ticket->SetStatus($status);
+ push @results, loc( "Ticket [_1]: [_2]", $id, $msg );
+
+ }
+ }
+
+}
my $Tickets = RT::Tickets->new($session{'CurrentUser'});
$Tickets->LimitOwner(VALUE => $session{'CurrentUser'}->Id);
@@ -82,4 +111,5 @@
$Tickets->LimitStatus ( VALUE => 'new');
$Tickets->OrderBy ( FIELD => 'Priority', ORDER => 'DESC');
+
</%INIT>
More information about the Rt-commit
mailing list