Diff for /loncom/interface/lonpopulate.pm between versions 1.38 and 1.39

version 1.38, 2006/02/09 00:40:19 version 1.39, 2006/02/09 13:45:54
Line 353  ENDONE Line 353  ENDONE
 ENDTWO  ENDTWO
       if ($enrollvar{autoadds}) {        if ($enrollvar{autoadds}) {
           $r->print("            $r->print("
     <input type=\"radio\" name=\"autoadds\" value=\"1\" checked=\"true\" />&nbsp;Enable&nbsp;&nbsp;&nbsp;      <label><input type=\"radio\" name=\"autoadds\" value=\"1\" checked=\"true\" />&nbsp;Enable&nbsp;&nbsp;&nbsp;</label>
     <input type=\"radio\" name=\"autoadds\" value=\"0\" />&nbsp;Disable      <label><input type=\"radio\" name=\"autoadds\" value=\"0\" />&nbsp;Disable</label>
          ");           ");
       } else {        } else {
           $r->print("            $r->print("
                             <input type=\"radio\" name=\"autoadds\" value=\"1\" />&nbsp;Enable&nbsp;&nbsp;&nbsp;                              <label><input type=\"radio\" name=\"autoadds\" value=\"1\" />&nbsp;Enable&nbsp;&nbsp;&nbsp;</label>
                             <input type=\"radio\" name=\"autoadds\" value=\"0\" checked=\"true\" />&nbsp;Disable                              <label><input type=\"radio\" name=\"autoadds\" value=\"0\" checked=\"true\" />&nbsp;Disable</label>
          ");           ");
       }        }
       $r->print("        $r->print("
Line 370  ENDTWO Line 370  ENDTWO
         Removals based on classlist changes:&nbsp;&nbsp;");          Removals based on classlist changes:&nbsp;&nbsp;");
       if ($enrollvar{autodrops}) {        if ($enrollvar{autodrops}) {
           $r->print("            $r->print("
                 <input type=\"radio\" name=\"autodrops\" value=\"1\" checked=\"true\" />&nbsp;Enable&nbsp;&nbsp;&nbsp;                  <label><input type=\"radio\" name=\"autodrops\" value=\"1\" checked=\"true\" />&nbsp;Enable&nbsp;&nbsp;&nbsp;</label>
                 <input type=\"radio\" name=\"autodrops\" value=\"0\" />&nbsp;Disable");                  <label><input type=\"radio\" name=\"autodrops\" value=\"0\" />&nbsp;Disable</label>");
       } else {        } else {
           $r->print("            $r->print("
                 <input type=\"radio\" name=\"autodrops\" value=\"1\" />&nbsp;Enable&nbsp;&nbsp;&nbsp;                  <label><input type=\"radio\" name=\"autodrops\" value=\"1\" />&nbsp;Enable&nbsp;&nbsp;&nbsp;</label>
                 <input type=\"radio\" name=\"autodrops\" value=\"0\" checked=\"true\" />&nbsp;Disable");                  <label><input type=\"radio\" name=\"autodrops\" value=\"0\" checked=\"true\" />&nbsp;Disable</label>");
       }        }
       $r->print("        $r->print("
               </td>                </td>
Line 389  Note: Any students added manually by cou Line 389  Note: Any students added manually by cou
              </tr>               </tr>
              <tr>               <tr>
               <td align=\"right\">                <td align=\"right\">
                <input type=\"button\" name=\"chgsettings\" value=\"Go\" onClick=\"process('chgsettings')\" />                 <input type=\"button\" name=\"chgsettings\" value=\"Go\" onclick=\"process('chgsettings')\" />
       </td>        </td>
              </tr>               </tr>
     </table>      </table>
             <input type=\"hidden\" name=\"action\" value=\"$action\">              <input type=\"hidden\" name=\"action\" value=\"$action\" />
             <input type=\"hidden\" name=\"state\" value=\"process\">              <input type=\"hidden\" name=\"state\" value=\"process\" />
             </form>              </form>
       ");        ");
   } elsif ($action eq "setdates") {    } elsif ($action eq "setdates") {
Line 466  Note: Any students added manually by cou Line 466  Note: Any students added manually by cou
                   <table width="100%">                    <table width="100%">
                    <tr>                     <tr>
                     <td align="right">                      <td align="right">
                       <input type="button" name="setdates" value="Go" onClick="process('setdates')" />                        <input type="button" name="setdates" value="Go" onclick="process('setdates')" />
                     </td>                      </td>
            </tr>             </tr>
                   </table>                    </table>
                   <input type="hidden" name="action" value="$action">                    <input type="hidden" name="action" value="$action" />
                   <input type="hidden" name="state" value="process">                    <input type="hidden" name="state" value="process" />
                   </form>                    </form>
 ENDTWO  ENDTWO
   } elsif ($action eq "setaccess") {    } elsif ($action eq "setaccess") {
Line 480  ENDTWO Line 480  ENDTWO
                   <table width="100%">                    <table width="100%">
                    <tr>                     <tr>
                     <td align="right">                      <td align="right">
                       <input type="button" name="$action" value="Go" onClick="process('$action')" />                        <input type="button" name="$action" value="Go" onclick="process('$action')" />
                     </td>                      </td>
                    </tr>                     </tr>
                   </table>                    </table>
                   <input type="hidden" name="action" value="$action">                    <input type="hidden" name="action" value="$action" />
                   <input type="hidden" name="state" value="process">                    <input type="hidden" name="state" value="process" />
                   </form>                    </form>
 ENDTWO  ENDTWO
   } elsif ($action eq "notify") {    } elsif ($action eq "notify") {
Line 517  ENDTWO Line 517  ENDTWO
       ");        ");
       if ($notifycount) {        if ($notifycount) {
           $r->print("            $r->print("
                         <input type=\"radio\" name=\"notify\" value=\"1\" checked=\"true\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;                          <label><input type=\"radio\" name=\"notify\" value=\"1\" checked=\"true\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;</label>
                         <input type=\"radio\" name=\"notify\" value=\"0\" />&nbsp;No                          <label><input type=\"radio\" name=\"notify\" value=\"0\" />&nbsp;No</label>
           ");            ");
       } else {        } else {
           $r->print("            $r->print("
                         <input type=\"radio\" name=\"notify\" value=\"1\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;                          <label><input type=\"radio\" name=\"notify\" value=\"1\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;</label>
                         <input type=\"radio\" name=\"notify\" value=\"0\" checked=\"true\" />&nbsp;No                          <label><input type=\"radio\" name=\"notify\" value=\"0\" checked=\"true\" />&nbsp;No</label>
           ");            ");
       }        }
       $r->print("        $r->print("
Line 614  ENDTWO Line 614  ENDTWO
                <table width=\"100%\" border=\"0\" cellspadding=\"2\" cellspacing=\"2\">                 <table width=\"100%\" border=\"0\" cellspadding=\"2\" cellspacing=\"2\">
                 <tr>                  <tr>
                  <td align=\"right\">                   <td align=\"right\">
                   <input type=\"button\" name=\"notifyset\" value=\"Go\" onClick=\"process('notify')\" />                    <input type=\"button\" name=\"notifyset\" value=\"Go\" onclick=\"process('notify')\" />
                  </td>                   </td>
                 </tr>                  </tr>
                </table>                 </table>
Line 631  ENDTWO Line 631  ENDTWO
       }        }
       $r->print("        $r->print("
           </table>            </table>
           <input type=\"hidden\" name=\"notifyshow\" value=\"$notifyshow\">            <input type=\"hidden\" name=\"notifyshow\" value=\"$notifyshow\" />
           <input type=\"hidden\" name=\"action\" value=\"$action\">            <input type=\"hidden\" name=\"action\" value=\"$action\" />
           <input type=\"hidden\" name=\"state\" value=\"process\">            <input type=\"hidden\" name=\"state\" value=\"process\" />
           </form>            </form>
       ");        ");
   } elsif ($action eq "crosslist") {    } elsif ($action eq "crosslist") {
Line 675  ENDTWO Line 675  ENDTWO
               my $colflag = $i%2;                my $colflag = $i%2;
               $r->print("                $r->print("
                 <tr bgcolor=\"$bgcolors[$colflag]\" align=\"left\">                  <tr bgcolor=\"$bgcolors[$colflag]\" align=\"left\">
                  <td><input type=\"checkbox\" name=\"cross_$i\" checked=\"true\"/></td>                   <td><input type=\"checkbox\" name=\"cross_$i\" checked=\"true\" /></td>
                  <td>$xl</td>                   <td>$xl</td>
                  <td><input type =\"text\" size=\"10\" name=\"gp_$i\" value=\"$gp\"></td>                   <td><input type =\"text\" size=\"10\" name=\"gp_$i\" value=\"$gp\" /></td>
                 </tr>                   </tr> 
               ");                ");
           }            }
