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

Diff for /loncom/interface/loncoursegroups.pm between versions 1.40 and 1.41

version 1.40, 2006/07/07 16:48:21 version 1.41, 2006/07/07 17:11:04
Line 1184  sub general_settings_form { Line 1184  sub general_settings_form {
     my ($nexttext,$prevtext);      my ($nexttext,$prevtext);
     &groupsettings_options($r,$tabcol,$functions,$action,$formname,$stored,1,      &groupsettings_options($r,$tabcol,$functions,$action,$formname,$stored,1,
                            $gpterm,$ucgpterm,$crstype);                             $gpterm,$ucgpterm,$crstype);
     &access_date_settings($r,$tabcol,$action,$formname,$stored,2,$gpterm,      &access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm);
                           $ucgpterm);  
     if ($action eq 'create') {      if ($action eq 'create') {
         &membership_options($r,$action,$formname,$sectioncount,3,$gpterm,          &membership_options($r,$action,$formname,$sectioncount,3,$gpterm,
     $ucgpterm);      $ucgpterm);
Line 1226  sub groupsettings_options { Line 1225  sub groupsettings_options {
     my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored);      my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored);
     &topic_bar($r,$image,$lt{'gnde'});      &topic_bar($r,$image,$lt{'gnde'});
     $r->print('      $r->print('
    <tr>  
     <td>&nbsp;</td>  
     <td colspan="3">  
      <table border="0" cellpadding="2" cellspacing="2">       <table border="0" cellpadding="2" cellspacing="2">
       <tr>        <tr>
        <td><b>'.$lt{'gnam'}.':</b></td>         <td><b>'.$lt{'gnam'}.':</b></td>
Line 1318  END Line 1314  END
        </td>         </td>
       </tr>        </tr>
      </table>       </table>
     </td>  
    </tr>  
 ');  ');
     return;      return;
 }  }
Line 1428  sub sections_selection { Line 1422  sub sections_selection {
 }  }
   
 sub access_date_settings {  sub access_date_settings {
     my ($r,$tabcol,$action,$formname,$stored,$image,$gpterm,$ucgpterm) = @_;      my ($r,$action,$formname,$stored,$image,$gpterm,$ucgpterm) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                 'sten' => "Default start and end dates for $gpterm access",                  'sten' => "Default start and end dates for $gpterm access",
              );               );
Line 1440  sub access_date_settings { Line 1434  sub access_date_settings {
             $endtime = $$stored{'enddate'};              $endtime = $$stored{'enddate'};
         }          }
     }      }
     my ($start_table,$end_table) = &date_setting_table      my ($table) = &date_setting_table($starttime,$endtime,$formname);
                                     ($starttime,$endtime,$formname);  
     &topic_bar($r,$image,$lt{'sten'});      &topic_bar($r,$image,$lt{'sten'});
     $r->print('      $r->print('
    <tr>      '.$table.'
     <td>&nbsp;</td>      ');
     <td colspan="3">'.$start_table.'</td>  
    <tr>  
    <tr>  
     <td colspan="4">&nbsp;</td>  
    </tr>  
    <tr>  
     <td>&nbsp;</td>  
     <td colspan="3">'.$end_table.'</td>  
    <tr>');  
     return;      return;
 }  }
   
Line 1523  sub choose_members_form { Line 1507  sub choose_members_form {
   
 sub display_navbuttons {  sub display_navbuttons {
     my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_;      my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_;
     $r->print('  
     <tr>  
      <td colspan="4">&nbsp;</td>  
     </tr>  
     <tr>  
      <td>&nbsp;</td>  
      <td colspan="3">');  
     if ($prev) {      if ($prev) {
         $r->print('          $r->print('
       <input type="button" name="previous" value = "'.$prevtext.'"        <input type="button" name="previous" value = "'.$prevtext.'"
Line 1541  sub display_navbuttons { Line 1518  sub display_navbuttons {
       <input type="button" name="next" value="'.$nexttext.'"        <input type="button" name="next" value="'.$nexttext.'"
  onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />');   onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />');
     }      }
     $r->print('  
      </td>  
     </tr>  
 ');  
 }  }
   
 sub check_tools {  sub check_tools {
Line 1957  sub default_privileges { Line 1930  sub default_privileges {
                                 'oppr' => 'Optional privileges',                                  'oppr' => 'Optional privileges',
                                 'func' => 'Function',                                  'func' => 'Function',
     );      );
     $r->print(&Apache::lonhtmlcommon::start_pick_box());      $r->print(&Apache::loncommon::start_data_table().
     $r->print('<tr>        &Apache::loncommon::start_data_table_header_row());
                 <td bgcolor="'.$tabcol.'" valign="top">      $r->print('<th>'.$lt{'func'}.'</th>
                  <table cellspacing="0" cellpadding="1">  
                   <tr>  
                    <td valign="top"><b>'.$lt{'func'}.'</b></td>  
                   </tr>                    </tr>
                   <tr>                    <tr>
                    <td valign="top"><b>'.$lt{'fixp'}.'</b></td>                     <td valign="top"><b>'.$lt{'fixp'}.'</b></td>
Line 3423  sub date_setting_table { Line 3393  sub date_setting_table {
                                                       'startdate',$starttime);                                                        'startdate',$starttime);
     my $endform = &Apache::lonhtmlcommon::date_setter($formname,      my $endform = &Apache::lonhtmlcommon::date_setter($formname,
                                                       'enddate',$endtime);                                                        'enddate',$endtime);
     my $perpetual = '<nobr><label><input type="checkbox" name="no_end_date" />      my $perpetual = 
                                                 no ending date</label></nobr>';   '<nobr><label><input type="checkbox" name="no_end_date" />'.
     my $start_table = '';   &mt('None').'</label></nobr>';
     $start_table .= "<table>\n";      my $table = "<table>\n".
     $start_table .= '<tr><td align="right">Default starting date for    '<tr><td align="right">'.&mt('Start:').'</td>'.
                                            member access</td>'.  
         '<td>'.$startform.'</td>'.          '<td>'.$startform.'</td>'.
         '<td>&nbsp;</td>'."</tr>\n";          '<td>&nbsp;</td>'."</tr>\n".
     $start_table .= "</table>";   '<tr><td align="right">'.&mt('End:').'</td>'.
     my $end_table = '';  
     $end_table .= "<table>\n";  
     $end_table .= '<tr><td align="right">Default ending date for   
                                          member access</td>'.  
         '<td>'.$endform.'</td>'.          '<td>'.$endform.'</td>'.
         '<td>'.$perpetual.'</td>'."</tr>\n";          '<td>'.$perpetual.'</td>'."</tr>\n".
     $end_table .= "</table>\n";   "</table>\n";
     return ($start_table, $end_table);      return $table;
 }  }
   
 sub add_group_folder {  sub add_group_folder {
Removed from v.1.40  
changed lines
  Added in v.1.41

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