mcq2h5p-FDBCK-debug.sh

#!/bin/bash
#===================================================================================
#
#	 FILE:	mcq2h5p-FDBCK.sh
#
#	USAGE:	mcq2h5p-FDBCK.sh controlFile.txt mcQuestionsFile.txt 
#
#		where 
#
#			controlFile.txt - is a plain-text file containing specifications for the 
#												new H5P and 
#			mcQuestions.txt - is a plain-text file containing the multiple-choice questions
#												(single-choice answer) written in H5P Question Set format
#
# DESCRIPTION:	Used for generating multiple-choice Question Sets H5P 
#
#      AUTHOR:	J.L.A. Uro (justineuro@gmail.com)
#     VERSION:	0.0.1
#     LICENSE:	Creative Commons Attribution 4.0 International License (CC-BY)
#     CREATED:	2023/04/05 16:52:37
#    REVISION:	2024/06/20 16:38:52
#==================================================================================

#####
# set color tags (not all needed)
####
BLACK='\e[1;30m'
RED='\e[1;31m'
GREEN='\e[1;32m'
YELLOW='\e[1;33m'
BLUE='\e[1;34m'
BOLD='\e[1;39m'
BLINK='\e[5m'
OBLINK='\e[25m'
NORM='\e[0m'

#####
# verify that both the controlFile.txt and mcQuestionsFile.txt files exist;
# if either is missing, ask for the filename(s))
#####
if [ -f $1 ]; then 
	controlFile=$1
else
	echo -e "\n${BOLD}ERROR: $1${NORM} does not exist. \nEnter the control filename (^C to quit):"
	read controlFile
fi
if [ -f $2 ]; then 
	questionsFile=$2
else
	echo -e "\n${BOLD}ERROR: $2${NORM} is does not exist. \nEnter the questions filename (^C to quit):"
	read questionsFile
fi

#####
# remove the old pretty versions: h5p-pr.json, content-pr.json, if they exist
#####
if [ -f "./h5p-pr.json" ]; then rm ./h5p-pr.json; fi
if [ -f "./content-pr.json" ]; then rm ./content-pr.json; fi
sleep 3s # pause for a while

#####
# * read the control parameters in the control.txt file; these are
# NAME_H5P: the filename of the new H5P, e.g., myMCQ-fb.h5p 
# TITLE: the title of the H5P, set to "THIS IS THE TITLE" as default
# AUTHOR: the name in the author field, set to "I am The Author" as default
# LICENSE: the license, set to ODC PDDL as default
# INTRODUCTION: some blurb about the H5P
# PASS_PERCENTAGE: set to 50% as default
# DISABLE_BACKWARDS_NAVIGATION: set to false as default
# RANDOM_QUESTIONS: set to true as default
# POOL_SIZE: set to five (5) as default as there are 10 questions total
# N_QUESTIONS: there are 3 questions in the myMCQ-fb.txt file
#
# * print to stdout the value of these parameters
#
#####
echo "The following control parameters were set for the H5P to be made:"
n_lines=1
while read line
do 
	echo -E $line
	export "$line"
	n_lines=`expr $nlines_n + 1`
done < $controlFile

#####
# create h5p.json based on the values of the control parameters read for
# TITLE, AUTHOR, and LICENSE
#####
cat > h5p-pr.json << EOT
{
  "title": $TITLE,
  "language": "und",
  "mainLibrary": "H5P.QuestionSet",
  "embedTypes": [
    "div"
  ],
  "authors": [
    {
      "name": $AUTHOR,
      "role": "Author"
    }
  ],
  "license": $LICENSE,
  "defaultLanguage": "en",
  "preloadedDependencies": [
    {
      "machineName": "H5P.Image",
      "majorVersion": "1",
      "minorVersion": "1"
    },
    {
      "machineName": "H5P.MultiChoice",
      "majorVersion": "1",
      "minorVersion": "16"
    },
    {
      "machineName": "FontAwesome",
      "majorVersion": "4",
      "minorVersion": "5"
    },
    {
      "machineName": "H5P.JoubelUI",
      "majorVersion": "1",
      "minorVersion": "3"
    },
    {
      "machineName": "H5P.Transition",
      "majorVersion": "1",
      "minorVersion": "0"
    },
    {
      "machineName": "H5P.FontIcons",
      "majorVersion": "1",
      "minorVersion": "0"
    },
    {
      "machineName": "H5P.Question",
      "majorVersion": "1",
      "minorVersion": "5"
    },
    {
      "machineName": "H5P.DragQuestion",
      "majorVersion": "1",
      "minorVersion": "14"
    },
    {
      "machineName": "jQuery.ui",
      "majorVersion": "1",
      "minorVersion": "10"
    },
    {
      "machineName": "H5P.QuestionSet",
      "majorVersion": "1",
      "minorVersion": "20"
    },
    {
      "machineName": "H5P.Video",
      "majorVersion": "1",
      "minorVersion": "6"
    },
    {
      "machineName": "H5P.MathDisplay",
      "majorVersion": "1",
      "minorVersion": "0"
    }
	]
}
EOT

