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

Diff for /loncom/imspackages/imsimportdocs.pm between versions 1.22 and 1.23

version 1.22, 2009/05/04 16:45:51 version 1.23, 2009/08/17 03:52:09
Line 237  Please choose the CMS used to create you Line 237  Please choose the CMS used to create you
          <option value='-1' selected="true">Please select</option>           <option value='-1' selected="true">Please select</option>
          <option value='bb5'>Blackboard 5</option>           <option value='bb5'>Blackboard 5</option>
          <option value='bb6'>Blackboard 6</option>           <option value='bb6'>Blackboard 6</option>
          <option value='angel'>ANGEL</option>           <option value='angel5'>ANGEL 5.5</option>
          <option value='webctce4'>WebCT 4 Campus Edition</option>           <option value='webctce4'>WebCT 4 Campus Edition</option>
         </select>          </select>
         </font>          </font>
Line 346  sub display_two { Line 346  sub display_two {
                             $count{$area} ++;                              $count{$area} ++;
                         }                          }
                     }                      }
                 } elsif ($cms eq 'angel') {                  } elsif ($cms eq 'angel5') {
                     foreach my $area (keys %{$cmsmap{$cms}}) {                      foreach my $area (keys %{$cmsmap{$cms}}) {
                         if ($area eq 'doc') {                          if ($area eq 'doc') {
                             if (grep/^$resources{$res}{type}$/,@{$cmsmap{$cms}{doc}}) {                              if (grep/^$resources{$res}{type}$/,@{$cmsmap{$cms}{doc}}) {
Line 553  sub display_three { Line 553  sub display_three {
   
     foreach my $area (@{$areas}) {      foreach my $area (@{$areas}) {
         if (defined($env{"form.$area"}) && ($env{'form.'.$area} ne '')) {          if (defined($env{"form.$area"}) && ($env{'form.'.$area} ne '')) {
             if ($cms eq 'angel' && $area eq 'doc') {              if ($cms eq 'angel5' && $area eq 'doc') {
                 foreach (@{$cmsmap{$cms}{$area}}) {                  foreach (@{$cmsmap{$cms}{$area}}) {
                     $importareas{$_} = 1;                      $importareas{$_} = 1;
                 }                  }
Removed from v.1.22  
changed lines
  Added in v.1.23

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