loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/slotrequest.pm between versions 1.55 and 1.89

version 1.55, 2006/03/30 04:35:58	version 1.89, 2009/03/01 03:23:18
Line 36 use Apache::lonlocal;	Line 36 use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonnavmaps();	use Apache::lonnavmaps();
use Date::Manip;	use Date::Manip;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;

sub fail {	sub fail {
my ($r,$code)=@_;	my ($r,$code)=@_;
if ($code eq 'not_valid') {	if ($code eq 'not_valid') {
$r->print('<p>'.&mt('Unable to understand what resource you wanted to sign up for.').'</p>');	$r->print('<p>'.&mt('Unable to understand what resource you wanted to sign up for.').'</p>');
	} elsif ($code eq 'not_available') {
	$r->print('<p>'.&mt('No slots are available.').'</p>');
} elsif ($code eq 'not_allowed') {	} elsif ($code eq 'not_allowed') {
$r->print('<p>'.&mt('Not allowed to sign up or change reservations at this time.').'</p>');	$r->print('<p>'.&mt('Not allowed to sign up or change reservations at this time.').'</p>');
} else {	} else {
Line 74 sub end_page {	Line 77 sub end_page {
=cut	=cut

sub get_course {	sub get_course {
(undef,my $courseid)=&Apache::lonxml::whichuser();	(undef,my $courseid)=&Apache::lonnet::whichuser();
my $cdom=$env{'course.'.$courseid.'.domain'};	my $cdom=$env{'course.'.$courseid.'.domain'};
my $cnum=$env{'course.'.$courseid.'.num'};	my $cnum=$env{'course.'.$courseid.'.num'};
return ($cnum,$cdom);	return ($cnum,$cdom);
Line 87 sub get_reservation_ids {	Line 90 sub get_reservation_ids {

my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,	my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
"^$slot_name\0");	"^$slot_name\0");
if (&network_error(%consumed)) {	if (&Apache::lonnet::error(%consumed)) {
return 'error: Unable to determine current status';	return 'error: Unable to determine current status';
}	}
my ($tmp)=%consumed;	my ($tmp)=%consumed;
Line 124 sub check_for_reservation {	Line 127 sub check_for_reservation {
my ($cnum,$cdom)=&get_course();	my ($cnum,$cdom)=&get_course();
my %slots=&Apache::lonnet::get('slots', [@slots], $cdom, $cnum);	my %slots=&Apache::lonnet::get('slots', [@slots], $cdom, $cnum);

if (&network_error($student) \|\| &network_error($course) \|\|	if (&Apache::lonnet::error($student)
&network_error(%slots)) {	\|\| &Apache::lonnet::error($course)
	\|\| &Apache::lonnet::error(%slots)) {
return 'error: Unable to determine current status';	return 'error: Unable to determine current status';
}	}
my @got;	my @got;
Line 161 sub check_for_reservation {	Line 165 sub check_for_reservation {
sub get_consumed_uniqueperiods {	sub get_consumed_uniqueperiods {
my ($slots) = @_;	my ($slots) = @_;
my $navmap=Apache::lonnavmaps::navmap->new;	my $navmap=Apache::lonnavmaps::navmap->new;
	if (!defined($navmap)) {
	return 'error: Unable to determine current status';
	}
my @problems = $navmap->retrieveResources(undef,	my @problems = $navmap->retrieveResources(undef,
sub { $_[0]->is_problem() },1,0);	sub { $_[0]->is_problem() },1,0);
my %used_slots;	my %used_slots;
Line 172 sub get_consumed_uniqueperiods {	Line 179 sub get_consumed_uniqueperiods {
my $course = &Apache::lonnet::EXT("resource.0.available",	my $course = &Apache::lonnet::EXT("resource.0.available",
$symb, $env{'user.domain'},	$symb, $env{'user.domain'},
$env{'user.name'});	$env{'user.name'});
if (&network_error($student) \|\| &network_error($course)) {	if (&Apache::lonnet::error($student)
	\|\| &Apache::lonnet::error($course)) {
return 'error: Unable to determine current status';	return 'error: Unable to determine current status';
}	}
foreach my $slot (split(/:/,$student), split(/:/, $course)) {	foreach my $slot (split(/:/,$student), split(/:/, $course)) {
Line 183 sub get_consumed_uniqueperiods {	Line 191 sub get_consumed_uniqueperiods {
if (!ref($slots)) {	if (!ref($slots)) {
my ($cnum,$cdom)=&get_course();	my ($cnum,$cdom)=&get_course();
my %slots=&Apache::lonnet::get('slots', [keys(%used_slots)], $cdom, $cnum);	my %slots=&Apache::lonnet::get('slots', [keys(%used_slots)], $cdom, $cnum);
if (&network_error(%slots)) {	if (&Apache::lonnet::error(%slots)) {
return 'error: Unable to determine current status';	return 'error: Unable to determine current status';
}	}
$slots = \%slots;	$slots = \%slots;
Line 209 sub check_for_conflict {	Line 217 sub check_for_conflict {

if (!ref($consumed_uniqueperiods)) {	if (!ref($consumed_uniqueperiods)) {
$consumed_uniqueperiods = &get_consumed_uniqueperiods($slots);	$consumed_uniqueperiods = &get_consumed_uniqueperiods($slots);
if (&network_error(%$consumed_uniqueperiods)) {	if (ref($consumed_uniqueperiods) eq 'HASH') {
return 'error: Unable to determine current status';	if (&Apache::lonnet::error(%$consumed_uniqueperiods)) {
}	return 'error: Unable to determine current status';
	}
	} else {
	return 'error: Unable to determine current status';
	}
}	}

my ($new_uniq_start,$new_uniq_end) = @{$new_slot->{'uniqueperiod'}};	my ($new_uniq_start,$new_uniq_end) = @{$new_slot->{'uniqueperiod'}};
Line 224 sub check_for_conflict {	Line 236 sub check_for_conflict {
}	}
}	}
return undef;	return undef;

}

sub network_error {
my ($result) = @_;
if ($result =~ /^(con_lost\|no_such_host\|error: [^2])/) {
return 1;
}
return 0;
}	}

sub make_reservation {	sub make_reservation {
my ($slot_name,$slot,$symb)=@_;	my ($slot_name,$slot,$symb,$cnum,$cdom)=@_;

my ($cnum,$cdom)=&get_course();

my $value=&Apache::lonnet::EXT("resource.0.availablestudent",$symb,	my $value=&Apache::lonnet::EXT("resource.0.availablestudent",$symb,
$env{'user.domain'},$env{'user.name'});	$env{'user.domain'},$env{'user.name'});
&Apache::lonxml::debug("value is $value<br />");	&Apache::lonxml::debug("value is $value<br />");
if (&network_error($value)) {
	my $use_slots = &Apache::lonnet::EXT("resource.0.useslots",$symb,
	$env{'user.domain'},$env{'user.name'});
	&Apache::lonxml::debug("use_slots is $use_slots<br />");

	if (&Apache::lonnet::error($value)
	\|\| &Apache::lonnet::error($use_slots)) {
return 'error: Unable to determine current status';	return 'error: Unable to determine current status';
}	}

	my $parm_symb = $symb;
	my $parm_level = 1;
	if ($use_slots eq 'map' \|\| $use_slots eq 'map_map') {
	my ($map) = &Apache::lonnet::decode_symb($symb);
	$parm_symb = &Apache::lonnet::symbread($map);
	$parm_level = 2;
	}

foreach my $other_slot (split(/:/, $value)) {	foreach my $other_slot (split(/:/, $value)) {
if ($other_slot eq $slot_name) {	if ($other_slot eq $slot_name) {
my %consumed=&Apache::lonnet::dump('slot_reservations', $cdom,	my %consumed=&Apache::lonnet::dump('slot_reservations', $cdom,
$cnum, "^$slot_name\0");	$cnum, "^$slot_name\0");
if (&network_error($value)) {	if (&Apache::lonnet::error($value)) {
return 'error: Unable to determine current status';	return 'error: Unable to determine current status';
}	}
my $me=$env{'user.name'}.'@'.$env{'user.domain'};	my $me=$env{'user.name'}.':'.$env{'user.domain'};
foreach my $key (keys(%consumed)) {	foreach my $key (keys(%consumed)) {
if ($consumed{$key}->{'name'} eq $me) {	if ($consumed{$key}->{'name'} eq $me) {
my $num=(split('\0',$key))[1];	my $num=(split('\0',$key))[1];
Line 268 sub make_reservation {	Line 283 sub make_reservation {
if (!defined($max)) { $max=99999; }	if (!defined($max)) { $max=99999; }

my (@ids)=&get_reservation_ids($slot_name);	my (@ids)=&get_reservation_ids($slot_name);
if (&network_error(@ids)) {	if (&Apache::lonnet::error(@ids)) {
return 'error: Unable to determine current status';	return 'error: Unable to determine current status';
}	}
my $last=0;	my $last=0;
Line 284 sub make_reservation {	Line 299 sub make_reservation {
return undef;	return undef;
}	}

my %reservation=('name' => $env{'user.name'}.'@'.$env{'user.domain'},	my %reservation=('name' => $env{'user.name'}.':'.$env{'user.domain'},
'timestamp' => time,	'timestamp' => time,
'symb' => $symb);	'symb' => $parm_symb);

my $success=&Apache::lonnet::newput('slot_reservations',	my $success=&Apache::lonnet::newput('slot_reservations',
{"$slot_name\0$wanted" =>	{"$slot_name\0$wanted" =>
Line 298 sub make_reservation {	Line 313 sub make_reservation {
if ($value) {	if ($value) {
$new_value=$value.':'.$new_value;	$new_value=$value.':'.$new_value;
}	}
my $result=&Apache::lonparmset::storeparm_by_symb($symb,	&store_slot_parm($symb,$slot_name,$parm_level,$new_value,$cnum,$cdom);
'0_availablestudent',
1, $new_value, 'string',
$env{'user.name'},
$env{'user.domain'});
&Apache::lonxml::debug("hrrm $result");
return $wanted;	return $wanted;
}	}

Line 311 sub make_reservation {	Line 321 sub make_reservation {
return undef;	return undef;
}	}

	sub store_slot_parm {
	my ($symb,$slot_name,$parm_level,$new_value,$cnum,$cdom) = @_;
	my $result=&Apache::lonparmset::storeparm_by_symb($symb,
	'0_availablestudent',
	$parm_level, $new_value,
	'string',
	$env{'user.name'},
	$env{'user.domain'});
	&Apache::lonxml::debug("hrrm $result");
	my %storehash = (
	symb => $symb,
	slot => $slot_name,
	action => 'reserve',
	context => $env{'form.context'},
	);

	&Apache::lonnet::instructor_log('slotreservationslog',\%storehash,
	'',$env{'user.name'},$env{'user.domain'},
	$cnum,$cdom);
	return;
	}

sub remove_registration {	sub remove_registration {
my ($r) = @_;	my ($r) = @_;
if ($env{'form.entry'} ne 'remove all') {	if ($env{'form.entry'} ne 'remove all') {
Line 322 sub remove_registration {	Line 354 sub remove_registration {
my ($cnum,$cdom)=&get_course();	my ($cnum,$cdom)=&get_course();
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,	my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
"^$slot_name\0");	"^$slot_name\0");
if (&network_error(%consumed)) {	if (&Apache::lonnet::error(%consumed)) {
$r->print("<p>".&mt('A network error has occured.').'</p>');	$r->print("<p><span class=\"LC_error\">".&mt('A network error has occurred.').'</span></p>');
return;	return;
}	}
if (!%consumed) {	if (!%consumed) {
$r->print("<p>".&mt('Slot <tt>[_1]</tt> has no reservations.',	$r->print('<p>'.&mt('Slot [_1] has no reservations.',
$slot_name)."</p>");	'<tt>'.$slot_name.'</tt>').'</p>');
return;	return;
}	}

Line 336 sub remove_registration {	Line 368 sub remove_registration {
my $names = join(' ',@names);	my $names = join(' ',@names);

my $msg = &mt('Remove all of [_1] from slot [_2]?',$names,$slot_name);	my $msg = &mt('Remove all of [_1] from slot [_2]?',$names,$slot_name);
&remove_registration_confirmation($r,$msg,['entry','slotname']);	&remove_registration_confirmation($r,$msg,['entry','slotname','context']);
}	}

sub remove_registration_user {	sub remove_registration_user {
Line 353 sub remove_registration_user {	Line 385 sub remove_registration_user {
$name,$slot_name,$title);	$name,$slot_name,$title);

&remove_registration_confirmation($r,$msg,['uname','udom','slotname',	&remove_registration_confirmation($r,$msg,['uname','udom','slotname',
'entry','symb']);	'entry','symb','context']);
}	}

sub remove_registration_confirmation {	sub remove_registration_confirmation {
Line 369 sub remove_registration_confirmation {	Line 401 sub remove_registration_confirmation {
'no' => 'No',);	'no' => 'No',);
$r->print(<<"END_CONFIRM");	$r->print(<<"END_CONFIRM");
<p> $msg </p>	<p> $msg </p>
<form action="/adm/slotrequest" method="POST">	<form action="/adm/slotrequest" method="post">
<input type="hidden" name="command" value="release" />	<input type="hidden" name="command" value="release" />
<input type="hidden" name="button" value="yes" />	<input type="hidden" name="button" value="yes" />
$hidden_input	$hidden_input
<input type="submit" value="$lt{'yes'}" />	<input type="submit" value="$lt{'yes'}" />
</form>	</form>
<form action="/adm/slotrequest" method="POST">	<form action="/adm/slotrequest" method="post">
<input type="hidden" name="command" value="showslots" />	<input type="hidden" name="command" value="showslots" />
<input type="submit" value="$lt{'no'}" />	<input type="submit" value="$lt{'no'}" />
</form>	</form>
Line 397 sub release_all_slot {	Line 429 sub release_all_slot {

foreach my $entry (sort { $consumed{$a}{'name'} cmp	foreach my $entry (sort { $consumed{$a}{'name'} cmp
$consumed{$b}{'name'} } (keys(%consumed))) {	$consumed{$b}{'name'} } (keys(%consumed))) {
my ($uname,$udom) = split('@',$consumed{$entry}{'name'});	my ($uname,$udom) = split(':',$consumed{$entry}{'name'});
my ($result,$msg) =	my ($result,$msg) =
&release_reservation($slot_name,$uname,$udom,	&release_reservation($slot_name,$uname,$udom,
$consumed{$entry}{'symb'},$mgr);	$consumed{$entry}{'symb'},$mgr);
$r->print("<p>$msg</p>");	if (!$result) {
	$r->print('<p><span class="LC_error">'.&mt($msg).'</span></p>');
	} else {
	$r->print("<p>$msg</p>");
	}
$r->rflush();	$r->rflush();
}	}
$r->print('<p><a href="/adm/slotrequest?command=showslots">'.	$r->print('<p><a href="/adm/slotrequest?command=showslots">'.
Line 422 sub release_slot {	Line 458 sub release_slot {

if ($mgr eq 'F'	if ($mgr eq 'F'
&& defined($env{'form.symb'})) {	&& defined($env{'form.symb'})) {
$symb = $env{'form.symb'};	$symb = &unescape($env{'form.symb'});
}	}

my ($result,$msg) =	my ($result,$msg) =
&release_reservation($slot_name,$uname,$udom,$symb,$mgr);	&release_reservation($slot_name,$uname,$udom,$symb,$mgr);
$r->print("<p>$msg</p>");	if (!$result) {
	$r->print('<p><span class="LC_error">'.&mt($msg).'</span></p>');
	} else {
	$r->print("<p>$msg</p>");
	}

if ($mgr eq 'F') {	if ($mgr eq 'F') {
$r->print('<p><a href="/adm/slotrequest?command=showslots">'.	$r->print('<p><a href="/adm/slotrequest?command=showslots">'.
Line 448 sub release_reservation {	Line 488 sub release_reservation {
return (0,&mt('Not allowed to release Reservation: [_1], as it has already ended.',$description));	return (0,&mt('Not allowed to release Reservation: [_1], as it has already ended.',$description));
}	}
}	}

	# if the reservation symb is for a map get a resource in that map
	# to check slot parameters on
	my $navmap=Apache::lonnavmaps::navmap->new;
	if (!defined($navmap)) {
	return (0,'error: Unable to determine current status');
	}
	my $passed_resource = $navmap->getBySymb($symb);
	if ($passed_resource->is_map()) {
	my ($a_resource) =
	$navmap->retrieveResources($passed_resource,
	sub {$_[0]->is_problem()},0,1);
	$symb = $a_resource->symb();
	}

# get parameter string, check for existance, rebuild string with the slot	# get parameter string, check for existance, rebuild string with the slot
my @slots = split(/:/,&Apache::lonnet::EXT("resource.0.availablestudent",	my $student = &Apache::lonnet::EXT("resource.0.availablestudent",
$symb,$udom,$uname));	$symb,$udom,$uname);
	my @slots = split(/:/,$student);

my @new_slots;	my @new_slots;
foreach my $exist_slot (@slots) {	foreach my $exist_slot (@slots) {
Line 465 sub release_reservation {	Line 521 sub release_reservation {
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,	my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
"^$slot_name\0");	"^$slot_name\0");
foreach my $entry (keys(%consumed)) {	foreach my $entry (keys(%consumed)) {
if ( $consumed{$entry}->{'name'} eq ($uname.'@'.$udom) ) {	if ( $consumed{$entry}->{'name'} eq ($uname.':'.$udom) ) {
&Apache::lonnet::del('slot_reservations',[$entry],	&Apache::lonnet::del('slot_reservations',[$entry],
$cdom,$cnum);	$cdom,$cnum);
	my %storehash = (
	symb => $symb,
	slot => $slot_name,
	action => 'release',
	context => $env{'form.context'},
	);
	&Apache::lonnet::instructor_log('slotreservationslog',\%storehash,
	1,$uname,$udom,$cnum,$cdom);
}	}
}	}

	my $use_slots = &Apache::lonnet::EXT("resource.0.useslots",
	$symb,$udom,$uname);
	&Apache::lonxml::debug("use_slots is $use_slots<br />");

	if (&Apache::lonnet::error($use_slots)) {
	return (0,'error: Unable to determine current status');
	}

	my $parm_level = 1;
	if ($use_slots eq 'map' \|\| $use_slots eq 'map_map') {
	$parm_level = 2;
	}
# store new parameter string	# store new parameter string
my $result=&Apache::lonparmset::storeparm_by_symb($symb,	my $result=&Apache::lonparmset::storeparm_by_symb($symb,
'0_availablestudent',	'0_availablestudent',
1, $new_param, 'string',	$parm_level, $new_param,
$uname,$udom);	'string', $uname, $udom);

my $msg;	my $msg;
if ($mgr eq 'F') {	if ($mgr eq 'F') {
$msg = &mt('Released Reservation for user: [_1]',"$uname:$udom");	$msg = &mt('Released Reservation for user: [_1]',"$uname:$udom");
Line 503 sub delete_slot {	Line 578 sub delete_slot {
my $ret = &Apache::lonnet::cput('slots', {$slot_name => \%slot},	my $ret = &Apache::lonnet::cput('slots', {$slot_name => \%slot},
$cdom, $cnum);	$cdom, $cnum);
if ($ret eq 'ok') {	if ($ret eq 'ok') {
$r->print("<p>Slot <tt>$slot_name</tt> marked as deleted.</p>");	$r->print('<p>'.&mt('Slot [_1] marked as deleted.','<tt>'.$slot_name.'</tt>').'</p>');
} else {	} else {
$r->print("<p> An error ($ret) occurse when attempting to delete Slot <tt>$slot_name</tt>.</p>");	$r->print('<p><span class="LC_error">'.&mt('An error occurred when attempting to delete slot: [_1]','<tt>'.$slot_name.'</tt>')." ($ret)</span></p>");
}	}
} else {	} else {
if (%consumed) {	if (%consumed) {
$r->print("<p>Slot <tt>$slot_name</tt> has active reservations.</p>");	$r->print('<p>'.&mt('Slot [_1] has active reservations.','<tt>'.$slot_name.'</tt>').'</p>');
} else {	} else {
$r->print("<p>Slot <tt>$slot_name</tt> does not exist.</p>");	$r->print('<p>'.&mt('Slot [_1] does not exist.','<tt>'.$slot_name.'</tt>').'</p>');
}	}
}	}
$r->print('<p><a href="/adm/slotrequest?command=showslots">'.	$r->print('<p><a href="/adm/slotrequest?command=showslots">'.
Line 526 sub return_link {	Line 601 sub return_link {
}	}

sub get_slot {	sub get_slot {
my ($r,$symb)=@_;	my ($r,$symb,$conflictable_slot,$inhibit_return_link)=@_;

my %slot=&Apache::lonnet::get_slot($env{'form.slotname'});	my %slot=&Apache::lonnet::get_slot($env{'form.slotname'});
my $slot_name=&check_for_conflict($symb,$env{'form.slotname'},\%slot);	my $slot_name=&check_for_conflict($symb,$env{'form.slotname'},\%slot);

if ($slot_name =~ /^error: (.*)/) {	if ($slot_name =~ /^error: (.*)/) {
$r->print("<p>An error occured while attempting to make a reservation. ($1)</p>");	$r->print('<p><span class="LC_error">'
	.&mt('An error occurred while attempting to make a reservation. ([_1])',$1)
	.'</span></p>');
&return_link($r);	&return_link($r);
return;	return 0;
}	}
if ($slot_name) {	if ($slot_name && $slot_name ne $conflictable_slot) {
my %slot=&Apache::lonnet::get_slot($slot_name);	my %slot=&Apache::lonnet::get_slot($slot_name);
my $description1=&get_description($slot_name,\%slot);	my $description1=&get_description($slot_name,\%slot);
%slot=&Apache::lonnet::get_slot($env{'form.slotname'});	%slot=&Apache::lonnet::get_slot($env{'form.slotname'});
my $description2=&get_description($env{'form.slotname'},\%slot);	my $description2=&get_description($env{'form.slotname'},\%slot);
$r->print("<p>Already have a reservation: $description1</p>");	$r->print('<p>'.&mt('Already have a reservation: [_1].',$description1).'</p>');
if ($slot_name ne $env{'form.slotname'}) {	if ($slot_name ne $env{'form.slotname'}) {
$r->print(<<STUFF);	$r->print(<<STUFF);
<form method="POST" action="/adm/slotrequest">	<form method="post" action="/adm/slotrequest">
<input type="hidden" name="symb" value="$env{'form.symb'}" />	<input type="hidden" name="symb" value="$env{'form.symb'}" />
<input type="hidden" name="slotname" value="$env{'form.slotname'}" />	<input type="hidden" name="slotname" value="$env{'form.slotname'}" />
<input type="hidden" name="releaseslot" value="$slot_name" />	<input type="hidden" name="releaseslot" value="$slot_name" />
<input type="hidden" name="command" value="change" />	<input type="hidden" name="command" value="change" />
STUFF	STUFF
$r->print("<p>You can either ");	$r->print('<p>'
$r->print(<<STUFF);	.&mt('You can either [_1]Change[_2] your reservation from [_3] to [_4] or'
<input type="submit" name="change" value="Change" />	,'<input type="submit" name="change" value="'
STUFF	,'" />'
$r->print(' your reservation from <b>'.$description1.'</b> to <b>'.	,'<b>'.$description1.'</b>'
$description2.	,'<b>'.$description2.'</b>')
'</b> <br />or </p>');	.'<br /></p>'
	);
&return_link($r);	&return_link($r);
$r->print(<<STUFF);	$r->print(<<STUFF);
</form>	</form>
Line 564 STUFF	Line 642 STUFF
} else {	} else {
&return_link($r);	&return_link($r);
}	}
return;	return 0;
}	}

	my ($cnum,$cdom)=&get_course();
my $reserved=&make_reservation($env{'form.slotname'},	my $reserved=&make_reservation($env{'form.slotname'},
\%slot,$symb);	\%slot,$symb,$cnum,$cdom);
my $description=&get_description($env{'form.slotname'},\%slot);	my $description=&get_description($env{'form.slotname'},\%slot);
if (defined($reserved)) {	if (defined($reserved)) {
	my $retvalue = 0;
if ($slot_name =~ /^error: (.*)/) {	if ($slot_name =~ /^error: (.*)/) {
$r->print("<p>An error occured while attempting to make a reservation. ($1)</p>");	$r->print('<p><span class="LC_error">'
	.&mt('An error occurred while attempting to make a reservation. ([_1])',$1)
	.'</span></p>');
} elsif ($reserved > -1) {	} elsif ($reserved > -1) {
$r->print("<p>Success: $description</p>");	$r->print('<p>'.&mt('Success: [_1]',$description).'</p>');
	$retvalue = 1;
} elsif ($reserved < 0) {	} elsif ($reserved < 0) {
$r->print("<p>Already reserved: $description</p>");	$r->print('<p>'.&mt('Already reserved: [_1]',$description).'</p>');
}	}
&return_link($r);	if (!$inhibit_return_link) { &return_link($r); }
return;	return 1;
}	}

my %lt=('request'=>"Availibility list",	my %lt=('request'=>"Availibility list",
'try' =>'Try again');	'try' =>'Try again?',
	'or' => 'or');
%lt=&Apache::lonlocal::texthash(%lt);	%lt=&Apache::lonlocal::texthash(%lt);

	my $extra_input;
	if ($conflictable_slot) {
	$extra_input='<input type="hidden" name="releaseslot" value="'.$env{'form.slotname'}.'" />';
	}

	$r->print('<p>'.&mt('[_1]Failed[_2] to reserve a slot for [_3].','<span class="LC_warning">','</span>',$description).'</p>');
$r->print(<<STUFF);	$r->print(<<STUFF);
<p> <font color="red">Failed</font> to reserve a spot for $description. </p>
<p>	<p>
<form method="POST" action="/adm/slotrequest">	<form method="post" action="/adm/slotrequest">
<input type="submit" name="Try Again" value="$lt{'try'}" />	<input type="submit" name="Try Again" value="$lt{'try'}" />
<input type="hidden" name="symb" value="$env{'form.symb'}" />	<input type="hidden" name="symb" value="$env{'form.symb'}" />
<input type="hidden" name="slotname" value="$env{'form.slotname'}" />	<input type="hidden" name="slotname" value="$env{'form.slotname'}" />
<input type="hidden" name="command" value="get" />	<input type="hidden" name="command" value="$env{'form.command'}" />
	$extra_input
</form>	</form>
?
</p>	</p>
<p>	<p>
or	$lt{'or'}
<form method="POST" action="/adm/slotrequest">	<form method="post" action="/adm/slotrequest">
<input type="hidden" name="symb" value="$env{'form.symb'}" />	<input type="hidden" name="symb" value="$env{'form.symb'}" />
<input type="submit" name="requestattempt" value="$lt{'request'}" />	<input type="submit" name="requestattempt" value="$lt{'request'}" />
</form>	</form>
</p>
or
STUFF	STUFF

&return_link($r);	if (!$inhibit_return_link) {
return;	$r->print(&mt('or').'</p>').&return_link($r);
	} else {
	$r->print('</p>');
	}
	return 0;
}	}

sub allowed_slot {	sub allowed_slot {
Line 616 sub allowed_slot {	Line 707 sub allowed_slot {

#already started	#already started
if ($slot->{'starttime'} < time) {	if ($slot->{'starttime'} < time) {
# all open slot to be schedulable	return 0;
#return 0;
}	}
&Apache::lonxml::debug("$slot_name starttime good");	&Apache::lonxml::debug("$slot_name starttime good");

Line 653 sub allowed_slot {	Line 743 sub allowed_slot {
split(',',$slot->{'allowedsections'}))) {	split(',',$slot->{'allowedsections'}))) {
$userallowed=1;	$userallowed=1;
}	}
	if (defined($env{'request.course.groups'})) {
	my @groups = split(/:/,$env{'request.course.groups'});
	my @allowed_sec = split(',',$slot->{'allowedsections'});
	foreach my $group (@groups) {
	if (grep {$_ eq $group} (@allowed_sec)) {
	$userallowed=1;
	last;
	}
	}
	}
}	}
&Apache::lonxml::debug("$slot_name sections is $userallowed");	&Apache::lonxml::debug("$slot_name sections is $userallowed");

Line 679 sub allowed_slot {	Line 779 sub allowed_slot {

my $conflict = &check_for_conflict($symb,$slot_name,$slot,$slots,	my $conflict = &check_for_conflict($symb,$slot_name,$slot,$slots,
$consumed_uniqueperiods);	$consumed_uniqueperiods);
if ($conflict) {	if ($conflict =~ /^error: /) {
	return 0;
	} elsif ($conflict ne '') {
if ($slots->{$conflict}{'starttime'} < time) {	if ($slots->{$conflict}{'starttime'} < time) {
return 0;	return 0;
}	}
Line 705 sub show_choices {	Line 807 sub show_choices {
my ($cnum,$cdom)=&get_course();	my ($cnum,$cdom)=&get_course();
my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum);	my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum);
my $consumed_uniqueperiods = &get_consumed_uniqueperiods(\%slots);	my $consumed_uniqueperiods = &get_consumed_uniqueperiods(\%slots);
	if (ref($consumed_uniqueperiods) eq 'HASH') {
	if (&Apache::lonnet::error(%$consumed_uniqueperiods)) {
	$r->print('<span class="LC_error">'.
	&mt('An error occurred determining slot availability').
	'</span>');
	return;
	}
	} elsif ($consumed_uniqueperiods =~ /^error: /) {
	$r->print('<span class="LC_error">'.
	&mt('An error occurred determining slot availability').
	'</span>');
	return;
	}
my $available;	my $available;
$r->print('<table border="1">');
&Apache::lonxml::debug("Checking Slots");	&Apache::lonxml::debug("Checking Slots");
my @got_slots=&check_for_reservation($symb,'allslots');	my @got_slots=&check_for_reservation($symb,'allslots');
	if ($got_slots[0] =~ /^error: /) {
	$r->print('<span class="LC_error">'.
	&mt('An error occurred determining slot availability').
	'</span>');
	return;
	}
	$r->print('<table border="1">');
foreach my $slot (sort	foreach my $slot (sort
{ return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'} }	{ return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'} }
(keys(%slots))) {	(keys(%slots))) {
Line 727 sub show_choices {	Line 848 sub show_choices {
my $text=&mt('Select');	my $text=&mt('Select');
my $command='get';	my $command='get';
if (grep(/^\Q$slot\E$/,@got_slots)) {	if (grep(/^\Q$slot\E$/,@got_slots)) {
$text=&mt('Free Reservation');	$text=&mt('Drop Reservation');
$command='release';	$command='release';
} else {	} else {
my $conflict = &check_for_conflict($symb,$slot,$slots{$slot},	my $conflict = &check_for_conflict($symb,$slot,$slots{$slot},
\%slots,	\%slots,
$consumed_uniqueperiods);	$consumed_uniqueperiods);
if ($conflict) {	if ($conflict) {
$text=&mt('Change Reservation');	if ($conflict =~ /^error: /) {
$command='get';	$r->print('<tr><td><span class="LC_error" colspan="2">'
}	.&mt('Slot: [_1] has unknown status.',$description)
	.'</span></td></tr>');
	} else {
	$text=&mt('Change Reservation');
	$command='get';
	}
	}
}	}
my $escsymb=&Apache::lonnet::escape($symb);	my $escsymb=&escape($symb);
$form=<<STUFF;	$form=<<STUFF;
<form method="POST" action="/adm/slotrequest">	<form method="post" action="/adm/slotrequest">
<input type="submit" name="Select" value="$text" />	<input type="submit" name="Select" value="$text" />
<input type="hidden" name="symb" value="$escsymb" />	<input type="hidden" name="symb" value="$escsymb" />
<input type="hidden" name="slotname" value="$slot" />	<input type="hidden" name="slotname" value="$slot" />
<input type="hidden" name="command" value="$command" />	<input type="hidden" name="command" value="$command" />
	<input type="hidden" name="context" value="user" />
</form>	</form>
STUFF	STUFF
}	}
Line 757 STUFF	Line 885 STUFF
}	}

if (!$available) {	if (!$available) {
$r->print('<tr><td>No available times. <a href="/adm/flip?postdata=return:">'.	$r->print('<tr><td>'.&mt('No available times.').
	' <a href="/adm/flip?postdata=return:">'.
&mt('Return to last resource').'</a></td></tr>');	&mt('Return to last resource').'</a></td></tr>');
}	}
$r->print('</table>');	$r->print('</table>');
Line 837 sub remove_link {	Line 966 sub remove_link {
undef($udom);	undef($udom);
}	}

$slotname = &Apache::lonnet::escape($slotname);	$slotname = &escape($slotname);
$entry = &Apache::lonnet::escape($entry);	$entry = &escape($entry);
$uname = &Apache::lonnet::escape($uname);	$uname = &escape($uname);
$udom = &Apache::lonnet::escape($udom);	$udom = &escape($udom);
$symb = &Apache::lonnet::escape($symb);	$symb = &escape($symb);

return <<"END_LINK";	return <<"END_LINK";
<a href="/adm/slotrequest?command=remove_registration&slotname=$slotname&entry=$entry&uname=$uname&udom=$udom&symb=$symb"	<a href="/adm/slotrequest?command=remove_registration&slotname=$slotname&entry=$entry&uname=$uname&udom=$udom&symb=$symb&context=manage"
>($remove)</a>	>($remove)</a>
END_LINK	END_LINK

Line 860 sub show_table {	Line 989 sub show_table {
}	}
my $available;	my $available;
if ($mgr eq 'F') {	if ($mgr eq 'F') {
	# FIXME: This line should be deleted once Slots uses breadcrumbs
	$r->print(&Apache::loncommon::help_open_topic('Slot About', 'Help on slots'));

$r->print('<div>');	$r->print('<div>');
$r->print('<form method="POST" action="/adm/slotrequest">	$r->print('<form method="post" action="/adm/slotrequest">
<input type="hidden" name="command" value="uploadstart" />	<input type="hidden" name="command" value="uploadstart" />
<input type="submit" name="start" value="'.&mt('Upload Slot List').'" />	<input type="submit" name="start" value="'.&mt('Upload Slot List').'" />
</form>');	</form>');
$r->print('<form method="POST" action="/adm/helper/newslot.helper">	$r->print(&Apache::loncommon::help_open_topic('Slot CommaDelimited'));
	$r->print('<form method="post" action="/adm/helper/newslot.helper">
<input type="submit" name="newslot" value="'.&mt('Create a New Slot').'" />	<input type="submit" name="newslot" value="'.&mt('Create a New Slot').'" />
</form>');	</form>');
	$r->print(&Apache::loncommon::help_open_topic('Slot AddInterface'));
$r->print('</div>');	$r->print('</div>');
}	}

Line 895 sub show_table {	Line 1029 sub show_table {
'endtime' => 'End Time',	'endtime' => 'End Time',
'startreserve' => 'Time students can start reserving',	'startreserve' => 'Time students can start reserving',
'secret' => 'Secret Word',	'secret' => 'Secret Word',
'maxspace' => 'Maximum # of students',	'space' => '# of students/max',
'ip' => 'IP or DNS restrictions',	'ip' => 'IP or DNS restrictions',
'symb' => 'Resource slot is restricted to.',	'symb' => 'Resource slot is restricted to.',
'allowedsections' => 'Sections slot is restricted to.',	'allowedsections' => 'Sections slot is restricted to.',
Line 904 sub show_table {	Line 1038 sub show_table {
'scheduled' => 'Scheduled Students',	'scheduled' => 'Scheduled Students',
'proctor' => 'List of proctors');	'proctor' => 'List of proctors');
my @show_order=('name','description','type','starttime','endtime',	my @show_order=('name','description','type','starttime','endtime',
'startreserve','secret','maxspace','ip','symb',	'startreserve','secret','space','ip','symb',
'allowedsections','allowedusers','uniqueperiod',	'allowedsections','allowedusers','uniqueperiod',
'scheduled','proctor');	'scheduled','proctor');
my @show =	my @show =
Line 952 sub show_table {	Line 1086 sub show_table {
my $name_filter = {'type' => $name_filter_type,	my $name_filter = {'type' => $name_filter_type,
'value' => $env{'form.name_filter_value'},};	'value' => $env{'form.name_filter_value'},};


#deleted slot filtering	#deleted slot filtering
	#default to hide if no value
	$env{'form.deleted'} \|\|= 'hide';
my $hide_radio =	my $hide_radio =
&Apache::lonhtmlcommon::radio('deleted',$env{'form.deleted'},'hide');	&Apache::lonhtmlcommon::radio('deleted',$env{'form.deleted'},'hide');
my $show_radio =	my $show_radio =
&Apache::lonhtmlcommon::radio('deleted',$env{'form.deleted'},'show');	&Apache::lonhtmlcommon::radio('deleted',$env{'form.deleted'},'show');

$r->print('<form method="POST" action="/adm/slotrequest">	$r->print('<form method="post" action="/adm/slotrequest">
<input type="hidden" name="command" value="showslots" />');	<input type="hidden" name="command" value="showslots" />');
$r->print('<div>');	$r->print('<div>');
$r->print('<table class="inline">	$r->print('<table class="inline">
Line 1001 sub show_table {	Line 1138 sub show_table {
$r->print('</div>');	$r->print('</div>');
$r->print('<p><input type="submit" name="start" value="'.&mt('Update Display').'" /></p>');	$r->print('<p><input type="submit" name="start" value="'.&mt('Update Display').'" /></p>');
my $linkstart='<a href="/adm/slotrequest?command=showslots&order=';	my $linkstart='<a href="/adm/slotrequest?command=showslots&order=';
$r->print('<table class="thinborder">	$r->print(&Apache::loncommon::start_data_table().
<tr>	&Apache::loncommon::start_data_table_header_row().'
<th></th>');	<th></th>');
foreach my $which (@show_order) {	foreach my $which (@show_order) {
if ($which ne 'proctor' && exists($show{$which})) {	if ($which ne 'proctor' && exists($show{$which})) {
$r->print('<th>'.$linkstart.$which.'">'.$show_fields{$which}.'</a></th>');	$r->print('<th>'.$linkstart.$which.'">'.$show_fields{$which}.'</a></th>');
}	}
}	}
	$r->print(&Apache::loncommon::end_data_table_header_row());

my %name_cache;	my %name_cache;
my $slotsort = sub {	my $slotsort = sub {
if ($env{'form.order'}=~/^(type\|description\|endtime\|startreserve\|maxspace\|ip\|symb\|allowedsections\|allowedusers)$/) {	if ($env{'form.order'}=~/^(type\|description\|endtime\|startreserve\|ip\|symb\|allowedsections\|allowedusers)$/) {
if (lc($slots{$a}->{$env{'form.order'}})	if (lc($slots{$a}->{$env{'form.order'}})
ne lc($slots{$b}->{$env{'form.order'}})) {	ne lc($slots{$b}->{$env{'form.order'}})) {
return (lc($slots{$a}->{$env{'form.order'}})	return (lc($slots{$a}->{$env{'form.order'}})
cmp lc($slots{$b}->{$env{'form.order'}}));	cmp lc($slots{$b}->{$env{'form.order'}}));
}	}
	} elsif ($env{'form.order'} eq 'space') {
	if ($slots{$a}{'maxspace'} ne $slots{$b}{'maxspace'}) {
	return ($slots{$a}{'maxspace'} cmp $slots{$b}{'maxspace'});
	}
} elsif ($env{'form.order'} eq 'name') {	} elsif ($env{'form.order'} eq 'name') {
if (lc($a) cmp lc($b)) {	if (lc($a) cmp lc($b)) {
return lc($a) cmp lc($b);	return lc($a) cmp lc($b);
Line 1037 sub show_table {	Line 1179 sub show_table {
}	}
return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'};	return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'};
};	};

	my %consumed;
	if (exists($show{'scheduled'}) \|\| exists($show{'space'}) ) {
	%consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum);
	my ($tmp)=%consumed;
	if ($tmp =~ /^error: /) { undef(%consumed); }
	}

foreach my $slot (sort $slotsort (keys(%slots))) {	foreach my $slot (sort $slotsort (keys(%slots))) {
if (!&to_show($slot,$slots{$slot},$when,	if (!&to_show($slot,$slots{$slot},$when,
$env{'form.deleted'},$name_filter)) { next; }	$env{'form.deleted'},$name_filter)) { next; }
Line 1045 sub show_table {	Line 1195 sub show_table {
#next;	#next;
}	}
my $description=&get_description($slot,$slots{$slot});	my $description=&get_description($slot,$slots{$slot});
my $ids;	my ($id_count,$ids);
if (exists($show{'scheduled'})) {
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,	if (exists($show{'scheduled'}) \|\| exists($show{'space'}) ) {
"^$slot\0");	my $re_str = "$slot\0";
my ($tmp)=%consumed;	my @this_slot = grep(/^\Q$re_str\E/,keys(%consumed));
if ($tmp !~ /^error: /) {	$id_count = scalar(@this_slot);
	if (exists($show{'scheduled'})) {
foreach my $entry (sort { $consumed{$a}{name} cmp	foreach my $entry (sort { $consumed{$a}{name} cmp
$consumed{$b}{name} }	$consumed{$b}{name} }
(keys(%consumed))) {	(@this_slot)) {
my (undef,$id)=split("\0",$entry);	my (undef,$id)=split("\0",$entry);
my ($uname,$udom) = split('@',$consumed{$entry}{'name'});	my ($uname,$udom) = split(':',$consumed{$entry}{'name'});
$ids.= '<nobr>';	$ids.= '<span class="LC_nobreak">';
foreach my $item (@stu_display_order) {	foreach my $item (@stu_display_order) {
if ($stu_display{$item}) {	if ($stu_display{$item}) {
if ($item eq 'fullname') {	if ($item eq 'fullname') {
$ids.=$fullname->{"$uname:$udom"}.' ';	$ids.=$fullname->{"$uname:$udom"}.' ';
} elsif ($item eq 'username') {	} elsif ($item eq 'username') {
$ids.="<tt>$uname\@$udom</tt> ";	$ids.="<tt>$uname:$udom</tt> ";
}	}
}	}
}	}
$ids.=&remove_link($slot,$entry,$uname,$udom,	$ids.=&remove_link($slot,$entry,$uname,$udom,
$consumed{$entry}{'symb'}).'</nobr><br />';	$consumed{$entry}{'symb'}).'</span><br />';
}	}
}	}
}	}
Line 1081 sub show_table {	Line 1232 sub show_table {

my $unique;	my $unique;
if (ref($slots{$slot}{'uniqueperiod'})) {	if (ref($slots{$slot}{'uniqueperiod'})) {
$unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.	$unique=localtime($slots{$slot}{'uniqueperiod'}[0]).', '.
localtime($slots{$slot}{'uniqueperiod'}[1]);	localtime($slots{$slot}{'uniqueperiod'}[1]);
}	}

Line 1122 sub show_table {	Line 1273 sub show_table {
if (exists($show{'proctor'})) {	if (exists($show{'proctor'})) {
$rowspan=2;	$rowspan=2;
@proctors= map {	@proctors= map {
my ($uname,$udom)=split(/@/,$_);	my ($uname,$udom)=split(/:/,$_);
my $fullname=$name_cache{$_};	my $fullname=$name_cache{$_};
if (!defined($fullname)) {	if (!defined($fullname)) {
$fullname = &Apache::loncommon::plainname($uname,$udom);	$fullname = &Apache::loncommon::plainname($uname,$udom);
Line 1139 sub show_table {	Line 1290 sub show_table {
EDITLINK	EDITLINK

my $delete=(<<"DELETELINK");	my $delete=(<<"DELETELINK");
<a href="/adm/slotrequest?command=delete&slotname=$slot">Delete</a>	<a href="/adm/slotrequest?command=delete&slotname=$slot">Delete</a>
DELETELINK	DELETELINK

my $remove_all=&remove_link($slot,'remove all');	my $remove_all=&remove_link($slot,'remove all').'<br />';

if ($ids ne '') { undef($delete); }	if ($ids ne '') { undef($delete); }
if ($slots{$slot}{'type'} ne 'schedulable_student') {	if ($slots{$slot}{'type'} ne 'schedulable_student'
	\|\| $ids eq '') {
undef($remove_all);	undef($remove_all);
}	}

$r->print("<tr>\n<td rowspan=\"$rowspan\">$edit $delete $remove_all</td>\n");	my $row_start=&Apache::loncommon::start_data_table_row();
	my $row_end=&Apache::loncommon::end_data_table_row();
	$r->print($row_start.
	"\n<td rowspan=\"$rowspan\">$edit $delete</td>\n");
if (exists($show{'name'})) {	if (exists($show{'name'})) {
$colspan++;$r->print("<td>$slot</td>");	$colspan++;$r->print("<td>$slot</td>");
}	}
Line 1171 DELETELINK	Line 1326 DELETELINK
if (exists($show{'secret'})) {	if (exists($show{'secret'})) {
$colspan++;$r->print("<td>$slots{$slot}{'secret'}</td>\n");	$colspan++;$r->print("<td>$slots{$slot}{'secret'}</td>\n");
}	}
if (exists($show{'maxspace'})) {	if (exists($show{'space'})) {
$colspan++;$r->print("<td>$slots{$slot}{'maxspace'}</td>\n");	my $display = $id_count;
	if ($slots{$slot}{'maxspace'}>0) {
	$display.='/'.$slots{$slot}{'maxspace'};
	if ($slots{$slot}{'maxspace'} <= $id_count) {
	$display = '<strong>'.$display.' (full) </strong>';
	}
	}
	$colspan++;$r->print("<td>$display</td>\n");
}	}
if (exists($show{'ip'})) {	if (exists($show{'ip'})) {
$colspan++;$r->print("<td>$slots{$slot}{'ip'}</td>\n");	$colspan++;$r->print("<td>$slots{$slot}{'ip'}</td>\n");
Line 1186 DELETELINK	Line 1348 DELETELINK
if (exists($show{'allowedusers'})) {	if (exists($show{'allowedusers'})) {
$colspan++;$r->print("<td>$allowedusers</td>\n");	$colspan++;$r->print("<td>$allowedusers</td>\n");
}	}
	if (exists($show{'uniqueperiod'})) {
	$colspan++;$r->print("<td>$unique</td>\n");
	}
if (exists($show{'scheduled'})) {	if (exists($show{'scheduled'})) {
$colspan++;$r->print("<td>$ids</td>\n</tr>\n");	$colspan++;$r->print("<td>$remove_all $ids</td>\n");
}	}
	$r->print("$row_end\n");
if (exists($show{'proctor'})) {	if (exists($show{'proctor'})) {
$r->print(<<STUFF);	$r->print(<<STUFF);
<tr>	$row_start
<td colspan="$colspan">$proctors</td>	<td colspan="$colspan">$proctors</td>
</tr>	$row_end
STUFF	STUFF
}	}
}	}
$r->print('</table>');	$r->print('</table></form>');
}	}

sub upload_start {	sub upload_start {
Line 1207 sub upload_start {	Line 1373 sub upload_start {
$result.=' <b>'.	$result.=' <b>'.
&mt('Specify a file containing the slot definitions.').	&mt('Specify a file containing the slot definitions.').
'</b></td></tr>'."\n";	'</b></td></tr>'."\n";
$result.='<tr bgcolor=#ffffe6><td>'."\n";	$result.='<tr bgcolor="#ffffe6"><td>'."\n";
my $upfile_select=&Apache::loncommon::upfile_select_html();	my $upfile_select=&Apache::loncommon::upfile_select_html();
my $ignore=&mt('Ignore First Line');	my $ignore=&mt('Ignore First Line');
$result.=<<ENDUPFORM;	$result.=<<ENDUPFORM;
Line 1234 sub csvuploadmap_header {	Line 1400 sub csvuploadmap_header {

my $checked=(($env{'form.noFirstLine'})?' checked="checked"':'');	my $checked=(($env{'form.noFirstLine'})?' checked="checked"':'');
my $ignore=&mt('Ignore First Line');	my $ignore=&mt('Ignore First Line');
	my $help_field = &Apache::loncommon::help_open_topic('Slot SelectingField');

$r->print(<<ENDPICK);	$r->print(<<ENDPICK);
<form method="post" enctype="multipart/form-data" action="/adm/slotrequest" name="slotupload">	<form method="post" enctype="multipart/form-data" action="/adm/slotrequest" name="slotupload">
<h3>Identify fields</h3>	<h3>Identify fields $help_field</h3>
Total number of records found in file: $distotal <hr />	Total number of records found in file: $distotal <hr />
Enter as many fields as you can. The system will inform you and bring you back	Enter as many fields as you can. The system will inform you and bring you back
to this page if the data selected is insufficient to create the slots.<hr />	to this page if the data selected is insufficient to create the slots.<hr />
Line 1260 ENDPICK	Line 1428 ENDPICK

sub csvuploadmap_footer {	sub csvuploadmap_footer {
my ($request,$i,$keyfields) =@_;	my ($request,$i,$keyfields) =@_;
	my $buttontext = &mt('Create Slots');
$request->print(<<ENDPICK);	$request->print(<<ENDPICK);
</table>	</table>
<input type="hidden" name="nfields" value="$i" />	<input type="hidden" name="nfields" value="$i" />
<input type="hidden" name="keyfields" value="$keyfields" />	<input type="hidden" name="keyfields" value="$keyfields" />
<input type="button" onClick="javascript:verify(this.form)" value="Create Slots" /><br />	<input type="button" onClick="javascript:verify(this.form)" value="$buttontext" /><br />
</form>	</form>
ENDPICK	ENDPICK
}	}
Line 1381 sub csv_upload_assign {	Line 1550 sub csv_upload_assign {
my @slotdata = &Apache::loncommon::upfile_record_sep();	my @slotdata = &Apache::loncommon::upfile_record_sep();
if ($env{'form.noFirstLine'}) { shift(@slotdata); }	if ($env{'form.noFirstLine'}) { shift(@slotdata); }
my %fields=&Apache::grades::get_fields();	my %fields=&Apache::grades::get_fields();
$r->print('<h3>Creating Slots</h3>');	$r->print('<h3>'.&mt('Creating Slots').'</h3>');
my $cname=$env{'course.'.$env{'request.course.id'}.'.num'};	my $cname=$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 $countdone=0;	my $countdone=0;
Line 1419 sub csv_upload_assign {	Line 1588 sub csv_upload_assign {
if ($entries{$fields{'endtime'}}) {	if ($entries{$fields{'endtime'}}) {
$slot{'endtime'}=&UnixDate($entries{$fields{'endtime'}},"%s");	$slot{'endtime'}=&UnixDate($entries{$fields{'endtime'}},"%s");
}	}

	# start/endtime must be defined and greater than zero
	if (!$slot{'starttime'}) {
	push(@errors,"$name not created -- Invalid start time");
	next;
	}
	if (!$slot{'endtime'}) {
	push(@errors,"$name not created -- Invalid end time");
	next;
	}
	if ($slot{'starttime'} > $slot{'endtime'}) {
	push(@errors,"$name not created -- Slot starts after it ends");
	next;
	}

if ($entries{$fields{'startreserve'}}) {	if ($entries{$fields{'startreserve'}}) {
$slot{'startreserve'}=	$slot{'startreserve'}=
&UnixDate($entries{$fields{'startreserve'}},"%s");	&UnixDate($entries{$fields{'startreserve'}},"%s");
}	}
	if (defined($slot{'startreserve'})
	&& $slot{'startreserve'} > $slot{'starttime'}) {
	push(@errors,"$name not created -- Slot's reservation start time is after the slot's start time.");
	next;
	}

foreach my $key ('ip','proctor','description','maxspace',	foreach my $key ('ip','proctor','description','maxspace',
'secret','symb') {	'secret','symb') {
if ($entries{$fields{$key}}) {	if ($entries{$fields{$key}}) {
$slot{$key}=$entries{$fields{$key}};	$slot{$key}=$entries{$fields{$key}};
}	}
}	}

if ($entries{$fields{'uniqueperiod'}}) {	if ($entries{$fields{'uniqueperiod'}}) {
my ($start,$end)=split(',',$entries{$fields{'uniqueperiod'}});	my ($start,$end)=split(',',$entries{$fields{'uniqueperiod'}});
my @times=(&UnixDate($start,"%s"),	my @times=(&UnixDate($start,"%s"),
&UnixDate($end,"%s"));	&UnixDate($end,"%s"));
$slot{'uniqueperiod'}=\@times;	$slot{'uniqueperiod'}=\@times;
}	}
	if (defined($slot{'uniqueperiod'})
	&& $slot{'uniqueperiod'}[0] > $slot{'uniqueperiod'}[1]) {
	push(@errors,"$name not created -- Slot's unique period start time is later than the unique period's end time.");
	next;
	}

&Apache::lonnet::cput('slots',{$name=>\%slot},$cdom,$cname);	&Apache::lonnet::cput('slots',{$name=>\%slot},$cdom,$cname);
$r->print('.');	$r->print('.');
$r->rflush();	$r->rflush();
$countdone++;	$countdone++;
}	}
$r->print("<p>Created $countdone slots\n</p>");	$r->print('<p>'.&mt('Created [quant,_1,slot]',$countdone)."\n".'</p>');
foreach my $error (@errors) {	foreach my $error (@errors) {
$r->print("<p>$error\n</p>");	$r->print('<p><span class="LC_warning">'.$error.'</span></p>'."\n");
}	}
&show_table($r,$mgr);	&show_table($r,$mgr);
return '';	return '';
Line 1497 sub handler {	Line 1693 sub handler {
&csv_upload_map($r);	&csv_upload_map($r);
}	}
} else {	} else {
my $symb=&Apache::lonnet::unescape($env{'form.symb'});	my $symb=&unescape($env{'form.symb'});
	if (!defined($symb)) {
	&fail($r,'not_valid');
	return OK;
	}
my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);	my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);
my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);	my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);
if ($useslots ne 'resource') {	if ($useslots ne 'resource'
&fail($r,'not_valid');	&& $useslots ne 'map'
	&& $useslots ne 'map_map') {
	&fail($r,'not_available');
return OK;	return OK;
}	}
$env{'request.symb'}=$symb;	$env{'request.symb'}=$symb;
Line 1521 sub handler {	Line 1723 sub handler {
} elsif ($env{'form.command'} eq 'get') {	} elsif ($env{'form.command'} eq 'get') {
&get_slot($r,$symb);	&get_slot($r,$symb);
} elsif ($env{'form.command'} eq 'change') {	} elsif ($env{'form.command'} eq 'change') {
if (&release_slot($r,$symb,$env{'form.releaseslot'},1)) {	if (&get_slot($r,$symb,$env{'form.releaseslot'},1)) {
&get_slot($r,$symb);	&release_slot($r,$symb,$env{'form.releaseslot'});
}	}
} else {	} else {
$r->print("<p>Unknown command: ".$env{'form.command'}."</p>");	$r->print('<p>'.&mt('Unknown command: [_1]',$env{'form.command'}).'</p>');
}	}
}	}
&end_page($r);	&end_page($r);

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

Removed from v.1.55
changed lines
	Added in v.1.89