loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.125.2.3, 2016/10/24 01:13:54	version 1.125.2.4, 2018/06/27 14:26:28
Line 841 sub get_slot {	Line 841 sub get_slot {
if ($slot_name && $slot_name ne $conflictable_slot) {	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);
	my $slottype1=$slot{'type'};
%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);
if ($slot_name ne $env{'form.slotname'}) {	if ($slottype1 eq 'preassigned') {
	$r->print('<p>'.&mt('You already have a reservation: "[_1]", assigned by your instructor.',
	$description1).'</p>'.
	'<p>'.&mt('Your instructor must unassign it before you can make a new reservation.').
	'</p>');
	} elsif ($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'}" />