loncom/html/adm/helper/newslot.helper - diff

Return to newslot.helper CVS log

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

Diff for /loncom/html/adm/helper/newslot.helper between versions 1.8 and 1.11

version 1.8, 2005/11/02 22:14:53	version 1.11, 2005/11/18 16:54:01
Line 7	Line 7
if (exists($env{'form.name'}) \|\|	if (exists($env{'form.name'}) \|\|
$env{'form.name'} =~ /\S/) {	$env{'form.name'} =~ /\S/) {
$helper->{'VARS'}{'name'}=$env{'form.name'};	$helper->{'VARS'}{'name'}=$env{'form.name'};
	$helper->{VARS}{'origname'}=$env{'form.name'};
	$helper->{DATA}{copy} = 1;
}	}
}	}
$helper->{DATA}{origslot} = sub {	$helper->{DATA}{origslot} = sub {
Line 17	Line 19
}	}
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $name=$helper->{'VARS'}{'name'};	my $name=$helper->{VARS}{'origname'};
my %slot=&Apache::lonnet::get('slots', [$name], $cdom, $cnum);	my %slot=&Apache::lonnet::get('slots', [$name], $cdom, $cnum);
if (!ref($slot{$name})) { return $default; }	if (!ref($slot{$name})) { return $default; }
if (!exists($slot{$name}{$which})) { return $default; }	if (!exists($slot{$name}{$which})) { return $default; }
Line 25	Line 27
}	}
</exec>	</exec>
<message nextstate="OPTIONAL">	<message nextstate="OPTIONAL">
<message_text>	Name: <br />
Name: <br />
</message_text>
</message>	</message>
<string variable="name" size="30">	<string variable="name" size="30">
<validator>	<validator>
if ($val=~/^\s*$/) { return 'Must specify a name'; }	if ($val=~/^\s*$/) { return 'Must specify a name'; }
if ($val=~/\s$/) { return 'Must not contain spaces'; }	if ($val=~/\s/) { return 'Must not contain spaces'; }
	if ($val=~/\W/) { return 'Must contain only letters, numbers and _'; }
return undef;	return undef;
</validator>	</validator>
<defaultvalue>	<defaultvalue>
return $helper->{'VARS'}{'name'};	return $helper->{'VARS'}{'name'};
</defaultvalue>	</defaultvalue>
</string>	</string>
	<condition>
	<clause>$helper->{DATA}{copy}</clause>
	<message nextstate="OPTIONAL">
	<p>Changing the Name will create a new slot with the new name, and not rename the existing slot.</p>
	</message>
	</condition>
<message>	<message>
<message_text><br />Start time:<br />   </message_text>	<br />Start time:<br />
</message>	</message>
<date variable="starttime" hoursminutes="1">	<date variable="starttime" hoursminutes="1">
<defaultvalue>	<defaultvalue>
Line 48	Line 55
</defaultvalue>	</defaultvalue>
</date>	</date>
<message>	<message>
<message_text><br />End time:<br />   </message_text>	<br />End time:<br />
</message>	</message>
<date variable="endtime" hoursminutes="1">	<date variable="endtime" hoursminutes="1">
<defaultvalue>	<defaultvalue>
Line 56	Line 63
</defaultvalue>	</defaultvalue>
</date>	</date>
<message>	<message>
<message_text><br />Type:</message_text>	<br />Type:
</message>	</message>
<choices variable="type">	<choices variable="type">
<choice computer='preassigned'>Instructor asssignable.</choice>	<choice computer='preassigned'>Instructor asssignable.</choice>
Line 69	Line 76

