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

Diff for /loncom/imspackages/imsprocessor.pm between versions 1.43 and 1.49

version 1.43, 2008/08/23 21:08:29 version 1.49, 2011/10/24 23:41:52
Line 1 Line 1
   # The LearningOnline Network with CAPA
   # Processor for IMS Packages
   #
   # $Id$
   #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 57  sub ims_config { Line 62  sub ims_config {
                 users => 'course/x-bb-user',                  users => 'course/x-bb-user',
                 );                  );
     $$cmsmap{bb6}{conference} = 'resource/x-bb-conference';      $$cmsmap{bb6}{conference} = 'resource/x-bb-conference';
     %{$$cmsmap{angel}} =  (      %{$$cmsmap{angel5}} =  (
                 board => 'BOARD',                  board => 'BOARD',
                 extlink => 'LINK',                  extlink => 'LINK',
                 msg => 'MESSAGE',                  msg => 'MESSAGE',
                 quiz => 'QUIZ',                  quiz => 'QUIZ',
                 survey => 'FORM',                  survey => 'FORM',
                 );                  );
     @{$$cmsmap{angel}{doc}} = ('FILE','PAGE');      @{$$cmsmap{angel5}{doc}} = ('FILE','PAGE');
     %{$$cmsmap{webctce4}} = (      %{$$cmsmap{webctce4}} = (
                 quiz => 'webctquiz',                  quiz => 'webctquiz',
                 survey => 'webctsurvey',                  survey => 'webctsurvey',
Line 165  sub process_manifest { Line 170  sub process_manifest {
     my %toc = (      my %toc = (
               bb6 => 'organization',                bb6 => 'organization',
               bb5 => 'tableofcontents',                bb5 => 'tableofcontents',
               angel => 'organization',                angel5 => 'organization',
               webctce4 => 'organization',                webctce4 => 'organization',
               webctvista4 => 'organization'                webctvista4 => 'organization'
               );                );
Line 178  sub process_manifest { Line 183  sub process_manifest {
                                   revitm => 'Top'                                    revitm => 'Top'
                                  );                                   );
     
     if ($cms eq 'angel') {      if ($cms eq 'angel5') {
         $$resources{'toplevel'}{type} = "FOLDER";          $$resources{'toplevel'}{type} = "FOLDER";
     } elsif ($cms eq 'bb5' || $cms eq 'bb6') {      } elsif ($cms eq 'bb5' || $cms eq 'bb6') {
         $$resources{'toplevel'}{type} = 'resource/x-bb-document';          $$resources{'toplevel'}{type} = 'resource/x-bb-document';
Line 225  sub parse_manifest { Line 230  sub parse_manifest {
                                 if ($cms eq 'bb5') {                                  if ($cms eq 'bb5') {
                                     $$items{$itm}{title} = $attr->{title};                                      $$items{$itm}{title} = $attr->{title};
                                 }                                  }
                             } elsif ($cms eq 'angel') {                              } elsif ($cms eq 'angel5') {
                                 if ($attr->{identifierref} =~ m/^res(.+)$/) {                                  if ($attr->{identifierref} =~ m/^res(.+)$/) {
                                     $$items{$itm}{resnum} = $1;                                      $$items{$itm}{resnum} = $1;
                                 }                                  }
Line 293  sub parse_manifest { Line 298  sub parse_manifest {
                         } elsif ($cms eq 'webctvista4') {                          } elsif ($cms eq 'webctvista4') {
                             $$resources{$identifier}{type} = $attr->{type};                              $$resources{$identifier}{type} = $attr->{type};
                             $$resources{$identifier}{'webct:coType'} = $attr->{'webct:coType'};                              $$resources{$identifier}{'webct:coType'} = $attr->{'webct:coType'};
                         } elsif ($cms eq 'angel') {                          } elsif ($cms eq 'angel5') {
                             $identifier = substr($identifier,3);                              $identifier = substr($identifier,3);
                             if ($attr->{href} =~ m-^_assoc/$identifier/(.+)$-) {                              if ($attr->{href} =~ m-^_assoc/$identifier/(.+)$-) {
                                 $$resources{$identifier}{file} = $1;                                  $$resources{$identifier}{file} = $1;
Line 322  sub parse_manifest { Line 327  sub parse_manifest {
                                                 $items,$resources,$resinfo,                                                  $items,$resources,$resinfo,
                                                 $hrefs,$currseqref);                                                  $hrefs,$currseqref);
                             }                              }
                         } elsif ($cms eq 'angel') {                          } elsif ($cms eq 'angel5') {
                             if ($attr->{href} =~ m/^_assoc\\$identifier\\(.+)$/) {                              if ($attr->{href} =~ m/^_assoc\\$identifier\\(.+)$/) {
                                 push @{$$hrefs{$identifier}},$1;                                  push @{$$hrefs{$identifier}},$1;
                             } elsif ($attr->{href} =~ m/^Icons\\icon(\w+)\.gif/) {                              } elsif ($attr->{href} =~ m/^Icons\\icon(\w+)\.gif/) {
Line 346  sub parse_manifest { Line 351  sub parse_manifest {
                 }                  }
                 if ($state[0] eq "manifest" && $state[1] eq "organizations" && $state[2] eq $$toc{$cms} && $state[-1] eq "title") {                  if ($state[0] eq "manifest" && $state[1] eq "organizations" && $state[2] eq $$toc{$cms} && $state[-1] eq "title") {
                     if ($$includeditems{$itm} || $phase ne 'build') {                      if ($$includeditems{$itm} || $phase ne 'build') {
                         if ($cms eq 'angel' || $cms eq 'bb6' || $cms eq 'webctvista4') {                          if ($cms eq 'angel5' || $cms eq 'bb6' || $cms eq 'webctvista4') {
                             $$items{$itm}{title} = $text;                              $$items{$itm}{title} = $text;
                         }                          }
                         if ($cms eq 'webctce4') {                          if ($cms eq 'webctce4') {
Line 421  sub copy_resources { Line 426  sub copy_resources {
                     }                      }
                     my $filename = '';                      my $filename = '';
                     my $fpath = $timenow.'/resfiles/'.$key.'/';                      my $fpath = $timenow.'/resfiles/'.$key.'/';
                     if ($cms eq 'angel') {                      if ($cms eq 'angel5') {
                         if ($file eq 'pg'.$key.'.htm') {                          if ($file eq 'pg'.$key.'.htm') {
                             next;                              next;
                         }                          }
Line 451  sub copy_resources { Line 456  sub copy_resources {
             if (grep/^$key$/,@{$targets}) {              if (grep/^$key$/,@{$targets}) {
                 foreach my $file (@{$$hrefs{$key}}) {                  foreach my $file (@{$$hrefs{$key}}) {
                     $file =~ s-\\-/-g;                      $file =~ s-\\-/-g;
                     if ( ($cms eq 'angel' && $file ne 'pg'.$key.'.htm') || ($cms eq 'bb5') || ($cms eq 'bb6')) {                      if ( ($cms eq 'angel5' && $file ne 'pg'.$key.'.htm') || ($cms eq 'bb5') || ($cms eq 'bb6')) {
                         if (!-e "$destdir/resfiles/$key") {                          if (!-e "$destdir/resfiles/$key") {
                             mkdir("$destdir/resfiles/$key",0770);                              mkdir("$destdir/resfiles/$key",0770);
                         }                          }
Line 467  sub copy_resources { Line 472  sub copy_resources {
                             }                              }
                         }                          }
                         my $renameres;                          my $renameres;
                         if ($cms eq 'angel') {                          if ($cms eq 'angel5') {
                             $renameres = rename("$tempdir/_assoc/$key/$file","$destdir/resfiles/$key/$file");                              $renameres = rename("$tempdir/_assoc/$key/$file","$destdir/resfiles/$key/$file");
                         } elsif ($cms eq 'bb5' || $cms eq 'bb6') {                          } elsif ($cms eq 'bb5' || $cms eq 'bb6') {
                             $renameres = rename("$tempdir/$key/$file","$destdir/resfiles/$key/$file");                              $renameres = rename("$tempdir/$key/$file","$destdir/resfiles/$key/$file");
Line 532  sub process_resinfo { Line 537  sub process_resinfo {
             mkdir("$destdir/resfiles",0770);              mkdir("$destdir/resfiles",0770);
         }          }
     }      }
     if ($cms eq 'angel') {      if ($cms eq 'angel5') {
         my $currboard = '';          my $currboard = '';
         foreach my $key (sort keys %{$resources}) {          foreach my $key (sort keys %{$resources}) {
           if (grep/^$key$/,@{$targets}) {            if (grep/^$key$/,@{$targets}) {
Line 635  sub process_resinfo { Line 640  sub process_resinfo {
             if (grep/^$key$/,@{$targets}) {              if (grep/^$key$/,@{$targets}) {
                 if ($$resources{$key}{type} eq "webcontent") {                  if ($$resources{$key}{type} eq "webcontent") {
                     %{$$resinfo{$key}} = ();                      %{$$resinfo{$key}} = ();
                     &webct4_content($key,$docroot,$destdir,\%{$$resinfo{$key}},$udom,$uname,$$resources{$key}{type},$$items{$$resources{$key}{revitm}}{title},$resrcfiles);                      if ($$resources{$key}{file} eq 'questiondb.xml') {
                           &process_assessment($cms,$context,$key,$docroot,'quiz',$dirname,$destdir,\%{$$resinfo{$key}},$total,$udom,$uname,$pagesfiles,$sequencesfiles,$randompicks,\$dbparse,$resources,$items,\%catinfo,\%qzdbsettings,$hrefs,\%allquestions);
                       } else {
                           &webct4_content($key,$docroot,$destdir,\%{$$resinfo{$key}},$udom,$uname,$$resources{$key}{type},$$items{$$resources{$key}{revitm}}{title},$resrcfiles);
                       }
                 } elsif ($$resources{$key}{type} eq "webctquiz") {                  } elsif ($$resources{$key}{type} eq "webctquiz") {
                     &process_assessment($cms,$context,$key,$docroot,'quiz',$dirname,$destdir,\%{$$resinfo{$key}},$total,$udom,$uname,$pagesfiles,$sequencesfiles,$randompicks,\$dbparse,$resources,$items,\%catinfo,\%qzdbsettings,$hrefs,\%allquestions);                      &process_assessment($cms,$context,$key,$docroot,'quiz',$dirname,$destdir,\%{$$resinfo{$key}},$total,$udom,$uname,$pagesfiles,$sequencesfiles,$randompicks,\$dbparse,$resources,$items,\%catinfo,\%qzdbsettings,$hrefs,\%allquestions);
                 }                  }
Line 671  sub process_resinfo { Line 680  sub process_resinfo {
             }              }
             my $destresdir = $destdir;              my $destresdir = $destdir;
             if ($context eq 'CSTR') {              if ($context eq 'CSTR') {
                 $destresdir =~ s|/home/$uname/public_html/|/res/$udom/$uname/|;                  $destresdir =~ s|/home/httpd/html/priv/|/res/|;
             } elsif ($context eq 'DOCS') {              } elsif ($context eq 'DOCS') {
                 $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;                  $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;
             }              }
Line 755  sub build_structure { Line 764  sub build_structure {
         $seqtitle =~ s|/+|_|g;          $seqtitle =~ s|/+|_|g;
         $seqtitle =~ s/\s+/_/g;          $seqtitle =~ s/\s+/_/g;
         $seqtitle .= '_'.$key;          $seqtitle .= '_'.$key;
         if (($cms eq 'angel' && $type eq "FOLDER") || (($cms eq 'bb5' || $cms eq 'bb6') && $$resinfo{$resnum}{'isfolder'} eq "true") && (($type eq "resource/x-bb-document") || ($type eq "resource/x-bb-staffinfo") || ($type eq "resource/x-bb-externallink")) || ($cms eq 'webctce4' &&  $contentscount > 0)) {          if (($cms eq 'angel5' && $type eq "FOLDER") || (($cms eq 'bb5' || $cms eq 'bb6') && $$resinfo{$resnum}{'isfolder'} eq "true") && (($type eq "resource/x-bb-document") || ($type eq "resource/x-bb-staffinfo") || ($type eq "resource/x-bb-externallink")) || ($cms eq 'webctce4' &&  $contentscount > 0)) {
             unless (($cms eq 'bb5') && $key eq 'Top') {              unless (($cms eq 'bb5') && $key eq 'Top') {
                 $seqtext{$key} = "<map>\n";                  $seqtext{$key} = "<map>\n";
             }              }
Line 998  sub build_structure { Line 1007  sub build_structure {
 sub make_structure {  sub make_structure {
     my ($cms,$key,$srcstem,$flag,$count,$timestamp,$boardnum,$hrefs,$pagecontents,$res,$type,$file,$resinfo,$contitem,$uname,$cdom,$contcount,$packageflag,$contitemcount,$randompick,$title) = @_;      my ($cms,$key,$srcstem,$flag,$count,$timestamp,$boardnum,$hrefs,$pagecontents,$res,$type,$file,$resinfo,$contitem,$uname,$cdom,$contcount,$packageflag,$contitemcount,$randompick,$title) = @_;
     my $src ='';      my $src ='';
     if (($cms eq 'angel' && $type eq 'FOLDER') || (($cms eq 'bb5' || $cms eq 'bb6') && (($$resinfo{$res}{'isfolder'} eq 'true') || $key eq 'Top')) || ($cms eq 'webctce4' && $contitemcount > 0)) {      if (($cms eq 'angel5' && $type eq 'FOLDER') || (($cms eq 'bb5' || $cms eq 'bb6') && (($$resinfo{$res}{'isfolder'} eq 'true') || $key eq 'Top')) || ($cms eq 'webctce4' && $contitemcount > 0)) {
         $src = $srcstem.'/sequences/'.$contitem.'.sequence';          $src = $srcstem.'/sequences/'.$contitem.'.sequence';
         if ($cms eq 'webctce4') {          if ($cms eq 'webctce4') {
             $title =~ s|/+|_|g;              $title =~ s|/+|_|g;
Line 1014  sub make_structure { Line 1023  sub make_structure {
         $$flag{$key}{page} = 0;          $$flag{$key}{page} = 0;
         $$flag{$key}{seq} = 1;          $$flag{$key}{seq} = 1;
         $$count{$key}{seq} ++;          $$count{$key}{seq} ++;
     } elsif ($cms eq 'angel' && $type eq 'BOARD') {      } elsif ($cms eq 'angel5' && $type eq 'BOARD') {
         $src = '/adm/'.$cdom.'/'.$uname.'/'.$$timestamp[$$boardnum{$res}].'/bulletinboard';           $src = '/adm/'.$cdom.'/'.$uname.'/'.$$timestamp[$$boardnum{$res}].'/bulletinboard'; 
         $$flag{$key}{page} = 0;          $$flag{$key}{page} = 0;
         $$flag{$key}{board} = 1;          $$flag{$key}{board} = 1;
         $$count{$key}{board} ++;          $$count{$key}{board} ++;
     } elsif ($cms eq 'angel' && $type eq "FILE") {      } elsif ($cms eq 'angel5' && $type eq "FILE") {
         foreach my $file (@{$$hrefs{$res}}) {          foreach my $file (@{$$hrefs{$res}}) {
             unless ($file eq 'pg'.$res.'.htm') {              unless ($file eq 'pg'.$res.'.htm') {
                 $src = $srcstem.'/resfiles/'.$res.'/'.$file;                  $src = $srcstem.'/resfiles/'.$res.'/'.$file;
Line 1027  sub make_structure { Line 1036  sub make_structure {
         }          }
         $$flag{$key}{page} = 0;          $$flag{$key}{page} = 0;
         $$flag{$key}{file} = 1;          $$flag{$key}{file} = 1;
     } elsif ($cms eq 'angel' && (($type eq "PAGE") || ($type eq "LINK")) )  {      } elsif ($cms eq 'angel5' && (($type eq "PAGE") || ($type eq "LINK")) )  {
         if ($$flag{$key}{page}) {          if ($$flag{$key}{page}) {
             if ($$count{$key}{page} == -1) {              if ($$count{$key}{page} == -1) {
                 &Apache::lonnet::logthis("IMS Angel import error in array index for page: value = -1, resource is $key, type is $type.");                  &Apache::lonnet::logthis("IMS Angel import error in array index for page: value = -1, resource is $key, type is $type.");
Line 1108  sub process_specials { Line 1117  sub process_specials {
                   pools => 'pools'                    pools => 'pools'
                   );                    );
     my %seqtitles = (      my %seqtitles = (
                   boards => 'Course Bulletin Boards',                    boards => 'Course Discussion Boards',
                   quizzes => 'Course Quizzes',                    quizzes => 'Course Quizzes',
                   surveys => 'Course Surveys',                    surveys => 'Course Surveys',
                   announcements => 'Course Announcements',                    announcements => 'Course Announcements',
Line 1449  sub process_staff { Line 1458  sub process_staff {
             <font face="arial" size="2"><b>Office Hours:</b></font>              <font face="arial" size="2"><b>Office Hours:</b></font>
           </td>            </td>
           <td>            <td>
             <font face=arial size=2>$$settings{office}{hours}</font>              <font face="arial" size="2">$$settings{office}{hours}</font>
           </td>            </td>
         </tr>          </tr>
         |;          |;
Line 1771  sub process_db { Line 1780  sub process_db {
     }      }
 }  }
   
 # ---------------------------------------------------------------- Add Posting to Bulletin Board  # ---------------------------------------------------------------- Add Posting to Discussion Board
 sub addposting {  sub addposting {
     my ($symb,$contrib,$cdom,$crs)=@_;      my ($symb,$contrib,$cdom,$crs)=@_;
     my $status='';      my $status='';
Line 2775  sub parse_webct4_quizprops { Line 2784  sub parse_webct4_quizprops {
   
 sub parse_webct4_questionDB {  sub parse_webct4_questionDB {
     my ($docroot,$href,$catinfo,$settings,$allanswers,$allchoices,$allids) = @_;      my ($docroot,$href,$catinfo,$settings,$allanswers,$allchoices,$allids) = @_;
     $href =~ s#[^/]+$##;      my $xmlfile;
     my $xmlfile = $docroot.'/'.$href.'questionDB.xml'; #quizDB file      if ($href eq 'questiondb.xml') {
           $xmlfile = $docroot.'/'.$href;
       } else {
           $href =~ s#[^/]+$##;
           $xmlfile = $docroot.'/'.$href.'questionDB.xml'; #quizDB file
       }
     my @state = ();      my @state = ();
     my $category; # the current category ID      my $category; # the current category ID
     my $id; # the current question ID      my $id; # the current question ID
Line 2797  sub parse_webct4_questionDB { Line 2811  sub parse_webct4_questionDB {
                    action => '',                     action => '',
                  );                   );
     my $currtexttype;      my $currtexttype;
     my $currimagtype;        my $currimagtype;
       my $is_objectbank;
     my $p = HTML::Parser->new      my $p = HTML::Parser->new
     (      (
      xml_mode => 1,       xml_mode => 1,
      start_h =>       start_h =>
      [sub {       [sub {
         my ($tagname, $attr) = @_;          my ($tagname, $attr) = @_;
         push @state, $tagname;          if (("@state" eq "questestinterop") && ($tagname eq 'objectbank')) {
               $is_objectbank = 1;
           } else {
               push @state, $tagname;
           }
         if ("@state" eq "questestinterop section") {          if ("@state" eq "questestinterop section") {
             $category = $attr->{ident};              $category = $attr->{ident};
             %{$$catinfo{$category}} = ();              %{$$catinfo{$category}} = ();
Line 2893  sub parse_webct4_questionDB { Line 2912  sub parse_webct4_questionDB {
             $$settings{$id}{$list}{$answer_id}{texttype} = $attr->{texttype};              $$settings{$id}{$list}{$answer_id}{texttype} = $attr->{texttype};
             $currtexttype = $attr->{texttype};              $currtexttype = $attr->{texttype};
         }          }
           if ("@state" eq "questestinterop section item presentation flow response_lid render_choice flow_label response_label flow_mat material mattext") {
               $$settings{$id}{$list}{$answer_id}{texttype} = $attr->{texttype};
               $currtexttype = $attr->{texttype};
           }
   
 # Numerical  # Numerical
         if ("@state" eq "questestinterop section item presentation material mat_extension webct:x_webct_v01_dynamicmattext") {          if ("@state" eq "questestinterop section item presentation material mat_extension webct:x_webct_v01_dynamicmattext") {
Line 2979  sub parse_webct4_questionDB { Line 3002  sub parse_webct4_questionDB {
             }               } 
         }          }
         if ("@state" eq "questestinterop section item resprocessing respcondition setvar") {          if ("@state" eq "questestinterop section item resprocessing respcondition setvar") {
             $setvar{varname} = $attr->{varname};              foreach my $key (keys(%{$attr})) {
                   $setvar{$key} = $attr->{$key};
               }
             if ($setvar{varname} eq 'WebCT_Correct') {              if ($setvar{varname} eq 'WebCT_Correct') {
                 push(@{$$settings{$id}{$grp}{correctanswer}},$answer_id);                  push(@{$$settings{$id}{$grp}{correctanswer}},$answer_id);
             }              }
Line 3010  sub parse_webct4_questionDB { Line 3035  sub parse_webct4_questionDB {
         }          }
         if ("@state" eq "questestinterop section item itemfeedback") {          if ("@state" eq "questestinterop section item itemfeedback") {
             $fdbk = $attr->{ident};              $fdbk = $attr->{ident};
               push(@{$$settings{$id}{feedback}},$fdbk);
             $$settings{$id}{$fdbk}{view} = $attr->{view};              $$settings{$id}{$fdbk}{view} = $attr->{view};
         }          }
         if ("@state" eq "questestinterop section item itemfeedback material mattext") {          if ("@state" eq "questestinterop section item itemfeedback material mattext") {
Line 3053  sub parse_webct4_questionDB { Line 3079  sub parse_webct4_questionDB {
         if ("@state" eq "questestinterop section item presentation flow response_lid render_choice flow_label response_label material mattext") {          if ("@state" eq "questestinterop section item presentation flow response_lid render_choice flow_label response_label material mattext") {
             $$settings{$id}{$list}{$answer_id}{text} = $text;              $$settings{$id}{$list}{$answer_id}{text} = $text;
         }          }
           if ("@state" eq "questestinterop section item presentation flow response_lid render_choice flow_label response_label flow_mat material mattext") {
               $$settings{$id}{$list}{$answer_id}{text} = $text;
           }
   
 # Numerical  # Numerical
         if ("@state" eq "questestinterop section item presentation material mat_extension webct:x_webct_v01_dynamicmattext") {          if ("@state" eq "questestinterop section item presentation material mat_extension webct:x_webct_v01_dynamicmattext") {
Line 3103  sub parse_webct4_questionDB { Line 3132  sub parse_webct4_questionDB {
                         push(@{$$settings{$id}{$list}{correctanswer}},$answer_id);                          push(@{$$settings{$id}{$list}{correctanswer}},$answer_id);
                     }                      }
                 }                  }
               } elsif ($is_objectbank) { #Multiple Choice WebCT 4.1 D2L objectbank
                   if ($setvar{action} eq "Set") {
                       if ($text =~ /^\d+\.?\d*$/) {
                           if ($text > 0.000000001) {
                               push(@{$$settings{$id}{$list}{correctanswer}},$answer_id);
                           }
                       }
                   }
             }              }
         }          }
         if ("@state" eq "questestinterop section item resprocessing itemproc_extension webct:x_webct_v01_autocalculate webct:x_webct_v01_anstolerance") {          if ("@state" eq "questestinterop section item resprocessing itemproc_extension webct:x_webct_v01_autocalculate webct:x_webct_v01_anstolerance") {
Line 3119  sub parse_webct4_questionDB { Line 3156  sub parse_webct4_questionDB {
      end_h =>       end_h =>
      [sub {       [sub {
         my ($tagname) = @_;          my ($tagname) = @_;
         pop @state;          if (("@state" eq "questestinterop") && ($tagname eq 'objectbank')) {
               $is_objectbank = '';
           } else {
               pop @state;
           }
      }, "tagname"],       }, "tagname"],
     );      );
     $p->unbroken_text(1);      $p->unbroken_text(1);
Line 3137  sub parse_webct4_questionDB { Line 3178  sub parse_webct4_questionDB {
                     }                      }
                 }                  }
             }              }
           } elsif ($$settings{$id}{class} eq 'multiplechoice') {
               if (ref($$settings{$id}) eq 'HASH') {
                   foreach my $list (keys(%{$$settings{$id}})) {
                       if (ref($$settings{$id}{$list}) eq 'HASH') {
                           if (defined($$settings{$id}{$list}{rcardinality})) {
                               if ($$settings{$id}{$list}{rcardinality} eq 'Multiple') {
                                   if (ref($$settings{$id}{$list}{correctanswer}) eq 'ARRAY') {
                                       if (@{$$settings{$id}{$list}{correctanswer}} == 1) {
                                           $$settings{$id}{$list}{rcardinality} = 'Single';
                                       }
                                   }
                               }
                           }
                       }
                   }
               }
         }          }
     }      }
 }  }
Line 3161  sub process_assessment { Line 3218  sub process_assessment {
     }      }
     my $destresdir = $destdir;      my $destresdir = $destdir;
     if ($context eq 'CSTR') {      if ($context eq 'CSTR') {
         $destresdir =~ s|/home/$uname/public_html/|/res/$udom/$uname/|;          $destresdir =~ s|/home/httpd/html/priv/|/res/|;
     } elsif ($context eq 'DOCS') {      } elsif ($context eq 'DOCS') {
         $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;          $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;
     }      }
Line 3215  sub process_assessment { Line 3272  sub process_assessment {
     }      }
   
     if ($cms eq 'webctce4') {      if ($cms eq 'webctce4') {
         &build_problem_container($cms,$dirtitle,$destdir,$container,$res,$total,$sequencesfiles,$pagesfiles,$randompickflag,$context,\@allids,$udom,$uname,$dirname,\$containerdir,$cid,$cdom,$cnum,$catinfo,$qzdbsettings);          if (@allids > 0 && $allids[0] ne '') {
               &build_problem_container($cms,$dirtitle,$destdir,$container,$res,$total,$sequencesfiles,$pagesfiles,$randompickflag,$context,\@allids,$udom,$uname,$dirname,\$containerdir,$cid,$cdom,$cnum,$catinfo,$qzdbsettings);
           }
     } else {      } else {
         &build_problem_container($cms,$dirtitle,$destdir,$container,$res,$total,$sequencesfiles,$pagesfiles,$randompickflag,$context,\@allids,$udom,$uname,$dirname,\$containerdir,$cid,$cdom,$cnum,$catinfo,$qzdbsettings,\%qzparams);          &build_problem_container($cms,$dirtitle,$destdir,$container,$res,$total,$sequencesfiles,$pagesfiles,$randompickflag,$context,\@allids,$udom,$uname,$dirname,\$containerdir,$cid,$cdom,$cnum,$catinfo,$qzdbsettings,\%qzparams);
     }      }
Line 3328  sub build_problem_container { Line 3387  sub build_problem_container {
             }              }
             $probtitle{$id} =~ s/\s+/_/g;              $probtitle{$id} =~ s/\s+/_/g;
             $probtitle{$id} =~ s/:/_/g;              $probtitle{$id} =~ s/:/_/g;
               $probtitle{$id} =~ s/\//_/g;
             $probtitle{$id} .= '_'.$id;              $probtitle{$id} .= '_'.$id;
         }          }
         if (($cms eq 'webctce4' && $container ne 'database') ||          if (($cms eq 'webctce4' && $container ne 'database') ||
Line 3787  sub write_webct4_questions { Line 3847  sub write_webct4_questions {
         my $questionimage;          my $questionimage;
         foreach my $fdbk (@{$$settings{$id}{feedback}}) {          foreach my $fdbk (@{$$settings{$id}{feedback}}) {
             my $feedback =  $$settings{$id}{$fdbk}{text};              my $feedback =  $$settings{$id}{$fdbk}{text};
             if ($$settings{$id}{$fdbk}{texttype} eq 'text/html') {              if ($feedback ne '') {
                 $feedback = &HTML::Entities::decode($feedback);                  if ($$settings{$id}{$fdbk}{texttype} eq 'text/html') {
                       $feedback = &HTML::Entities::decode($feedback);
                   }
                   $allfeedback .= $feedback;
             }              }
             $allfeedback .= $feedback;  
         }          }
         if ($$settings{$id}{texttype} eq 'text/html') {          if ($$settings{$id}{texttype} eq 'text/html') {
             if ($$settings{$id}{text}) {              if ($$settings{$id}{text}) {
Line 3850  sub write_webct4_questions { Line 3912  sub write_webct4_questions {
  <essayresponse>   <essayresponse>
  <textfield>$pre_fill_answer</textfield>   <textfield>$pre_fill_answer</textfield>
  </essayresponse>   </essayresponse>
  <postanswerdate>  
   $allfeedback  
  </postanswerdate>  
 |;  |;
             } else {              } else {
                 $resourcedata{$symb.'questiontext'} = '<p>'.$$settings{$id}{text}.'</p>'.$questionimage;                  $resourcedata{$symb.'questiontext'} = '<p>'.$$settings{$id}{text}.'</p>'.$questionimage;
Line 4363  $$settings{$id}{$list}{jumbledtext}[$k] Line 4422  $$settings{$id}{$list}{jumbledtext}[$k]
             if (!-e "$destdir/problems/$probdir") {              if (!-e "$destdir/problems/$probdir") {
                 mkdir("$destdir/problems/$probdir",0755);                  mkdir("$destdir/problems/$probdir",0755);
             }              }
               if ($allfeedback ne '') {
                   $output .= qq|
    <postanswerdate>
     $allfeedback
    </postanswerdate>
   |;
               }
             $output .= qq|</problem>              $output .= qq|</problem>
 |;  |;
             my $title = $$settings{$id}{title};              my $title = $$settings{$id}{title};
             $title =~ s/\s/_/g;              $title =~ s/\s/_/g;
             $title =~ s/:/_/g;              $title =~ s/:/_/g;
               $title =~ s/\//_/g;
             $title .= '_'.$id;              $title .= '_'.$id;
             open(PROB,">$destdir/problems/$probdir/$title.problem");              open(PROB,">$destdir/problems/$probdir/$title.problem");
             print PROB $output;              print PROB $output;
Line 4913  sub process_content { Line 4980  sub process_content {
     my $xmlfile = $docroot.'/'.$res.".dat";      my $xmlfile = $docroot.'/'.$res.".dat";
     my $destresdir = $destdir;      my $destresdir = $destdir;
     if ($context eq 'CSTR') {      if ($context eq 'CSTR') {
         $destresdir =~ s|/home/$user/public_html/|/res/$dom/$user/|;          $destresdir =~ s|/home/httpd/html/priv/|/res/|;
     } elsif ($context eq 'DOCS') {      } elsif ($context eq 'DOCS') {
         $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;          $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;
     }      }
Removed from v.1.43  
changed lines
  Added in v.1.49

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