--- loncom/interface/lonparmset.pm 2005/06/18 18:51:50 1.230
+++ loncom/interface/lonparmset.pm 2005/06/28 15:26:06 1.234
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.230 2005/06/18 18:51:50 www Exp $
+# $Id: lonparmset.pm,v 1.234 2005/06/28 15:26:06 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -629,7 +629,10 @@ sub print_row {
} else {
$parm=~s|\[.*\]\s||g;
}
-
+ my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
+ if ($automatic) {
+ $parm.='
'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'';
+ }
$r->print('
'.$parm.' | ');
my $thismarker=$which;
@@ -915,16 +918,16 @@ ENDSCRIPT
}
$r->print('
-Select All
-Select Common Only
+Select All
+Select Common Only
|
-Add Problem Dates
-Add Content Dates
-Add Discussion Settings
-Add Visibilities
-Add Part Parameters
+Add Problem Dates
+Add Content Dates
+Add Discussion Settings
+Add Visibilities
+Add Part Parameters
|
-Unselect All
+Unselect All
|
');
$r->print('
');
@@ -938,7 +941,9 @@ sub partmenu {
$r->print('>'.&mt('All Parts').'');
my %temphash=();
foreach (@{$psprt}) { $temphash{$_}=1; }
- foreach my $tempkey (sort keys %{$allparts}) {
+ foreach my $tempkey (sort {
+ if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }
+ } keys(%{$allparts})) {
unless ($tempkey =~ /\./) {
$r->print('