". "wwwroot/course/view.php?id=$course->id\">$course->shortname ->". "wwwroot/mod/workshop/index.php?id=$course->id\">$strworkshops ->". "wwwroot/mod/workshop/view.php?a=$workshop->id\">$workshop->name

". "wwwroot/course/view.php?id=$course->id\">$course->shortname ->". "wwwroot/mod/workshop/index.php?id=$course->id\">$strworkshops ->". "wwwroot/mod/workshop/view.php?a=$workshop->id\">$workshop->name

". "wwwroot/course/view.php?id=$course->id\">$course->shortname ->". "wwwroot/mod/workshop/index.php?id=$course->id\">$strworkshops ->". "wwwroot/mod/workshop/view.php?a=$workshop->id\">$workshop->name

$date - $submission->firstname $submission->lastname
"; echo "\"wwwroot/mod/workshop/$submission->url\">"; echo "$submission->name"; echo "\"

$date - $assessment->firstname $assessment->lastname
"; echo "\"wwwroot/mod/workshop/$assessment->url\">"; echo "$assessment->name"; echo "\"

$date - $grading->firstname $grading->lastname
"; echo "\"wwwroot/mod/workshop/$grading->url\">"; echo "$grading->name"; echo "\"

";
			print_r($nassessments);
			
			reset($nassessments);
			$comment = "";
			foreach ($nassessments as $submissionid => $n) { // actually only the first one is displayed...
				$comment = '';
				$submission = get_record("workshop_submissions", "id", $submissionid);
				// ... provided the user has NOT already assessed that submission
				if (!$assessment = get_record_select("workshop_assessments", "submissionid = $submissionid
						AND userid = $user->id")) {
					$action = "id&sid=$submission->id\">".
						get_string("assess", "workshop")."";
					$table->data[] = array(workshop_print_submission_title($workshop, $submission), $action, $comment);
					break;
					}
				}
			}
		}
	// now list user's assessments (but only list those which come from teacher submissions)
	if ($assessments = workshop_get_user_assessments($workshop, $user)) {
		$timenow = time();
		foreach ($assessments as $assessment) {
			if (!$submission = get_record("workshop_submissions", "id", $assessment->submissionid)) {
				error ("workshop_list_teacher_submissions: unable to get submission");
				}
			// submission from a teacher?
			if (isteacher($workshop->course, $submission->userid)) {
				$comment = '';
				// user assessment has three states: still fresh; graded but not passed; and static (may or may not be graded 
				if (($timenow - $assessment->timecreated) < $CFG->maxeditingtime) { // there's still time left to edit...
					$action = "id&sid=$submission->id\">".
						get_string("edit", "workshop")."";
					}
				// has teacher graded user's assessment and it has not passed?
				elseif ($assessment->timegraded and (($timenow - $assessment->timegraded) > $CFG->maxeditingtime) and 
						($assessment->gradinggrade < PASSGRADE)) { // allow the user to have another go 
					$action = "id&sid=$submission->id\">"
						.get_string("reassess", "workshop")."";
					}
				else { 
					$action = "id&aid=$assessment->id\">"
						.get_string("view", "workshop")."";
					}
				// see if teacher has graded assessment
				if ($assessment->timegraded and (($timenow - $assessment->timegraded) > $CFG->maxeditingtime)) {
					$comment .= get_string("gradedbyteacher", "workshop", $course->teacher);
					$comment .= " (".number_format($assessment->gradinggrade*100/COMMENTSCALE,0)."%)";
					}
				$table->data[] = array(workshop_print_submission_title($workshop, $submission), $action, $comment);
				}
			}
		}
	print_table($table);
	}


