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 .= "-> <a href=\"/adm/populate?action=$action\">".$$tasklongref{$action}."</a> -> <b>result</b>"; |
$page .= "» <a href=\"/adm/populate?action=$action\">".$$tasklongref{$action}."</a> » <b>result</b>"; |
} else { |
} else { |
$page .= " -> <b>".$$tasklongref{$action}."</b>"; |
$page .= " » <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> -> <a href="/adm/createuser">$usrmang</a> -> $page</font><br/> |
<a href="/adm/menu">$realm</a> » <a href="/adm/createuser">$usrmang</a> » $page<br/> |
</td> |
</td> |
<td align="right" bgcolor="#CCCCFF" valign="top"> |
<td align="right" bgcolor="#C5DB99" valign="top"> |
<font size="+1">$autenrl </font> |
$autenrl |
</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"> </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> </p> |
<p> </p> |
</td> |
</td> |
<td width=\"10\" valign=\"top\" bgcolor=\"#CCCCFF\"> </td> |
<td valign=\"top\" class=\"LC_pick_box_value\">"); |
<td width=\"10\" valign=\"top\" bgcolor=\"#FFFFFF\"> </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>. ".$lt{'cuno'}." "; |
$dateshow = "<br/>".&mt('Warning').". ".$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; |
} |
} |