[dev] patch for a simple customer "time accounting"

[Stephan Lauffer]

hi!

i've hacked a stupid new module to get (in 
index.pl?Action=AdminCustomerUser&Subaction=Change...)
some time accounting unit informations to the customer.
Looks like:
"
Time Accounting:
Time units this week:   Time units this month:  Time units this year:   Time units 
last year:
(...)
"

if someone is interested i've attached the new module and the
needed (small) patches.

side note: i'm not a perl hacker... so /ignore if you dislike the code

-- 
Liebe Gruesse, with best regards
Stephan Lauffer

[ Pedagogical University Freiburg - Germany ]
[ http://www.ph-freiburg.de/zik/            ]
[ Fon/ Fax: +49 761 682 -459/ -486          ]

--- /home/lauffer/otrs/Kernel/Modules/AdminCustomerUser.pm      2004-03-11 
23:31:46.000000000 +0100
+++ Kernel/Modules/AdminCustomerUser.pm 2004-03-24 17:32:21.000000000 +0100
@@ -40,2 +40,3 @@
     $Self->{CustomerUserObject} = Kernel::System::CustomerUser->new(%Param);
+    $Self->{CustomerTimeAccounting} =  
Kernel::System::CustomerTimeAccounting->new(%Param);
 
@@ -101,2 +102,4 @@
         my $Output = $NavBar.$Self->{LayoutObject}->AdminCustomerUserForm(
+       # get customer time_accounting data
+       my %CustomerTiming = $Self->{CustomerTimeAccounting}->run(UserCustomerID => 
$UserData{"UserCustomerID"});
             Nav => $Nav,
@@ -107,2 +110,3 @@
             %UserData,
+           %CustomerTiming,
         );

--- /home/lauffer/otrs/Kernel/Output/HTML/Standard/AdminCustomerUserForm.dtl    
2004-03-01 15:00:57.000000000 +0100
+++ Kernel/Output/HTML/Standard/AdminCustomerUserForm.dtl       2004-03-23 
15:09:13.000000000 +0100
@@ -55,3 +55,2 @@
   </table> 
-
   </td> 
@@ -116,7 +115,22 @@
     </form>
-
     </td>
   </tr>
+## nixda (
+  <tr>
+    <td  class="table3">$Text{"Time Accounting"}:</td>
+  </tr>
+  <tr>
+    <td>
+      <table width="100%">
+        <tr>
+          <td>$Text{"Time units this week"}:</td><td>$Text{"Time units this 
month"}:</td><td>$Text{"Time units this year"}:</td><td>$Text{"Time units last 
year"}:</td>
+        </tr>
+        <tr>
+          
<td>$Data{"CustomerTimeAccountingThisWeek"}</td><td>$Data{"CustomerTimeAccountingThisMonth"}</td><td>$Data{"CustomerTimeAccountingThisYear"}</td><td>$Data{"CustomerTimeAccountingLastYear"}</td>
+        </tr>
+      </table>
+    </td>
+  </tr>
+## )
   </table>
-
   </td>

--- /home/lauffer/otrs/bin/cgi-bin/index.pl     2004-02-13 01:33:58.000000000 +0100
+++ bin/cgi-bin/index.pl        2004-03-24 17:45:32.000000000 +0100
@@ -59,2 +59,3 @@
 use Kernel::Output::HTML::Generic;
+use Kernel::System::CustomerTimeAccounting;
 

CustomerTimeAccounting.pm
Description: Perl program

_______________________________________________
OTRS mailing list: dev - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/dev
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/dev