loncom/auth/restrictedaccess.pm - diff

Return to restrictedaccess.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.5, 2006/07/21 19:42:12	version 1.7, 2008/12/11 14:52:26
Line 73 sub handler {	Line 73 sub handler {
sub setup_handler {	sub setup_handler {
my ($r) = @_;	my ($r) = @_;
$r->set_handlers('PerlHandler'=>	$r->set_handlers('PerlHandler'=>
\&Apache::restrictedaccess::handler);	[\&Apache::restrictedaccess::handler]);
$r->content_type('perl-script');	$r->handler('perl-script');
}	}

sub print_entryform {	sub print_entryform {
Line 97 function verify() {	Line 97 function verify() {
$r->print('<br /><br /><br />');	$r->print('<br /><br /><br />');
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
$r->print('<td><nobr>'.&mt('Passphrase: ').'</nobr></td>'.	$r->print('<td><span class="LC_nobreak">'.&mt('Passphrase: ').'</span></td>'.
'<td><input type="password" size="20" name="pass1" /></td>');	'<td><input type="password" size="20" name="pass1" /></td>');
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());