version 1.33, 2011/11/02 23:43:37
|
version 1.35, 2012/10/29 17:38:55
|
Line 28 package Apache::testbankimport;
|
Line 28 package Apache::testbankimport;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::loncacc; |
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonnet; |
use Apache::lonnet; |
use HTML::Entities(); |
use HTML::Entities(); |
Line 1775 sub build_image_url {
|
Line 1774 sub build_image_url {
|
sub print_header { |
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(), |
my $brcrum = [{'href' => &Apache::loncommon::authorspace("/priv/$udom/$uname/"), |
'text' => 'Construction Space'}]; |
'text' => 'Construction Space'}]; |
if ($env{'form.phase'} eq 'three') { |
if ($env{'form.phase'} eq 'three') { |
if (ref($pagesref) eq 'ARRAY') { |
if (ref($pagesref) eq 'ARRAY') { |
Line 1827 sub handler {
|
Line 1826 sub handler {
|
return HTTP_NOT_FOUND; |
return HTTP_NOT_FOUND; |
} |
} |
|
|
my ($uname,$udom) = &Apache::loncacc::constructaccess($fn); |
my ($uname,$udom) = &Apache::lonnet::constructaccess($fn); |
if (($uname eq '') || ($udom eq '')) { |
if (($uname eq '') || ($udom eq '')) { |
$r->log_reason($uname.':'.$udom.' trying to convert testbank file '. |
$r->log_reason($uname.':'.$udom.' trying to convert testbank file '. |
$fn.' - not authorized',$r->filename); |
$fn.' - not authorized',$r->filename); |