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

Diff for /loncom/interface/lonpopulate.pm between versions 1.66 and 1.67

version 1.66, 2009/10/30 20:35:34 version 1.67, 2009/11/24 14:26:15
Line 217  sub print_mainbox { Line 217  sub print_mainbox {
             } elsif ($action eq "newsections") {              } elsif ($action eq "newsections") {
                 $action = "sections";                   $action = "sections"; 
             }              }
             $page .= "-&gt; <a href=\"/adm/populate?action=$action\">".$$tasklongref{$action}."</a> -&gt; <b>result</b>";              $page .= "&raquo; <a href=\"/adm/populate?action=$action\">".$$tasklongref{$action}."</a> &raquo; <b>result</b>";
         } else {          } else {
             $page .=  " -&gt; <b>".$$tasklongref{$action}."</b>";               $page .=  " &raquo; <b>".$$tasklongref{$action}."</b>"; 
         }          }
     }      }
     my $usrmang = &mt('User Management');      my $usrmang = &mt('User Management');
     my $autenrl = &mt('Automated Enrollment Manager');      my $autenrl = &mt('Automated Enrollment Manager');
       #LC_pick_box is used in the following. This is only a temporary solution to adapt the site to the design.
     $r->print(<<ENDTHIS);      $r->print(<<ENDTHIS);
 <table width="100%" border="0" cellpadding="0" cellspacing="0">  <table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>   <tr>
   <td bgcolor="#CCCCFF">     <td bgcolor="#C5DB99"> 
    <font size="2"><a href="/adm/menu">$realm</a> -&gt; <a href="/adm/createuser">$usrmang</a> -&gt; $page</font><br/>     <a href="/adm/menu">$realm</a> &raquo; <a href="/adm/createuser">$usrmang</a> &raquo; $page<br/>
   </td>    </td>
   <td align="right" bgcolor="#CCCCFF" valign="top">    <td align="right" bgcolor="#C5DB99" valign="top">
    <font size="+1">$autenrl&nbsp;</font>     $autenrl&nbsp;
   </td>    </td>
  </tr>   </tr>
 </table>  </table>
 <table width="100%" border="0" cellpadding="0" cellspacing="0">  <br/>
  <tr>  <table width="100%" border="0" cellpadding="0" cellspacing="0" class="LC_pick_box">
    <tr class="LC_pick_box_row">
 ENDTHIS  ENDTHIS
 }  }
   
Line 247  sub print_navmenu { Line 249  sub print_navmenu {
         $action = $env{'form.action'};          $action = $env{'form.action'};
     }      }
     $r->print(<<ENDONE);      $r->print(<<ENDONE);
   <td width="10" valign="top" bgcolor="#DDFFFF">&nbsp;</td>      <td valign="top" class="LC_pick_box_title">
   <td width="20%" valign="top" bgcolor="#DDFFFF">  
    <br/>  
 ENDONE  ENDONE
     foreach my $task (@{$tasksref}) {      foreach my $task (@{$tasksref}) {
         if ($task eq $action) {          if ($task eq $action) {
Line 272  ENDONE Line 272  ENDONE
     $r->print("      $r->print("
   <p>&nbsp;</p>    <p>&nbsp;</p>
   </td>    </td>
   <td width=\"10\" valign=\"top\" bgcolor=\"#CCCCFF\">&nbsp;</td>    <td valign=\"top\" class=\"LC_pick_box_value\">");
   <td width=\"10\" valign=\"top\" bgcolor=\"#FFFFFF\">&nbsp;</td>  
   <td bgcolor=\"#ffffff\" valign=\"top\">");  
 }  }
   
 ###############################################################  ###############################################################
Line 429  Note: Any students added manually by cou Line 427  Note: Any students added manually by cou
       }        }
       my $dateshow;        my $dateshow;
       if ( ($oldendshow eq '') && ($oldstartshow eq '') ) {        if ( ($oldendshow eq '') && ($oldstartshow eq '') ) {
          $dateshow = "<br/><font size='+1'>Warning</font>. Currently <b>NO</b> first enrollment or last enrollment dates are set. You <b>must</b> use this menu to set a start date and an end date if you plan to utilise automated adds and/or drops in this course.\n";           $dateshow = "<br/>Warning. Currently <b>NO</b> first enrollment or last enrollment dates are set. You <b>must</b> use this menu to set a start date and an end date if you plan to utilise automated adds and/or drops in this course.\n";
       } else {        } else {
          $dateshow = "Currently: First enrollment: <b><i>$oldstartshow</i></b>, Last enrollment: <b><i>$oldendshow</i></b>\n";           $dateshow = "Currently: First enrollment: <b><i>$oldstartshow</i></b>, Last enrollment: <b><i>$oldendshow</i></b>\n";
       }        }
