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

Diff for /loncom/imspackages/imsprocessor.pm between versions 1.9 and 1.10

version 1.9, 2004/08/04 17:34:29 version 1.10, 2004/08/05 23:21:49
Line 1 Line 1
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
   
 package Apache::imsprocessor;  package Apache::imsprocessor;
   
 use Apache::lonnet;  use Apache::lonnet;
Line 18  sub ims_config { Line 41  sub ims_config {
                 survey => 'assessment/x-bb-survey',                  survey => 'assessment/x-bb-survey',
                 users => 'course/x-bb-user',                  users => 'course/x-bb-user',
                 );                  );
   
       %{$$cmsmap{bb6}} =  %{$$cmsmap{bb5}};
       $$cmsmap{bb6}{conference} = 'resource/x-bb-conference';
     
     %{$$cmsmap{angel}} =  (      %{$$cmsmap{angel}} =  (
                 board => 'BOARD',                  board => 'BOARD',
Line 99  sub uploadzip { Line 125  sub uploadzip {
 sub expand_zip {  sub expand_zip {
     my ($tempdir,$filename) = @_;      my ($tempdir,$filename) = @_;
     my $zipfile = "$tempdir/$filename";      my $zipfile = "$tempdir/$filename";
       if (!-e "$zipfile") {
           return 'no zip';
       }
     if ($filename =~ m|\.zip$|i) {      if ($filename =~ m|\.zip$|i) {
     # unzip can cause an sh launch which can pass along all of %ENV      # unzip can cause an sh launch which can pass along all of %ENV
     # which can be too large for /bin/sh to handle      # which can be too large for /bin/sh to handle
Line 120  sub expand_zip { Line 149  sub expand_zip {
 sub process_manifest {  sub process_manifest {
     my ($cms,$tempdir,$resources,$items,$hrefs,$resinfo) = @_;      my ($cms,$tempdir,$resources,$items,$hrefs,$resinfo) = @_;
     my %toc = (      my %toc = (
                 bb6 => 'organization',
               bb5 => 'tableofcontents',                bb5 => 'tableofcontents',
               angel => 'organization',                angel => 'organization',
               );                );
Line 139  sub process_manifest { Line 169  sub process_manifest {
     
     if ($cms eq 'angel') {      if ($cms eq 'angel') {
         $$resources{'toplevel'}{type} = "FOLDER";          $$resources{'toplevel'}{type} = "FOLDER";
     } elsif ($cms eq 'bb5') {      } elsif ($cms eq 'bb5' || $cms eq 'bb6') {
         $$resources{'toplevel'}{type} = 'resource/x-bb-document';          $$resources{'toplevel'}{type} = 'resource/x-bb-document';
     }      }
   
Line 172  sub process_manifest { Line 202  sub process_manifest {
                         $itm = $attr->{identifier};                                        $itm = $attr->{identifier};              
                         %{$$items{$itm}} = ();                          %{$$items{$itm}} = ();
                         $$items{$itm}{contentscount} = 0;                          $$items{$itm}{contentscount} = 0;
                         if ($cms eq 'bb5') {                          if ($cms eq 'bb5' || $cms eq 'bb6') {
                             $$items{$itm}{resnum} = $attr->{identifierref};                              $$items{$itm}{resnum} = $attr->{identifierref};
                             $$items{$itm}{title} = $attr->{title};                              if ($cms eq 'bb5') {
                                   $$items{$itm}{title} = $attr->{title};
                               }
                         } elsif ($cms eq 'angel') {                          } elsif ($cms eq 'angel') {
                             if ($attr->{identifierref} =~ m/^res(.+)$/) {                              if ($attr->{identifierref} =~ m/^res(.+)$/) {
                                 $$items{$itm}{resnum} = $1;                                  $$items{$itm}{resnum} = $1;
Line 214  sub process_manifest { Line 246  sub process_manifest {
                             $path = $seq[0];                              $path = $seq[0];
                         }                          }
                         $$items{$itm}{filepath} = $path;                          $$items{$itm}{filepath} = $path;
                         if ($cms eq 'bb5') {                          if ($cms eq 'bb5' || $cms eq 'bb6') {
                             if ($$items{$itm}{filepath} eq 'Top') {                              if ($$items{$itm}{filepath} eq 'Top') {
                                 $$items{$itm}{resnum} = $itm;                                  $$items{$itm}{resnum} = $itm;
                                 $$resources{$$items{$itm}{resnum}}{type} = 'resource/x-bb-document';                                  $$resources{$$items{$itm}{resnum}}{type} = 'resource/x-bb-document';
Line 227  sub process_manifest { Line 259  sub process_manifest {
                     }                      }
                 } elsif ("@state" eq "manifest resources resource" ) {                  } elsif ("@state" eq "manifest resources resource" ) {
                     $identifier = $attr->{identifier};                      $identifier = $attr->{identifier};
                     if ($cms eq 'bb5') {                                       if ($cms eq 'bb5' || $cms eq 'bb6') {                 
                         $$resources{$identifier}{file} = $attr->{file};                          $$resources{$identifier}{file} = $attr->{file};
                         $$resources{$identifier}{type} = $attr->{type};                          $$resources{$identifier}{type} = $attr->{type};
                     } elsif ($cms eq 'angel') {                      } elsif ($cms eq 'angel') {
Line 238  sub process_manifest { Line 270  sub process_manifest {
                     }                      }
                     @{$$hrefs{$identifier}} = ();                      @{$$hrefs{$identifier}} = ();
                 } elsif ("@state" eq "manifest resources resource file") {                  } elsif ("@state" eq "manifest resources resource file") {
                     if ($cms eq 'bb5') {                      if ($cms eq 'bb5' || $cms eq 'bb6') {
                         push @{$$hrefs{$identifier}},$attr->{href};                          push @{$$hrefs{$identifier}},$attr->{href};
                     } elsif ($cms eq 'angel') {                      } elsif ($cms eq 'angel') {
                         if ($attr->{href} =~ m/^_assoc\\$identifier\\(.+)$/) {                          if ($attr->{href} =~ m/^_assoc\\$identifier\\(.+)$/) {
Line 252  sub process_manifest { Line 284  sub process_manifest {
         text_h =>          text_h =>
             [sub {              [sub {
                 my ($text) = @_;                  my ($text) = @_;
                 if ($state[0] eq "manifest" && $state[1] eq "organizations" && $state[2] eq "organization" && $state[-1] eq "title") {                  if ($state[0] eq "manifest" && $state[1] eq "organizations" && $state[2] eq $toc{$cms} && $state[-1] eq "title") {
                     if ($cms eq 'angel') {                      if ($cms eq 'angel' || $cms eq 'bb6') {
                         $$items{$itm}{title} = $text;                          $$items{$itm}{title} = $text;
                     }                      }
                 }                  }
Line 311  sub copy_resources { Line 343  sub copy_resources {
         foreach my $key (sort keys %{$hrefs}) {          foreach my $key (sort keys %{$hrefs}) {
             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') ) {                  if ( ($cms eq 'angel' && $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 329  sub copy_resources { Line 361  sub copy_resources {
                     }                      }
                     if ($cms eq 'angel') {                      if ($cms eq 'angel') {
                         rename("$tempdir/_assoc/$key/$file","$destdir/resfiles/$key/$file");                          rename("$tempdir/_assoc/$key/$file","$destdir/resfiles/$key/$file");
                     } elsif ($cms eq 'bb5') {                      } elsif ($cms eq 'bb5' || $cms eq 'bb6') {
                         rename("$tempdir/$key/$file","$destdir/resfiles/$key/$file");                          rename("$tempdir/$key/$file","$destdir/resfiles/$key/$file");
                     }                      }
                 }                  }
Line 369  sub process_coursefile { Line 401  sub process_coursefile {
 }  }
   
 sub process_resinfo {  sub process_resinfo {
     my ($cms,$context,$docroot,$destdir,$items,$resources,$boards,$announcements,$quizzes,$surveys,$groups,$messages,$timestamp,$boardnum,$resinfo,$udom,$uname,$cdom,$crs,$db_handling,$user_handling,$total,$dirname,$seqstem,$resrcfiles) = @_;      my ($cms,$context,$docroot,$destdir,$items,$resources,$boards,$announcements,$quizzes,$surveys,$groups,$messages,$timestamp,$boardnum,$resinfo,$udom,$uname,$cdom,$crs,$db_handling,$user_handling,$total,$dirname,$seqstem,$resrcfiles,$packages,$hrefs) = @_;
     my $board_id = time;      my $board_id = time;
     my $board_count = 0;      my $board_count = 0;
     my $announce_handling = 'include';      my $announce_handling = 'include';
Line 405  sub process_resinfo { Line 437  sub process_resinfo {
                 %{$$resinfo{$key}} = ();                  %{$$resinfo{$key}} = ();
             }              }
         }          }
     } elsif ($cms eq 'bb5') {      } elsif ($cms eq 'bb5' || $cms eq 'bb6') {
         foreach my $key (sort keys %{$resources}) {          foreach my $key (sort keys %{$resources}) {
             if ($$resources{$key}{type} eq "resource/x-bb-document") {              if ($$resources{$key}{type} eq "resource/x-bb-document") {
                 unless ($$items{$$resources{$key}{revitm}}{filepath} eq 'Top') {                  unless ($$items{$$resources{$key}{revitm}}{filepath} eq 'Top') {
                     %{$$resinfo{$key}} = ();                      %{$$resinfo{$key}} = ();
                     &process_content($key,$context,$docroot,$destdir,\%{$$resinfo{$key}},$udom,$uname,$resrcfiles);                      &process_content($cms,$key,$context,$docroot,$destdir,\%{$$resinfo{$key}},$udom,$uname,$resrcfiles,$packages,$hrefs);
                 }                  }
             } elsif ($$resources{$key}{type} eq "resource/x-bb-staffinfo") {              } elsif ($$resources{$key}{type} eq "resource/x-bb-staffinfo") {
                 %{$$resinfo{$key}} = ();                  %{$$resinfo{$key}} = ();
Line 476  sub process_resinfo { Line 508  sub process_resinfo {
 }  }
   
 sub build_structure {  sub build_structure {
     my ($cms,$context,$destdir,$items,$resinfo,$resources,$hrefs,$udom,$uname,$newdir,$timenow,$cdom,$crs,$timestamp,$total,$boards,$announcements,$quizzes,$surveys,$boardnum,$pagesfiles,$seqfiles,$topurls,$topnames) = @_;      my ($cms,$context,$destdir,$items,$resinfo,$resources,$hrefs,$udom,$uname,$newdir,$timenow,$cdom,$crs,$timestamp,$total,$boards,$announcements,$quizzes,$surveys,$boardnum,$pagesfiles,$seqfiles,$topurls,$topnames,$packages) = @_;
     my %flag = ();      my %flag = ();
     my %count = ();      my %count = ();
     my %pagecontents = ();      my %pagecontents = ();
Line 533  sub build_structure { Line 565  sub build_structure {
         my $curr_id = 1;          my $curr_id = 1;
         my $resnum = $$items{$key}{resnum};          my $resnum = $$items{$key}{resnum};
         my $type = $$resources{$resnum}{type};          my $type = $$resources{$resnum}{type};
         if (($cms eq 'angel' && $type eq "FOLDER") || ($cms eq 'bb5' && $$resinfo{$resnum}{'isfolder'} eq "true") && (($type eq "resource/x-bb-document") || ($type eq "resource/x-bb-staffinfo") || ($type eq "resource/x-bb-externallink")) ) {          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")) ) {
             unless ($cms eq 'bb5' && $key eq 'Top') {              unless (($cms eq 'bb5') && $key eq 'Top') {
                 $seqtext{$key} = "<map>\n";                  $seqtext{$key} = "<map>\n";
             }              }
             if ($$items{$key}{contentscount} == 0) {              if ($$items{$key}{contentscount} == 0) {
Line 547  sub build_structure { Line 579  sub build_structure {
                 my $res = $$items{$contitem}{resnum};                  my $res = $$items{$contitem}{resnum};
                 my $type = $$resources{$res}{type};                  my $type = $$resources{$res}{type};
                 my $title = $$items{$contitem}{title};                  my $title = $$items{$contitem}{title};
                 $src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom);                  my $packageflag = 0;
                   if (grep/^$res$/,@{$packages}) {
                       $packageflag = 1;
                   }
                   $src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom,$contcount,$packageflag);
                 unless ($flag{$key}{page} == 1) {                  unless ($flag{$key}{page} == 1) {
                     $seqtext{$key} .= qq|<resource id="$curr_id" src="$src" title="$title" type="start"|;                      $seqtext{$key} .= qq|<resource id="$curr_id" src="$src" title="$title" type="start"|;
                     unless ($flag{$key}{seq} || $flag{$key}{board} || $flag{$key}{file}) {                      unless ($flag{$key}{seq} || $flag{$key}{board} || $flag{$key}{file}) {
Line 568  sub build_structure { Line 604  sub build_structure {
                             my $contitem = $$items{$key}{contents}[$i];                              my $contitem = $$items{$key}{contents}[$i];
                             my $res = $$items{$contitem}{resnum};                              my $res = $$items{$contitem}{resnum};
                             my $type = $$resources{$res}{type};                              my $type = $$resources{$res}{type};
                             my $title = $$items{$contitem}{title};                                my $title = $$items{$contitem}{title};
                             $src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom);                              my $packageflag = 0;
                               if (grep/^$res$/,@{$packages}) {
                                   $packageflag = 1;
                               }
                               $src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom,$contcount,$packageflag);
                             unless ($flag{$key}{page} == 1) {                              unless ($flag{$key}{page} == 1) {
                                 $seqtext{$key} .= qq|></resource>                                  $seqtext{$key} .= qq|></resource>
 <link from="$curr_id" to="$next_id" index="$curr_id"></link>  <link from="$curr_id" to="$next_id" index="$curr_id"></link>
Line 590  sub build_structure { Line 630  sub build_structure {
                     my $res = $$items{$contitem}{resnum};                      my $res = $$items{$contitem}{resnum};
                     my $type = $$resources{$res}{type};                      my $type = $$resources{$res}{type};
                     my $title = $$items{$contitem}{title};                      my $title = $$items{$contitem}{title};
                       my $packageflag = 0;
                     $src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom);                      if (grep/^$res$/,@{$packages}) {
                           $packageflag = 1;
                       }
                       $src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom,$contcount,$packageflag);
                     if ($flag{$key}{page}) {                      if ($flag{$key}{page}) {
                         if ($count{$key}{seq} + $count{$key}{page} + $count{$key}{board} + $count{$key}{file} +1 == 1) {                          if ($count{$key}{seq} + $count{$key}{page} + $count{$key}{board} + $count{$key}{file} +1 == 1) {
                             $seqtext{$key} .= qq|></resource>                              $seqtext{$key} .= qq|></resource>
Line 617  sub build_structure { Line 660  sub build_structure {
                     }                       } 
                 }                  }
             }              }
             unless ($cms eq 'bb5' && $key eq 'Top') {              unless (($cms eq 'bb5') && $key eq 'Top') {
                 $seqtext{$key} .= "</map>\n";                  $seqtext{$key} .= "</map>\n";
                 open(LOCFILE,">$destdir/sequences/$key.sequence");                  open(LOCFILE,">$destdir/sequences/$key.sequence");
                 print LOCFILE $seqtext{$key};                  print LOCFILE $seqtext{$key};
Line 631  sub build_structure { Line 674  sub build_structure {
     }      }
     $topnum += ($count{'Top'}{page} + $count{'Top'}{seq});      $topnum += ($count{'Top'}{page} + $count{'Top'}{seq});
   
     if ($cms eq 'bb5') {      if ($cms eq 'bb5' || $cms eq 'bb6') {
         if (@{$announcements} > 0) {          if (@{$announcements} > 0) {
             &process_specials($context,'announcements',$announcements,\$topnum,$$items{'Top'}{contentscount},$destdir,$udom,$uname,$cdom,$crs,$timenow,$newdir,$timestamp,$resinfo,\$seqtext{'Top'},$pagesfiles,$seqfiles,$topurls,$topnames);              &process_specials($context,'announcements',$announcements,\$topnum,$$items{'Top'}{contentscount},$destdir,$udom,$uname,$cdom,$crs,$timenow,$newdir,$timestamp,$resinfo,\$seqtext{'Top'},$pagesfiles,$seqfiles,$topurls,$topnames);
         }          }
Line 662  sub build_structure { Line 705  sub build_structure {
     foreach my $key (sort keys %pagecontents) {      foreach my $key (sort keys %pagecontents) {
         for (my $i=0; $i<@{$pagecontents{$key}}; $i++) {          for (my $i=0; $i<@{$pagecontents{$key}}; $i++) {
             my $filename = $destdir.'/pages/'.$key.'_'.$i.'.page';              my $filename = $destdir.'/pages/'.$key.'_'.$i.'.page';
               my $resource = "$filestem/resfiles/$$items{$pagecontents{$key}[$i][0]}{resnum}.html";
               my $res = $$items{$pagecontents{$key}[$i][0]}{resnum};
               my $resource = $filestem.'/resfiles/'.$res.'.html';
               if (grep/^$res$/,@{$packages}) {
                   $resource =  $filestem.'/resfiles/'.$res.'./index.html'; # should be entry_point
               }
             open(PAGEFILE,">$filename");              open(PAGEFILE,">$filename");
             print PAGEFILE qq|<map>              print PAGEFILE qq|<map>
 <resource src="$filestem/resfiles/$$items{$pagecontents{$key}[$i][0]}{resnum}.html" id="1" type="start" title="$$items{$pagecontents{$key}[$i][0]}{title}"></resource>  <resource src="$resource" id="1" type="start" title="$$items{$pagecontents{$key}[$i][0]}{title}"></resource>
 <link to="2" index="1" from="1">\n|;  <link to="2" index="1" from="1">\n|;
             if (@{$pagecontents{$key}[$i]} == 1) {              if (@{$pagecontents{$key}[$i]} == 1) {
                 print PAGEFILE qq|<resource src="" id="2" type="finish"></resource>\n|;                  print PAGEFILE qq|<resource src="" id="2" type="finish"></resource>\n|;
             } elsif (@{$pagecontents{$key}[$i]} == 2)  {              } elsif (@{$pagecontents{$key}[$i]} == 2)  {
                 print PAGEFILE qq|<resource src="$filestem/resfiles/$$items{$pagecontents{$key}[$i][1]}{resnum}.html" id="2" type="finish" title="$$items{$pagecontents{$key}[$i][1]}{title}"></resource>\n|;                  my $res = $$items{$pagecontents{$key}[$i][1]}{resnum};
                   my $resource = $filestem.'/resfiles/'.$res.'.html';
                   if (grep/^$res$/,@{$packages}) {
                       $resource =  $filestem.'/resfiles/'.$res.'./index.html'; # should be entry_point
                   }
                   print PAGEFILE qq|<resource src="$resource" id="2" type="finish" title="$$items{$pagecontents{$key}[$i][1]}{title}"></resource>\n|;
             } else {              } else {
                 for (my $j=1; $j<@{$pagecontents{$key}[$i]}-1; $j++) {                  for (my $j=1; $j<@{$pagecontents{$key}[$i]}-1; $j++) {
                     my $curr_id = $j+1;                      my $curr_id = $j+1;
                     my $next_id = $j+2;                      my $next_id = $j+2;
                     my $resource = $filestem.'/resfiles/'.$$items{$pagecontents{$key}[$i][$j]}{resnum}.'.html';                      my $res = $$items{$pagecontents{$key}[$i][$j]}{resnum};
                       my $resource = $filestem.'/resfiles/'.$res.'.html';
                       if (grep/^$res$/,@{$packages}) {
                           $resource =  $filestem.'/resfiles/'.$res.'./index.html'; # entry_point
                       }
                     print PAGEFILE qq|<resource src="$resource" id="$curr_id" title="$$items{$pagecontents{$key}[$i][$j]}{title}"></resource>                      print PAGEFILE qq|<resource src="$resource" id="$curr_id" title="$$items{$pagecontents{$key}[$i][$j]}{title}"></resource>
 <link to="$next_id" index="$curr_id" from="$curr_id">\n|;  <link to="$next_id" index="$curr_id" from="$curr_id">\n|;
                 }                  }
                 my $final_id = @{$pagecontents{$key}[$i]};                  my $final_id = @{$pagecontents{$key}[$i]};
                 print PAGEFILE qq|<resource src="$filestem/resfiles/$$items{$pagecontents{$key}[$i][-1]}{resnum}.html" id="$final_id" type="finish" title="$$items{$pagecontents{$key}[$i][-1]}{title}"></resource>\n|;                  my $res = $$items{$pagecontents{$key}[$i][-1]}{resnum};
                   my $resource = $filestem.'/resfiles/'.$res.'.html';
                   if (grep/^$res$/,@{$packages}) {
                       $resource =  $filestem.'/resfiles/'.$res.'./index.html'; # entry_point
                   }
                   print PAGEFILE qq|<resource src="$resource" id="$final_id" type="finish" title="$$items{$pagecontents{$key}[$i][-1]}{title}"></resource>\n|;
             }              }
             print PAGEFILE "</map>";              print PAGEFILE "</map>";
             close(PAGEFILE);              close(PAGEFILE);
Line 689  sub build_structure { Line 752  sub build_structure {
 }  }
   
 sub make_structure {  sub make_structure {
     my ($cms,$key,$srcstem,$flag,$count,$timestamp,$boardnum,$hrefs,$pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom) = @_;      my ($cms,$key,$srcstem,$flag,$count,$timestamp,$boardnum,$hrefs,$pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom,$contcount,$packageflag) = @_;
     my $src ='';      my $src ='';
     if (($cms eq 'angel' && $type eq 'FOLDER') || ($cms eq 'bb5' && ($$resinfo{$res}{'isfolder'} eq 'true')  || ($key eq 'Top')) ) {      if (($cms eq 'angel' && $type eq 'FOLDER') || (($cms eq 'bb5' || $cms eq 'bb6') && ($$resinfo{$res}{'isfolder'} eq 'true')  || ($key eq 'Top')) ) {
         $src = $srcstem.'/sequences/'.$contitem.'.sequence';          $src = $srcstem.'/sequences/'.$contitem.'.sequence';
         $$flag{$key}{page} = 0;          $$flag{$key}{page} = 0;
         $$flag{$key}{seq} = 1;          $$flag{$key}{seq} = 1;
Line 722  sub make_structure { Line 785  sub make_structure {
             @{$$pagecontents{$key}[$$count{$key}{page}]} = ("$contitem");              @{$$pagecontents{$key}[$$count{$key}{page}]} = ("$contitem");
             $$flag{$key}{seq} = 0;              $$flag{$key}{seq} = 0;
         }          }
     } elsif ($cms eq 'bb5') {      } elsif ($cms eq 'bb5' || $cms eq 'bb6') {
         if ($$flag{$key}{page}) {          if ($$flag{$key}{page}) {
             push @{$$pagecontents{$key}[$$count{$key}{page}]},$contitem;              push @{$$pagecontents{$key}[$$count{$key}{page}]},$contitem;
         } else {          } else {
             $$count{$key}{page} ++;              if ($contcount == 1) {
             $src = $srcstem.'/pages/'.$key.'_'.$$count{$key}{page}.'.page';                  if ($packageflag) {
             @{$$pagecontents{$key}[$$count{$key}{page}]} = ("$contitem");                      $src = $srcstem.'/resfiles/'.$res.'/index.html'; # Needs to be entry point
                   } else {
                       $src = $srcstem.'/resfiles/'.$res.'.html';
                   }
               } else {
                   $$count{$key}{page} ++;
                   $src = $srcstem.'/pages/'.$key.'_'.$$count{$key}{page}.'.page';
                   @{$$pagecontents{$key}[$$count{$key}{page}]} = ("$contitem");
               }
             $$flag{$key}{seq} = 0;              $$flag{$key}{seq} = 0;
         }          }
     }      }
Line 1932  $$settings{text} Line 2003  $$settings{text}
   
 # ---------------------------------------------------------------- Process Blackboard Content  # ---------------------------------------------------------------- Process Blackboard Content
 sub process_content {  sub process_content {
     my ($res,$context,$docroot,$destdir,$settings,$dom,$user,$resrcfiles) = @_;      my ($cms,$res,$context,$docroot,$destdir,$settings,$dom,$user,$resrcfiles,$packages,$hrefs) = @_;
     my $xmlfile = $docroot.'/'.$res.".dat";      my $xmlfile = $docroot.'/'.$res.".dat";
     my $destresdir = $destdir;      my $destresdir = $destdir;
     if ($context eq 'CSTR') {      if ($context eq 'CSTR') {
Line 1940  sub process_content { Line 2011  sub process_content {
     } elsif ($context eq 'DOCS') {      } elsif ($context eq 'DOCS') {
         $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;          $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;
     }      }
       my $filetag = '';
       if ($cms eq 'bb5') {
           $filetag = 'FILEREF';
       } elsif ($cms eq 'bb6') {
           $filetag = 'FILE';
       }
     my $filecount = 0;      my $filecount = 0;
     my @allrelfiles = ();      my @allrelfiles = ();
     my @state;      my @state;
Line 1951  sub process_content { Line 2028  sub process_content {
       [sub {        [sub {
         my ($tagname, $attr) = @_;          my ($tagname, $attr) = @_;
         push @state, $tagname;          push @state, $tagname;
         if ("@state" eq "CONTENT MAINDATA") {          if ("@state" eq "CONTENT ") {
             %{$$settings{maindata}} = ();              %{$$settings{maindata}} = ();
           } elsif ("@state" eq "CONTENT TITLECOLOR") {
               $$settings{titlecolor} =  $attr->{value};
         } elsif ("@state" eq "CONTENT MAINDATA TEXTCOLOR") {          } elsif ("@state" eq "CONTENT MAINDATA TEXTCOLOR") {
             $$settings{maindata}{color} = $attr->{value};              $$settings{maindata}{color} = $attr->{value};
         } elsif ("@state" eq "CONTENT MAINDATA FLAGS ISHTML") {            } elsif ("@state" eq "CONTENT MAINDATA FLAGS ISHTML") {  
             $$settings{maindata}{ishtml} = $attr->{value};               $$settings{maindata}{ishtml} = $attr->{value}; 
         } elsif ("@state" eq "CONTENT MAINDATA FLAGS ISNEWLINELITERAL") {            } elsif ("@state" eq "CONTENT MAINDATA FLAGS ISNEWLINELITERAL") {  
             $$settings{maindata}{isnewline} = $attr->{value};              $$settings{maindata}{isnewline} = $attr->{value};
           } elsif ("@state" eq "CONTENT BODY TYPE") {
               $$settings{maindata}{bodytype} =  $attr->{value};
         } elsif ("@state" eq "CONTENT FLAGS ISAVAILABLE" ) {          } elsif ("@state" eq "CONTENT FLAGS ISAVAILABLE" ) {
             $$settings{isavailable} = $attr->{value};              $$settings{isavailable} = $attr->{value};
         } elsif ("@state" eq "CONTENT FLAGS ISFOLDER" ) {          } elsif ("@state" eq "CONTENT FLAGS ISFOLDER" ) {
             $$settings{isfolder} = $attr->{value};              $$settings{isfolder} = $attr->{value};
         } elsif ("@state" eq "CONTENT FLAGS LAUNCHINNEWWINDOW" ) {          } elsif ("@state" eq "CONTENT FLAGS LAUNCHINNEWWINDOW" ) {
             $$settings{newwindow} = $attr->{value};              $$settings{newwindow} = $attr->{value};
         } elsif ("@state" eq "CONTENT FILES FILEREF") {          } elsif ("@state" eq "CONTENT FILES $filetag") {
             %{$$settings{files}[$filecount]} = ();              %{$$settings{files}[$filecount]} = ();
             %{$$settings{files}[$filecount]{registry}} = ();               %{$$settings{files}[$filecount]{registry}} = (); 
         } elsif ("@state" eq "CONTENT FILES FILEREF RELFILE" ) {          } elsif ("@state" eq "CONTENT FILES FILEREF RELFILE" ) {
             $$settings{files}[$filecount]{'relfile'} = $attr->{value};              $$settings{files}[$filecount]{'relfile'} = $attr->{value};
             push @allrelfiles, $attr->{value};              push @allrelfiles, $attr->{value};
         } elsif ("@state" eq "CONTENT FILES FILEREF MIMETYPE") {          } elsif ("@state" eq "CONTENT FILES $filetag MIMETYPE") {
             $$settings{files}[$filecount]{mimetype} = $attr->{value};              $$settings{files}[$filecount]{mimetype} = $attr->{value};
         } elsif ("@state" eq "CONTENT FILES FILEREF CONTENTTYPE") {          } elsif ("@state" eq "CONTENT FILES $filetag CONTENTTYPE") {
             $$settings{files}[$filecount]{contenttype} = $attr->{value};              $$settings{files}[$filecount]{contenttype} = $attr->{value};
         } elsif ("@state" eq "CONTENT FILES FILEREF FILEACTION") {          } elsif ("@state" eq "CONTENT FILES $filetag FILEACTION") {
             $$settings{files}[$filecount]{fileaction} = $attr->{value};              $$settings{files}[$filecount]{fileaction} = $attr->{value};
         } elsif ("@state" eq "CONTENT FILES FILEREF PACKAGEPARENT") {          } elsif ("@state" eq "CONTENT FILES $filetag PACKAGEPARENT") {
             $$settings{files}[$filecount]{packageparent} = $attr->{value};              $$settings{files}[$filecount]{packageparent} = $attr->{value};
         } elsif ("@state" eq "CONTENT FILES FILEREF LINKNAME") {          } elsif ("@state" eq "CONTENT FILES $filetag LINKNAME") {
             $$settings{files}[$filecount]{linkname} = $attr->{value};              $$settings{files}[$filecount]{linkname} = $attr->{value};
         } elsif ("@state" eq "CONTENT FILES FILEREF REGISTRY REGISTRYENTRY") {          } elsif ("@state" eq "CONTENT FILES $filetag REGISTRY REGISTRYENTRY") {
             my $key = $attr->{key};              my $key = $attr->{key};
             $$settings{files}[$filecount]{registry}{$key} = $attr->{value};              $$settings{files}[$filecount]{registry}{$key} = $attr->{value};
         }          }
Line 1991  sub process_content { Line 2072  sub process_content {
         my ($text) = @_;          my ($text) = @_;
         if ("@state" eq "CONTENT TITLE") {          if ("@state" eq "CONTENT TITLE") {
             $$settings{title} = $text;              $$settings{title} = $text;
         } elsif ("@state" eq "CONTENT MAINDATA TEXT") {          } elsif ( ("@state" eq "CONTENT MAINDATA TEXT") || ("@state" eq "CONTENT BODY TEXT") ) {
             $$settings{maindata}{text} = $text;              $$settings{maindata}{text} = $text;
         }  elsif ("@state" eq "CONTENT FILES FILEREF REFTEXT") {          }  elsif ("@state" eq "CONTENT FILES $filetag REFTEXT") {
             $$settings{files}[$filecount]{reftext} = $text;              $$settings{files}[$filecount]{reftext} = $text;
           } elsif ("@state" eq "CONTENT FILES FILE NAME" ) {
               $$settings{files}[$filecount]{'relfile'} = $text;
               push @allrelfiles, $text;
         }          }
        }, "dtext"],         }, "dtext"],
       end_h =>        end_h =>
       [sub {        [sub {
         my ($tagname) = @_;          my ($tagname) = @_;
         if ("@state" eq "CONTENT FILES FILEREF") {          if ("@state" eq "CONTENT FILES $filetag") {
             $filecount ++;              $filecount ++;
         }          }
         pop @state;          pop @state;
Line 2046  sub process_content { Line 2130  sub process_content {
                     }                      }
                 } else {                  } else {
                     my $filename=$$settings{files}[$filecount]{'relfile'};                      my $filename=$$settings{files}[$filecount]{'relfile'};
 #                  print "File is $filename\n";  
                     my $newfilename="$destresdir/resfiles/$res/$$settings{files}[$filecount]{relfile}";                      my $newfilename="$destresdir/resfiles/$res/$$settings{files}[$filecount]{relfile}";
 #                  print "New filename is $newfilename\n";                      $$settings{maindata}{text} =~ s#(src|SRC|value)=("|&quot;)$filename("|&quot;)#$1="$newfilename"#g;
                     $$settings{maindata}{text} =~ s#(src|SRC|value)="$filename"#$1="$newfilename"#g;  
                 }                  }
             } elsif ($$settings{files}[$filecount]{fileaction} eq 'link') {              } elsif ($$settings{files}[$filecount]{fileaction} eq 'link') {
                 unless (($$settings{files}[$filecount]{packageparent} ne '') && (grep/^$$settings{files}[$filecount]{packageparent}$/,@{$$settings{files}}) ) {                  unless (($$settings{files}[$filecount]{packageparent} ne '') && (grep/^$$settings{files}[$filecount]{packageparent}$/,@{$$settings{files}}) ) {
Line 2062  sub process_content { Line 2144  sub process_content {
                     }                      }
                       $linktag .= qq|>$$settings{files}[$filecount]{linkname}</a><br/>\n|;                        $linktag .= qq|>$$settings{files}[$filecount]{linkname}</a><br/>\n|;
                 }                  }
             } elsif ($$settings{files}[$filecount]{fileaction} eq 'package') {              } elsif ( ($$settings{files}[$filecount]{fileaction} eq 'PACKAGE') || ($$settings{files}[$filecount]{fileaction} eq 'package') ) {
 #              print "Found a package\n";                 my $open_package = '';
                  if ($$settings{files}[$filecount]{'relfile'} =~ m|\.zip$|i) {
                      $open_package = &expand_zip("$docroot/$res",$$settings{files}[$filecount]{'relfile'});
                  }
                  if ($open_package eq 'ok') {
                      opendir(DIR,"$docroot/$res");
                      my @dircontents = grep(!/^\./,readdir(DIR));
                      closedir(DIR);
                      push @{$resrcfiles}, @dircontents;
                      @{$$hrefs{$res}} = @dircontents;
                      push @{$packages}, $res;
                  }
               } elsif ( ($$settings{files}[$filecount]{fileaction} eq 'BROKEN_IMAGE') && ($cms eq 'bb6') ) {
                   my $filename=$$settings{files}[$filecount]{'relfile'};
                   my $newfilename="$destresdir/resfiles/$res/$$settings{files}[$filecount]{relfile}";
                   $$settings{maindata}{text} =~ s#(src|SRC|value)=("|&quot;)$filename("|&quot;)#$1="$newfilename"#g;
               } elsif ( ($$settings{files}[$filecount]{fileaction} eq 'LINK') && ($cms eq 'bb6') ) {
                   my $filename=$$settings{files}[$filecount]{'relfile'};
                   my $newfilename="$destresdir/resfiles/$res/$$settings{files}[$filecount]{relfile}";
                   my $filetitle = $$settings{files}[$filecount]{'linkname'};
                   $$settings{maindata}{text} = '<a href="'.$newfilename.'">'.$filetitle.'</a><br /><br />'. $$settings{maindata}{text};
             }              }
         }          }
     }      }
Line 2071  sub process_content { Line 2173  sub process_content {
         $fontcol =  qq|<font color="$$settings{maindata}{textcolor}">|;          $fontcol =  qq|<font color="$$settings{maindata}{textcolor}">|;
     }      }
     if (defined($$settings{maindata}{text})) {      if (defined($$settings{maindata}{text})) {
           if ($$settings{maindata}{bodytype} eq "S") {
               $$settings{maindata}{text} =~ s#\n#<br/>#g;
           }
         if ($$settings{maindata}{ishtml} eq "false") {          if ($$settings{maindata}{ishtml} eq "false") {
             if ($$settings{maindata}{isnewline} eq "true") {              if ($$settings{maindata}{isnewline} eq "true") {
                 $$settings{maindata}{text} =~ s#\n#<br/>#g;                  $$settings{maindata}{text} =~ s#\n#<br/>#g;
             }              }
         } else {          } else {
             $$settings{maindata}{text} = &HTML::Entities::decode($$settings{maindata}{text});  #            $$settings{maindata}{text} = &HTML::Entities::decode($$settings{maindata}{text});
         }          }
     }      }
   
     open(FILE,">$destdir/resfiles/$res.html");      open(FILE,">$destdir/resfiles/$res.html");
     push @{$resrcfiles}, "$res.html";      push @{$resrcfiles}, "$res.html";
     print FILE qq|<html>      my $htmldoc = 0;
   #    if ($$settings{maindata}{text} =~ m-&lt;(html|HTML)>.+&lt;\\(html|HTML)-) {
       if ($$settings{maindata}{text} =~ m-<(html|HTML)>-) {
           $htmldoc = 1;
       }
       unless ($htmldoc) {
           print FILE qq|<html>
 <head>  <head>
 <title>$$settings{title}</title>  <title>$$settings{title}</title>
 </head>  </head>
 <body bgcolor='#ffffff'>  <body bgcolor='#ffffff'>
 $fontcol  $fontcol
 |;  |;
       }
     unless ($$settings{title} eq '') {       unless ($$settings{title} eq '') { 
         print FILE qq|$$settings{title}<br/><br/>\n|;          print FILE qq|$$settings{title}<br/><br/>\n|;
     }      }
     print FILE qq|      print FILE qq|
 $$settings{maindata}{text}  $$settings{maindata}{text}
 $linktag|;  $linktag|;
     if (defined($$settings{maindata}{textcolor})) {      unless ($htmldoc) {
         print FILE qq|</font>|;          if (defined($$settings{maindata}{textcolor})) {
     }              print FILE qq|</font>|;
     print FILE qq|          }
           print FILE qq|
   </body>    </body>
  </html>|;   </html>|;
       }
     close(FILE);      close(FILE);
 }  }
   
Line 2146  sub process_angelboards { Line 2260  sub process_angelboards {
         my $msgcount = 0;           my $msgcount = 0; 
                                                                                                                                                                                                             
         my $putresult = &Apache::lonnet::put($boardname,\%boardinfo,$cdom,$crs);          my $putresult = &Apache::lonnet::put($boardname,\%boardinfo,$cdom,$crs);
 #        print STDERR "putresult is $putresult for $boardname $cdom $crs\n";  
         if ($db_handling eq 'importall') {          if ($db_handling eq 'importall') {
             foreach my $msg_id (@{$$messages{$$boards[$i]}}) {              foreach my $msg_id (@{$$messages{$$boards[$i]}}) {
                 $msgcount ++;                  $msgcount ++;
Removed from v.1.9  
changed lines
  Added in v.1.10

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