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

Diff for /loncom/interface/loncreateuser.pm between versions 1.301 and 1.302

version 1.301, 2009/08/04 18:02:30 version 1.302, 2009/08/04 19:59:19
Line 530  END Line 530  END
   
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_selection_page {  sub print_user_selection_page {
     my ($r,$response,$srch,$srch_results,$srcharray,$context) = @_;      my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements) = @_;
     my @fields = ('username','domain','lastname','firstname','permanentemail');      my @fields = ('username','domain','lastname','firstname','permanentemail');
     my $sortby = $env{'form.sortby'};      my $sortby = $env{'form.sortby'};
   
Line 566  ENDSCRIPT Line 566  ENDSCRIPT
                                        'firstname'      => "first name",                                         'firstname'      => "first name",
                                        'permanentemail' => "permanent e-mail",                                         'permanentemail' => "permanent e-mail",
                                       );                                        );
     $r->print(&Apache::loncommon::start_page('User Management',$jscript));      if ($context eq 'requestcrs') {
           $r->print('<div>');
     my %breadcrumb_text = &singleuser_breadcrumb();      } else {
     &Apache::lonhtmlcommon::add_breadcrumb          $r->print(&Apache::loncommon::start_page('User Management',$jscript));
         ({href=>"javascript:backPage(document.usersrchform,'','')",  
           text=>$breadcrumb_text{'search'},          my %breadcrumb_text = &singleuser_breadcrumb();
           faq=>282,bug=>'Instructor Interface',},          &Apache::lonhtmlcommon::add_breadcrumb
          {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",              ({href=>"javascript:backPage(document.usersrchform,'','')",
           text=>$breadcrumb_text{'userpicked'},                text=>$breadcrumb_text{'search'},
           faq=>282,bug=>'Instructor Interface',});                faq=>282,bug=>'Instructor Interface',},
     if ($env{'form.action'} eq 'singleuser') {               {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',                text=>$breadcrumb_text{'userpicked'},
                                                       'Course_Change_Privileges'));                faq=>282,bug=>'Instructor Interface',});
         $r->print("<b>$lt{'usrch'}</b><br />");          if ($env{'form.action'} eq 'singleuser') {
         $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));              $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
         $r->print('<h3>'.$lt{'usel'}.'</h3>');                                                            'Course_Change_Privileges'));
     } elsif ($env{'form.action'} eq 'singlestudent') {              $r->print("<b>$lt{'usrch'}</b><br />");
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',              $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));
                                                       'Course_Add_Student'));              $r->print('<h3>'.$lt{'usel'}.'</h3>');
         $r->print($jscript."<b>$lt{'stusrch'}</b><br />");          } elsif ($env{'form.action'} eq 'singlestudent') {
         $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));              $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
         $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');                                                            'Course_Add_Student'));
               $r->print($jscript."<b>$lt{'stusrch'}</b><br />");
               $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));
               $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');
           }
     }      }
     $r->print('<form name="usersrchform" method="post">'.      $r->print('<form name="usersrchform" method="post">'.
               &Apache::loncommon::start_data_table()."\n".                &Apache::loncommon::start_data_table()."\n".
Line 612  ENDSCRIPT Line 616  ENDSCRIPT
   
     foreach my $user (@sorted_users) {      foreach my $user (@sorted_users) {
         my ($uname,$udom) = split(/:/,$user);          my ($uname,$udom) = split(/:/,$user);
           my $onclick;
           if ($context eq 'requestcrs') {
               $onclick = 
                   'onclick="javascript:gochoose('."'$uname','$udom',".
                                                  "'$srch_results->{$user}->{firstname}',".
                                                  "'$srch_results->{$user}->{lastname}',".
                                                  "'$srch_results->{$user}->{permanentemail}'".');"';
           } else {
               $onclick = 
                   ' onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".');"';
           }
         $r->print(&Apache::loncommon::start_data_table_row().          $r->print(&Apache::loncommon::start_data_table_row().
                   '<td><input type="button" name="seluser" value="'.&mt('Select').'" onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".')" /></td>'.                    '<td><input type="button" name="seluser" value="'.&mt('Select').'" '.
                     $onclick.' /></td>'.
                   '<td><tt>'.$uname.'</tt></td>'.                    '<td><tt>'.$uname.'</tt></td>'.
                   '<td><tt>'.$udom.'</tt></td>');                    '<td><tt>'.$udom.'</tt></td>');
         foreach my $field ('lastname','firstname','permanentemail') {          foreach my $field ('lastname','firstname','permanentemail') {
Line 633  ENDSCRIPT Line 649  ENDSCRIPT
               ' <input type="hidden" name="currstate" value="select" />'."\n".                ' <input type="hidden" name="currstate" value="select" />'."\n".
               ' <input type="hidden" name="phase" value="get_user_info" />'."\n".                ' <input type="hidden" name="phase" value="get_user_info" />'."\n".
               ' <input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n");                ' <input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n");
     $r->print($response.'</form>'.&Apache::loncommon::end_page());      if ($context eq 'requestcrs') {
           $r->print($opener_elements.'</form></div>');
       } else {
           $r->print($response.'</form>'.&Apache::loncommon::end_page());
       }
 }  }
   
 sub print_user_query_page {  sub print_user_query_page {
Removed from v.1.301  
changed lines
  Added in v.1.302

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