loncom/publisher/testbankimport.pm - diff

Return to testbankimport.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.38, 2013/04/11 14:59:58	version 1.39, 2013/06/04 22:20:16
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');