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

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.127 and 1.134

version 1.127, 2005/04/07 06:56:23 version 1.134, 2006/02/07 05:08:32
Line 137  sub domain_form { Line 137  sub domain_form {
 ###############################################################  ###############################################################
 #  Menu Phase One  #  Menu Phase One
 sub print_main_menu {  sub print_main_menu {
     my ($r,$enrl_permission,$view_permission)=@_;      my ($r,$enrl_permission,$view_permission,$grp_manage_permission,
           $grp_view_permission)=@_;
     #      #
     my ($cdom,$cnum) = split/_/,$env{'request.course.id'};      my ($cdom,$cnum) = split/_/,$env{'request.course.id'};
     my @menu =       my @menu = 
Line 171  sub print_main_menu { Line 172  sub print_main_menu {
             permission => &Apache::lonnet::auto_run($cnum,$cdom),              permission => &Apache::lonnet::auto_run($cnum,$cdom),
             url  => '/adm/populate',              url  => '/adm/populate',
             },              },
   #          { text => 'Create a new group',
   #            help => 'Course_Create_Group',
   #            permission => $grp_manage_permission,
   #            url => '/adm/coursegroups?refpage=enrl&action=create',
   #            },
   #          { text => 'Modify an existing group',
   #            help => 'Course_Modify_Group',
   #            permission => $grp_manage_permission,
   #            url => '/adm/coursegroups?refpage=enrl&action=modify',
   #            },
   #          { text => 'Delete an existing group',
   #            help => 'Course_Delete_Group',
   #            permission => $grp_manage_permission,
   #            url => '/adm/coursegroups?refpage=enrl&action=delete',
   #            },
   #          { text => 'Enter an existing group',
   #            help => 'Course_Display_Group',
   #            permission => $grp_view_permission,
   #            url => '/adm/coursegroups?refpage=enrl&action=view',
   #            },
           );            );
     my $menu_html = '';      my $menu_html = '';
     foreach my $menu_item (@menu) {      foreach my $menu_item (@menu) {
Line 253  sub print_upload_manager_header { Line 274  sub print_upload_manager_header {
     $r->print('<input type="button" value="Reverse Association" '.      $r->print('<input type="button" value="Reverse Association" '.
               'name="'.&mt('Reverse Association').'" '.                'name="'.&mt('Reverse Association').'" '.
               'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');                'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');
     $r->print('<input type="checkbox" name="noFirstLine" $checked />'.      $r->print('<label><input type="checkbox" name="noFirstLine" $checked />'.
               &mt('Ignore First Line'));                &mt('Ignore First Line').'</label>');
     $r->print("<hr />\n".      $r->print("<hr />\n".
               '<script type="text/javascript" language="Javascript">'."\n".                '<script type="text/javascript" language="Javascript">'."\n".
               $javascript."\n".$javascript_validations.'</script>');                $javascript."\n".$javascript_validations.'</script>');
Line 607  sub print_upload_manager_footer { Line 628  sub print_upload_manager_footer {
     $Str .= '<h3>'.&mt('Login Type')."</h3>\n";      $Str .= '<h3>'.&mt('Login Type')."</h3>\n";
     $Str .= "<p>\n".      $Str .= "<p>\n".
         &mt('Note: this will not take effect if the user already exists').          &mt('Note: this will not take effect if the user already exists').
    &Apache::loncommon::help_open_topic('Auth_Options').
         "</p><p>\n";          "</p><p>\n";
     $Str .= $krbform."\n</p><p>\n".      $Str .= $krbform."\n</p><p>\n".
         $intform."\n</p><p>\n".          $intform."\n</p><p>\n".
Line 616  sub print_upload_manager_footer { Line 638  sub print_upload_manager_footer {
     $Str .= "<h3>".&mt('Starting and Ending Dates')."</h3>\n";      $Str .= "<h3>".&mt('Starting and Ending Dates')."</h3>\n";
     $Str .= "<p>\n".$date_table."</p>\n";      $Str .= "<p>\n".$date_table."</p>\n";
     $Str .= "<h3>".&mt('Full Update')."</h3>\n";      $Str .= "<h3>".&mt('Full Update')."</h3>\n";
     $Str .= '<input type="checkbox" name="fullup" value="yes">'.      $Str .= '<label><input type="checkbox" name="fullup" value="yes">'.
         ' '.&mt('Full update (also print list of users not enrolled anymore)').          ' '.&mt('Full update (also print list of users not enrolled anymore)').
         "</p>\n";          "</label></p>\n";
     $Str .= "<h3>".&mt('Student Number')."</h3>\n";      $Str .= "<h3>".&mt('Student Number')."</h3>\n";
     $Str .= "<p>\n".'<input type="checkbox" name="forceid" value="yes">';      $Str .= "<p>\n".'<label><input type="checkbox" name="forceid" value="yes">';
     $Str .= &mt('Disable ID/Student Number Safeguard and Force Change '.      $Str .= &mt('Disable ID/Student Number Safeguard and Force Change '.
                 'of Conflicting IDs (only do if you know what you are doing)').                  'of Conflicting IDs (only do if you know what you are doing)').
                 "\n</p><p>\n";                  "</label>\n</p><p>\n";
     $Str .= '<input type="button" onClick="javascript:verify(this.form)" '.      $Str .= '<input type="button" onClick="javascript:verify(this.form)" '.
         'value="Update Class List" />'."<br />\n";          'value="Update Class List" />'."<br />\n";
     $Str .= &mt('Note: for large courses, this operation may be time '.      $Str .= &mt('Note: for large courses, this operation may be time '.
Line 852  sub date_setting_table { Line 874  sub date_setting_table {
     my ($starttime,$endtime,$mode) = @_;      my ($starttime,$endtime,$mode) = @_;
     my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode);      my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode);
     my $dateDefault = '<nobr>'.      my $dateDefault = '<nobr>'.
         '<input type="checkbox" name="makedatesdefault" /> '.          '<label><input type="checkbox" name="makedatesdefault" /> '.
         &mt('make these dates the default for future enrollment');          &mt('make these dates the default for future enrollment').'</label>';
     if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {      if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
         $dateDefault = '&nbsp;';          $dateDefault = '&nbsp;';
     }      }
     my $perpetual = '<nobr><input type="checkbox" name="no_end_date"';      my $perpetual = '<nobr><label><input type="checkbox" name="no_end_date"';
     if (defined($endtime) && $endtime == 0) {      if (defined($endtime) && $endtime == 0) {
         $perpetual .= ' checked';          $perpetual .= ' checked';
     }      }
     $perpetual.= ' /> '.&mt('no ending date').'</nobr>';      $perpetual.= ' /> '.&mt('no ending date').'</label></nobr>';
     if ($mode eq 'create_enrolldates') {      if ($mode eq 'create_enrolldates') {
         $perpetual = '&nbsp;';          $perpetual = '&nbsp;';
     }      }
Line 986  sub print_enroll_single_student_form { Line 1008  sub print_enroll_single_student_form {
        'psam' => "Please select an authentication mechanism",         'psam' => "Please select an authentication mechanism",
                        'mail' => "Email Address"                         'mail' => "Email Address"
    );     );
    my $authhelp=&Apache::loncommon::help_open_topic('Auth_Options');
         $user_data_html = <<END;          $user_data_html = <<END;
 <h3>$lt{'udf'} $username\@$domain</h3>  <h3>$lt{'udf'} $username\@$domain</h3>
 <table>  <table>
Line 1003  sub print_enroll_single_student_form { Line 1026  sub print_enroll_single_student_form {
     <td><input type="text" name="emailaddress" size="20" /></td></tr>      <td><input type="text" name="emailaddress" size="20" /></td></tr>
 </table>  </table>
 <h3>$lt{'pswd'}</h3>  <h3>$lt{'pswd'}</h3>
 $lt{'psam'}  $lt{'psam'}$authhelp
 <table>  <table>
 <p>  <p>
 $krbform  $krbform
Line 1115  $date_table Line 1138  $date_table
 <p>  <p>
 $lt{'idsn'}: <input type="text" name="cstid" size="10">  $lt{'idsn'}: <input type="text" name="cstid" size="10">
 </p><p>  </p><p>
   <label>
 <input type="checkbox" name="forceid" value="yes">   <input type="checkbox" name="forceid" value="yes"> 
 $lt{'disn'}  $lt{'disn'}
   </label>
 </p><p>  </p><p>
 <input type="button" onClick="verify(this.form)" value="$lt{'eas'}">  <input type="button" onClick="verify(this.form)" value="$lt{'eas'}">
 </p>  </p>
Line 1233  sub show_class_list { Line 1258  sub show_class_list {
     if ($sortby !~ /^(username|domain|section|fullname|id|start|end|type)$/) {      if ($sortby !~ /^(username|domain|section|fullname|id|start|end|type)$/) {
         $sortby = 'username';          $sortby = 'username';
     }      }
       if (! exists($env{'form.displayphotos'})) {
           $env{'form.displayphotos'} = 'off';
       }
       my $displayphotos = $env{'form.displayphotos'};
   
     # Print out header       # Print out header 
     unless ($mode eq 'autoenroll') {      unless ($mode eq 'autoenroll') {
         $r->print(<<END);          $r->print(<<END);
Line 1241  END Line 1271  END
     }      }
     $r->print(<<END);      $r->print(<<END);
 <input type="hidden" name="sortby" value="$sortby" />  <input type="hidden" name="sortby" value="$sortby" />
   <input type="hidden" name="displayphotos" value="$displayphotos" />
 END  END
     if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll') {      if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll') {
         if ($linkto eq 'aboutme') {          if ($linkto eq 'aboutme') {
Line 1255  END Line 1286  END
                                            'sec'    => "section",                                             'sec'    => "section",
                                            'start'  => "start date",                                             'start'  => "start date",
                                            'end'    => "end date",                                             'end'    => "end date",
                                            'type'   => "enroll type/action"                                             'type'   => "enroll type/action",
                                              'photo'  => "photo",
    );     );
         unless ($mode eq 'autoenroll') {          unless ($mode eq 'autoenroll') {
             $r->print(<<END);              $r->print(<<END);
Line 1263  END Line 1295  END
 <input type="hidden" name="sdom"   value="" />  <input type="hidden" name="sdom"   value="" />
 END  END
         }          }
           if ($env{'course.'.$env{'request.course.id'}.'.internal.showphotos'}) {
               $r->print('
   <script type="text/javascript">
   function photowindow(photolink) {
       var title = "Photo_Viewer";
       var options = "scrollbars=1,resizable=1,menubar=0";
       options += ",width=240,height=240";
       stdeditbrowser = open(photolink,title,options,"1");
       stdeditbrowser.focus();
   }
   </script>
              ');
           }
         $r->print("          $r->print("
 <p>  <p>
 <table border=2>  <table border=2>
Line 1293  END Line 1338  END
     </th><th>      </th><th>
        <a href="javascript:document.studentform.sortby.value='end';document.studentform.submit();">$lt{'end'}</a>         <a href="javascript:document.studentform.sortby.value='end';document.studentform.submit();">$lt{'end'}</a>
     </th>      </th>
   </tr>  
 END  END
           if ($env{'course.'.$env{'request.course.id'}.'.internal.showphotos'}) {
               my %photo_options = &Apache::lonlocal::texthash (
                                                               'on' => 'Show',
                                                               'off' => 'Hide',
                                                               );
               my $photochg = 'on';
               if ($displayphotos eq 'on') {
                   $photochg = 'off';
               }
               $r->print('    <th>'."\n".'     '. 
               '<a href="javascript:document.studentform.displayphotos.value='.
                         "'".$photochg."'".';document.studentform.submit();">'.
                         $photo_options{$photochg}.'</a>&nbsp;'.$lt{'photo'}."\n".
                         '    </th>'."\n");
           }
           $r->print("  </tr>\n");
     } elsif ($mode eq 'csv') {      } elsif ($mode eq 'csv') {
  #   #
  # Open a file   # Open a file
Line 1391  END Line 1451  END
                 $studentcount++;                  $studentcount++;
                 my $cellentry;                  my $cellentry;
                 if ($type eq 'auto') {                  if ($type eq 'auto') {
                     $cellentry = '<b>'.&mt('auto').'</b>&nbsp;<input type="checkbox" name="chgauto" value="'.$username.':'.$domain.'" />&nbsp;Change';                      $cellentry = '<b>'.&mt('auto').'</b>&nbsp;<label><input type="checkbox" name="chgauto" value="'.$username.':'.$domain.'" />&nbsp;Change</label>';
                     $autocount ++;                      $autocount ++;
                 } else {                  } else {
                     $cellentry = '<table border="0" cellspacing="0"><tr><td rowspan="2"><b>'.&mt('manual').'</b></td><td><nobr><input type="checkbox" name="chgmanual" value="'.$username.':'.$domain.'" />&nbsp;Change</nobr></td></tr><tr><td><nobr>';                      $cellentry = '<table border="0" cellspacing="0"><tr><td rowspan="2"><b>'.&mt('manual').'</b></td><td><nobr><label><input type="checkbox" name="chgmanual" value="'.$username.':'.$domain.'" />&nbsp;Change</label></nobr></td></tr><tr><td><nobr>';
                     $manualcount ++;                      $manualcount ++;
                     if ($lockedtype) {                      if ($lockedtype) {
                         $cellentry .= '<input type="checkbox" name="unlockchg" value="'.$username.':'.$domain.'" />&nbsp;'.&mt('Unlock');                          $cellentry .= '<label><input type="checkbox" name="unlockchg" value="'.$username.':'.$domain.'" />&nbsp;'.&mt('Unlock').'</label>';
                         $unlockcount ++;                          $unlockcount ++;
                     } else {                      } else {
                         $cellentry .= '<input type="checkbox" name="lockchg" value="'.$username.':'.$domain.'" />&nbsp;'.&mt('Lock');                          $cellentry .= '<label><input type="checkbox" name="lockchg" value="'.$username.':'.$domain.'" />&nbsp;'.&mt('Lock').'</label>';
                         $lockcount ++;                          $lockcount ++;
                     }                      }
                     $cellentry .= '</nobr></td></tr></table>';                      $cellentry .= '</nobr></td></tr></table>';
Line 1432  END Line 1492  END
     <td>$section</td>      <td>$section</td>
     <td>$start</td>      <td>$start</td>
     <td>$end</td>      <td>$end</td>
    </tr>  
 END  END
               if ($env{'course.'.$env{'request.course.id'}.
                                                        '.internal.showphotos'}) {
                   if ($displayphotos eq 'on') {
                       my $imgurl = &Apache::lonnet::retrievestudentphoto($domain,
                                                     $username,'gif','thumbnail');
                   
                       $r->print('    <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($domain,$username,'jpg')."'".')"><img src="'.$imgurl.'" border="1"></a></td>');
                   } else {
                       $r->print('    <td>&nbsp;</td>  ');
                   }
               }
               $r->print('  </tr>  ');
         } elsif ($mode eq 'csv') {          } elsif ($mode eq 'csv') {
             next if (! defined($CSVfile));              next if (! defined($CSVfile));
             # no need to bother with $linkto              # no need to bother with $linkto
Line 1460  END Line 1531  END
                                           $name,$section]);                                            $name,$section]);
             my $col = 5;              my $col = 5;
             foreach my $time ($start,$end) {              foreach my $time ($start,$end) {
                 $excel_sheet->write($row,$col++,                  if (defined($time) && $time != 0) {
                       $excel_sheet->write($row,$col++,
                                    &Apache::lonstathelpers::calc_serial($time),                                     &Apache::lonstathelpers::calc_serial($time),
                                     $format->{'date'});                                      $format->{'date'});
                   } else {
                       $excel_sheet->write($row,$col++,'none');
                   }                    
             }              }
             $excel_sheet->write($row,$col++,$status);              $excel_sheet->write($row,$col++,$status);
             $row++;              $row++;
Line 1588  $info{'lastname'} $info{'generation'}, $ Line 1663  $info{'lastname'} $info{'generation'}, $
 </p><p>  </p><p>
 <b>$lt{'sid'}</b>: <input type="text" name="id" value="$info{'id'}" size="12"/>  <b>$lt{'sid'}</b>: <input type="text" name="id" value="$info{'id'}" size="12"/>
 </p><p>  </p><p>
   <label>
 <input type="checkbox" name="forceid" >   <input type="checkbox" name="forceid" > 
 $lt{'disn'}  $lt{'disn'}
   </label>
 </p><p>  </p><p>
 <b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="14"/>  <b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="14"/>
 </p>  </p>
Line 1969  sub print_first_courselist_upload_form { Line 2046  sub print_first_courselist_upload_form {
     $str .= "<p>\n";      $str .= "<p>\n";
     $str .= '<input type="submit" name="fileupload" value="'.      $str .= '<input type="submit" name="fileupload" value="'.
         &mt('Upload class list').'">'."\n";          &mt('Upload class list').'">'."\n";
     $str .= '<input type="checkbox" name="noFirstLine" /> '.      $str .= '<label><input type="checkbox" name="noFirstLine" /> '.
         &mt('Ignore First Line')."</p>\n";          &mt('Ignore First Line')."</label></p>\n";
     $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",      $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",
                          &mt("How do I create a class list from a spreadsheet")).                           &mt("How do I create a class list from a spreadsheet")).
                              "<br />\n";                               "<br />\n";
Line 2208  sub upfile_drop_add { Line 2285  sub upfile_drop_add {
 sub drop_student_list {  sub drop_student_list {
     my $r=shift;      my $r=shift;
     my $count=0;      my $count=0;
     my @droplist;      my @droplist = &Apache::loncommon::get_env_multiple('form.droplist');
     if (ref($env{'form.droplist'})) {  
         @droplist = @{$env{'form.droplist'}};  
     } else {  
         @droplist = ($env{'form.droplist'});  
     }  
     foreach (@droplist) {      foreach (@droplist) {
         my ($uname,$udom)=split(/\:/,$_);          my ($uname,$udom)=split(/\:/,$_);
         # drop student          # drop student
Line 2284  sub handler { Line 2356  sub handler {
     if (! ($env{'request.course.fn'})) {      if (! ($env{'request.course.fn'})) {
         # Not in a course          # Not in a course
         $env{'user.error.msg'}=          $env{'user.error.msg'}=
             "/adm/dropadd:cst:0:0:Cannot drop or add students";              "/adm/dropadd:cst:0:0:Cannot manage or view course groups, ".
                                     "or drop or add students";
         return HTTP_NOT_ACCEPTABLE;           return HTTP_NOT_ACCEPTABLE; 
     }      }
     #      #
Line 2292  sub handler { Line 2365  sub handler {
         &Apache::lonnet::allowed('vcl',$env{'request.course.id'});          &Apache::lonnet::allowed('vcl',$env{'request.course.id'});
     my $enrl_permission =       my $enrl_permission = 
         &Apache::lonnet::allowed('cst',$env{'request.course.id'});          &Apache::lonnet::allowed('cst',$env{'request.course.id'});
     if (! $view_permission && ! $enrl_permission) {  
       my $grp_view_permission =
           &Apache::lonnet::allowed('vcg',$env{'request.course.id'});
       my $grp_manage_permission =
           &Apache::lonnet::allowed('mdg',$env{'request.course.id'});
   
   
       if (! $grp_view_permission && ! $grp_manage_permission && 
                                     ! $view_permission && ! $enrl_permission) {
         $env{'user.error.msg'}=          $env{'user.error.msg'}=
             "/adm/dropadd:cst:0:0:Cannot drop or add students";       "/adm/coursegroups:cst:0:0:Cannot manage or view course groups, ".
         return HTTP_NOT_ACCEPTABLE;                                           "or drop or add students";
           return HTTP_NOT_ACCEPTABLE;
     }      }
   
     #      #
     # Only output the header information if they did not request csv format      # Only output the header information if they did not request csv format
     #      #
Line 2309  sub handler { Line 2392  sub handler {
     if (! exists($env{'form.action'})) {      if (! exists($env{'form.action'})) {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
                   (undef,'Enrollment Manager'));                    (undef,'Enrollment Manager'));
         &print_main_menu($r,$enrl_permission,$view_permission);          &print_main_menu($r,$enrl_permission,$view_permission,$grp_manage_permission,
                            $grp_view_permission);
     } elsif ($env{'form.action'} eq 'upload' && $enrl_permission) {      } elsif ($env{'form.action'} eq 'upload' && $enrl_permission) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=upload&state=',              ({href=>'/adm/dropadd?action=upload&state=',
Removed from v.1.127  
changed lines
  Added in v.1.134

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