--- loncom/homework/bridgetask.pm	2005/03/31 16:05:13	1.7
+++ loncom/homework/bridgetask.pm	2005/03/31 21:24:29	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: bridgetask.pm,v 1.7 2005/03/31 16:05:13 albertel Exp $
+# $Id: bridgetask.pm,v 1.8 2005/03/31 21:24:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,6 +61,14 @@ sub proctor_check_auth {
     return 0;
 }
 
+sub add_previous_version_button {
+    my $result;
+    $result.=' Show a previously done version: <select name="previousversion">
+<option>Pick one</option>
+</select>';
+    return $result;
+}
+
 sub start_Task {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
 
@@ -73,6 +81,9 @@ sub start_Task {
     my ($result,$head_tag_start,$body_tag_start,$form_tag_start)=
 	&Apache::structuretags::page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
 
+    if ($target eq 'web') {
+	$body_tag_start.=&add_previous_version_button();
+    }
     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
 	$target eq 'tex') {
 	($status,$accessmsg,$slot) = 
@@ -153,6 +164,10 @@ sub end_Task {
 	    ($target eq 'answer') || ($target eq 'tex')
 	   ) {
 	    if ($target eq 'web') {
+		$result.='<table border="1">'.
+		    &Apache::inputtags::file_selector("bridge","task","*",
+						      'portfolioonly').
+						      "</table>";
 		$result.=&Apache::lonxml::xmlend().'</html>';
 	    }
 	}