loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.89, 2009/03/01 03:23:18	version 1.90, 2009/03/20 10:05:08
Line 397 sub remove_registration_confirmation {	Line 397 sub remove_registration_confirmation {
'<input type="hidden" name="'.$parm.'" value="'	'<input type="hidden" name="'.$parm.'" value="'
.&HTML::Entities::encode($env{'form.'.$parm},'"<>&\'').'" />'."\n";	.&HTML::Entities::encode($env{'form.'.$parm},'"<>&\'').'" />'."\n";
}	}
my %lt = &Apache::lonlocal::texthash('yes' => 'Yes',	my %lt = &Apache::lonlocal::texthash(
'no' => 'No',);	'yes' => 'Yes',
	'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">
Line 665 STUFF	Line 667 STUFF
return 1;	return 1;
}	}

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

my $extra_input;	my $extra_input;
if ($conflictable_slot) {	if ($conflictable_slot) {