loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2005/10/17 19:26:50	version 1.26, 2005/10/26 23:37:51
Line 34 use Apache::Constants qw(:common :http :	Line 34 use Apache::Constants qw(:common :http :
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use Date::Manip;	# use Date::Manip;

sub fail {	sub fail {
my ($r,$code)=@_;	my ($r,$code)=@_;
Line 548 sub show_table {	Line 548 sub show_table {
my $proctors=join(', ',@proctors);	my $proctors=join(', ',@proctors);

my $edit=(<<EDITFORM);	my $edit=(<<EDITFORM);
<form method="POST">	<form method="POST" action="/adm/helper/newslot.helper">
<input type="hidden" name="command" value="editslot" />	<input type="hidden" name="name" value="$slot" />
<input type="hidden" name="slot" value="$slot" />
<input type="submit" name="Edit" value="Edit" />	<input type="submit" name="Edit" value="Edit" />
</form>	</form>
EDITFORM	EDITFORM