patch for a simple customer "time accounting"

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 ]

hi! sorry, small bug in AdminCustomerUser.pm.diff. attached the right one (: my %CustomerTiming = $Self->{CustomerTimeAccounting}... needs to run before my $Output = $NavBar.$Self->{LayoutObject}->... -- Liebe Gruesse, with best regards Stephan Lauffer [ Pedagogical University Freiburg - Germany ] [ http://www.ph-freiburg.de/zik/ ] [ Fon/ Fax: +49 761 682 -459/ -486 ]

Hi Stephan, it looks really fine! :) Good work! I'm just not sure if it's the right place to put it into the cvs head. Maybe it's better for the stats. We will think about. Anyway. It's a really good work. Thanks! -Martin On Wed, Mar 24, 2004 at 05:58:48PM +0100, Stephan Lauffer wrote:
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;
_______________________________________________ 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
participants (2)
-
Martin Edenhofer
-
Stephan Lauffer