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

Diff for /loncom/interface/lonuserutils.pm between versions 1.20 and 1.21

version 1.20, 2007/12/21 17:27:57 version 1.21, 2007/12/21 20:34:26
Line 771  sub forceid_change { Line 771  sub forceid_change {
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub print_upload_manager_form {  sub print_upload_manager_form {
     my ($r,$context) = @_;      my ($r,$context,$permission) = @_;
     my $firstLine;      my $firstLine;
     my $datatoken;      my $datatoken;
     if (!$env{'form.datatoken'}) {      if (!$env{'form.datatoken'}) {
Line 2423  ENDTWO Line 2423  ENDTWO
 }  }
   
 sub date_section_selector {  sub date_section_selector {
     my ($context) = @_;      my ($context,$permission) = @_;
     my $callingform = $env{'form.callingform'};      my $callingform = $env{'form.callingform'};
     my $formname = 'dateselect';        my $formname = 'dateselect';  
     my $groupslist = &get_groupslist();      my $groupslist = &get_groupslist();
Line 2502  END Line 2502  END
             $starttime = time;              $starttime = time;
         }          }
         $date_items = &date_setting_table($starttime,undef,$context,          $date_items = &date_setting_table($starttime,undef,$context,
                                           $env{'form.bulkaction'});                                            $env{'form.bulkaction'},$formname,
                                             $permission);
     }      }
     $output .= '<h3>'.$headertext.'</h3>'.      $output .= '<h3>'.$headertext.'</h3>'.
                '<form name="'.$formname.'" method="post">'."\n".                 '<form name="'.$formname.'" method="post">'."\n".
Line 2536  END Line 2537  END
             $info = '<input type="hidden" name="retainsec" value="0" />';               $info = '<input type="hidden" name="retainsec" value="0" />'; 
         }          }
         my $sections_select .= &course_sections(\%sections_count,$env{'form.showrole'});          my $sections_select .= &course_sections(\%sections_count,$env{'form.showrole'});
         my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".          my $rowtitle = &mt('New section to assign');
                      &Apache::lonhtmlcommon::row_title(&mt('New section to assign'),'LC_oddrow_value')."\n".          my $secbox = &section_picker($cdom,$cnum,$env{'form.showrole'},$rowtitle,$permission,$context);
                      '<table class="LC_createuser"><tr class="LC_section_row">'."\n".  
                      '<td align="center">'.&mt('Existing sections')."\n".  
                      '<br />'.$sections_select.'</td><td align="center">'.  
                      &mt('New section').'<br />'."\n".  
                      '<input type="text" name="newsec" size="15" />'."\n".  
                      '<input type="hidden" name="sections" value="" />'."\n".  
                      '</td></tr></table>'."\n".  
                      &Apache::lonhtmlcommon::row_closure(1)."\n".  
                      &Apache::lonhtmlcommon::end_pick_box().'</p>';  
         $output .= $info.$secbox;          $output .= $info.$secbox;
     }      }
     $output .= '<p>'.      $output .= '<p>'.
Line 2883  sub print_first_users_upload_form { Line 2875  sub print_first_users_upload_form {
   
 # ================================================= Drop/Add from uploaded file  # ================================================= Drop/Add from uploaded file
 sub upfile_drop_add {  sub upfile_drop_add {
     my ($r,$context) = @_;      my ($r,$context,$permission) = @_;
     &Apache::loncommon::load_tmp_file($r);      &Apache::loncommon::load_tmp_file($r);
     my @userdata=&Apache::loncommon::upfile_record_sep();      my @userdata=&Apache::loncommon::upfile_record_sep();
     if($env{'form.noFirstLine'}){shift(@userdata);}      if($env{'form.noFirstLine'}){shift(@userdata);}
Removed from v.1.20  
changed lines
  Added in v.1.21

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