[otrs-cvs] CVS: otrs/Kernel/System AutoResponse.pm,1.11,1.12
CustomerAuth.pm,1.7,1.8 CustomerGroup.pm,1.8,1.9 DB.pm,1.53,1.54
GenericAgent.pm, 1.21, 1.22 Notification.pm, 1.9, 1.10 Permission.pm, 1.12,
1.13
PostMaster.pm,1.59,1.60 Queue.pm,1.61,1.62 Spelling.pm,1.14,1.15
StdResponse.pm,1.14,1.15 Ticket.pm,1.227,1.228 XMLMaster.pm,1.3,1.4
cvs-log at otrs.org
cvs-log at otrs.org
Thu Nov 2 13:20:58 CET 2006
Update of /home/cvs/otrs/Kernel/System
In directory lancelot:/tmp/cvs-serv11671/Kernel/System
Modified Files:
AutoResponse.pm CustomerAuth.pm CustomerGroup.pm DB.pm
GenericAgent.pm Notification.pm Permission.pm PostMaster.pm
Queue.pm Spelling.pm StdResponse.pm Ticket.pm XMLMaster.pm
Log Message:
removed # --
Index: AutoResponse.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/AutoResponse.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** AutoResponse.pm 29 Aug 2006 17:30:35 -0000 1.11
--- AutoResponse.pm 2 Nov 2006 12:20:52 -0000 1.12
***************
*** 19,23 ****
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
- # --
sub new {
my $Type = shift;
--- 19,22 ----
***************
*** 44,48 ****
return $Self;
}
! # --
sub AutoResponseAdd {
my $Self = shift;
--- 43,47 ----
return $Self;
}
!
sub AutoResponseAdd {
my $Self = shift;
***************
*** 77,81 ****
}
}
! # --
sub AutoResponseGet {
my $Self = shift;
--- 76,80 ----
}
}
!
sub AutoResponseGet {
my $Self = shift;
***************
*** 118,122 ****
}
}
! # --
sub AutoResponseUpdate {
my $Self = shift;
--- 117,121 ----
}
}
!
sub AutoResponseUpdate {
my $Self = shift;
***************
*** 157,161 ****
}
}
! # --
sub AutoResponseGetByTypeQueueID {
my $Self = shift;
--- 156,160 ----
}
}
!
sub AutoResponseGetByTypeQueueID {
my $Self = shift;
***************
*** 202,206 ****
return (%Adresss, %Data);
}
- # --
1;
--- 201,204 ----
Index: CustomerAuth.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/CustomerAuth.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** CustomerAuth.pm 29 Aug 2006 17:30:36 -0000 1.7
--- CustomerAuth.pm 2 Nov 2006 12:20:52 -0000 1.8
***************
*** 58,62 ****
=cut
- # --
sub new {
my $Type = shift;
--- 58,61 ----
***************
*** 84,88 ****
return $Self;
}
- # --
=item GetOption()
--- 83,86 ----
***************
*** 101,105 ****
return $Self->{Backend}->GetOption(%Param);
}
- # --
=item Auth()
--- 99,102 ----
***************
*** 139,143 ****
}
}
! # --
1;
--- 136,140 ----
}
}
!
1;
Index: CustomerGroup.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/CustomerGroup.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** CustomerGroup.pm 29 Aug 2006 17:30:36 -0000 1.8
--- CustomerGroup.pm 2 Nov 2006 12:20:52 -0000 1.9
***************
*** 33,37 ****
=cut
- # --
sub new {
my $Type = shift;
--- 33,36 ----
***************
*** 224,228 ****
}
}
! # --
1;
--- 223,227 ----
}
}
!
1;
Index: DB.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/DB.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -C2 -r1.53 -r1.54
*** DB.pm 29 Aug 2006 17:30:36 -0000 1.53
--- DB.pm 2 Nov 2006 12:20:52 -0000 1.54
***************
*** 317,321 ****
$DBObject->Do(SQL => "DELETE FROM table");
-
you also can use DBI bind values (used for large strings):
--- 317,320 ----
***************
*** 484,488 ****
return @Row;
}
! # --
# _should_ not used because of database incompat.
sub FetchrowHashref {
--- 483,487 ----
return @Row;
}
!
# _should_ not used because of database incompat.
sub FetchrowHashref {
Index: GenericAgent.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/GenericAgent.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** GenericAgent.pm 25 Sep 2006 13:22:22 -0000 1.21
--- GenericAgent.pm 2 Nov 2006 12:20:53 -0000 1.22
***************
*** 253,259 ****
}
my %Tickets = ();
! # --
# escalation tickets
- # --
if ($Job{Escalation}) {
if (! $Job{Queue}) {
--- 253,258 ----
}
my %Tickets = ();
!
# escalation tickets
if ($Job{Escalation}) {
if (! $Job{Queue}) {
***************
*** 273,279 ****
}
}
! # --
# pending tickets
- # --
elsif ($Job{PendingReminder} || $Job{PendingAuto}) {
my $Type = '';
--- 272,277 ----
}
}
!
# pending tickets
elsif ($Job{PendingReminder} || $Job{PendingAuto}) {
my $Type = '';
***************
*** 322,328 ****
}
}
! # --
# get regular tickets
- # --
else {
if (!$Job{Queue}) {
--- 320,325 ----
}
}
!
# get regular tickets
else {
if (!$Job{Queue}) {
***************
*** 358,364 ****
}
}
! # --
# process each ticket
- # --
foreach (sort keys %Tickets) {
$Self->_JobRunTicket(
--- 355,360 ----
}
}
!
# process each ticket
foreach (sort keys %Tickets) {
$Self->_JobRunTicket(
***************
*** 401,407 ****
my $Ticket = "($Param{TicketNumber}/$Param{TicketID})";
- # --
# move ticket
- # --
if ($Param{Config}->{New}->{Queue}) {
if ($Self->{NoticeSTDOUT}) {
--- 397,401 ----
***************
*** 426,432 ****
);
}
! # --
# add note if wanted
- # --
if ($Param{Config}->{New}->{Note}->{Body} || $Param{Config}->{New}->{NoteBody}) {
if ($Self->{NoticeSTDOUT}) {
--- 420,425 ----
);
}
!
# add note if wanted
if ($Param{Config}->{New}->{Note}->{Body} || $Param{Config}->{New}->{NoteBody}) {
if ($Self->{NoticeSTDOUT}) {
***************
*** 445,451 ****
);
}
! # --
# set new state
- # --
if ($Param{Config}->{New}->{State}) {
if ($Self->{NoticeSTDOUT}) {
--- 438,443 ----
);
}
!
# set new state
if ($Param{Config}->{New}->{State}) {
if ($Self->{NoticeSTDOUT}) {
***************
*** 470,476 ****
);
}
! # --
# set customer id and customer user
- # --
if ($Param{Config}->{New}->{CustomerID} || $Param{Config}->{New}->{CustomerUserLogin}) {
if ($Param{Config}->{New}->{CustomerID}) {
--- 462,467 ----
);
}
!
# set customer id and customer user
if ($Param{Config}->{New}->{CustomerID} || $Param{Config}->{New}->{CustomerUserLogin}) {
if ($Param{Config}->{New}->{CustomerID}) {
***************
*** 491,497 ****
);
}
! # --
# set new priority
- # --
if ($Param{Config}->{New}->{Priority}) {
if ($Self->{NoticeSTDOUT}) {
--- 482,487 ----
);
}
!
# set new priority
if ($Param{Config}->{New}->{Priority}) {
if ($Self->{NoticeSTDOUT}) {
***************
*** 514,520 ****
);
}
! # --
# set new owner
- # --
if ($Param{Config}->{New}->{Owner}) {
if ($Self->{NoticeSTDOUT}) {
--- 504,509 ----
);
}
!
# set new owner
if ($Param{Config}->{New}->{Owner}) {
if ($Self->{NoticeSTDOUT}) {
***************
*** 539,545 ****
);
}
! # --
# set new lock
- # --
if ($Param{Config}->{New}->{Lock}) {
if ($Self->{NoticeSTDOUT}) {
--- 528,533 ----
);
}
!
# set new lock
if ($Param{Config}->{New}->{Lock}) {
if ($Self->{NoticeSTDOUT}) {
***************
*** 564,570 ****
);
}
! # --
# set ticket free text options
- # --
foreach (1..16) {
if (defined($Param{Config}->{New}->{"TicketFreeKey$_"}) || defined($Param{Config}->{New}->{"TicketFreeText$_"})) {
--- 552,557 ----
);
}
!
# set ticket free text options
foreach (1..16) {
if (defined($Param{Config}->{New}->{"TicketFreeKey$_"}) || defined($Param{Config}->{New}->{"TicketFreeText$_"})) {
***************
*** 603,609 ****
}
}
! # --
# run module
- # --
if ($Param{Config}->{New}->{Module}) {
if ($Self->{NoticeSTDOUT}) {
--- 590,595 ----
}
}
!
# run module
if ($Param{Config}->{New}->{Module}) {
if ($Self->{NoticeSTDOUT}) {
***************
*** 628,634 ****
}
}
! # --
# cmd
- # --
if ($Param{Config}->{New}->{CMD}) {
if ($Self->{NoticeSTDOUT}) {
--- 614,619 ----
}
}
!
# cmd
if ($Param{Config}->{New}->{CMD}) {
if ($Self->{NoticeSTDOUT}) {
***************
*** 641,647 ****
system("$Param{Config}->{New}->{CMD} $Param{TicketNumber} $Param{TicketID} ");
}
! # --
# delete ticket
- # --
if ($Param{Config}->{New}->{Delete}) {
if ($Self->{NoticeSTDOUT}) {
--- 626,631 ----
system("$Param{Config}->{New}->{CMD} $Param{TicketNumber} $Param{TicketID} ");
}
!
# delete ticket
if ($Param{Config}->{New}->{Delete}) {
if ($Self->{NoticeSTDOUT}) {
Index: Notification.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/Notification.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** Notification.pm 29 Aug 2006 17:30:36 -0000 1.9
--- Notification.pm 2 Nov 2006 12:20:53 -0000 1.10
***************
*** 19,23 ****
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
- # --
sub new {
my $Type = shift;
--- 19,22 ----
***************
*** 42,46 ****
return $Self;
}
! # --
sub NotificationGet {
my $Self = shift;
--- 41,45 ----
return $Self;
}
!
sub NotificationGet {
my $Self = shift;
***************
*** 125,129 ****
}
}
! # --
sub NotificationList {
my $Self = shift;
--- 124,128 ----
}
}
!
sub NotificationList {
my $Self = shift;
***************
*** 167,171 ****
return %List;
}
! # --
sub NotificationUpdate {
my $Self = shift;
--- 166,170 ----
return %List;
}
!
sub NotificationUpdate {
my $Self = shift;
***************
*** 204,208 ****
}
}
- # --
1;
--- 203,206 ----
Index: Permission.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/Permission.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** Permission.pm 29 Aug 2006 17:30:36 -0000 1.12
--- Permission.pm 2 Nov 2006 12:20:53 -0000 1.13
***************
*** 18,22 ****
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
- # --
sub new {
my $Type = shift;
--- 18,21 ----
***************
*** 43,47 ****
return $Self;
}
! # --
sub Section {
my $Self = shift;
--- 42,46 ----
return $Self;
}
!
sub Section {
my $Self = shift;
***************
*** 63,67 ****
return;
}
- # --
1;
--- 62,65 ----
Index: PostMaster.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/PostMaster.pm,v
retrieving revision 1.59
retrieving revision 1.60
diff -C2 -r1.59 -r1.60
*** PostMaster.pm 1 Sep 2006 13:23:27 -0000 1.59
--- PostMaster.pm 2 Nov 2006 12:20:53 -0000 1.60
***************
*** 29,33 ****
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
- # --
sub new {
my $Type = shift;
--- 29,32 ----
***************
*** 94,98 ****
return $Self;
}
! # --
sub Run {
my $Self = shift;
--- 93,97 ----
return $Self;
}
!
sub Run {
my $Self = shift;
***************
*** 142,148 ****
return 1;
}
! # --
# ticket section
! # --
# check if follow up (again, with new GetParam)
($Tn, $TicketID) = $Self->CheckFollowUp(%{$GetParam});
--- 141,148 ----
return 1;
}
! # ----------------------
# ticket section
! # ----------------------
!
# check if follow up (again, with new GetParam)
($Tn, $TicketID) = $Self->CheckFollowUp(%{$GetParam});
***************
*** 287,293 ****
return 1;
}
! # --
# CheckFollowUp
! # --
sub CheckFollowUp {
my $Self = shift;
--- 287,293 ----
return 1;
}
!
# CheckFollowUp
!
sub CheckFollowUp {
my $Self = shift;
***************
*** 378,384 ****
return;
}
! # --
# GetEmailParams
! # --
sub GetEmailParams {
my $Self = shift;
--- 378,384 ----
return;
}
!
# GetEmailParams
!
sub GetEmailParams {
my $Self = shift;
***************
*** 448,451 ****
return \%GetParam;
}
! # --
1;
--- 448,451 ----
return \%GetParam;
}
!
1;
Index: Queue.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/Queue.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -C2 -r1.61 -r1.62
*** Queue.pm 29 Aug 2006 17:30:36 -0000 1.61
--- Queue.pm 2 Nov 2006 12:20:53 -0000 1.62
***************
*** 218,222 ****
return $String;
}
! # --
# for comapt!
sub SetQueueStdResponse {
--- 218,222 ----
return $String;
}
!
# for comapt!
sub SetQueueStdResponse {
***************
*** 245,249 ****
}
}
! # --
# for comapt!
sub QueueHasStdResponse {
--- 245,249 ----
}
}
!
# for comapt!
sub QueueHasStdResponse {
Index: Spelling.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/Spelling.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** Spelling.pm 29 Aug 2006 17:30:36 -0000 1.14
--- Spelling.pm 2 Nov 2006 12:20:53 -0000 1.15
***************
*** 19,23 ****
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
- # --
sub new {
my $Type = shift;
--- 19,22 ----
***************
*** 44,48 ****
return $Self;
}
! # --
sub Check {
my $Self = shift;
--- 43,47 ----
return $Self;
}
!
sub Check {
my $Self = shift;
***************
*** 82,88 ****
$Param{Text} =~ s/?/sS/g;
}
! # --
# get spell output
! # --
# write text to file and read it with (i|a)spell
# - can't use IPC::Open* because it's not working with mod_perl* :-/
--- 81,88 ----
$Param{Text} =~ s/?/sS/g;
}
! # ---------------------
# get spell output
! # ---------------------
!
# write text to file and read it with (i|a)spell
# - can't use IPC::Open* because it's not working with mod_perl* :-/
***************
*** 166,170 ****
}
}
! # --
sub Error {
my $Self = shift;
--- 166,170 ----
}
}
!
sub Error {
my $Self = shift;
***************
*** 172,175 ****
return $Self->{Error};
}
! # --
1;
--- 172,175 ----
return $Self->{Error};
}
!
1;
Index: StdResponse.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/StdResponse.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** StdResponse.pm 29 Aug 2006 17:30:36 -0000 1.14
--- StdResponse.pm 2 Nov 2006 12:20:53 -0000 1.15
***************
*** 18,22 ****
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
- # --
sub new {
my $Type = shift;
--- 18,21 ----
***************
*** 39,43 ****
return $Self;
}
! # --
sub StdResponseAdd {
my $Self = shift;
--- 38,42 ----
return $Self;
}
!
sub StdResponseAdd {
my $Self = shift;
***************
*** 79,83 ****
}
}
! # --
sub StdResponseGet {
my $Self = shift;
--- 78,82 ----
}
}
!
sub StdResponseGet {
my $Self = shift;
***************
*** 115,119 ****
}
}
! # --
sub StdResponseDelete {
my $Self = shift;
--- 114,118 ----
}
}
!
sub StdResponseDelete {
my $Self = shift;
***************
*** 136,140 ****
}
}
! # --
sub StdResponseUpdate {
my $Self = shift;
--- 135,139 ----
}
}
!
sub StdResponseUpdate {
my $Self = shift;
***************
*** 171,188 ****
}
}
! # --
sub StdResponseLookup {
my $Self = shift;
my %Param = @_;
! # --
# check needed stuff
- # --
if (!$Param{StdResponse} && !$Param{StdResponseID}) {
$Self->{LogObject}->Log(Priority => 'error', Message => "Got no StdResponse or StdResponseID!");
return;
}
! # --
# check if we ask the same request?
- # --
if ($Param{StdResponseID} && $Self->{"StdResponseLookup$Param{StdResponseID}"}) {
return $Self->{"StdResponseLookup$Param{StdResponseID}"};
--- 170,185 ----
}
}
!
sub StdResponseLookup {
my $Self = shift;
my %Param = @_;
!
# check needed stuff
if (!$Param{StdResponse} && !$Param{StdResponseID}) {
$Self->{LogObject}->Log(Priority => 'error', Message => "Got no StdResponse or StdResponseID!");
return;
}
!
# check if we ask the same request?
if ($Param{StdResponseID} && $Self->{"StdResponseLookup$Param{StdResponseID}"}) {
return $Self->{"StdResponseLookup$Param{StdResponseID}"};
***************
*** 215,219 ****
return $Self->{"StdResponse$Suffix"};
}
! # --
sub GetAllStdResponses {
my $Self = shift;
--- 212,216 ----
return $Self->{"StdResponse$Suffix"};
}
!
sub GetAllStdResponses {
my $Self = shift;
***************
*** 229,233 ****
);
}
- # --
1;
--- 226,229 ----
Index: Ticket.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/Ticket.pm,v
retrieving revision 1.227
retrieving revision 1.228
diff -C2 -r1.227 -r1.228
*** Ticket.pm 19 Oct 2006 20:15:45 -0000 1.227
--- Ticket.pm 2 Nov 2006 12:20:53 -0000 1.228
***************
*** 162,168 ****
$Self->{Organization} = $Self->{ConfigObject}->Get('Organization');
- # --
# load ticket number generator
- # --
my $GeneratorModule = $Self->{ConfigObject}->Get('Ticket::NumberGenerator')
|| 'Kernel::System::Ticket::Number::AutoIncrement';
--- 162,166 ----
***************
*** 172,178 ****
push(@ISA, $GeneratorModule);
- # --
# load ticket index generator
- # --
my $GeneratorIndexModule = $Self->{ConfigObject}->Get('Ticket::IndexModule')
|| 'Kernel::System::Ticket::IndexAccelerator::RuntimeDB';
--- 170,174 ----
***************
*** 182,188 ****
push(@ISA, $GeneratorIndexModule);
- # --
# load article storage module
- # --
my $StorageModule = $Self->{ConfigObject}->Get('Ticket::StorageModule')
|| 'Kernel::System::Ticket::ArticleStorageDB';
--- 178,182 ----
***************
*** 192,198 ****
push(@ISA, $StorageModule);
- # --
# load custom functions
- # --
my $CustomModule = $Self->{ConfigObject}->Get('Ticket::CustomModule');
if ($CustomModule) {
--- 186,190 ----
Index: XMLMaster.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/XMLMaster.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** XMLMaster.pm 29 Aug 2006 17:30:36 -0000 1.3
--- XMLMaster.pm 2 Nov 2006 12:20:54 -0000 1.4
***************
*** 21,25 ****
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
- # --
sub new {
my $Type = shift;
--- 21,24 ----
***************
*** 47,51 ****
return $Self;
}
! # --
sub Run {
my $Self = shift;
--- 46,50 ----
return $Self;
}
!
sub Run {
my $Self = shift;
***************
*** 88,91 ****
return 1;
}
! # --
1;
--- 87,90 ----
return 1;
}
!
1;
More information about the cvs-log
mailing list