Diff for /loncom/homework/inputtags.pm between versions 1.296 and 1.297

version 1.296, 2011/11/29 13:24:38 version 1.297, 2011/12/08 02:59:34
Line 1647  sub previous_tries { Line 1647  sub previous_tries {
  '<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt('Try').   '<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt('Try').
  '</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.   '</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.
  &mt('Submitted Answer').'</th>';   &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;      #return $output;
     $output = &Apache::loncommon::js_ready($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 $tries_text = &get_tries_text('link');
     my $start_page =      my $start_page =
  &Apache::loncommon::start_page($tries_text, undef,   &Apache::loncommon::start_page($tries_text, undef,
Line 1666  sub previous_tries { Line 1666  sub previous_tries {
     $prefix =~ tr{.}{_};      $prefix =~ tr{.}{_};
     my $function_name = "LONCAPA_previous_tries_".$prefix.      my $function_name = "LONCAPA_previous_tries_".$prefix.
  $Apache::lonxml::curdepth.'_'.$env{'form.counter'};   $Apache::lonxml::curdepth.'_'.$env{'form.counter'};
     my $result ="<script type=\"text/javascript\">      my $result = &Apache::loncommon::modal_adhoc_script($function_name,420,410,$start_page.$output.$end_page).
 // <![CDATA[      "<a href=\"javascript:$function_name();void(0);\">".&mt($tries_text)."</a><br />";
     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));  
     return $result;      return $result;
 }  }
   

Removed from v.1.296  
changed lines
  Added in v.1.297


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>