Line 1334  sub print_accessdate_table { Line 1332  sub print_accessdate_table {
     );      );
     my $dateshow;      my $dateshow;
     if ( ($oldendshow eq '') && ($oldstartshow eq '') ) {      if ( ($oldendshow eq '') && ($oldstartshow eq '') ) {
        $dateshow = "<br/><font size='+1'>".&mt('Warning')."</font>.&nbsp;".$lt{'cuno'}." ";         $dateshow = "<br/>".&mt('Warning').".&nbsp;".$lt{'cuno'}." ";
        if ($action eq 'setaccess') {         if ($action eq 'setaccess') {
            $dateshow .= $lt{'ifyo'}."\n";             $dateshow .= $lt{'ifyo'}."\n";
        } elsif ($action eq 'updatenow') {         } elsif ($action eq 'updatenow') {
Line 1514  sub print_chgsettings_response { Line 1512  sub print_chgsettings_response {
  }   }
  if ($autoadds || $autodrops) {   if ($autoadds || $autodrops) {
     $warning = &warning_message($dom,$crs,$action);      $warning = &warning_message($dom,$crs,$action);
     $warn_prefix = "<br/><font size ='+1'><b>Warning</b></font>. Although you indicated that nightly ";      $warn_prefix = "<br/><b>Warning</b>. Although you indicated that nightly ";
     $warn_suffix = " should be enabled, additional action is required.<br/>";      $warn_suffix = " should be enabled, additional action is required.<br/>";
  }   }
  if ($autoadds) {   if ($autoadds) {
Line 1612  sub print_setdates_response { Line 1610  sub print_setdates_response {
         }          }
     }      }
     $warning = &warning_message($dom,$crs,$action);      $warning = &warning_message($dom,$crs,$action);
     $warn_prefix = "<br/><font size ='+1'><b>Warning</b></font>. Although you set a start and end date for auto-enrollment, additional action is required.<br/>";      $warn_prefix = "<br/><b>Warning</b>. Although you set a start and end date for auto-enrollment, additional action is required.<br/>";
     unless ($warning eq '') {      unless ($warning eq '') {
         $response .= $warn_prefix.$warning;          $response .= $warn_prefix.$warning;
     }      }
Line 1711  start and end access dates for this cour Line 1709  start and end access dates for this cour
         }          }
     }      }
     $warning = &warning_message($dom,$crs,$action);      $warning = &warning_message($dom,$crs,$action);
     $warn_prefix = "<br/><font size ='+1'><b>Warning</b></font>. Although you have set default first and last access dates for students who are added via automatic enrollment, additional action is required.<br/>";      $warn_prefix = "<br/><b>Warning</b>. Although you have set default first and last access dates for students who are added via automatic enrollment, additional action is required.<br/>";
     unless ($warning eq '') {      unless ($warning eq '') {
         $response .= $warn_prefix.$warning;          $response .= $warn_prefix.$warning;
     }      }
Line 2019  sub print_crosslistings_response () { Line 2017  sub print_crosslistings_response () {
   
     if (@allxlists > 0) {      if (@allxlists > 0) {
  $warning = &warning_message($dom,$crs,$action);   $warning = &warning_message($dom,$crs,$action);
  $warn_prefix = "<br/><font size ='+1'><b>Warning</b></font>. Although you have selected crosslisted courses to contribute enrollment to this course, additional action is required.<br/>";   $warn_prefix = "<br/><b>Warning</b>. Although you have selected crosslisted courses to contribute enrollment to this course, additional action is required.<br/>";
  unless ($warning eq '') {   unless ($warning eq '') {
     $response .= $warn_prefix.$warning;      $response .= $warn_prefix.$warning;
  }   }
Line 2157  sections which contribute to enrollment Line 2155  sections which contribute to enrollment
           
     if ($seccount > 0) {      if ($seccount > 0) {
  $warning = &warning_message($dom,$crs,$action);   $warning = &warning_message($dom,$crs,$action);
  $warn_prefix = "<br/><font size ='+1'><b>Warning</b></font>. Although you have selected sections to contribute enrollment to this course, additional action is required.<br/>";   $warn_prefix = "<br/><b>Warning</b>. Although you have selected sections to contribute enrollment to this course, additional action is required.<br/>";
  unless ($warning eq '') {   unless ($warning eq '') {
     $response .= $warn_prefix.$warning;      $response .= $warn_prefix.$warning;
  }   }
Line 2328  sub print_sections_response () { Line 2326  sub print_sections_response () {
   
     if (@allsections > 0) {      if (@allsections > 0) {
  $warning = &warning_message($dom,$crs,$action);   $warning = &warning_message($dom,$crs,$action);
  $warn_prefix = "<br/><font size ='+1'><b>Warning</b></font>. Although you have selected sections to contribute enrollment to this course, additional action is required.<br/>";   $warn_prefix = "<br/><b>Warning</b>. Although you have selected sections to contribute enrollment to this course, additional action is required.<br/>";
  unless ($warning eq '') {   unless ($warning eq '') {
     $response .= $warn_prefix.$warning;      $response .= $warn_prefix.$warning;
  }   }
Removed from v.1.66  
changed lines
  Added in v.1.67

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