loncom/html/adm/helper/course.initialization.helper - diff

Return to course.initialization.helper CVS log

Up to [LON-CAPA] / loncom / html / adm / helper

Diff for /loncom/html/adm/helper/course.initialization.helper between versions 1.11 and 1.16

version 1.11, 2003/07/21 14:08:30	version 1.16, 2005/08/01 18:04:09
Line 1	Line 1
<helper title="Course Initialization Helper" requiredpriv='opa'>	<helper title="Course Initialization Helper" requiredpriv='opa'>

<exec>	<exec>
my $courseid = $ENV{'request.course.id'};	my $courseid = $env{'request.course.id'};
my $crsdom = $ENV{'course.'.$courseid.'.domain'};	my $crsdom = $env{'course.'.$courseid.'.domain'};
my $crsnum = $ENV{'course.'.$courseid.'.num'};	my $crsnum = $env{'course.'.$courseid.'.num'};
$helper->{DATA}->{DOM} = $crsdom;	$helper->{DATA}->{DOM} = $crsdom;
$helper->{DATA}->{CRS} = $crsnum;	$helper->{DATA}->{CRS} = $crsnum;

$helper->{DATA}->{FIRST_RUN} = $ENV{'course.'.$crsnum.	$helper->{DATA}->{FIRST_RUN} = $env{'course.'.$crsnum.
'.course.intialization.not.run'};	'.course.intialization.not.run'};
# Delete the 'course.initialization.not.run' course environment	# Delete the 'course.initialization.not.run' course environment
Apache::lonnet::put('environment', {'course.helper.not.run' => 0},	Apache::lonnet::put('environment', {'course.helper.not.run' => 0},
$crsdom, $crsnum);	$crsdom, $crsnum);
Apache::lonnet::coursedescription($ENV{'request.course.id'});	Apache::lonnet::coursedescription($env{'request.course.id'});

