[otrs-cvs] Survey/Kernel/System Survey.pm,1.71,1.72

Comments:
Update of /home/cvs/Survey/Kernel/System
In directory lancelot:/tmp/cvs-serv22813/Kernel/System

Modified Files:
	Survey.pm 
Log Message:
Removed codemarkers.

Author: jh

Index: Survey.pm
===================================================================
RCS file: /home/cvs/Survey/Kernel/System/Survey.pm,v
retrieving revision 1.71
retrieving revision 1.72
diff -2 -u -d -r1.71 -r1.72
--- Survey.pm	21 Nov 2012 08:33:25 -0000	1.71
+++ Survey.pm	21 Nov 2012 10:59:54 -0000	1.72
@@ -590,11 +590,4 @@
 
     # get all questions of a survey
-    # ---
-    # AnswerRequired
-    # ---
-    #    $Self->{DBObject}->Prepare(
-    #        SQL => "SELECT id, survey_id, question, question_type "
-    #            . " FROM survey_question WHERE survey_id = $Param{SurveyID} ORDER BY position",
-    #    );
     $Self->{DBObject}->Prepare(
         SQL => "SELECT id, survey_id, question, question_type, answer_required"
@@ -602,6 +595,4 @@
     );
 
-    # ---
-
     # fetch the result
     my @List;
@@ -634,9 +625,5 @@
         SurveyID => 10,
         Question => 'The Question',
-# ---
-# AnswerRequired
-# ---
         AnswerRequired => 1, # or 0
-# ---
         Type => 'Radio',
     );
@@ -669,18 +656,4 @@
 
     # insert a new question
-    # ---
-    # AnswerRequired
-    # ---
-    #    return $Self->{DBObject}->Do(
-    #        SQL => "INSERT INTO survey_question (survey_id, question, question_type, "
-    #            . "position, create_time, create_by, change_time, change_by) VALUES ("
-    #            . "$Param{SurveyID}, "
-    #            . "'$Param{Question}', "
-    #            . "'$Param{Type}', 255, "
-    #            . "current_timestamp, "
-    #            . "$Param{UserID}, "
-    #            . "current_timestamp, "
-    #            . "$Param{UserID})",
-    #    );
     # if we didn't get an Answer Parameter (e.g. just undefined)
     # or it was something else than 0 or 1
@@ -706,6 +679,4 @@
             . "$Param{UserID})",
     );
-
-    # ---
 }
 
@@ -982,13 +953,4 @@
 
     # get question
-    # ---
-    # AnswerRequired
-    # ---
-    #    $Self->{DBObject}->Prepare(
-    #        SQL => "SELECT id, survey_id, question, question_type, position, "
-    #            . "create_time, create_by, change_time, change_by "
-    #            . "FROM survey_question WHERE id = $Param{QuestionID}",
-    #        Limit => 1,
-    #    );
     $Self->{DBObject}->Prepare(
         SQL => "SELECT id, survey_id, question, question_type, position, answer_required, "
@@ -998,23 +960,7 @@
     );
 
-    # ---
-
     # fetch the result
     my %Data;
 
-    # ---
-    # AnswerRequired
-    # ---
-    #    while ( my @Row = $Self->{DBObject}->FetchrowArray() ) {
-    #        $Data{QuestionID} = $Row[0];
-    #        $Data{SurveyID}   = $Row[1];
-    #        $Data{Question}   = $Row[2];
-    #        $Data{Type}       = $Row[3];
-    #        $Data{Position}   = $Row[4];
-    #        $Data{CreateTime} = $Row[5];
-    #        $Data{CreateBy}   = $Row[6];
-    #        $Data{ChangeTime} = $Row[7];
-    #        $Data{ChangeBy}   = $Row[8];
-    #    }
     while ( my @Row = $Self->{DBObject}->FetchrowArray() ) {
         $Data{QuestionID}     = $Row[0];
@@ -1030,6 +976,4 @@
     }
 
-    # ---
-
     return %Data;
 }
@@ -1043,9 +987,5 @@
         QuestionID => 4,
         SurveyID => 3,
-# ---
-# AnswerRequired
-# ---
         AnswerRequired => '1', # or '0'
-# ---
         Question => 'The Question',
     );
@@ -1067,7 +1007,4 @@
     }
 
-    # ---
-    # AnswerRequired
-    # ---
     my $AnswerRequired = 1;
     if (
@@ -1079,6 +1016,4 @@
     }
 
-    # ---
-
     # quote
     for my $Argument (qw(Question)) {
@@ -1093,11 +1028,5 @@
         SQL => "UPDATE survey_question SET "
             . "question = '$Param{Question}', "
-
-            # ---
-            # AnswerRequired
-            # ---
             . "answer_required = $AnswerRequired, "
-
-            # ---
             . "change_time = current_timestamp, "
             . "change_by = $Param{UserID} "
---------------------------------------------------------------------
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