function workshop_list_unassessed_student_submissions($workshop, $user) {
	// list the student submissions not assessed by this user
	global $CFG;
	
	$table->head = array (get_string("title", "workshop"), get_string("action", "workshop"), get_string("comment", "workshop"));
	$table->align = array ("LEFT", "LEFT", "LEFT");
	$table->size = array ("*", "*", "*");
	$table->cellpadding = 2;
	$table->cellspacing = 0;

	if ($submissions = workshop_get_student_submissions($workshop)) {
		foreach ($submissions as $submission) {
			$comment = "";
			// see if user already graded this assessment
			if ($assessment = get_record_select("workshop_assessments", "submissionid = $submission->id
					AND userid = $user->id")) {
				$timenow = time();
				if (($timenow - $assessment->timecreated < $CFG->maxeditingtime)) {
					// last chance salon
					$action = "id&sid=$submission->id\">".
						get_string("edit", "workshop")."";
					$table->data[] = array(workshop_print_submission_title($workshop, $submission), $action, $comment);
					}
				}
			else { // no assessment
				$action = "id&sid=$submission->id\">".
					get_string("assess", "workshop")."";
				$table->data[] = array(workshop_print_submission_title($workshop, $submission), $action, $comment);
				}
			}
		if (isset($table->data)) {
			print_table($table);
			}
		}
	}


function workshop_list_unassessed_teacher_submissions($workshop, $user) {
	// list the teacher submissions not assessed by this user
	global $CFG;
	
	$table->head = array (get_string("title", "workshop"), get_string("action", "workshop"), get_string("comment", "workshop"));
	$table->align = array ("LEFT", "LEFT", "LEFT");
	$table->size = array ("*", "*", "*");
	$table->cellpadding = 2;
	$table->cellspacing = 0;

	if ($submissions = workshop_get_teacher_submissions($workshop)) {
		foreach ($submissions as $submission) {
			$comment = "";
			// see if user already graded this assessment
			if ($assessment = get_record_select("workshop_assessments", "submissionid = $submission->id
					AND userid = $user->id")) {
				$timenow = time();
				if (($timenow - $assessment->timecreated < $CFG->maxeditingtime)) {
					// last chance salon
					$action = "id&sid=$submission->id\">".
						get_string("edit", "workshop")."";
					$table->data[] = array(workshop_print_submission_title($workshop, $submission), $action, $comment);
					}
				}
			else { // no assessment
				$action = "id&sid=$submission->id\">".
					get_string("assess", "workshop")."";
				$table->data[] = array(workshop_print_submission_title($workshop, $submission), $action, $comment);
				}
			}
		if (isset($table->data)) {
			print_table($table);
			}
		}
	}


function workshop_list_ungraded_assessments($workshop, $stype) {
	global $CFG;
	
	// lists all the assessments of student submissions for grading by teacher
	$table->head = array (get_string("title", "workshop"), get_string("name"),get_string("timeassessed", "workshop"), get_string("action", "workshop"));
	$table->align = array ("LEFT", "LEFT", "LEFT", "LEFT");
	$table->size = array ("*", "*", "*", "*");
	$table->cellpadding = 2;
	$table->cellspacing = 0;
	$timenow = time();
	
	switch ($stype) {
		case "student" :
			$assessments = workshop_get_ungraded_assessments_student($workshop);
			break;
		case "teacher" :
			$assessments = workshop_get_ungraded_assessments_teacher($workshop);
			break;
		}
	if ($assessments) {
		foreach ($assessments as $assessment) {
			if (!isteacher($workshop->course, $assessment->userid)) { // don't let teacher grade their own assessments
				if (($timenow - $assessment->timegraded) < $CFG->maxeditingtime) {
					$action = "id&stype=$stype&aid=$assessment->id\">".
						get_string("edit", "workshop")."";
					}
				else {
					$action = "id&stype=$stype&aid=$assessment->id\">".
						get_string("grade", "workshop")."";
					}
				$submission = get_record("workshop_submissions", "id", $assessment->submissionid);
				$user = get_record("user", "id", $assessment->userid);
				$table->data[] = array(workshop_print_submission_title($workshop, $submission), 
					$user->firstname." ".$user->lastname, userdate($assessment->timecreated), $action);
				}
			}
		if (isset($table->data)) {
			print_table($table);
			}
		}
	}
	

function workshop_list_user_submissions($workshop, $user) {
	$table->head = array (get_string("title", "workshop"),  get_string("submitted", "assignment"), get_string("assessments", "workshop"));
	$table->align = array ("LEFT", "LEFT", "LEFT");
	$table->size = array ("*", "*", "*");
	$table->cellpadding = 2;
	$table->cellspacing = 0;

	if ($submissions = workshop_get_user_submissions($workshop, $user)) {
		foreach ($submissions as $submission) {
			$n = count_records("workshop_assessments", "submissionid", $submission->id);
			$table->data[] = array(workshop_print_submission_title($workshop, $submission), userdate($submission->timecreated), $n);
			}
		print_table($table);
		}
	}


function workshop_print_assessment($workshop, $assessment = false, $allowchanges = false, 
	$showcommentlinks = false) {
	// $allowchanges added 14/7/03
	global $CFG, $THEME, $USER, $WORKSHOP_SCALES, $WORKSHOP_EWEIGHTS;
	if (! $course = get_record("course", "id", $workshop->course)) {
		error("Course is misconfigured");
	}
	if (! $cm = get_coursemodule_from_instance("workshop", $workshop->id, $course->id)) {
		error("Course Module ID was incorrect");
	}
	
	$timenow = time();

	// reset the internal flags
	if ($assessment) {
		$showgrades = false;
		}
	else { // if no assessment, i.e. specimen grade form always show grading scales
		$showgrades = true;
		}
	
	if ($assessment) {
		// set the internal flag is necessary
		if ($allowchanges or !$workshop->agreeassessments or !$workshop->hidegrades or $assessment->timeagreed) {
			$showgrades = true;
			}
			
		echo "

			
cellcontent\">\n";
		if (!$submission = get_record("workshop_submissions", "id", $assessment->submissionid)) {
			error ("Workshop_print_assessment: Submission record not found");
			}
		echo workshop_print_submission_title($workshop, $submission);
		echo "

\n";
		
		// print agreement time if the workshop requires peer agreement
		if ($workshop->agreeassessments and $assessment->timeagreed) {
			echo "
".get_string("assessmentwasagreedon", "workshop", userdate($assessment->timeagreed));
			}

		// first print any comments on this assessment
		if ($comments = workshop_get_comments($assessment)) {
			echo "\n";
			$firstcomment = TRUE;
			foreach ($comments as $comment) {
				echo "\n";
				}
			echo "
cellheading2\">
".get_string("commentby","workshop")." ";
				if (isteacher($workshop->course, $comment->userid)) {
					echo $course->teacher;
					}
				elseif ($assessment->userid == $comment->userid) {
					print_string("assessor", "workshop");
					}
				else {
					print_string("authorofsubmission", "workshop");
					}
				echo " ".get_string("on", "workshop", userdate($comment->timecreated))."
\n";
				echo text_to_html($comment->comments)." \n";
				// add the links if needed
				if ($firstcomment and $showcommentlinks and !$assessment->timeagreed) {
					// show links depending on who doing the viewing
					$firstcomment = FALSE;
					if (isteacher($workshop->course, $USER->id) and ($comment->userid != $USER->id)) {
						echo "
id&aid=$assessment->id\">".
							get_string("reply", "workshop")."\n";
						}
					elseif (($comment->userid ==$USER->id) and (($timenow - $comment->timecreated) < $CFG->maxeditingtime)) {
						echo "
id&cid=$comment->id\">".
							get_string("edit", "workshop")."\n";
						if ($USER->id == $submission->userid) {
							echo " | id&aid=$assessment->id\">".
								get_string("agreetothisassessment", "workshop")."\n";
							}
						}
					elseif (($comment->userid != $USER->id) and (($USER->id == $assessment->userid) or 
						($USER->id == $submission->userid))) {
						echo "
id&aid=$assessment->id\">".
							get_string("reply", "workshop")."\n";
						if ($USER->id == $submission->userid) {
							echo " | id&aid=$assessment->id\">".
								get_string("agreetothisassessment", "workshop")."\n";
							}
						}
					}
				echo "
\n";
			}
			
		// only show the grade if grading strategy > 0 and the grade is positive
		if ($showgrades and $assessment->grade >= 0) { 
			echo "
".get_string("thegradeis", "workshop").": ".number_format($assessment->grade, 2)."% (".
				get_string("maximumgrade")." ".number_format($workshop->grade)."%)
\n";
			}
		}
		
	// now print the grading form with the teacher's comments if any
	// FORM is needed for Mozilla browsers, else radio bttons are not checked
		?>