[otrs] Another patch from CVS

4 Jun 2002

Hmm, I dont know if this was a mistake or it was intentional.
In some places "QueueID" was written as "OueueID" O instead of Q

best regards.

-- 
Atif Ghaffar
---------------------------.
           +41 78 845 31 64 ¦ tel
     aghaffar@developer.ch  ¦ email
     http://atifghaffar.com ¦ www
                    8206786 ¦ icq


Index: System/Queue.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/Queue.pm,v
retrieving revision 1.4
diff -u -3 -p -u -r1.4 Queue.pm

--- System/Queue.pm	2002/05/26 10:12:31	1.4
+++ System/Queue.pm	2002/06/04 04:56:25
@@ -25,7 +25,7 @@ sub new {
     my $Self = {}; # allocate new hash for object
     bless ($Self, $Type);
 
-    $Self->{OueueID} = $Param{QueueID} || ''; #die "Got no QueueID!";
+    $Self->{QueueID} = $Param{QueueID} || ''; #die "Got no QueueID!";
     $Self->{DBObject} = $Param{DBObject} || die "Got no DBObject!";
     return $Self;
 }
@@ -36,7 +36,7 @@ sub GetSystemAddress {
     my %Adresss;
     my $SQL = "SELECT sa.value0, sa.value1 FROM system_address as sa, queue as sq " .
 	" WHERE " .
-	" sq.id = $Self->{OueueID} " .
+	" sq.id = $Self->{QueueID} " .
 	" and " .
 	" sa.id = sq.system_address_id";
     $Self->{DBObject}->Prepare(SQL => $SQL);
@@ -53,7 +53,7 @@ sub GetSalutation {
     my $String = '';
     my $SQL = "SELECT text FROM salutation as sa, queue as sq " .
         " WHERE " .
-        " sq.id = $Self->{OueueID} " .
+        " sq.id = $Self->{QueueID} " .
         " and " .
         " sq.salutation_id = sa.id";
     $Self->{DBObject}->Prepare(SQL => $SQL);
@@ -69,7 +69,7 @@ sub GetSignature {
     my $String = '';
     my $SQL = "SELECT text FROM signature as si, queue as sq " .
         " WHERE " .
-        " sq.id = $Self->{OueueID} " .
+        " sq.id = $Self->{QueueID} " .
         " and " .
         " sq.signature_id = si.id";
     $Self->{DBObject}->Prepare(SQL => $SQL);
Index: System/PostMaster/AutoResponse.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/PostMaster/AutoResponse.pm,v
retrieving revision 1.2
diff -u -3 -p -u -r1.2 AutoResponse.pm
--- System/PostMaster/AutoResponse.pm	2001/12/30 00:42:58	1.2
+++ System/PostMaster/AutoResponse.pm	2002/06/04 04:56:25
@@ -33,7 +33,7 @@ sub new {
 sub GetResponseData {
     my $Self = shift;
     my %Param = @_;
-    my $QueueID = $Param{OueueID};
+    my $QueueID = $Param{QueueID};
     my $Type = $Param{Type};
     my %Data;
 
Index: System/PostMaster/FollowUp.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/PostMaster/FollowUp.pm,v
retrieving revision 1.10
diff -u -3 -p -u -r1.10 FollowUp.pm
--- System/PostMaster/FollowUp.pm	2002/05/26 10:14:17	1.10
+++ System/PostMaster/FollowUp.pm	2002/06/04 04:56:26
@@ -164,7 +164,7 @@ sub Run {
         DBObject => $DBObject,
     );
     my %Data = $AutoResponse->GetResponseData(
-        OueueID => $QueueID,
+        QueueID => $QueueID,
         Type => $AutoResponseType,
     );
     if ($Data{Text} && $Data{Realname} && $Data{Address} && !$GetParam{'X-OTRS-Loop'}) {
Index: System/PostMaster/NewTicket.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/PostMaster/NewTicket.pm,v
retrieving revision 1.9
diff -u -3 -p -u -r1.9 NewTicket.pm
--- System/PostMaster/NewTicket.pm	2002/05/26 22:52:47	1.9
+++ System/PostMaster/NewTicket.pm	2002/06/04 04:56:26
@@ -175,7 +175,7 @@ sub Run {
         DBObject => $DBObject,
     );
     my %Data = $AutoResponse->GetResponseData(
-        OueueID => $QueueID,
+        QueueID => $QueueID,
         Type => $AutoResponseType,
     );
     if ($Data{Text} && $Data{Realname} && $Data{Address} && !$GetParam{'X-OTRS-Loop'}) {

    