Line 709  ENDTWO Line 709  ENDTWO
             <table width=\"100%\" border=\"0\" cellspadding=\"2\" cellspacing=\"2\">              <table width=\"100%\" border=\"0\" cellspadding=\"2\" cellspacing=\"2\">
              <tr>               <tr>
               <td align=\"right\">                <td align=\"right\">
                <input type=\"button\" name=\"crosslist\" value=\"Go\" onClick=\"process('crosslist')\" />                 <input type=\"button\" name=\"crosslist\" value=\"Go\" onclick=\"process('crosslist')\" />
               </td>                </td>
              </tr>               </tr>
             </table>              </table>
             <input type=\"hidden\" name=\"action\" value=\"$action\">              <input type=\"hidden\" name=\"action\" value=\"$action\" />
             <input type=\"hidden\" name=\"state\" value=\"process\">              <input type=\"hidden\" name=\"state\" value=\"process\" />
             </form>               </form> 
       ");        ");
   } elsif ($action eq "sections") {    } elsif ($action eq "sections") {
Line 770  your changes.</td> Line 770  your changes.</td>
               if ($shrflag) {                if ($shrflag) {
                   $r->print("</td><td><input type=\"text\" size=\"10\" name=\"loncapasec_$i\" value=\"$sec_id{$sections[$i]}\"></td><td><input type=\"checkbox\" name=\"sec_$i\" checked=\"true\" /></td></tr>");                     $r->print("</td><td><input type=\"text\" size=\"10\" name=\"loncapasec_$i\" value=\"$sec_id{$sections[$i]}\"></td><td><input type=\"checkbox\" name=\"sec_$i\" checked=\"true\" /></td></tr>"); 
               } else {                } else {
                   $r->print("</td><td><input type=\"text\" size=\"10\" name=\"loncapasec_$i\" value=\"\"><td><input type=\"checkbox\" name=\"sec_$i\" /></td></tr>");                    $r->print("</td><td><input type=\"text\" size=\"10\" name=\"loncapasec_$i\" value=\"\" /></td><td><input type=\"checkbox\" name=\"sec_$i\" /></td></tr>");
               }                }
           }            }
           $r->print("            $r->print("
Line 780  your changes.</td> Line 780  your changes.</td>
              <tr>                <tr> 
               <td align=\"right\">                <td align=\"right\">
                <input type=\"hidden\" name=\"secshow\" value=\"$secshow\" />                 <input type=\"hidden\" name=\"secshow\" value=\"$secshow\" />
                <input type=\"button\" name=\"sections\" value=\"Go\" onClick=\"process('sections')\" />                 <input type=\"button\" name=\"sections\" value=\"Go\" onclick=\"process('sections')\" />
               </td>                </td>
              </tr>               </tr>
             </table>              </table>
             <input type=\"hidden\" name=\"action\" value=\"$action\">              <input type=\"hidden\" name=\"action\" value=\"$action\" />
             <input type=\"hidden\" name=\"state\" value=\"process\">              <input type=\"hidden\" name=\"state\" value=\"process\" />
             </form>              </form>
           ");            ");
       } else {        } else {
Line 817  your changes.</td> Line 817  your changes.</td>
                   my $colflag = $j%2;                    my $colflag = $j%2;
                   $r->print("                    $r->print("
                 <tr bgcolor=\"$bgcolors[$colflag]\" align=\"left\">                  <tr bgcolor=\"$bgcolors[$colflag]\" align=\"left\">
                  <td><input type=\"checkbox\" name=\"sec_$j\" checked=\"true\"/></td>                   <td><input type=\"checkbox\" name=\"sec_$j\" checked=\"true\" /></td>
                  <td>$currsections[$j]</td>                   <td>$currsections[$j]</td>
                  <td><input type=\"text\" name=\"secgp_$j\" size=\"10\" value=\"$sec_id{$currsections[$j]}\"></td>                   <td><input type=\"text\" name=\"secgp_$j\" size=\"10\" value=\"$sec_id{$currsections[$j]}\" /></td>
                 </tr>                   </tr> 
                   ");                    ");
               }                }
