[otrs-cvs] Survey/Kernel/Modules AgentSurveyEditQuestions.pm, 1.12, 1.13

Comments:
Update of /home/cvs/Survey/Kernel/Modules
In directory lancelot:/tmp/cvs-serv14495/Kernel/Modules

Modified Files:
	AgentSurveyEditQuestions.pm 
Log Message:
Removed codemarker.

Author: jh

Index: AgentSurveyEditQuestions.pm
===================================================================
RCS file: /home/cvs/Survey/Kernel/Modules/AgentSurveyEditQuestions.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -2 -u -d -r1.12 -r1.13
--- AgentSurveyEditQuestions.pm	20 Nov 2012 19:11:59 -0000	1.12
+++ AgentSurveyEditQuestions.pm	21 Nov 2012 12:02:09 -0000	1.13
@@ -54,7 +54,4 @@
         my $Type     = $Self->{ParamObject}->GetParam( Param => "Type" );
 
-        # ---
-        # AnswerRequired
-        # ---
         my $AnswerRequired = $Self->{ParamObject}->GetParam( Param => 'AnswerRequired' );
         if ( $AnswerRequired && $AnswerRequired eq 'No' ) {
@@ -65,6 +62,4 @@
         }
 
-        # ---
-
         # check if survey exists
         if (
@@ -79,15 +74,9 @@
         if ($Question) {
             $Self->{SurveyObject}->QuestionAdd(
-                SurveyID => $SurveyID,
-                Question => $Question,
-                Type     => $Type,
-
-                # ---
-                # AnswerRequired
-                # ---
+                SurveyID       => $SurveyID,
+                Question       => $Question,
+                Type           => $Type,
                 AnswerRequired => $AnswerRequired,
-
-                # ---
-                UserID => $Self->{UserID},
+                UserID         => $Self->{UserID},
             );
             $Self->{SurveyObject}->QuestionSort( SurveyID => $SurveyID );
@@ -227,7 +216,4 @@
         my $Question   = $Self->{ParamObject}->GetParam( Param => 'Question' );
 
-        # ---
-        # AnswerRequired
-        # ---
         my $AnswerRequired = $Self->{ParamObject}->GetParam( Param => 'AnswerRequired' );
         if ( $AnswerRequired && $AnswerRequired eq 'No' ) {
@@ -238,6 +224,4 @@
         }
 
-        # ---
-
         # check if survey and question exists
         if (
@@ -256,15 +240,9 @@
         if ($Question) {
             $Self->{SurveyObject}->QuestionSave(
-                QuestionID => $QuestionID,
-                SurveyID   => $SurveyID,
-                Question   => $Question,
-
-                # ---
-                # AnswerRequired
-                # ---
+                QuestionID     => $QuestionID,
+                SurveyID       => $SurveyID,
+                Question       => $Question,
                 AnswerRequired => $AnswerRequired,
-
-                # ---
-                UserID => $Self->{UserID},
+                UserID         => $Self->{UserID},
             );
 
@@ -582,7 +560,4 @@
         );
 
-        # ---
-        # AnswerRequired
-        # ---
         $ArrayHashRef = [
             {
@@ -605,6 +580,4 @@
         );
 
-        # ---
-
         my $QuestionErrorClass = '';
         if ( $ServerError{Question} ) {
@@ -615,14 +588,8 @@
             Name => 'SurveyAddQuestion',
             Data => {
-                SurveyID      => $Param{SurveyID},
-                SelectionType => $SelectionType,
-
-                # ---
-                # AnswerRequired
-                # ---
+                SurveyID             => $Param{SurveyID},
+                SelectionType        => $SelectionType,
                 AnswerRequiredSelect => $AnswerRequiredSelect,
-
-                # ---
-                QuestionErrorClass => $QuestionErrorClass,
+                QuestionErrorClass   => $QuestionErrorClass,
             },
         );
@@ -738,7 +705,4 @@
     my %Question = $Self->{SurveyObject}->QuestionGet( QuestionID => $Param{QuestionID} );
 
-    # ---
-    # AnswerRequired
-    # ---
     my $ArrayHashRef = [
         {
@@ -767,17 +731,9 @@
     );
 
-    # ---
-
     # print the main body
     $Self->{LayoutObject}->Block(
         Name => 'QuestionEdit',
         Data => {
-
-            # ---
-            # AnswerRequired
-            # ---
             AnswerRequiredSelect => $AnswerRequiredSelect,
-
-            # ---
             %Question,
             %ServerError,
---------------------------------------------------------------------
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