--- loncom/publisher/testbankimport.pm 2009/05/14 14:24:18 1.24
+++ loncom/publisher/testbankimport.pm 2013/04/11 14:59:58 1.38
@@ -1,5 +1,5 @@
# Handler for parsing text upload problem descriptions into .problems
-# $Id: testbankimport.pm,v 1.24 2009/05/14 14:24:18 bisitz Exp $
+# $Id: testbankimport.pm,v 1.38 2013/04/11 14:59:58 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -28,7 +28,6 @@ package Apache::testbankimport;
use strict;
use Apache::Constants qw(:common :http :methods);
-use Apache::loncacc;
use Apache::loncommon();
use Apache::lonnet;
use HTML::Entities();
@@ -88,6 +87,7 @@ function createWin() {
newWindow.document.write("")
newWindow.document.write("")
newWindow.document.write("")
+ newWindow.document.write("")
newWindow.document.write("$webpath")
newWindow.document.write("")
newWindow.document.write('$end_page')
@@ -444,7 +444,7 @@ function verify() {
if ($numitems > 0) {
my $maxnum = $numitems - 1;
my %lt = &Apache::lonlocal::texthash(
- fnmb => 'File names must be unique',
+ fnmb => 'Filenames must be unique',
isum => 'is used more than once',
);
$$jsref .= qq|
@@ -484,12 +484,12 @@ function backPage() {
# ---------------------------------------------------------------- Display Zero
sub display_zero {
- my ($r,$uname,$fn,$page,$webpath) = @_;
+ my ($r,$fn,$page,$webpath) = @_;
my $go_default = 'NextPage';
if ($fn eq '') {
$r->print(''.&mt('Incomplete file upload').' '.&mt('Return to the [_1]construction space menu[_2] to upload a file','',''));
}
- $r->print(&mt('The Testbank Upload utility can be used by LON-CAPA authors to generate LON-CAPA problem files from a testbank file of questions/answers.').'
'.
+ $r->print(&mt('The [_1]Testbank Upload[_2] utility can be used by LON-CAPA authors to generate LON-CAPA problem files from a testbank file of questions/answers.','','').'
'.
&mt('The following question types can be converted:').'