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

Diff for /loncom/interface/loncreateuser.pm between versions 1.245 and 1.247

version 1.245, 2008/06/27 16:31:16 version 1.247, 2008/07/04 18:30:30
Line 2069  END Line 2069  END
         if ($env{'form.popup'}) {          if ($env{'form.popup'}) {
             $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');              $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');
         } else {          } else {
             $r->print('<p><a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'.&mt('Modify this user: <span class="LC_cusr_emph">([_1])</span>',$userinfo).'</a>'.('&nbsp;'x5).'<a href="javascript:backPage(document.userupdate)">'.&mt('Create/Modify Another User').'</a></p>');              $r->print('<p><a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'
                        .&mt('Modify this user: [_1]','<span class="LC_cusr_emph">'.$env{'form.ccuname'}.':'.$env{'form.ccdomain'}.' ('.$userinfo.')</span>').'</a>'
                        .('&nbsp;'x5).'<a href="javascript:backPage(document.userupdate)">'
                        .&mt('Create/Modify Another User').'</a></p>');
         }          }
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
Line 3357  sub selfenroll_inst_types { Line 3360  sub selfenroll_inst_types {
     my $numinrow = 4;      my $numinrow = 4;
     my $count = 0;      my $count = 0;
     my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);      my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);
       my $othervalue = 'any';
     if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {      if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {
           if (@{$types} > 0) {
               $othervalue = 'other';
           }
         $output .= '<table><tr>';          $output .= '<table><tr>';
         foreach my $type (@{$types}) {          foreach my $type (@{$types}) {
             if (($count > 0) && ($count%$numinrow == 0)) {              if (($count > 0) && ($count%$numinrow == 0)) {
Line 3380  sub selfenroll_inst_types { Line 3387  sub selfenroll_inst_types {
         if (($count > 0) && ($count%$numinrow == 0)) {          if (($count > 0) && ($count%$numinrow == 0)) {
             $output .= '</tr><tr>';              $output .= '</tr><tr>';
         }          }
         $output .= '<td><span class="LC_nobreak"><label><input type = "checkbox" value="other" ';          $output .= '<td><span class="LC_nobreak"><label><input type = "checkbox" value="'.$othervalue.'" ';
         if (ref($currinsttypes) eq 'ARRAY') {          if (ref($currinsttypes) eq 'ARRAY') {
             if (@{$currinsttypes} > 0) {              if (@{$currinsttypes} > 0) {
                 if (grep(/^other$/,@{$currinsttypes})) {                  if (grep(/^other$/,@{$currinsttypes})) {
Removed from v.1.245  
changed lines
  Added in v.1.247

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