[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