[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.248

version 1.245, 2008/06/27 16:31:16 version 1.248, 2008/07/07 16:42:26
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})) {
Line 3449  sub print_userchangelogs_display { Line 3456  sub print_userchangelogs_display {
             $curr{$key} = $defaults{$key};              $curr{$key} = $defaults{$key};
         }          }
     }      }
     my (%whodunit,%changed);      my (%whodunit,%changed,$version);
     $r->print(&role_display_filter($formname,$cdom,$cnum,\%curr));      ($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);
       $r->print(&role_display_filter($formname,$cdom,$cnum,\%curr,$version));
     my $showntablehdr = 0;      my $showntablehdr = 0;
     my $tablehdr = &Apache::loncommon::start_data_table().      my $tablehdr = &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row().                     &Apache::loncommon::start_data_table_header_row().
Line 3567  ENDSCRIPT Line 3575  ENDSCRIPT
 }  }
   
 sub role_display_filter {  sub role_display_filter {
     my ($formname,$cdom,$cnum,$curr) = @_;      my ($formname,$cdom,$cnum,$curr,$version) = @_;
     my $context = 'course';      my $context = 'course';
     my $nolink = 1;      my $nolink = 1;
     my $output = '<table><tr><td valign="top">'.      my $output = '<table><tr><td valign="top">'.
Line 3618  sub role_display_filter { Line 3626  sub role_display_filter {
             next if (!&Apache::lonnet::auto_run($cnum,$cdom));              next if (!&Apache::lonnet::auto_run($cnum,$cdom));
         }          }
         $output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n";          $output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n";
     }       }
     $output .= '</select></td><td>&nbsp;&nbsp;</td><td valign="middle"><input type="submit" value="'.      $output .= '</select></td><td>&nbsp;&nbsp;</td><td valign="middle"><input type="submit" value="'.
                &mt('Update Display').'" /></tr></table><hr noshade><br />';                 &mt('Update Display').'" /></tr></table>'.
                  '<span class="LC_roleslog_note">'.
                  &mt('[_1]Note:[_2] Only changes made from servers running LON-CAPA 2.6.99.0 or later are displayed.');
       if ($version) {
           $output .= ' '.&mt('This server is version [_3].','<b>','</b>',$version);    }
       $output .= '</span><hr noshade><br />';
     return $output;      return $output;
 }  }
   
Removed from v.1.245  
changed lines
  Added in v.1.248

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