--- loncom/interface/lonparmset.pm	2007/06/19 22:35:11	1.370
+++ loncom/interface/lonparmset.pm	2007/08/07 02:02:01	1.374
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.370 2007/06/19 22:35:11 albertel Exp $
+# $Id: lonparmset.pm,v 1.374 2007/08/07 02:02:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2047,17 +2047,24 @@ sub crsenv {
 	#
         # Deal with the emails
         if ($name =~ /\.email$/) {
-	    my ($user,$domain) = split(/:/,$value);
-	    if (!defined($user) || !defined($domain)) {
-		$setoutput.= '<br /> <span class="LC_error">'.
-		    &mt("Invalid email address specified, address must be of the form username:domain").
-		    '</span>';
-		undef($value);
-	    } elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
-		$setoutput.= '<br /> <span class="LC_error">'.
-		    &mt("Invalid email address specified, user [_1] is unknown.",$value).
-		    '</span>';
-		undef($value);
+	    foreach my $specifier (split(',',$value)) {
+		my ($user,$sections_or_groups)=
+		    ($specifier=~/^([^\(]+)\(([^\)]+)\)/);
+		if (!$sections_or_groups) {
+		    $user = $specifier;
+		}
+		my ($name,$domain) = split(':',$user);
+		if (!defined($user) || !defined($domain)) {
+		    $setoutput.= '<br /> <span class="LC_error">'.
+			&mt("Invalid email address specified, address must be of the form username:domain what was specified was ([_1])",$user).
+			'</span>';
+		    undef($value);
+		} elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
+		    $setoutput.= '<br /> <span class="LC_error">'.
+			&mt("Invalid email address specified, user [_1] is unknown.",$name).
+			'</span>';
+		    undef($value);
+		}
 	    }
         }
         # Get existing cloners
@@ -2140,6 +2147,8 @@ sub crsenv {
              'cloners'        => '<b>'.&mt('Users allowed to clone course').'</b><br /><tt>(user:domain,user:domain)</tt><br />'.&mt('Users with active Course Coordinator role in the course automatically have the right to clone it, and can be omitted from list.'),
              'grading'        => '<b>'.&mt('Grading').'</b><br />'.
                                  '<tt>"standard", "external", or "spreadsheet"</tt> '.&Apache::loncommon::help_open_topic('GradingOptions'),
+	     'task_grading'   => '<b>'.&mt('Bridge Task Grading').'</b><br />'.
+                                 &mt('Instructors and TAs in sections, when grading bridge tasks, should be allowed to grade other sections, "[_1]" they are allowed (this is the default), "[_2]" no, they can only grade their own section','<tt>any</tt>','<tt>section</tt>'),
              'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b> '.
                     '<a href="javascript:openbrowser'.
                     "('envform','default_xml_style'".
@@ -2163,7 +2172,8 @@ sub crsenv {
                                  '('.&mt('"[_1]" for visible separation','<tt>yes</tt>').', '.
                                  &mt('changes will not show until next login').')',
              'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b>'.&mt('("all":students can view all sections,"section":students can only view their own section.blank or "disabled" prevents student view.'),
-
+             'student_classlist_portfiles' => '<b>'.&mt('Include link to accessible portfolio files').'</b><br />'.&mt('"[_1]" for link to each a listing of each student\'s files.','<tt>yes</tt>'),
+             'student_classlist_opt_in' => '<b>'.&mt("Student's agreement needed for listing in student-viewable roster").'</b><br />'.&mt('"[_1]" to require students to opt-in to listing in the roster (on the roster page).','<tt>yes</tt>'),
              'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').
                                   '</b><br />"<tt>st</tt>": '.
                                   &mt('student').', "<tt>ta</tt>": '.
@@ -2256,6 +2266,8 @@ sub crsenv {
                              'default_xml_style','pageseparators',
                              'question.email','question.email.text','comment.email','comment.email.text','policy.email','policy.email.text',
                              'student_classlist_view',
+                             'student_classlist_opt_in',
+                             'student_classlist_portfiles',
                              'plc.roles.denied','plc.users.denied',
                              'pch.roles.denied','pch.users.denied',
                              'allow_limited_html_in_feedback',
@@ -2279,7 +2291,7 @@ sub crsenv {
 			     'texengine',
 			     'disablesigfigs',
 			     'disableexampointprint',
-			     'task_messages'
+			     'task_messages','task_grading',
                              );
 	foreach my $parameter (sort(keys(%values))) {
             unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) {
@@ -2715,8 +2727,8 @@ ENDOVER
     my @selected_sections = 
 	&Apache::loncommon::get_env_multiple('form.Section');
     @selected_sections = ('all') if (! @selected_sections);
-    foreach (@selected_sections) {
-        if ($_ eq 'all') {
+    foreach my $sec (@selected_sections) {
+        if ($sec eq 'all') {
             @selected_sections = ('all');
         }
     }
@@ -2736,6 +2748,9 @@ ENDOVER
 				\%mapp, \%symbp,\%maptitles,\%uris,
 				\%keyorder,\%defkeytype);
 
+    if (grep {$_ eq 'all'} (@psprt)) {
+	@psprt = keys(%allparts);
+    }
 # Menu to select levels, etc
 
     $r->print('<table id="LC_parm_overview_scope">