--- loncom/publisher/testbankimport.pm 2008/06/17 13:00:19 1.15
+++ loncom/publisher/testbankimport.pm 2012/10/29 17:38:55 1.35
@@ -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.35 2012/10/29 17:38:55 raeburn 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();
@@ -81,14 +80,15 @@ function createWin() {
newWindow = window.open("","CreateDir","HEIGHT=400,WIDTH=750,scrollbars=yes")
newWindow.document.open()
newWindow.document.write('$start_page')
- newWindow.document.write("\\n")
+ newWindow.document.write("\\n")
newWindow.document.write("
$lt{'loca'}: $webpath
$lt{'newd'}
\\n")
newWindow.document.write("")
newWindow.document.write('$end_page')
newWindow.document.close()
@@ -484,7 +484,7 @@ 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','',''));
@@ -508,21 +508,21 @@ sub display_zero {
'.&mt('Review the identified questions, choose which to convert, and (optionally) override the default filename to be used for each problem file.').'
'.&mt('Complete the import of questions.').'
');
}
# ---------------------------------------------------------------- Display One
sub display_one {
- my ($r,$uname,$fn,$page,$textref,$header) = @_;
+ my ($r,$fn,$page,$textref,$header) = @_;
my %topics;
$topics{2} = &mt('Select the format of the question number - e.g., 1, 1., 1), (1 or (1) - ').'