$helper->{DATA}->{GETVAL} = sub {	$helper->{DATA}->{GETVAL} = sub {
my @resultlist = &Apache::lonnet::get('environment', [shift()],	my @resultlist = &Apache::lonnet::get('environment', [shift()],
Line 27	Line 27
$helper->{DATA}->{DOM},	$helper->{DATA}->{DOM},
$helper->{DATA}->{CRS});	$helper->{DATA}->{CRS});
# Try to fix bug 1757	# Try to fix bug 1757
Apache::lonnet::coursedescription($ENV{'request.course.id'});	Apache::lonnet::coursedescription($env{'request.course.id'});
return 1;	return 1;
} else {	} else {
return 0;	return 0;
Line 37	Line 37

<state name="START" title="Welcome to Your New LON-CAPA Course">	<state name="START" title="Welcome to Your New LON-CAPA Course">
<eval>	<eval>
return $helper->{DATA}->{FIRST_RUN} ?	return $helper->{DATA}->{FIRST_RUN} ?
'This Helper will set up your new LON-CAPA course and choose '.	'This Helper will set up your new LON-CAPA course and choose '.
'which features will be active. You can '.	'which features will be active. You can '.
're-visit it later to change settings in your course.' .	're-visit it later to change settings in your course.' .
Line 45	Line 45
'<p>If you have previous experience with coordinating LON-CAPA courses and '.	'<p>If you have previous experience with coordinating LON-CAPA courses and '.
'prefer not to use the helper, <a href="/adm/menu">click here</a> to leave.'	'prefer not to use the helper, <a href="/adm/menu">click here</a> to leave.'
:	:
'This helper will set up your LON-CAPA course and choose ' .	&mt('This helper will set up your LON-CAPA course and choose which features will be active.');
'which features will be active.';
</eval>	</eval>
<message nextstate="COURSE_DESCRIPTION">	<message nextstate="COURSE_DESCRIPTION">
<p>All settings which you can change with this Helper can also be changed	<p>All settings which you can change with this Helper can also be changed
Line 59	Line 58
</state>	</state>

<state name="COURSE_DESCRIPTION" title="Course Description">	<state name="COURSE_DESCRIPTION" title="Course Description">
<message nextstate="FORBID_DISCUSSION">	<message nextstate="FORBID_CHAT">
The "Course Description" is the name of the course that will be	The "Course Description" is the name of the course that will be
seen by the students. You may now modify the description and hit	seen by the students. You may now modify the description and hit
<nobr>"<b>Next -></b>"</nobr> to continue.<br />	<nobr>"<b>Next -></b>"</nobr> to continue.<br />
Line 77	Line 76
</string>	</string>
</state>	</state>

	<state name="FORBID_CHAT" title="Chat Participation">
	<message nextstate="FORBID_DISCUSSION">
	<p>LON-CAPA has live chat functionality. This course will receive
	its own chat room. You may deny students, TAs, or instructors
	the right to access the chat room.</p>
	</message>
	<choices variable="BANNED_CHAT_ROLES" multichoice="1" allowempty='1'>
	<choice computer="st"><b>Students</b> - students will not be able to use or view the chat room.</choice>
	<choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able use or view the chat room</choice>
	<choice computer="in"><b>Instructor</b> - instructors will not be able to use or view the chat room</choice>
	<defaultvalue>
	my $denied = &{$helper->{DATA}->{GETVAL}}('plc.roles.denied');
	$denied =~ s/,/\\|\\|\\|/g;
	return $denied;
	</defaultvalue>
	<finalcode>
	my $denied = $element->getValue();
	$denied =~ s/\\|\\|\\|/,/g;
	if (&{$helper->{DATA}->{SETVAL}}('plc.roles.denied', $denied)) {
	$denied =~ s/st/ students/;
	$denied =~ s/in/ instructors/;
	$denied =~ s/ta/ teaching assistants/;
	$denied =~ s/ep/ exam proctors/;
	if ($denied =~ /^[^,],[^,]$/) { # only one comma
	$denied =~ s/,/ and/g;
	} else { # add "and" to last comma
	$denied =~ s/,([^,]*)$/, and\1/;
	}
	if ($denied) {
	$denied = substr($denied, 1) . ' not allowed to participate in discussion.';
	$denied = ucfirst($denied);
	} else {
	$denied = 'Everyone can participate in discussion.';
	}
	return $denied;
	} else {
	return '';
	}
	</finalcode>
	</choices>
	</state>

<state name="FORBID_DISCUSSION" title="Discussion Participation">	<state name="FORBID_DISCUSSION" title="Discussion Participation">
<message nextstate="DISCUSSION_HTML">	<message nextstate="DISCUSSION_HTML">
LON-CAPA hosts discussions on all resources in a course. By default,	LON-CAPA hosts discussions on all resources in a course. By default,
Line 159	Line 200
are both the LON-CAPA username and LON-CAPA domain, not an email	are both the LON-CAPA username and LON-CAPA domain, not an email
address.</p>	address.</p>
</message>	</message>
<eval>return '<p>Your current LON-CAPA domain is "<b>'	<eval>return &mt('<p>Your current LON-CAPA domain is "<b>[_1]</b>".</p>',"$helper->{DATA}->{DOM}");
. $helper->{DATA}->{DOM} .
'</b>".</p>';
</eval>	</eval>
<string variable='feedback_addresses' size='60' >	<string variable='feedback_addresses' size='60' >
<defaultvalue>	<defaultvalue>
Line 202	Line 241
<p>Remember that all of these settings can be modified in the <b>PARMS</b>	<p>Remember that all of these settings can be modified in the <b>PARMS</b>
screen, by pushing the <b>Course Environment</b> button.</p>	screen, by pushing the <b>Course Environment</b> button.</p>
</message>	</message>
	<condition>
	<clause>$env{'course.'.$env{'request.course.id'}.'.clonedfrom'}</clause>
	<message>After you select <b>Finish Course Initialization</b>,
	you will be taken to the Parameter Overview screen to
	update the dates for this cloned course.</message>
	</condition>
<final restartCourse='1' />	<final restartCourse='1' />
</state>	</state>
</helper>	</helper>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.11
changed lines
	Added in v.1.16