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

Diff for /loncom/interface/lonuserutils.pm between versions 1.47 and 1.50

version 1.47, 2008/01/07 03:00:00 version 1.50, 2008/01/20 22:25:05
Line 1994  function username_display_launch(usernam Line 1994  function username_display_launch(usernam
         }          }
     }      }
     if (target == 'modify') {      if (target == 'modify') {
         document.studentform.srchterm.value=username;          if (document.studentform.userwin.checked == true) {
         document.studentform.srchdomain.value=domain;              var url = '/adm/createuser?srchterm='+username+'&srchdomain='+domain+'&phase=get_user_info&action=singleuser&srchin=dom&srchby=uname&srchtype=exact&popup=1';
         document.studentform.phase.value='get_user_info';              var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
         document.studentform.action.value = 'singleuser';              modifywin = window.open(url,'',options,1);
         document.studentform.submit();              modifywin.focus();
               return;
           } else {
               document.studentform.srchterm.value=username;
               document.studentform.srchdomain.value=domain;
               document.studentform.phase.value='get_user_info';
               document.studentform.action.value = 'singleuser';
               document.studentform.submit();
           }
     }      }
     else {      if (target == 'aboutme') {
         document.location.href = '/adm/'+domain+'/'+username+'/aboutme';          if (document.studentform.userwin.checked == true) {
               var url = '/adm/'+domain+'/'+username+'/aboutme?popup=1';
               var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
               aboutmewin = window.open(url,'',options,1);
               aboutmewin.focus();
               return;
           } else {
               document.location.href = '/adm/'+domain+'/'+username+'/aboutme';
           }
     }      }
 }  }
 </script>  </script>
Line 2036  END Line 2052  END
                        'ac'         => "Action to take for selected users",                         'ac'         => "Action to take for selected users",
                        'link'       => "Behavior of username links",                         'link'       => "Behavior of username links",
                        'aboutme'    => "Display a user's personal page",                         'aboutme'    => "Display a user's personal page",
                          'owin'       => "Open in a new window",
                        'modify'     => "Modify a user's information",                         'modify'     => "Modify a user's information",
                       );                        );
     if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {      if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
Line 2094  END Line 2111  END
             $output = '<p>';              $output = '<p>';
             my @linkdests = ('aboutme');              my @linkdests = ('aboutme');
             if ($permission->{'cusr'}) {              if ($permission->{'cusr'}) {
                 push (@linkdests,'modify');                  unshift (@linkdests,'modify');
                 $output .= '<span class="LC_nobreak">'.$lt{'link'}.':&nbsp;';              }
                 my $usernamelink = $env{'form.usernamelink'};              $output .= '<span class="LC_nobreak">'.$lt{'link'}.':&nbsp;';
                 if ($usernamelink eq '') {              my $usernamelink = $env{'form.usernamelink'};
                     $usernamelink = 'aboutme';              if ($usernamelink eq '') {
                 }                  $usernamelink = 'aboutme';
                 foreach my $item (@linkdests) {              }
                     my $checkedstr = '';              foreach my $item (@linkdests) {
                     if ($item eq $usernamelink) {                  my $checkedstr = '';
                         $checkedstr = ' checked="checked" ';                  if ($item eq $usernamelink) {
                     }                      $checkedstr = ' checked="checked" ';
                     $output .= '<label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.'>&nbsp;'.$lt{$item}.'</label>&nbsp;&nbsp;';  
                 }                  }
                 $output .= '</span><br />';                  $output .= '<label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.'>&nbsp;'.$lt{$item}.'</label>&nbsp;&nbsp;';
             } else {  
                 $output .= &mt("Click on a username to view the user's personal page.").'<br />';  
             }              }
               my $checkwin;
               if ($env{'form.userwin'}) { 
                   $checkwin = 'checked = "checked"'; 
               }
               $output .= '&nbsp;&nbsp;&nbsp;&nbsp;<input type="checkbox" name="userwin" value="1" $checkwin />'.$lt{'owin'}.'</span><br />';
             if ($actionselect) {              if ($actionselect) {
                 $output .= <<"END";                  $output .= <<"END";
 $lt{'ac'}:&nbsp;$actionselect <input type="button" value="$lt{'go'}" onclick="javascript:opendatebrowser(this.form,'studentform','go')" /></p>  $lt{'ac'}:&nbsp;$actionselect <input type="button" value="$lt{'go'}" onclick="javascript:opendatebrowser(this.form,'studentform','go')" /></p>
Line 2463  END Line 2482  END
             }              }
             foreach my $item (@cols) {              foreach my $item (@cols) {
                 if ($item eq 'username') {                  if ($item eq 'username') {
                     $r->print('<td>'.&print_username_link($mode,$permission,                      $r->print('<td>'.&print_username_link($mode,\%in).'</td>');
                                                           \%in).'</td>');  
                 } elsif (($item eq 'start' || $item eq 'end') && ($actionselect)) {                  } elsif (($item eq 'start' || $item eq 'end') && ($actionselect)) {
                     $r->print('<td>'.$in{$item}.'<input type="hidden" name="'.$checkval.'_'.$item.'" value="'.$sdata->[$index{$item}].'" /></td>'."\n");                      $r->print('<td>'.$in{$item}.'<input type="hidden" name="'.$checkval.'_'.$item.'" value="'.$sdata->[$index{$item}].'" /></td>'."\n");
                 } else {                  } else {
Line 2548  END Line 2566  END
 }  }
   
 sub print_username_link {  sub print_username_link {
     my ($mode,$permission,$in) = @_;      my ($mode,$in) = @_;
     my $output;      my $output;
     if ($mode eq 'autoenroll') {      if ($mode eq 'autoenroll') {
         $output = $in->{'username'};          $output = $in->{'username'};
     } elsif (!$permission->{'cusr'}) {  
         $output = &Apache::loncommon::aboutmewrapper($in->{'username'},  
                                                      $in->{'username'},  
                                                      $in->{'domain'});  
     } else {      } else {
         $output = '<a href="javascript:username_display_launch('.          $output = '<a href="javascript:username_display_launch('.
                   "'$in->{'username'}','$in->{'domain'}'".')" />'.                    "'$in->{'username'}','$in->{'domain'}'".')" />'.
Line 2666  sub select_actions { Line 2680  sub select_actions {
   
 sub date_section_javascript {  sub date_section_javascript {
     my ($context,$setting) = @_;      my ($context,$setting) = @_;
     my $title;      my $title = 'Date_And_Section_Selector';
     if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course'))  {  
         $title = &mt('Date and Section selector');  
     } else {  
         $title = &mt('Date selector');  
     }  
     my %nopopup = &Apache::lonlocal::texthash (      my %nopopup = &Apache::lonlocal::texthash (
         revoke => "Check the boxes for any users for whom roles are to be revoked, and click 'Proceed'",          revoke => "Check the boxes for any users for whom roles are to be revoked, and click 'Proceed'",
         delete => "Check the boxes for any users for whom roles are to be deleted, and click 'Proceed'",          delete => "Check the boxes for any users for whom roles are to be deleted, and click 'Proceed'",
         none   => "Choose an action to take for selected users",          none   => "Choose an action to take for selected users",
     );        );  
     my $output = '      my $output = '
 <script type="text/javascript">  <script type="text/javascript">'."\n";
     var stdeditbrowser;'."\n";  
     $output .= <<"ENDONE";      $output .= <<"ENDONE";
     function opendatebrowser(callingform,formname,calledby) {      function opendatebrowser(callingform,formname,calledby) {
         var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;          var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;
Removed from v.1.47  
changed lines
  Added in v.1.50

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