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

Diff for /loncom/publisher/testbankimport.pm between versions 1.43 and 1.45

version 1.43, 2013/10/10 00:46:50 version 1.45, 2017/11/12 23:08:58
Line 579  sub display_two { Line 579  sub display_two {
     my $blocks = $env{'form.blocks'};      my $blocks = $env{'form.blocks'};
     my $qnumformat = $env{'form.qnumformat'};      my $qnumformat = $env{'form.qnumformat'};
     my @types = ("MC","MA","TF","Ess","FIB","Ord");      my @types = ("MC","MA","TF","Ess","FIB","Ord");
     my %typenames = (      my %typenames = &Apache::lonlocal::texthash(
              MC => "Multiple Choice",               MC => "Multiple Choice",
              TF => "True/False",               TF => "True/False",
              MA => "Multiple Answer",               MA => "Multiple Answer",
Line 1508  sub create_mcq { Line 1508  sub create_mcq {
     if (-e $destdir.$libfile) {      if (-e $destdir.$libfile) {
         $result = 'exists';          $result = 'exists';
     } else {      } else {
         if (open(PROB,">$destdir$libfile")) {          if (open(PROB,">",$destdir.$libfile)) {
             print PROB $output;              print PROB $output;
             close(PROB);              close(PROB);
             $result = 'ok';              $result = 'ok';
Line 1586  sub create_ess { Line 1586  sub create_ess {
      if (-e $destdir.$libfile) {       if (-e $destdir.$libfile) {
          $result = 'exists';           $result = 'exists';
      } else {       } else {
          if (open(PROB,">$destdir$libfile")) {           if (open(PROB,">",$destdir.$libfile)) {
              print PROB $output;               print PROB $output;
              close(PROB);               close(PROB);
              $result = 'ok';               $result = 'ok';
Line 1617  sub file_error { Line 1617  sub file_error {
     my ($r,$fn,$current_page,$webpath,$res) = @_;      my ($r,$fn,$current_page,$webpath,$res) = @_;
     $r->print('<p><form name="display" method="post" action="/adm/testbank">'.&mt('The file you uploaded does not appear to be in the correct format.').      $r->print('<p><form name="display" method="post" action="/adm/testbank">'.&mt('The file you uploaded does not appear to be in the correct format.').
               '</p><p>'.&mt('Extraction of questions is only possible for the following file types:').                '</p><p>'.&mt('Extraction of questions is only possible for the following file types:').
               '<ul><li>'.&mt('plain text').'</li><li>RTF</li><li>HTML</li></ul>'.                '<ul>'.
                 '<li>'.&mt('plain text').'</li>'.
                 '<li>'.&mt('RTF').'</li>'.
                 '<li>'.&mt('HTML').'</li></ul>'.
               &mt('The file type identified for the file you uploaded is [_1].','<b>'.$res.'</b>').'</p>');                &mt('The file type identified for the file you uploaded is [_1].','<b>'.$res.'</b>').'</p>');
     $r->print(&page_footer($env{'form.newdir'},$fn,$current_page,$webpath,undef,'badfile').      $r->print(&page_footer($env{'form.newdir'},$fn,$current_page,$webpath,undef,'badfile').
              '</form>');               '</form>');
Line 1633  sub parse_datafile { Line 1636  sub parse_datafile {
         $res = $mm->checktype_filename($dirpath.$filename);          $res = $mm->checktype_filename($dirpath.$filename);
         if ($env{'form.phase'} eq 'three') {                    if ($env{'form.phase'} eq 'three') {          
             if ($res eq 'text/plain') {              if ($res eq 'text/plain') {
                 open(TESTBANK,"<$dirpath$filename");                  open(TESTBANK,"<",$dirpath.$filename);
                 @{$text} = <TESTBANK>;                  @{$text} = <TESTBANK>;
                 close(TESTBANK);                  close(TESTBANK);
             } elsif ($res eq 'application/rtf') {              } elsif ($res eq 'application/rtf') {
Line 1862  sub handler { Line 1865  sub handler {
     if ($env{'form.phase'} eq 'three') {      if ($env{'form.phase'} eq 'three') {
         $current_page = &display_control();          $current_page = &display_control();
         @pages = ('Welcome','Blocks','Format','Target','Confirmation');          @pages = ('Welcome','Blocks','Format','Target','Confirmation');
         %names = (          %names = &Apache::lonlocal::texthash(
                    Welcome      => 'Testbank Format',                     Welcome      => 'Testbank Format',
                    Blocks       => 'Classification',                     Blocks       => 'Classification',
                    Format       => 'Selection',                     Format       => 'Selection',
Removed from v.1.43  
changed lines
  Added in v.1.45

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