#####
# create the top part of the content-pr.json; use the values of 
# INTRODUCTION, PASS_PERCENTAGE, DISABLE_BACKWARDS_NAVIGATION, 
# RANDOM_QUESTIONS, and POOL_SIZE
#####
cat >> content-pr.json << EOT
{
  "introPage": {
    "showIntroPage": true,
    "startButtonText": "Start Quiz",
    "title": $TITLE,
    "introduction": "<p>${INTRODUCTION:1:-1}<br>\n&nbsp;</p>\n"
  },
  "progressType": "dots",
  "passPercentage": $PASS_PERCENTAGE,
  "disableBackwardsNavigation": $DISABLE_BACKWARDS_NAVIGATION,
  "randomQuestions": $RANDOM_QUESTIONS,
  "endGame": {
    "showResultPage": true,
    "showSolutionButton": true,
    "showRetryButton": true,
    "noResultMessage": "Finished",
    "message": "Your result:",
    "scoreBarLabel": "You got @finals out of @totals points",
    "overallFeedback": [
      {
        "from": 0,
        "to": 100
      }
    ],
    "solutionButtonText": "Show solution",
    "retryButtonText": "Retry",
    "finishButtonText": "Finish",
    "submitButtonText": "Submit",
    "showAnimations": false,
    "skippable": false,
    "skipButtonText": "Skip video"
  },
  "override": {
    "checkButton": true
  },
  "texts": {
    "prevButton": "Previous question",
    "nextButton": "Next question",
    "finishButton": "Finish",
    "submitButton": "Submit",
    "textualProgress": "Question: @current of @total questions",
    "jumpToQuestion": "Question %d of %total",
    "questionLabel": "Question",
    "readSpeakerProgress": "Question @current of @total",
    "unansweredText": "Unanswered",
    "answeredText": "Answered",
    "currentQuestionText": "Current question",
    "navigationLabel": "Questions"
  },
  "poolSize": $POOL_SIZE,
  "questions": [
EOT


i=1 # line number from input.txt
q=0 # indicator if the question part in an item has been processed
n=1 # counter for pool size
declare -a arrline
arrline=()
line=""
rm 1.txt
while read line; do
	if [ "${line:0:1}" == "*" ]; then
		line="K*reKt"${line/'*'/}
		echo "newLine: $line" >> ./1.txt
	fi
	
	#echo $i
	echo -e "\nn = " $n 
	echo -e "Q=$n, i=$i, line = ${line}" >> ./1.txt
	# if this is a question line, write question
	if [ "${line}" != "" -a "${q}" != "0" ]; then 
		# process the choice, tips, feedbacks 
		echo "line: $line" >> ./1.txt
		arrline=(`echo -E $line`)
		echo "line $i: $line; arrline= ${arrline[@]}" >> ./1.txt
		echo ${arrline[@]}
		echo ${arrline[@]} > ./0.txt
		cat ./0.txt
		line=`awk 'BEGIN { FS=":" } { print $1 }' ./0.txt`
		echo "line= $line"
		tip=`awk 'BEGIN { FS=":" } { print $2 }' ./0.txt`
		echo "tip= $tip"
		fdb1=`awk 'BEGIN { FS=":" } { print $3 }' ./0.txt`
		echo "fdb1= $fdb1"
		fdb2=`awk 'BEGIN { FS=":" } { print $4 }' ./0.txt`
		echo "fdb2= $fdb2"
		cat 0.txt >> 1.txt
		rm ./0.txt
	fi
	if [ "$q" == "0" ]; then 
		#echo -E "$line"
		#echo "JSON for question part being written"
		echo "This Q-line: ${line}"
		echo -e "This Q-line: ${line}"	>> ./1.txt
		arrline=(`echo -E $line`)
		line=`unset arrline[0]; echo -E ${arrline[*]}`
		echo -e "This is Q-arrline: ${arrline[*]}; This is Q-line: $line" >> ./1.txt
		cat >> content-pr.json << EOT
	{
		"library": "H5P.MultiChoice 1.16",
		"params": {
			"question": "$line",
			"answers": [
EOT
		q=`expr $q + 1` # indicator q set to 1
	elif [ "${line:0:1}" == "" ]; then  # blank line or end of question
		#echo -E "$line"
		#echo  "JSON for end of question, after last choice has been processed"
		cat >> content-pr.json << EOT
					}
				],
				"behaviour": {
					"enableRetry": true,
					"enableSolutionsButton": true,
					"enableCheckButton": true,
					"type": "auto",
					"singlePoint": false,
					"randomAnswers": true,
					"showSolutionsRequiresInput": true,
					"confirmCheckDialog": false,
					"confirmRetryDialog": false,
					"autoCheck": false,
					"passPercentage": 100,
					"showScorePoints": true
				},
				"media": {
					"disableImageZooming": false
				},
				"overallFeedback": [
					{
						"from": 0,
						"to": 100
					}
				],
				"UI": {
					"checkAnswerButton": "Check",
					"showSolutionButton": "Show solution",
					"tryAgainButton": "Retry",
					"tipsLabel": "Show tip",
					"scoreBarLabel": "You got :num out of :total points",
					"tipAvailable": "Tip available",
					"feedbackAvailable": "Feedback available",
					"readFeedback": "Read feedback",
					"wrongAnswer": "Wrong answer",
					"correctAnswer": "Correct answer",
					"shouldCheck": "Should have been checked",
					"shouldNotCheck": "Should not have been checked",
					"noInput": "Please answer before viewing the solution",
					"a11yCheck": "Check the answers. The responses will be marked as correct, incorrect, or unanswered.",
					"a11yShowSolution": "Show the solution. The task will be marked with its correct solution.",
					"a11yRetry": "Retry the task. Reset all responses and start the task over again."
				},
				"confirmCheck": {
					"header": "Finish ?",
					"body": "Are you sure you wish to finish ?",
					"cancelLabel": "Cancel",
					"confirmLabel": "Finish"
				},
				"confirmRetry": {
					"header": "Retry ?",
					"body": "Are you sure you wish to retry ?",
					"cancelLabel": "Cancel",
					"confirmLabel": "Confirm"
				}
			},
			"subContentId": "`uuidgen`",
			"metadata": {
				"contentType": "Multiple Choice",
				"license": "U",
				"title": "Untitled Multiple Choice"
			}
EOT
		# if this is NOT the last question in the pool
		if [ "$n" -lt "$N_QUESTIONS" ]; then
			cat >> content-pr.json << EOT
		},
EOT
		else # this is for the last choice for the last question in the pool
			cat >> content-pr.json << EOT
		}
