[LON-CAPA-cvs] cvs: loncom /publisher testbankimport.pm

[raeburn]

raeburn		Tue Jul  8 03:17:47 2008 EDT

  Modified files:              
    /loncom/publisher	testbankimport.pm 
  Log:
  - Make textarea used to display contents of uploaded testbank file readonly.
  
  
Index: loncom/publisher/testbankimport.pm
diff -u loncom/publisher/testbankimport.pm:1.15 loncom/publisher/testbankimport.pm:1.16
--- loncom/publisher/testbankimport.pm:1.15	Tue Jun 17 09:00:19 2008
+++ loncom/publisher/testbankimport.pm	Tue Jul  8 03:17:46 2008
@@ -1,5 +1,5 @@
 # Handler for parsing text upload problem descriptions into .problems
-# $Id: testbankimport.pm,v 1.15 2008/06/17 13:00:19 raeburn Exp $
+# $Id: testbankimport.pm,v 1.16 2008/07/08 07:17:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1141,7 +1141,7 @@
 sub show_uploaded_data {
     my ($textref,$header) = @_;
     my $output = '<p><b>'.&mt('Testbank data uploaded to the server').'</b></p><p>'."\n".
-                 '<textarea name="rawdata" cols="70" rows="6" wrap="virtual" align="center">'."\n";
+                 '<textarea name="rawdata" cols="70" rows="6" wrap="virtual" align="center" readonly>'."\n";
     if ($header ne '') {
         $output .= $header."\n";
     }