version 1.38, 2013/04/11 14:59:58
|
version 1.41, 2013/07/02 19:04:49
|
Line 487 sub display_zero {
|
Line 487 sub display_zero {
|
my ($r,$fn,$page,$webpath) = @_; |
my ($r,$fn,$page,$webpath) = @_; |
my $go_default = 'NextPage'; |
my $go_default = 'NextPage'; |
if ($fn eq '') { |
if ($fn eq '') { |
$r->print('<b>'.&mt('Incomplete file upload').'</b> '.&mt('Return to the [_1]construction space menu[_2] to upload a file','<a href="'.$webpath.'">','</a>')); |
$r->print('<b>'.&mt('Incomplete file upload').'</b> '.&mt('Return to the [_1]Authoring Space menu[_2] to upload a file','<a href="'.$webpath.'">','</a>')); |
} |
} |
$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.','<b>','</b>').'<br />'. |
$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.','<b>','</b>').'<br />'. |
&mt('The following question types can be converted:').' |
&mt('The following question types can be converted:').' |
Line 1776 sub print_header {
|
Line 1776 sub print_header {
|
my ($uname,$udom,$javascript,$loadentries,$title,$current_page,$pagesref, |
my ($uname,$udom,$javascript,$loadentries,$title,$current_page,$pagesref, |
$namesref) = @_; |
$namesref) = @_; |
my $brcrum = [{'href' => &Apache::loncommon::authorspace("/priv/$udom/$uname/"), |
my $brcrum = [{'href' => &Apache::loncommon::authorspace("/priv/$udom/$uname/"), |
'text' => 'Construction Space'}]; |
'text' => 'Authoring Space'}]; |
if ($env{'form.phase'} eq 'three') { |
if ($env{'form.phase'} eq 'three') { |
if (ref($pagesref) eq 'ARRAY') { |
if (ref($pagesref) eq 'ARRAY') { |
for (my $i=0; $i<$current_page; $i++) { |
for (my $i=0; $i<$current_page; $i++) { |
Line 1838 sub handler {
|
Line 1838 sub handler {
|
my $page_name = ''; |
my $page_name = ''; |
my $current_page = ''; |
my $current_page = ''; |
my $qcount = ''; |
my $qcount = ''; |
my $title = 'Upload testbank questions to Construction Space'; |
my $title = 'Upload testbank questions to Authoring Space'; |
|
|
# ----------------------------------------------------------- Start page output |
# ----------------------------------------------------------- Start page output |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
Line 1947 sub handler {
|
Line 1947 sub handler {
|
&page_footer('',$fn).'</form>'); |
&page_footer('',$fn).'</form>'); |
} |
} |
} else { |
} else { |
&Apache::lonupload::phaseone($r,$fn,'testbank'); |
&Apache::lonupload::phaseone($r,$fn,'testbank',$uname,$udom); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |