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 _______________________________________________ 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