EOT
		fi
			q=0 # set q to zero for next question line to be written
			n=`expr $n + 1` # increase counter for pool size
			echo -e "\n" >> ./1.txt
	# if this is a correct answer choice ...
	elif [ "${line:0:6}" == "K*reKt" ]; then 
		echo "This is Rt-Ans: ${line/'K*reKt'/}" >> ./1.txt
		#echo "write JSON for a correct answer choice"
		#if this is the first of the given choices 
		if [ "$q" == "1" ]; then
			cat >> content-pr.json << EOT
					{
						"text": "${line/'K*reKt'/}",
						"correct": true,
EOT
			if [ "$tip" == "" -a "$fdb1" == "" -a "$fdb2" == "" ]; then
				cat >> content-pr.json << EOT
						"tipsAndFeedback": {}
EOT
			else
				cat >> content-pr.json << EOT
            "tipsAndFeedback": {
              "tip": "$tip",
              "chosenFeedback": "$fdb1",
              "notChosenFeedback": "$fdb2"
            }
EOT
			fi
			q=`expr $q + 1`
		else # if (q=2) this is NOT the first of the given choices
			cat >> content-pr.json << EOT
					},
					{
						"text": "${line/'K*reKt'/}",
						"correct": true,
EOT
			if [ "$tip" == "" -a "$fdb1" == "" -a "$fdb2" == "" ]; then
				cat >> content-pr.json << EOT
						"tipsAndFeedback": {}
EOT
			else
				cat >> content-pr.json << EOT
            "tipsAndFeedback": {
              "tip": "$tip",
              "chosenFeedback": "$fdb1",
              "notChosenFeedback": "$fdb2"
            }
EOT
			fi
		fi
	else # this must be a wrong answer line
		#echo "${line:0:1}"
		#echo "write JSON for wrong answer line"
		#if this is the first of the given choices 
		if [ "$q" == "1" ]; then 
			cat >> content-pr.json << EOT
					{
						"text": "${line}",
						"correct": false,
EOT
			if [ "$tip" == "" -a "$fdb1" == "" -a "$fdb2" == "" ]; then
				cat >> content-pr.json << EOT
						"tipsAndFeedback": {}
EOT
			else
				cat >> content-pr.json << EOT
            "tipsAndFeedback": {
              "tip": "$tip",
              "chosenFeedback": "$fdb1",
              "notChosenFeedback": "$fdb2"
            }
EOT
			fi
			q=`expr $q + 1`
		else # if (q=2) this is NOT the first of the given choices
			cat >> content-pr.json << EOT
					},
					{
						"text": "${line}",
						"correct": false,
EOT
			if [ "$tip" == "" -a "$fdb1" == "" -a "$fdb2" == "" ]; then
				cat >> content-pr.json << EOT
						"tipsAndFeedback": {}
EOT
			else
				cat >> content-pr.json << EOT
            "tipsAndFeedback": {
              "tip": "$tip",
              "chosenFeedback": "$fdb1",
              "notChosenFeedback": "$fdb2"
            }
EOT
			fi
		fi
	fi
	i=`expr $i + 1`
done < $questionsFile
cat >> content-pr.json << EOT
	]
}
EOT

