--- loncom/publisher/testbankimport.pm 2012/12/16 19:04:35 1.36
+++ loncom/publisher/testbankimport.pm 2013/07/02 19:04:49 1.41
@@ -1,5 +1,5 @@
# Handler for parsing text upload problem descriptions into .problems
-# $Id: testbankimport.pm,v 1.36 2012/12/16 19:04:35 raeburn Exp $
+# $Id: testbankimport.pm,v 1.41 2013/07/02 19:04:49 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -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|
@@ -487,7 +487,7 @@ sub display_zero {
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('Incomplete file upload').' '.&mt('Return to the [_1]Authoring Space menu[_2] to upload a file','',''));
}
$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:').'
@@ -681,7 +681,7 @@ sub display_three {
my %lt = &Apache::lonlocal::texthash (
crt => 'Create?',
typ => 'Type',
- fnam => 'File Name',
+ fnam => 'Filename',
ques => 'Question',
answ => 'Answer',
chka => 'check all',
@@ -1578,6 +1578,7 @@ sub create_ess {
if (open(PROB,">$destdir$libfile")) {
print PROB $output;
close(PROB);
+ $result = 'ok';
} else {
$result = 'failed';
}
@@ -1775,7 +1776,7 @@ sub print_header {
my ($uname,$udom,$javascript,$loadentries,$title,$current_page,$pagesref,
$namesref) = @_;
my $brcrum = [{'href' => &Apache::loncommon::authorspace("/priv/$udom/$uname/"),
- 'text' => 'Construction Space'}];
+ 'text' => 'Authoring Space'}];
if ($env{'form.phase'} eq 'three') {
if (ref($pagesref) eq 'ARRAY') {
for (my $i=0; $i<$current_page; $i++) {
@@ -1837,7 +1838,7 @@ sub handler {
my $page_name = '';
my $current_page = '';
my $qcount = '';
- my $title = 'Upload testbank questions to Construction Space';
+ my $title = 'Upload testbank questions to Authoring Space';
# ----------------------------------------------------------- Start page output
&Apache::loncommon::content_type($r,'text/html');
@@ -1946,7 +1947,7 @@ sub handler {
&page_footer('',$fn).'');
}
} else {
- &Apache::lonupload::phaseone($r,$fn,'testbank');
+ &Apache::lonupload::phaseone($r,$fn,'testbank',$uname,$udom);
}
$r->print(&Apache::loncommon::end_page());
return OK;