[otrs-cvs] ITSMChangeManagement/Kernel/System/ITSMChange ITSMWorkOrder.pm, 1.132, 1.132.2.1

Comments:
Update of /home/cvs/ITSMChangeManagement/Kernel/System/ITSMChange
In directory lancelot:/tmp/cvs-serv27815/Kernel/System/ITSMChange

Modified Files:
      Tag: rel-3_1
	ITSMWorkOrder.pm 
Log Message:
Reverted last changes for bugfix# 8556. Will only be fixed in OTRS::ITSM 3.2.x.

Author: ub

Index: ITSMWorkOrder.pm
===================================================================
RCS file: /home/cvs/ITSMChangeManagement/Kernel/System/ITSMChange/ITSMWorkOrder.pm,v
retrieving revision 1.132
retrieving revision 1.132.2.1
diff -2 -u -d -r1.132 -r1.132.2.1
--- ITSMWorkOrder.pm	14 Nov 2012 15:32:47 -0000	1.132
+++ ITSMWorkOrder.pm	21 Nov 2012 17:58:05 -0000	1.132.2.1
@@ -147,8 +147,4 @@
     );
 
-    # get database type
-    $Self->{DBType} = $Self->{DBObject}->{'DB::Type'} || '';
-    $Self->{DBType} = lc $Self->{DBType};
-
     return $Self;
 }
@@ -1340,22 +1336,6 @@
         $Param{$StringParam} = $DBObject->Quote( $Param{$StringParam} );
 
-        # check if a CLOB field is used in oracle
-        # Fix/Workaround for ORA-00932: inconsistent datatypes: expected - got CLOB
-        my $UsingWildcardsForSpecialFields;
-        if (
-            $Self->{DBType} eq 'oracle'
-            && (
-                $StringParam    eq 'Instruction'
-                || $StringParam eq 'Report'
-                || $StringParam eq 'ChangeDescription'
-                || $StringParam eq 'ChangeJustification'
-            )
-            )
-        {
-            my $UsingWildcardsForSpecialFields = 1;
-        }
-
         # wildcards are used
-        if ( $Param{UsingWildcards} || $UsingWildcardsForSpecialFields ) {
+        if ( $Param{UsingWildcards} ) {
 
             # get like escape string needed for some databases (e.g. oracle)
@@ -2914,8 +2894,8 @@
     -----------------+-----------------
     WorkOrderTitle      |  250 characters
-    Instruction         | 1800000 characters
-    InstructionPlain    | 1800000 characters
-    Report              | 1800000 characters
-    ReportPlain         | 1800000 characters
+    Instruction         | 3800 characters
+    InstructionPlain    | 3800 characters
+    Report              | 3800 characters
+    ReportPlain         | 3800 characters
     WorkOrderFreeKeyXX  |  250 characters
     WorkOrderFreeTextXX |  250 characters
@@ -2986,8 +2966,8 @@
             )
         {
-            if ( length( $Param{$Argument} ) > 1800000 ) {
+            if ( length( $Param{$Argument} ) > 3800 ) {
                 $Self->{LogObject}->Log(
                     Priority => 'error',
-                    Message => "The parameter '$Argument' must be shorter than 1800000 characters!",
+                    Message  => "The parameter '$Argument' must be shorter than 3800 characters!",
                 );
                 return;
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log