[LON-CAPA-cvs] cvs: loncom /homework bridgetask.pm

[albertel]

albertel		Sat Oct  1 00:06:32 2005 EDT

  Modified files:              
    /loncom/homework	bridgetask.pm 
  Log:
  - rember section restrictions
  
  
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.61 loncom/homework/bridgetask.pm:1.62
--- loncom/homework/bridgetask.pm:1.61	Sat Oct  1 00:01:14 2005
+++ loncom/homework/bridgetask.pm	Sat Oct  1 00:06:29 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: bridgetask.pm,v 1.61 2005/10/01 04:01:14 albertel Exp $
+# $Id: bridgetask.pm,v 1.62 2005/10/01 04:06:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -490,6 +490,14 @@
 		$result.='<input type="hidden" name="regrade" value="'.
 		    $env{'form.regrade'}.'" />';
 	    }
+	    if ($env{'form.chosensections'}) {
+		my @chosen_sections=
+		    &Apache::loncommon::get_env_multiple('form.chosensections');
+		foreach my $sec (@chosen_sections) {
+		    $result.='<input type="hidden" name="chosensections" 
+                               value="'.$sec.'" />';
+		}
+	    }
 	}
     } else {
 	# page_start returned a starting result, delete it if we don't need it
@@ -959,6 +967,11 @@
 			($action,$description)=('unlock',&mt('Unlock'));
 		    }
 		}
+		my $seclist;
+		foreach my $sec (@chosen_sections) {
+		    $seclist.='<input type="hidden" name="chosensections" 
+                               value="'.$sec.'" />';
+		}
 		if (time > $slot_data{'endtime'}) {
 		    $result.=(<<FORM);
 <td>
@@ -969,6 +982,7 @@
  <input type="hidden" name="webgrade" value="no" />
  <input type="hidden" name="queuemode" value="selected" />
  <input type="submit" name="submit" value="$description" />
+ $seclist
 </form>
 </td>
 FORM
@@ -1204,6 +1218,11 @@
 	    $result.='<tr><td>&nbsp;</td><td>'.$fullname->{$student}.
 		'</td><td>';
 	} else {
+	    my $seclist;
+	    foreach my $sec (@chosen_sections) {
+		$seclist.='<input type="hidden" name="chosensections" 
+                               value="'.$sec.'" />';
+	    }
 	    $result.=<<RESULT;
 <tr>
   <td>
@@ -1212,7 +1231,8 @@
       <input type="hidden" name="queue" value="$queue" />
       <input type="hidden" name="webgrade" value="no" />
       <input type="hidden" name="regrade" value="yes" />
-     <input type="submit" name="submit" value="Regrade" />
+      <input type="submit" name="submit" value="Regrade" />
+      $seclist
     </form>
   <td>$fullname->{$student}</td>
   <td>