[BACK]Return to testbankimport.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/testbankimport.pm between versions 1.33 and 1.35

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);
Removed from v.1.33  
changed lines
  Added in v.1.35

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>