loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.55, 2006/03/30 04:35:58	version 1.56, 2006/03/30 05:20:44
Line 1142 EDITLINK	Line 1142 EDITLINK
<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");	$r->print("<tr>\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 1187 DELETELINK	Line 1188 DELETELINK
$colspan++;$r->print("<td>$allowedusers</td>\n");	$colspan++;$r->print("<td>$allowedusers</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</tr>\n");
}	}
if (exists($show{'proctor'})) {	if (exists($show{'proctor'})) {
$r->print(<<STUFF);	$r->print(<<STUFF);