Line 850  your changes.</td> Line 850  your changes.</td>
             <table width=\"100%\" border=\"0\" cellspadding=\"2\" cellspacing=\"2\">              <table width=\"100%\" border=\"0\" cellspadding=\"2\" cellspacing=\"2\">
              <tr>               <tr>
               <td align=\"right\">                <td align=\"right\">
                <input type=\"button\" name=\"sections\" value=\"Go\" onClick=\"process('sections')\" />                 <input type=\"button\" name=\"sections\" value=\"Go\" onclick=\"process('sections')\" />
               </td>                </td>
              </tr>               </tr>
             </table>              </table>
             <input type=\"hidden\" name=\"action\" value=\"$action\">              <input type=\"hidden\" name=\"action\" value=\"$action\" />
             <input type=\"hidden\" name=\"state\" value=\"process\">              <input type=\"hidden\" name=\"state\" value=\"process\" />
             </form>               </form> 
           ");            ");
       }        }
Line 878  your changes.</td> Line 878  your changes.</td>
       ");        ");
       if ($enrollvar{showphoto}) {        if ($enrollvar{showphoto}) {
           $r->print("            $r->print("
                         <input type=\"radio\" name=\"showphotos\" value=\"1\" checked=\"true\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;                          <label><input type=\"radio\" name=\"showphotos\" value=\"1\" checked=\"true\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;</label>
                         <input type=\"radio\" name=\"showphotos\" value=\"0\" />&nbsp;No                          <label><input type=\"radio\" name=\"showphotos\" value=\"0\" />&nbsp;No</label>
           ");            ");
       } else {        } else {
           $r->print("            $r->print("
                         <input type=\"radio\" name=\"showphotos\" value=\"1\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;                          <label><input type=\"radio\" name=\"showphotos\" value=\"1\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;</label>
                         <input type=\"radio\" name=\"showphotos\" value=\"0\" checked=\"true\" />&nbsp;No                          <label><input type=\"radio\" name=\"showphotos\" value=\"0\" checked=\"true\" />&nbsp;No</label>
           ");            ");
       }        }
       $r->print('        $r->print('
Line 914  your changes.</td> Line 914  your changes.</td>
           $r->print('            $r->print('
                     <tr>                      <tr>
                      <td>'.                       <td>'.
 &mt('There was a problem determining whether course owner permission is required in order for a course coordinator to have access to student photos in this domain.').' '.&mt('As a result you will not be able to configure access to student photos at this time').'<br /><br /><input type="button" name=mainmenu" value="Go back" onclick="javascript:history.go(-1);" />  &mt('There was a problem determining whether course owner permission is required in order for a course coordinator to have access to student photos in this domain.').' '.&mt('As a result you will not be able to configure access to student photos at this time').'<br /><br /><input type="button" name="mainmenu" value="Go back" onclick="javascript:history.go(-1);" />
                     </td>                      </td>
                    </tr>                     </tr>
                   </form>                    </form>
Line 950  your changes.</td> Line 950  your changes.</td>
               $r->print('                $r->print('
                     <tr>                      <tr>
                      <td>'.                       <td>'.
 &mt('The policies of your institution [_1] require that the course owner [_2] must indicate acceptance of the conditions of use of digital photos of registered students, before they may be made available for use in a course.',$institution,$ownername).'<br /><br />'.&mt('Please direct the course owner [_1] to visit the "Student photos" page in the Automated Enrollment Manager to indicate acceptance of these conditions of use.',$emailstr).'<br /><br /><input type="button" name=mainmenu" value="Go back" onclick="javascript:history.go(-1);" />  &mt('The policies of your institution [_1] require that the course owner [_2] must indicate acceptance of the conditions of use of digital photos of registered students, before they may be made available for use in a course.',$institution,$ownername).'<br /><br />'.&mt('Please direct the course owner [_1] to visit the "Student photos" page in the Automated Enrollment Manager to indicate acceptance of these conditions of use.',$emailstr).'<br /><br /><input type="button" name="mainmenu" value="Go back" onclick="javascript:history.go(-1);" />
                     </td>                      </td>
                    </tr>                     </tr>
                   </form>                    </form>
Line 964  your changes.</td> Line 964  your changes.</td>
                     </tr>                      </tr>
                     <tr>                      <tr>
                      <td align="right">                       <td align="right">
                       <input type="button" name="showphotos" value="Go" onClick="process('."'photos'".')">                        <input type="button" name="showphotos" value="Go" onclick="process('."'photos'".')" />
                      </td>                       </td>
                     </tr>                      </tr>
                    </table>                     </table>
                    <input type="hidden" name="action" value="'.$action.'">                     <input type="hidden" name="action" value="'.$action.'" />
                    <input type="hidden" name="state" value="process">                     <input type="hidden" name="state" value="process" />
                    </form>                     </form>
       ');        ');
   } elsif ($action eq "updatenow") {    } elsif ($action eq "updatenow") {
Line 985  your changes.</td> Line 985  your changes.</td>
     <tr>      <tr>
      <td>       <td>
               Add any students currently included in institutional classlist(s) but not enrolled in your LON-CAPA course.<br />                  Add any students currently included in institutional classlist(s) but not enrolled in your LON-CAPA course.<br />  
       <input type=\"radio\" name=\"updateadds\" value=\"1\">&nbsp;Yes&nbsp;<input type=\"radio\" name=\"updateadds\" value=\"0\">&nbsp;No&nbsp;        <label><input type=\"radio\" name=\"updateadds\" value=\"1\" />&nbsp;Yes&nbsp;</label>
                         <label><input type=\"radio\" name=\"updateadds\" value=\"0\" />&nbsp;No&nbsp;</label>
                      </td>                       </td>
                     </tr>                      </tr>
                     <tr>                      <tr>
                      <td>                       <td>
                Expire students previously added by nightly enrollment process, but no longer listed in institutional  classlist(s).<br />                                   Expire students previously added by nightly enrollment process, but no longer listed in institutional  classlist(s).<br />                  
                       <input type=\"radio\" name=\"updatedrops\" value=\"1\">&nbsp;Yes&nbsp;                        <label><input type=\"radio\" name=\"updatedrops\" value=\"1\" />&nbsp;Yes&nbsp;</label>
                       <input type=\"radio\" name=\"updatedrops\" value=\"0\">&nbsp;No&nbsp;<br/>                        <label><input type=\"radio\" name=\"updatedrops\" value=\"0\" />&nbsp;No&nbsp;</label><br />
                      </td>                       </td>
                     </tr>                      </tr>
                     <tr>                      <tr>
Line 1010  Note: Any students previously added manu Line 1011  Note: Any students previously added manu
                     </tr>                      </tr>
                     <tr>                      <tr>
                      <td align=\"right\">                       <td align=\"right\">
                       <input type=\"button\" name=\"updatenow\" value=\"Go\" onClick=\"process('updatenow')\" />                        <input type=\"button\" name=\"updatenow\" value=\"Go\" onclick=\"process('updatenow')\" />
                      </td>                       </td>
                     </tr>                      </tr>
            </table>             </table>
Line 1126  END Line 1127  END
                     </tr>                      </tr>
                     <tr>                      <tr>
                      <td align=\"right\">                       <td align=\"right\">
                       <input type=\"button\" name=\"viewclass\" value=\"Go\" onClick=\"process('viewclass','$autocount','$manualcount','$lockcount','$unlockcount')\" />                        <input type=\"button\" name=\"viewclass\" value=\"Go\" onclick=\"process('viewclass','$autocount','$manualcount','$lockcount','$unlockcount')\" />
                      </td>                       </td>
                     </tr>                      </tr>
               ");                ");
Line 1337  sub print_chgsettings_response { Line 1338  sub print_chgsettings_response {
  }   }
  if ($autodrops) {   if ($autodrops) {
     if ($currdrops) {      if ($currdrops) {
  $response .= "Nightly removals based on classlist changes still <b>enabled</b><br>";   $response .= "Nightly removals based on classlist changes still <b>enabled</b><br />";
     } else {      } else {
  $response .= "Nightly removals based on classlist changes now <b>enabled</b><br/>";   $response .= "Nightly removals based on classlist changes now <b>enabled</b><br/>";
     }      }
  } else {   } else {
     if ($currdrops) {      if ($currdrops) {
  $response .= "Nightly removals based on classlist changes now <b>disabled</b><br>";   $response .= "Nightly removals based on classlist changes now <b>disabled</b><br />";
     } else {      } else {
  $response .= "Nightly removals based on classlist changes still <b>disabled</b>";   $response .= "Nightly removals based on classlist changes still <b>disabled</b>";
     }      }
Line 1444  sub print_setdates_response { Line 1445  sub print_setdates_response {
       $firstaccess = "a date prior to today";        $firstaccess = "a date prior to today";
         }          }
         if (($nowstamp >= $autostart) && ($rosterupdated == 0)) {          if (($nowstamp >= $autostart) && ($rosterupdated == 0)) {
     $response .= qq|<br>Although you have now set the first enrollment date to $firstaccess, automatic enrollment will <b>not</b> occur until the next automatic enrollment update occurs for all LON-CAPA courses at 1.30 am $nextupdate. If you wish to immediately enroll registered students included in the institutional classlist for this class, please visit the <a href="/adm/populate?action=updatenow">roster update page</a>.<br>|;      $response .= qq|<br />Although you have now set the first enrollment date to $firstaccess, automatic enrollment will <b>not</b> occur until the next automatic enrollment update occurs for all LON-CAPA courses at 1.30 am $nextupdate. If you wish to immediately enroll registered students included in the institutional classlist for this class, please visit the <a href="/adm/populate?action=updatenow">roster update page</a>.<br />|;
         }          }
     }      }
     $warning = &warning_message($dom,$crs,$action);      $warning = &warning_message($dom,$crs,$action);
Line 1544  $showend.<br/>"; Line 1545  $showend.<br/>";
     $firstaccess = "a date prior to today";      $firstaccess = "a date prior to today";
         }          }
         if (($nowstamp >= $startaccess) && ($accessgiven == 0)) {          if (($nowstamp >= $startaccess) && ($accessgiven == 0)) {
     $response .= qq|<br>Although you have now set the first access date to $firstaccess, automatic enrollment will <b>not</b> occur until the next automatic enrollment update occurs for all LON-CAPA courses $nextupdate. If you wish to grant immediate course access for registered students included in the institutional classlist for this class, please visit the <a href="/adm/populate?action=updatenow">roster update page</a>.<br>|;      $response .= qq|<br />Although you have now set the first access date to $firstaccess, automatic enrollment will <b>not</b> occur until the next automatic enrollment update occurs for all LON-CAPA courses $nextupdate. If you wish to grant immediate course access for registered students included in the institutional classlist for this class, please visit the <a href="/adm/populate?action=updatenow">roster update page</a>.<br />|;
         }          }
     }      }
     $warning = &warning_message($dom,$crs,$action);      $warning = &warning_message($dom,$crs,$action);
