[BACK]Return to createaccount.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/createaccount.pm between versions 1.29 and 1.31

version 1.29, 2009/03/12 13:41:11 version 1.31, 2009/03/12 14:13:34
Line 86  sub handler { Line 86  sub handler {
     my $start_page;      my $start_page;
   
     my $handle = &Apache::lonnet::check_for_valid_session($r);      my $handle = &Apache::lonnet::check_for_valid_session($r);
     if ($handle ne '') {      if (($handle ne '') && ($handle !~ /^publicuser_\d+$/)) {
         $start_page =          $start_page =
             &Apache::loncommon::start_page('Already logged in');              &Apache::loncommon::start_page('Already logged in');
         my $end_page =          my $end_page =
Line 467  sub login_box { Line 467  sub login_box {
     my $upassform = '<input type="password" name="upass'.$now.'" size="10" />';      my $upassform = '<input type="password" name="upass'.$now.'" size="10" />';
     $output .= '<form name="client" method="post" action="/adm/createaccount">'."\n".      $output .= '<form name="client" method="post" action="/adm/createaccount">'."\n".
                &Apache::lonhtmlcommon::start_pick_box()."\n";                 &Apache::lonhtmlcommon::start_pick_box()."\n";
     if ($context eq 'selfenroll') {  
         my $udomform =  '<input type="text" name="udom" size="10" value="'.  
                         $domain.'" />';  
         $output .= &Apache::lonhtmlcommon::row_title(&mt('Domain'),  
                                                      'LC_pick_box_title')."\n".  
                    $udomform."\n".  
                    &Apache::lonhtmlcommon::row_closure(1)."\n";  
     }  
   
     $output .= &Apache::lonhtmlcommon::row_title($titles{$context},      $output .= &Apache::lonhtmlcommon::row_title($titles{$context},
                                                  'LC_pick_box_title')."\n".                                                   'LC_pick_box_title')."\n".
                $unameform."\n".                 $unameform."\n".
                &Apache::lonhtmlcommon::row_closure(1)."\n".                 &Apache::lonhtmlcommon::row_closure(1)."\n".
                &Apache::lonhtmlcommon::row_title(&mt('Password'),                 &Apache::lonhtmlcommon::row_title(&mt('Password'),
                                                 'LC_pick_box_title')."\n".                                                  'LC_pick_box_title')."\n".
                $upassform."\n".'<br /><br />'."\n".                 $upassform;
       if ($context eq 'selfenroll') {
           my $udomform =  '<input type="text" name="udom" size="10" value="'.
                           $domain.'" />';
           $output .= &Apache::lonhtmlcommon::row_closure(1)."\n".
                      &Apache::lonhtmlcommon::row_title(&mt('Domain'),
                                                        'LC_pick_box_title')."\n".
                      $udomform."\n";
       }
   
       $output .= &Apache::lonhtmlcommon::row_closure(0).
                  &Apache::lonhtmlcommon::row_title().
                '<input type="button" name="username_validation" value="'.                 '<input type="button" name="username_validation" value="'.
                $submit_text.'" onclick="javascript:send()" />'."\n".                 $submit_text.'" onclick="javascript:send()" />'."\n".
                &Apache::lonhtmlcommon::row_closure(1)."\n".                 &Apache::lonhtmlcommon::row_closure(1)."\n".
Removed from v.1.29  
changed lines
  Added in v.1.31

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>