--- loncom/homework/inputtags.pm	2011/11/29 13:24:38	1.296
+++ loncom/homework/inputtags.pm	2011/12/08 02:59:34	1.297
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.296 2011/11/29 13:24:38 raeburn Exp $
+# $Id: inputtags.pm,v 1.297 2011/12/08 02:59:34 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1647,12 +1647,12 @@ sub previous_tries {
 	'<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt('Try').
 	'</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.
 	&mt('Submitted Answer').'</th>';
-    $output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';
+    $output =&Apache::loncommon::start_scrollbox('420px','400px','400px').
+             '<table class="LC_prior_tries">'.$headers.$output.'</table>'.
+             &Apache::loncommon::end_scrollbox();
     #return $output;
     $output = &Apache::loncommon::js_ready($output); 
-    $output.='<br /><form action=""><center><input type="button" name="close" value="'.&mt('Close Window').'" onClick="window.close()" /></center></form>';
 
-    my $windowopen=&Apache::lonhtmlcommon::javascript_docopen();
     my $tries_text = &get_tries_text('link');
     my $start_page =
 	&Apache::loncommon::start_page($tries_text, undef,
@@ -1666,13 +1666,8 @@ sub previous_tries {
     $prefix =~ tr{.}{_};
     my $function_name = "LONCAPA_previous_tries_".$prefix.
 	$Apache::lonxml::curdepth.'_'.$env{'form.counter'};
-    my $result ="<script type=\"text/javascript\">
-// <![CDATA[
-    function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page $output $end_page');newWindow.document.close();newWindow.focus()}
-// ]]>
-</script><a href=\"javascript:$function_name();void(0);\">".&mt($tries_text)."</a><br />";
-    #use Data::Dumper;
-    #&Apache::lonnet::logthis(&Dumper(\%Apache::inputtags::submission_display));
+    my $result = &Apache::loncommon::modal_adhoc_script($function_name,420,410,$start_page.$output.$end_page).
+    "<a href=\"javascript:$function_name();void(0);\">".&mt($tries_text)."</a><br />";
     return $result;
 }