Line 1718  sub print_crosslistings_menu () { Line 1719  sub print_crosslistings_menu () {
              </tr>               </tr>
              <tr>               <tr>
               <td align="right">                <td align="right">
                <input type="button" name="newcross" value="Go" onClick="process('newcross')" />                 <input type="button" name="newcross" value="Go" onclick="process('newcross')" />
               </td>                </td>
              </tr>               </tr>
             </table>              </table>
             <input type=\"hidden\" name=\"numcross\" value=\"$numcross\">              <input type=\"hidden\" name=\"numcross\" value=\"$numcross\" />
             <input type=\"hidden\" name=\"action\" value=\"newcross\">              <input type=\"hidden\" name=\"action\" value=\"newcross\" />
             <input type=\"hidden\" name=\"state\" value=\"process\">              <input type=\"hidden\" name=\"state\" value=\"process\" />
             </form>              </form>
       );        );
         }          }
Line 2001  sections which contribute to enrollment Line 2002  sections which contribute to enrollment
              </tr>               </tr>
              <tr>               <tr>
               <td align="right">                <td align="right">
                <input type="button" name="newsections" value="Go" onClick="process('newsections')" />                 <input type="button" name="newsections" value="Go" onclick="process('newsections')" />
               </td>                </td>
              </tr>               </tr>
             </table>              </table>
             <input type=\"hidden\" name=\"numsec\" value=\"$numsec\">              <input type=\"hidden\" name=\"numsec\" value=\"$numsec\" />
             <input type=\"hidden\" name=\"action\" value=\"newsections\">              <input type=\"hidden\" name=\"action\" value=\"newsections\" />
             <input type=\"hidden\" name=\"state\" value=\"process\">              <input type=\"hidden\" name=\"state\" value=\"process\" />
             </form>              </form>
       );        );
  }   }