<state name="OPTIONAL" title="Specify Optional Attributes">	<state name="OPTIONAL" title="Specify Optional Attributes">
<message>	<message>
<message_text>	<p>Description:<br />
<p>Description:<br />
</message_text>
</message>	</message>
<string variable="description" size="60">	<string variable="description" size="60">
<defaultvalue>	<defaultvalue>
Line 81	Line 86
<condition>	<condition>
<clause>$helper->{'VARS'}{'type'} eq 'schedulable_student'</clause>	<clause>$helper->{'VARS'}{'type'} eq 'schedulable_student'</clause>
<message>	<message>
<message_text>	</p><p>Time students can start reserving:<br />
</p><p>Time students can start reserving:<br />
</message_text>
</message>	</message>
<date variable="startreserve" hoursminutes="1" anytime="1">	<date variable="startreserve" hoursminutes="1" anytime="1">
<defaultvalue>	<defaultvalue>
Line 91	Line 94
</defaultvalue>	</defaultvalue>
</date>	</date>
<message>	<message>
<message_text>	</p><p>Maxium number of students allowed in this slot:<br />
</p><p>Maxium number of students allowed in this slot:<br />
</message_text>
</message>	</message>
<string variable="maxspace" size="4">	<string variable="maxspace" size="4">
<validator>	<validator>
Line 105	Line 106
</defaultvalue>	</defaultvalue>
</string>	</string>
<message>	<message>
<message_text>	</p><p>Period of time in which this slot is can only be uniquely chosen:<br />   Start:
</p><p>Period of time in which this slot is can only be uniquely chosen:<br />   Start:
</message_text>
</message>	</message>
<date variable="startunique" hoursminutes="1" anytime="1">	<date variable="startunique" hoursminutes="1" anytime="1">
<defaultvalue>	<defaultvalue>
Line 117	Line 116
return 'anytime';	return 'anytime';
</defaultvalue>	</defaultvalue>
</date>	</date>
<message><message_text><br />   End: </message_text></message>	<message><br />   End: </message>
<date variable="endunique" hoursminutes="1" anytime="1">	<date variable="endunique" hoursminutes="1" anytime="1">
<defaultvalue>	<defaultvalue>
my $default=&{$helper->{DATA}{origslot}}('uniqueperiod','anytime');	my $default=&{$helper->{DATA}{origslot}}('uniqueperiod','anytime');
Line 137	Line 136
</exec>	</exec>
</condition>	</condition>
<message>	<message>
<message_text>	</p><p>Secret word proctors use to checkin users:<br />
</p><p>Secret word proctors use to checkin users:<br />
</message_text>
</message>	</message>
<string variable="secret" size="12">	<string variable="secret" size="12">
<validator>	<validator>
Line 150	Line 147
</defaultvalue>	</defaultvalue>
</string>	</string>
<message>	<message>
<message_text>	</p><p>Slot is:
</p><p>Slot is:
</message_text>
</message>	</message>
<choices variable="restricttosymb">	<choices variable="restricttosymb">
<choice nextstate="PROCTOR" computer='any'>usable for any resource.</choice>	<choice nextstate="PROCTOR" computer='any'>usable for any resource.</choice>
Line 164	Line 159
</defaultvalue>	</defaultvalue>
</choices>	</choices>
<message>	<message>
<message_text>
</p><p>IP restrictions:<br />	</p><p>IP restrictions:<br />
</message_text>
</message>	</message>
<string variable="ip" size="30">	<string variable="ip" size="30">
<validator>	<validator>
Line 176	Line 171
return &{$helper->{DATA}{origslot}}('ip');	return &{$helper->{DATA}{origslot}}('ip');
</defaultvalue>	</defaultvalue>
</string>	</string>
<message> <message_text> </p> </message_text> </message>	<message> </p> </message>
</state>	</state>
<state name="RESOURCESELECT" title="Specify Optional Attributes">	<state name="RESOURCESELECT" title="Specify Optional Attributes">
<resource variable="symb">	<resource variable="symb">
Line 203	Line 198
</student>	</student>
</state>	</state>
<state name="FINISH" title="Creating/Modfying Slot">	<state name="FINISH" title="Creating/Modfying Slot">
<message> <message_text> Created Slot </message_text> </message>	<message> Created Slot </message>
<final>	<final>
<finalcode>	<finalcode>
my $result;	my $result;

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

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