#####
# delete old h5p.json, content.json, if they exist in this directory
# then replace with the minified JSON files
#####
if [ -f "./h5p.json" ]; then rm ./h5p.json; fi
if [ -f "./content.json" ]; then rm ./content.json; fi
echo -e "\nMinifying the JSON files ...\n"
sleep 3s # pause for a while
script -q -c "jq -c -M < ./h5p-pr.json"; sed -n '2p' typescript | sed 's/.$//' > h5p.json
script -q -c "jq -c -M < ./content-pr.json"; sed -n '2p' typescript | sed 's/.$//' > content.json
rm typescript

# get folder name for new H5P and delete existing one, if it exists
NAME_H5P_DIR=`echo -e ${NAME_H5P/.h5p/}`
if [ -z "./$NAME_H5P_DIR" ]; then rm -fr ./$NAME_H5P_DIR; fi

# copy the Question Set-616 h5p_libs to $NAME_H5P_DIR (folder of new H5P)
cp -a ./h5p-mcq-616_libs/* ./$NAME_H5P_DIR
chmod -R 0755 ./$NAME_H5P_DIR
# move the newly-created JSON files to $NAME_H5P_DIR
mv ./h5p-pr.json ./$NAME_H5P_DIR
mv ./h5p.json ./$NAME_H5P_DIR
mv ./content-pr.json ./$NAME_H5P_DIR/content
mv ./content.json ./$NAME_H5P_DIR/content
# remove the old H5P, if it exists
if [ -e "$NAME_H5P" ]; then rm ./$NAME_H5P; fi

# create the new H5P
cd $NAME_H5P_DIR
zip -r -D -X ../$NAME_H5P * >/dev/null
cd $OLDPWD
sleep 2s
echo -e "\nThe h5p.json file was created in this directory: ${BOLD}${YELLOW}./$NAME_H5P_DIR/h5p.json${NORM}"
echo -e "The content.json that was created is in: ${BOLD}${YELLOW}./$NAME_H5P_DIR/content/content.json${NORM}"
echo -e "The ${BOLD}${BLINK}newly-created${NORM} multiple-choice H5P is in this directory: ${BOLD}${YELLOW}./$NAME_H5P${NORM}\n"
###
##
#