Line 2457  sub get_institutional_codes { Line 2458  sub get_institutional_codes {
     my @currsections = ();      my @currsections = ();
     my @currxlists = ();      my @currxlists = ();
     my $coursecode = $$settings{'internal.coursecode'};      my $coursecode = $$settings{'internal.coursecode'};
                                                                                              
     if ($$settings{'internal.sectionnums'} ne '') {      if ($$settings{'internal.sectionnums'} ne '') {
         @currsections = split(/,/,$$settings{'internal.sectionnums'});          @currsections = split(/,/,$$settings{'internal.sectionnums'});
     }      }
                                                                                             
     if ($$settings{'internal.crosslistings'} ne '') {      if ($$settings{'internal.crosslistings'} ne '') {
         @currxlists = split(/,/,$$settings{'internal.crosslistings'});          @currxlists = split(/,/,$$settings{'internal.crosslistings'});
     }      }
                                                                                              
     if (@currxlists > 0) {      if (@currxlists > 0) {
         foreach (@currxlists) {          foreach (@currxlists) {
             if (m/^([^:]+):(\w*)$/) {              if (m/^([^:]+):(\w*)$/) {
Line 2779  sub get_dates_from_form { Line 2780  sub get_dates_from_form {
 sub date_setting_table {  sub date_setting_table {
     my ($starttime,$endtime,$action) = @_;      my ($starttime,$endtime,$action) = @_;
     my ($startform,$endform) = &setup_date_selectors($starttime,$endtime,$action);      my ($startform,$endform) = &setup_date_selectors($starttime,$endtime,$action);
     my $perpetual = '<nobr><input type="checkbox" name="no_end_date"';      my $perpetual = '<nobr><label><input type="checkbox" name="no_end_date"';
     if (($action eq 'setdates' && defined($endtime) && $endtime == 0) || (($action eq 'setaccess' || $action eq 'updatenow') && ($endtime eq '' || $endtime == 0)) ) {      if (($action eq 'setdates' && defined($endtime) && $endtime == 0) || (($action eq 'setaccess' || $action eq 'updatenow') && ($endtime eq '' || $endtime == 0)) ) {
         $perpetual .= ' checked';          $perpetual .= ' checked';
     }      }
     $perpetual.= ' />'.' no ending date</nobr>';      $perpetual.= ' />'.' no ending date</label></nobr>';
     my $start_table = '';      my $start_table = '';
     $start_table .= "<table>\n";      $start_table .= "<table>\n";
     $start_table .= '<tr><td align="right">Starting Date</td>'.      $start_table .= '<tr><td align="right">Starting Date</td>'.

Removed from v.1.38  
changed lines
  Added in v.1.39


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