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

Diff for /loncom/interface/londocs.pm between versions 1.484.2.42 and 1.484.2.43

version 1.484.2.42, 2013/10/16 20:32:49 version 1.484.2.43, 2013/11/20 04:48:18
Line 41  use Apache::lonclonecourse; Line 41  use Apache::lonclonecourse;
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
 use Apache::lonnavdisplay();  use Apache::lonnavdisplay();
 use Apache::lonextresedit();  use Apache::lonextresedit();
   use Apache::lontemplate();
   use Apache::lonsimplepage();
 use HTML::Entities;  use HTML::Entities;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
Line 141  sub clean { Line 143  sub clean {
 sub dumpcourse {  sub dumpcourse {
     my ($r) = @_;      my ($r) = @_;
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
     $r->print(&Apache::loncommon::start_page('Dump '.$crstype.' Content to Authoring Space')."\n".      my ($starthash,$js);
               &Apache::lonhtmlcommon::breadcrumbs('Dump '.$crstype.' Content to Authoring Space')."\n");      unless (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {
           $js = <<"ENDJS";
   <script type="text/javascript">
   // <![CDATA[
   
   function hide_searching() {
       if (document.getElementById('searching')) {
           document.getElementById('searching').style.display = 'none';
       }
       return;
   }
   
   // ]]>
   </script>
   ENDJS
           $starthash = {
                            add_entries => {'onload' => "hide_searching();"},
                        };
       }
       $r->print(&Apache::loncommon::start_page('Copy '.$crstype.' Content to Authoring Space',$js,$starthash)."\n".
                 &Apache::lonhtmlcommon::breadcrumbs('Copy '.$crstype.' Content to Authoring Space')."\n");
     $r->print(&startContentScreen('tools'));      $r->print(&startContentScreen('tools'));
     my ($home,$other,%outhash)=&authorhosts();      my ($home,$other,%outhash)=&authorhosts();
     unless ($home) {      unless ($home) {
Line 161  sub dumpcourse { Line 183  sub dumpcourse {
  $r->print('<h3>'.&mt('Copying Files').'</h3>');   $r->print('<h3>'.&mt('Copying Files').'</h3>');
  my $title=$env{'form.authorfolder'};   my $title=$env{'form.authorfolder'};
  $title=&clean($title);   $title=&clean($title);
  my %replacehash=();          my ($navmap,$errormsg) =
  foreach my $key (keys(%env)) {              &Apache::loncourserespicker::get_navmap_object($crstype,'dumpdocs');
     if ($key=~/^form\.namefor\_(.+)/) {          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
  $replacehash{$1}=$env{$key};          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     }          my (%maps,%resources,%titles);
  }          if (!ref($navmap)) {
               $r->print($errormsg.
                         &endContentScreen());
               return '';
           } else {
               &Apache::loncourserespicker::enumerate_course_contents($navmap,\%maps,\%resources,\%titles,
                                                                      'dumpdocs',$cdom,$cnum);
           }
           my @todump = &Apache::loncommon::get_env_multiple('form.archive');
           my (%tocopy,%replacehash,%lookup,%deps,%display,%result,%depresult,%simpleproblems,%simplepages,
               %newcontent,%has_simpleprobs);
           foreach my $item (sort {$a <=> $b} (@todump)) {
               my $name = $env{'form.namefor_'.$item};
               if ($resources{$item}) {
                   my ($map,$id,$res) = &Apache::lonnet::decode_symb($resources{$item});
                   if ($res =~ m{^uploaded/$cdom/$cnum/\E((?:docs|supplemental)/.+)$}) {
                       $tocopy{$1} = $name;
                       $display{$item} = $1;
                       $lookup{$1} = $item;
                   } elsif ($res eq 'lib/templates/simpleproblem.problem') {
                       $simpleproblems{$item} = {
                                                   symb => $resources{$item},
                                                   name => $name,
                                                };
                       $display{$item} = 'simpleproblem_'.$name;
                       if ($map =~ m{^\Quploaded/$cdom/$cnum/\E(.+)$}) {
                           $has_simpleprobs{$1}{$id} = $item;
                       }
                   } elsif ($res =~ m{^adm/$match_domain/$match_username/(\d+)/smppg}) {
                       my $marker = $1;
                       my $db_name = &Apache::lonsimplepage::get_db_name($res,$marker,$cdom,$cnum);
                       $simplepages{$item} = {
                                               res    => $res,
                                               title  => $titles{$item},
                                               db     => $db_name,
                                               marker => $marker,
                                               symb   => $resources{$item},
                                               name   => $name,
                                             };
                       $display{$item} = '/'.$res;
                   }
               } elsif ($maps{$item}) {
                   if ($maps{$item} =~ m{^\Quploaded/$cdom/$cnum/\E((?:default|supplemental)_\d+\.(?:sequence|page))$}) {
                       $tocopy{$1} = $name;
                       $display{$item} = $1;
                       $lookup{$1} = $item;
                   }
               } else {
                   next;
               }
           }
  my $crs='/uploaded/'.$env{'request.course.id'}.'/';   my $crs='/uploaded/'.$env{'request.course.id'}.'/';
  $crs=~s/\_/\//g;   $crs=~s/\_/\//g;
  foreach my $item (keys(%replacehash)) {          my $mm = new File::MMagic;
     my $newfilename=$title.'/'.$replacehash{$item};          my $prefix = "/uploaded/$cdom/$cnum/";
     $newfilename=~s/\.(\w+)$//;          %replacehash = %tocopy;
     my $ext=$1;          foreach my $item (sort(keys(%simpleproblems))) {
     $newfilename=&clean($newfilename);              my $content = &Apache::imsexport::simpleproblem($simpleproblems{$item}{'symb'});
     $newfilename.='.'.$ext;              $newcontent{$display{$item}} = $content;
     my @dirs=split(/\//,$newfilename);          }
     my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca";          my $gateway = Apache::lonhtmlgateway->new('web');
     my $makepath=$path;          foreach my $item (sort(keys(%simplepages))) {
     my $fail=0;              if (ref($simplepages{$item}) eq 'HASH') {
     for (my $i=0;$i<$#dirs;$i++) {                  my $pagetitle = $simplepages{$item}{'title'};
  $makepath.='/'.$dirs[$i];                  my %fields = &Apache::lonnet::dump($simplepages{$item}{'db'},$cdom,$cnum);
  unless (-e $makepath) {                  my %contents;
     unless(mkdir($makepath,0777)) { $fail=1; }                  foreach my $field (keys(%fields)) {
  }                      if ($field =~ /^(?:aaa|bbb|ccc)_(\w+)$/) {
     }                          my $name = $1;
     $r->print('<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ');                          my $msg = $fields{$field};
     if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {                          if ($name eq 'webreferences') {
  if ($item=~/\.(sequence|page|html|htm|xml|xhtml)$/) {                              if ($msg =~ m{^https?://}) {
     print $fh &Apache::lonclonecourse::rewritefile(                                  $contents{$name} = '<a href="'.$msg.'"><tt>'.$msg.'</tt></a>';
          &Apache::lonclonecourse::readfile($env{'request.course.id'},$item),                              }
      (%replacehash,$crs => '')                          } else {
     );                              $msg = &Encode::decode('utf8',$msg);
  } else {                              $msg = $gateway->process_outgoing_html($msg,1);
     print $fh                              $contents{$name} = $msg;
          &Apache::lonclonecourse::readfile($env{'request.course.id'},$item);                          }
        }                      } elsif ($field eq 'uploaded.photourl') {
  $fh->close();                          my $marker = $simplepages{$item}{marker};
     } else {                          if ($fields{$field} =~ m{^\Q$prefix\E(simplepage/$marker/.+)$}) {
  $fail=1;                              my $filepath = $1;
     }                              my ($relpath,$fname) = ($filepath =~ m{^(.+/)([^/]+)$});
     if ($fail) {                              if ($fname ne '') {
  $r->print('<span class="LC_error">'.&mt('fail').'</span>');                                  $fname=~s/\.(\w+)$//;
     } else {                                  my $ext=$1;
  $r->print('<span class="LC_success">'.&mt('ok').'</span>');                                  $fname = &clean($fname);
     }                                  $fname.='.'.$ext;
  }                                  $contents{image} = '<img src="'.$relpath.$fname.'" alt="Image" />';
                                   $replacehash{$filepath} = $relpath.$fname;
                                   $deps{$item}{$filepath} = 1;
                               }
                           }
                       }
                   }
                   $replacehash{'/'.$simplepages{$item}{'res'}} = $simplepages{$item}{'name'};
                   $lookup{'/'.$simplepages{$item}{'res'}} = $item;
                   my $content = '
   <html>
   <head>
   <title>'.$pagetitle.'</title>
   </head>
   <body bgcolor="#ffffff">';
                   if ($contents{title}) {
                       $content .= "\n".'<h2>'.$contents{title}.'</h2>';
                   }
                   if ($contents{image}) {
                       $content .= "\n".$contents{image};
                   }
                   if ($contents{content}) {
                       $content .= '
   <div class="LC_Box">
   <h4 class="LC_hcell">Content</h4>'.
   $contents{content}.'
   </div>';
                   }
                   if ($contents{webreferences}) {
                       $content .= '
   <div class="LC_Box">
   <h4 class="LC_hcell">Web References</h4>'.
   $contents{webreferences}.'
   </div>';
                   }
                   $content .= '
   </body>
   </html>
   ';
                   $newcontent{'/'.$simplepages{$item}{res}} = $content;
               }
           }
           foreach my $item (keys(%tocopy)) {
               unless ($item=~/\.(sequence|page)$/) {
                   my $currurlpath = $prefix.$item;
                   my $currdirpath = &Apache::lonnet::filelocation('',$currurlpath);
                   &recurse_html($mm,$prefix,$currdirpath,$currurlpath,$item,$lookup{$item},\%replacehash,\%deps);
               }
           }
           foreach my $num (sort {$a <=> $b} (@todump)) {
               my $src = $display{$num};
               next if ($src eq '');
               my @needcopy = ();
               if ($replacehash{$src}) {
                   push(@needcopy,$src);
                   if (ref($deps{$num}) eq 'HASH') {
                       foreach my $dep (sort(keys(%{$deps{$num}}))) {
                           if ($replacehash{$dep}) {
                               push(@needcopy,$dep);
                           }
                       }
                   }
               } elsif ($src =~ /^simpleproblem_/) {
                   push(@needcopy,$src);
               }
               next if (@needcopy == 0);
               my ($result,$depresult);
               for (my $i=0; $i<@needcopy; $i++) {
                   my $item = $needcopy[$i];
                   my $newfilename;
                   if ($simpleproblems{$num}) {
                       $newfilename=$title.'/'.$simpleproblems{$num}{'name'};
                   } else {
                       $newfilename=$title.'/'.$replacehash{$item};
                   }
                   $newfilename=~s/\.(\w+)$//;
                  my $ext=$1;
                   $newfilename=&clean($newfilename);
                   $newfilename.='.'.$ext;
                   my ($newrelpath) = ($newfilename =~ m{^\Q$title/\E(.+)$});
                   if ($newrelpath ne $replacehash{$item}) {
                       $replacehash{$item} = $newrelpath;
                   }
                   my @dirs=split(/\//,$newfilename);
                   my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca";
                   my $makepath=$path;
                   my $fail;
                   my $origin;
                   for (my $i=0;$i<$#dirs;$i++) {
                       $makepath.='/'.$dirs[$i];
                       unless (-e $makepath) {
                           unless(mkdir($makepath,0755)) {
                               $fail = &mt('Directory creation failed.');
                           }
                       }
                   }
                   if ($i == 0) {
                       $result = '<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ';
                   } else {
                       $depresult .= '<li><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt> '.
                                     '<span class="LC_fontsize_small" style="font-weight: bold;">'.
                                     &mt('(dependency)').'</span>: ';
                   }
                   if (-e $path.'/'.$newfilename) {
                       $fail = &mt('Destination already exists -- not overwriting.');
                   } else {
                       if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
                           if (($item =~ m{^/adm/$match_domain/$match_username/\d+/smppg}) ||
                               ($item =~ /^simpleproblem_/)) {
                               print $fh $newcontent{$item};
                           } else {
                               my $fileloc = &Apache::lonnet::filelocation('',$prefix.$item);
                               if (-e $fileloc) {
                                   if ($item=~/\.(sequence|page|html|htm|xml|xhtml)$/) {
                                       if ((($1 eq 'sequence') || ($1 eq 'page')) &&
                                           (ref($has_simpleprobs{$item}) eq 'HASH')) {
                                           my %changes = %{$has_simpleprobs{$item}};
                                           my $content = &Apache::lonclonecourse::rewritefile(
                        &Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
                                                         (%replacehash,$crs => '')
                                                                                             );
                                           my $updatedcontent = '';
                                           my $parser = HTML::TokeParser->new(\$content);
                                           $parser->attr_encoded(1);
                                           while (my $token = $parser->get_token) {
                                               if ($token->[0] eq 'S') {
                                                   if (($token->[1] eq 'resource') &&
                                                       ($token->[2]->{'src'} eq '/res/lib/templates/simpleproblem.problem') &&
                                                       ($changes{$token->[2]->{'id'}})) {
                                                       my $id = $token->[2]->{'id'};
                                                       $updatedcontent .= '<'.$token->[1];
                                                       foreach my $attrib (@{$token->[3]}) {
                                                          next unless ($attrib =~ /^(src|type|title|id)$/);
                                                           if ($attrib eq 'src') {
                                                               my ($file) = ($display{$changes{$id}} =~ /^\Qsimpleproblem_\E(.+)$/);
                                                               if ($file) {
                                                                   $updatedcontent .= ' '.$attrib.'="'.$file.'"';
                                                               } else {
                                                                   $updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';
                                                               }
                                                           } else {
                                                               $updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';
                                                           }
                                                       }
                                                       $updatedcontent .= ' />'."\n";
                                                   } else {
                                                       $updatedcontent .= $token->[4]."\n";
                                                   }
                                                } else {
                                                    $updatedcontent .= $token->[2];
                                                }
                                            }
                                            print $fh $updatedcontent;
                                       } else {
                                           print $fh &Apache::lonclonecourse::rewritefile(
                        &Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
                                                         (%replacehash,$crs => '')
                                                                                         );
                                       }
                                   } else {
                                       print $fh
                                           &Apache::lonclonecourse::readfile($env{'request.course.id'},$item);
                                   }
                               } else {
                                   $fail = &mt('Source does not exist.');
                               }
                           }
                           $fh->close();
                       } else {
                           $fail = &mt('Could not write to destination.');
                       }
                   }
                   my $text;
                   if ($fail) {
                       $text = '<span class="LC_error">'.&mt('fail').('&nbsp;'x3).$fail.'</span>';
                   } else {
                       $text = '<span class="LC_success">'.&mt('ok').'</span>';
                   }
                   if ($i == 0) {
                       $result .= $text;
                   } else {
                       $depresult .= $text.'</li>';
                   }
               }
               $r->print($result);
               if ($depresult) {
                   $r->print('<ul>'.$depresult.'</ul>');
               }
           }
     } else {      } else {
         $r->print(&mt('Searching ...').'<br />');          my ($navmap,$errormsg) =
         $r->rflush();              &Apache::loncourserespicker::get_navmap_object($crstype,'dumpdocs');
 # Input form          if (!ref($navmap)) {
         $r->print('<form name="dumpdoc" action="" method="post">'."\n");              $r->print($errormsg);
  unless ($home==1) {          } else {
     $r->print('<div class="LC_left_float">'.              $r->print('<div id="searching">'.&mt('Searching ...').'</div>');
       '<fieldset><legend>'.              $r->rflush();
                       &mt('Select the Authoring Space').              my ($preamble,$formname);
                       '</legend><select name="authorspace">');              $formname = 'dumpdoc';
  }              unless ($home==1) {
  foreach my $key (sort(keys(%outhash))) {                  $preamble = '<div class="LC_left_float">'.
     if ($key=~/^home_(.+)$/) {                              '<fieldset><legend>'.
  if ($home==1) {                              &mt('Select the Authoring Space').
     $r->print(                              '</legend><select name="authorspace">';
   '<input type="hidden" name="authorspace" value="'.$1.'" />');              }
  } else {              my @orderspaces = ();
     $r->print('<option value="'.$1.'">'.$1.' - '.              foreach my $key (sort(keys(%outhash))) {
       &Apache::loncommon::plainname(split(/\:/,$1)).'</option>');                  if ($key=~/^home_(.+)$/) {
  }                      if ($1 eq $env{'user.name'}.':'.$env{'user.domain'}) {
     }                          unshift(@orderspaces,$1);
  }                      } else {
  unless ($home==1) {                          push(@orderspaces,$1);
     $r->print('</select></fieldset></div>'."\n");                      }
  }                  }
  my $title=$origcrsdata{'description'};              }
  $title=~s/[\/\s]+/\_/gs;              if ($home>1) {
  $title=&clean($title);                  $preamble .= '<option value="" selected="selected">'.&mt('Select').'</option>';
  $r->print('<div class="LC_left_float">'.              }
                   '<fieldset><legend>'.&mt('Folder in Authoring Space').'</legend>'.              foreach my $user (@orderspaces) {
                   '<input type="text" size="50" name="authorfolder" value="'.                  if ($home==1) {
                   $title.'" />'.                      $preamble .= '<input type="hidden" name="authorspace" value="'.$user.'" />';
                   '</fieldset></div><br clear="all" />'."\n");                  } else {
  &tiehash();                      $preamble .= '<option value="'.$user.'">'.$user.' - '.
  $r->print('<h4>'.&mt('Filenames in Authoring Space').'</h4>'                                   &Apache::loncommon::plainname(split(/\:/,$user)).'</option>';
                  .&Apache::loncommon::start_data_table()                  }
                  .&Apache::loncommon::start_data_table_header_row()              }
                  .'<th>'.&mt('Internal Filename').'</th>'              unless ($home==1) {
                  .'<th>'.&mt('Title').'</th>'                  $preamble .= '</select></fieldset></div>'."\n";
                  .'<th>'.&mt('Save as ...').'</th>'              }
                  .&Apache::loncommon::end_data_table_header_row());              my $title=$origcrsdata{'description'};
  foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {              $title=~s/[\/\s]+/\_/gs;
     $r->print(&Apache::loncommon::start_data_table_row()              $title=&clean($title);
                      .'<td>'.$file.'</td>');              $preamble .= '<div class="LC_left_float">'.
     my ($ext)=($file=~/\.(\w+)$/);                           '<fieldset><legend>'.&mt('Folder in Authoring Space').'</legend>'.
     my $title=$hash{'title_'.$hash{                           '<input type="text" size="50" name="authorfolder" value="'.
  'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};                           $title.'" />'.
     $r->print('<td>'.($title?$title:'&nbsp;').'</td>');                           '</fieldset></div><div style="padding:0;clear:both;margin:0;border:0"></div>'."\n";
     if (!$title) {              my %uploadedfiles;
  $title=$file;              &tiehash();
     } else {              foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {
  $title=~s|/|_|g;                  my ($ext)=($file=~/\.(\w+)$/);
     }  # FIXME Check supplemental here
     $title=~s/\.(\w+)$//;                  my $title=$hash{'title_'.$hash{
     $title=&clean($title);                                  'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};
     $title.='.'.$ext;                  if (!$title) {
     $r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"                      $title=$file;
                      .&Apache::loncommon::end_data_table_row());                  } else {
  }                      $title=~s|/|_|g;
  $r->print(&Apache::loncommon::end_data_table());                  }
  &untiehash();                  $title=~s/\.(\w+)$//;
  $r->print(                  $title=&clean($title);
   '<p><input type="submit" name="dumpcourse" value="'.&mt("Dump $crstype Content").'" /></p></form>');                  $title.='.'.$ext;
   #           $r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"
                   $uploadedfiles{$file} = $title;
               }
               &untiehash();
               $r->print(&Apache::loncourserespicker::create_picker($navmap,'dumpdocs',$formname,$crstype,undef,
                                                                    undef,undef,$preamble,$home,\%uploadedfiles));
           }
     }      }
     $r->print(&endContentScreen());      $r->print(&endContentScreen());
 }  }
   
   sub recurse_html {
       my ($mm,$prefix,$currdirpath,$currurlpath,$container,$item,$replacehash,$deps) = @_;
       return unless ((ref($replacehash) eq 'HASH') && (ref($deps) eq 'HASH'));
       my (%allfiles,%codebase);
       if (&Apache::lonnet::extract_embedded_items($currdirpath,\%allfiles,\%codebase) eq 'ok') {
           if (keys(%allfiles)) {
               foreach my $dependency (keys(%allfiles)) {
                   next if (($dependency =~ m{^/(res|adm)/}) || ($dependency =~ m{^https?://}));
                   my ($depurl,$relfile,$newcontainer);
                   if ($dependency =~ m{^/}) {
                       if ($dependency =~ m{^\Q$currurlpath/\E(.+)$}) {
                           $relfile = $1;
                           if ($dependency =~ m{^\Q$prefix\E(.+)$}) {
                               $newcontainer = $1;
                               next if ($replacehash->{$newcontainer});
                           }
                           $depurl = $dependency;
                       } else {
                           next;
                       }
                   } else {
                       $relfile = $dependency;
                       $depurl = $currurlpath;
                       $depurl =~ s{[^/]+$}{}; 
                       $depurl .= $dependency;
                       ($newcontainer) = ($depurl =~ m{^\Q$prefix\E(.+)$});
                   }
                   next if ($relfile eq '');
                   my $newname = $replacehash->{$container};
                   $newname =~ s{[^/]+$}{};
                   $replacehash->{$newcontainer} = $newname.$relfile;
                   $deps->{$item}{$newcontainer} = 1;
                   my ($newurlpath) = ($depurl =~ m{^(.*)/[^/]+$});
                   my $depfile = &Apache::lonnet::filelocation('',$depurl);
                   my $type = $mm->checktype_filename($depfile);
                   if ($type eq 'text/html') {
                       &recurse_html($mm,$prefix,$depfile,$newurlpath,$newcontainer,$item,$replacehash,$deps);
                   }
               }
           }
       }
       return;
   }
   
 sub group_import {  sub group_import {
     my ($coursenum, $coursedom, $folder, $container, $caller, @files) = @_;      my ($coursenum, $coursedom, $folder, $container, $caller, @files) = @_;
     my ($donechk,$allmaps,%hierarchy,%titles,%addedmaps,%removefrommap,      my ($donechk,$allmaps,%hierarchy,%titles,%addedmaps,%removefrommap,
Line 4158  sub handler { Line 4469  sub handler {
       &init_breadcrumbs('versions','Check/Set Resource Versions');        &init_breadcrumbs('versions','Check/Set Resource Versions');
       &checkversions($r);        &checkversions($r);
   } elsif ($allowed && $env{'form.dumpcourse'}) {    } elsif ($allowed && $env{'form.dumpcourse'}) {
       &init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' Content to Authoring Space');        &init_breadcrumbs('dumpcourse','Copy '.&Apache::loncommon::course_type().' Content to Authoring Space');
       &dumpcourse($r);        &dumpcourse($r);
   } elsif ($allowed && $env{'form.exportcourse'}) {    } elsif ($allowed && $env{'form.exportcourse'}) {
       &init_breadcrumbs('exportcourse','IMS Export');        &init_breadcrumbs('exportcourse','IMS Export');
Line 4326  sub handler { Line 4637  sub handler {
                 $script .= &dump_switchserver_js(@hosts);                   $script .= &dump_switchserver_js(@hosts); 
             }              }
         } else {          } else {
               my $tid = 1;
             my @tabids;              my @tabids;
             if ($supplementalflag) {              if ($supplementalflag) {
                 @tabids = ('002','ee2','ff2');                  @tabids = ('002','ee2','ff2');
                   $tid = 2;
             } else {              } else {
                 @tabids = ('aa1','bb1','cc1','ff1');                  @tabids = ('aa1','bb1','cc1','ff1');
                 unless ($env{'form.folderpath'} =~ /\:1$/) {                  unless ($env{'form.folderpath'} =~ /\:1$/) {
Line 4340  sub handler { Line 4653  sub handler {
     $script .= &editing_js($udom,$uname,$supplementalflag).      $script .= &editing_js($udom,$uname,$supplementalflag).
                        &history_tab_js().                         &history_tab_js().
                        &inject_data_js().                         &inject_data_js().
                        &Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr).                         &Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr,$tid).
                        &Apache::lonextresedit::extedit_javascript();                         &Apache::lonextresedit::extedit_javascript();
             $addentries = {              $addentries = {
                             onload   => "javascript:resize_scrollbox('contentscroll','1','1');",                              onload   => "javascript:resize_scrollbox('contentscroll','1','1');",
Line 4635  HIDDENFORM Line 4948  HIDDENFORM
   
  my $newnavform=(<<NNFORM);   my $newnavform=(<<NNFORM);
  <form action="/adm/coursedocs" method="post" name="newnav">   <form action="/adm/coursedocs" method="post" name="newnav">
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="ee" />
  $pathitem   $pathitem
  <input type="hidden" name="importdetail"    <input type="hidden" name="importdetail" 
  value="$lt{'navc'}=/adm/navmaps" />   value="$lt{'navc'}=/adm/navmaps" />
Line 4645  HIDDENFORM Line 4958  HIDDENFORM
 NNFORM  NNFORM
  my $newsmppageform=(<<NSPFORM);   my $newsmppageform=(<<NSPFORM);
  <form action="/adm/coursedocs" method="post" name="newsmppg">   <form action="/adm/coursedocs" method="post" name="newsmppg">
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="ee" />
  $pathitem   $pathitem
  <input type="hidden" name="importdetail" value="" />   <input type="hidden" name="importdetail" value="" />
  <a class="LC_menubuttons_link" href="javascript:makesmppage();"> $lt{'sipa'}</a>   <a class="LC_menubuttons_link" href="javascript:makesmppage();"> $lt{'sipa'}</a>
Line 4686  NEXUFORM Line 4999  NEXUFORM
   
  my $newbulform=(<<NBFORM);   my $newbulform=(<<NBFORM);
  <form action="/adm/coursedocs" method="post" name="newbul">   <form action="/adm/coursedocs" method="post" name="newbul">
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="dd" />
  $pathitem   $pathitem
  <input type="hidden" name="importdetail" value="" />   <input type="hidden" name="importdetail" value="" />
  <a class="LC_menubuttons_link" href="javascript:makebulboard();" >$lt{'bull'}</a>   <a class="LC_menubuttons_link" href="javascript:makebulboard();" >$lt{'bull'}</a>
Line 4696  NBFORM Line 5009  NBFORM
   
  my $newaboutmeform=(<<NAMFORM);   my $newaboutmeform=(<<NAMFORM);
  <form action="/adm/coursedocs" method="post" name="newaboutme">   <form action="/adm/coursedocs" method="post" name="newaboutme">
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="dd" />
  $pathitem   $pathitem
  <input type="hidden" name="importdetail"    <input type="hidden" name="importdetail" 
  value="$plainname=/adm/$udom/$uname/aboutme" />   value="$plainname=/adm/$udom/$uname/aboutme" />
Line 4707  NAMFORM Line 5020  NAMFORM
   
  my $newaboutsomeoneform=(<<NASOFORM);   my $newaboutsomeoneform=(<<NASOFORM);
  <form action="/adm/coursedocs" method="post" name="newaboutsomeone">   <form action="/adm/coursedocs" method="post" name="newaboutsomeone">
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="dd" />
  $pathitem   $pathitem
  <input type="hidden" name="importdetail" value="" />   <input type="hidden" name="importdetail" value="" />
  <a class="LC_menubuttons_link" href="javascript:makeabout();">$lt{'abou'}</a>   <a class="LC_menubuttons_link" href="javascript:makeabout();">$lt{'abou'}</a>
Line 4716  NASOFORM Line 5029  NASOFORM
   
  my $newrosterform=(<<NROSTFORM);   my $newrosterform=(<<NROSTFORM);
  <form action="/adm/coursedocs" method="post" name="newroster">   <form action="/adm/coursedocs" method="post" name="newroster">
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="dd" />
  $pathitem   $pathitem
  <input type="hidden" name="importdetail"    <input type="hidden" name="importdetail" 
  value="$lt{'rost'}=/adm/viewclasslist" />   value="$lt{'rost'}=/adm/viewclasslist" />
Line 4737  NROSTFORM Line 5050  NROSTFORM
         }          }
         my $newwebpageform =(<<NWEBFORM);          my $newwebpageform =(<<NWEBFORM);
         <form action="/adm/coursedocs" method="post" name="newwebpage">          <form action="/adm/coursedocs" method="post" name="newwebpage">
         <input type="hidden" name="active" value="cc" />          <input type="hidden" name="active" value="ee" />
         $pathitem          $pathitem
         <input type="hidden" name="importdetail" value="$newwebpage" />          <input type="hidden" name="importdetail" value="$newwebpage" />
         <a class="LC_menubuttons_link" href="javascript:makewebpage();">$lt{'webp'}</a>          <a class="LC_menubuttons_link" href="javascript:makewebpage();">$lt{'webp'}</a>
Line 4761  my $newfolderb; Line 5074  my $newfolderb;
  <form action="/adm/coursedocs" method="post" name="newpage">   <form action="/adm/coursedocs" method="post" name="newpage">
  <input type="hidden" name="folderpath" value="$path" />   <input type="hidden" name="folderpath" value="$path" />
  <input type="hidden" name="importdetail" value="" />   <input type="hidden" name="importdetail" value="" />
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="ee" />
  <a class="LC_menubuttons_link" href="javascript:makenewpage(document.newpage,'$pageseq');">$lt{'newp'}</a>   <a class="LC_menubuttons_link" href="javascript:makenewpage(document.newpage,'$pageseq');">$lt{'newp'}</a>
  $help{'Adding_Pages'}   $help{'Adding_Pages'}
  </form>   </form>
Line 4772  NPFORM Line 5085  NPFORM
  <form action="/adm/coursedocs" method="post" name="newfolder">   <form action="/adm/coursedocs" method="post" name="newfolder">
  $pathitem   $pathitem
  <input type="hidden" name="importdetail" value="" />   <input type="hidden" name="importdetail" value="" />
  <input type="hidden" name="active" value="aa" />   <input type="hidden" name="active" value="" />
  <a href="javascript:makenewfolder(document.newfolder,'$folderseq');">$lt{'newf'}</a>$help{'Adding_Folders'}   <a href="javascript:makenewfolder(document.newfolder,'$folderseq');">$lt{'newf'}</a>$help{'Adding_Folders'}
  </form>   </form>
 NFFORM  NFFORM
   
  my $newsylform=(<<NSYLFORM);   my $newsylform=(<<NSYLFORM);
  <form action="/adm/coursedocs" method="post" name="newsyl">   <form action="/adm/coursedocs" method="post" name="newsyl">
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="ee" />
  $pathitem   $pathitem
  <input type="hidden" name="importdetail"    <input type="hidden" name="importdetail" 
  value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />   value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />
Line 4791  NSYLFORM Line 5104  NSYLFORM
   
  my $newgroupfileform=(<<NGFFORM);   my $newgroupfileform=(<<NGFFORM);
  <form action="/adm/coursedocs" method="post" name="newgroupfiles">   <form action="/adm/coursedocs" method="post" name="newgroupfiles">
  <input type="hidden" name="active" value="cc" />   <input type="hidden" name="active" value="dd" />
  $pathitem   $pathitem
  <input type="hidden" name="importdetail"   <input type="hidden" name="importdetail"
  value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />   value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />
Line 4908  SUPDOCFORM Line 5221  SUPDOCFORM
   
  my $supnewfolderform=(<<SNFFORM);   my $supnewfolderform=(<<SNFFORM);
  <form action="/adm/coursedocs" method="post" name="supnewfolder">   <form action="/adm/coursedocs" method="post" name="supnewfolder">
  <input type="hidden" name="active" value="ee" />   <input type="hidden" name="active" value="" />
         $pathitem          $pathitem
  <input type="hidden" name="importdetail" value="" />   <input type="hidden" name="importdetail" value="" />
  <a class="LC_menubuttons_link" href="javascript:makenewfolder(document.supnewfolder,'$folderseq');">$lt{'newf'}</a>    <a class="LC_menubuttons_link" href="javascript:makenewfolder(document.supnewfolder,'$folderseq');">$lt{'newf'}</a> 
Line 5185  sub generate_admin_menu { Line 5498  sub generate_admin_menu {
     my ($crstype) = @_;      my ($crstype) = @_;
     my $lc_crstype = lc($crstype);      my $lc_crstype = lc($crstype);
     my ($home,$other,%outhash)=&authorhosts();      my ($home,$other,%outhash)=&authorhosts();
     my %lt=&Apache::lonlocal::texthash (      my %lt= ( # do not translate here
                                          'vc'   => 'Verify Content',                                           'vc'   => 'Verify Content',
                                          'cv'   => 'Check/Set Resource Versions',                                           'cv'   => 'Check/Set Resource Versions',
                                          'ls'   => 'List Resource Identifiers',                                           'ls'   => 'List Resource Identifiers',
                                          'imse' => 'Export contents to IMS Archive',                                           'imse' => 'Export contents to IMS Archive',
                                          'dcd'  => "Dump $crstype Content to Authoring Space",                                           'dcd'  => "Copy $crstype Content to Authoring Space",
                                        );              );
     my ($candump,$dumpurl);      my ($candump,$dumpurl);
     if ($home + $other > 0) {      if ($home + $other > 0) {
         $candump = 'F';          $candump = 'F';
Line 5273  sub generate_edit_table { Line 5586  sub generate_edit_table {
     my $form;      my $form;
     my $activetab;      my $activetab;
     my $active;      my $active;
     if (($env{'form.active'} ne '') && ($env{'form.active'} ne 'aa')) {      if (($env{'form.active'} ne '') && ($env{'form.active'} ne '00')) {
         $activetab = $env{'form.active'};          $activetab = $env{'form.active'};
     }      }
     my $backicon = $iconpath.'clickhere.gif';      my $backicon = $iconpath.'clickhere.gif';
Line 5308  sub generate_edit_table { Line 5621  sub generate_edit_table {
             $form .= '<li style="float:right" '.$active              $form .= '<li style="float:right" '.$active
                 .' onclick="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');"><a href="javascript:;"><b>'.&mt(${$orderhash{$name}}[0]).'</b></a></li>'."\n";                  .' onclick="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');"><a href="javascript:;"><b>'.&mt(${$orderhash{$name}}[0]).'</b></a></li>'."\n";
         } else {          } else {
     $form .= '<li '.$active.' style="float:right">'.${$orderhash{$name}}[1].'</li>'."\n";      $form .= '<li style="float:right">'.${$orderhash{$name}}[1].'</li>'."\n";
   
  }   }
     }      }
Line 5871  for (i = 0; i < currentLis.length; i++) Line 6184  for (i = 0; i < currentLis.length; i++)
   
 function hideAll(current, nav, data) {  function hideAll(current, nav, data) {
 unselectInactive(nav);  unselectInactive(nav);
 if(current.className == 'right'){  if (current) {
       if (current.className == 'right'){
  current.className = 'right active'   current.className = 'right active'
  }else{      } else {
  current.className = 'active';   current.className = 'active';
       }
 }  }
 currentData = document.getElementById(data);  currentData = document.getElementById(data);
 currentDivs = currentData.getElementsByTagName('DIV');  currentDivs = currentData.getElementsByTagName('DIV');
Line 5905  function openTabs(pageId) { Line 6220  function openTabs(pageId) {
 }  }
   
 function showPage(current, pageId, nav, data) {  function showPage(current, pageId, nav, data) {
           currstate = current.className;
  hideAll(current, nav, data);   hideAll(current, nav, data);
  openTabs(pageId);   openTabs(pageId);
  unselectInactive(nav);   unselectInactive(nav);
  current.className = 'active';          if ((currstate == 'active') || (currstate == 'right active')) {
               if (currstate == 'active') {
                   current.className = '';
               } else {
                   current.className = 'right';
               }
               activeTab = '';
               toggleUpload();
               toggleMap();
               resize_scrollbox('contentscroll','1','0');
               return;
           } else {
               current.className = 'active';
           }
  currentData = document.getElementById(pageId);   currentData = document.getElementById(pageId);
  currentData.style.display = 'block';   currentData.style.display = 'block';
         activeTab = pageId;          activeTab = pageId;
Line 6296  ENDINJECT Line 6625  ENDINJECT
 sub dump_switchserver_js {  sub dump_switchserver_js {
     my @hosts = @_;      my @hosts = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
         dump => 'Dumping to Authoring Space requires switching server.',          dump => 'Copying Content to Authoring Space requires switching server.',
         swit => 'Switch server?',          swit => 'Switch server?',
         duco => 'Dump content to Authoring Space',          duco => 'Copying Content to Authoring Space',
         yone => 'You need to switch to a server housing an Authoring Space for which you are author or co-author.',          yone => 'You need to switch to a server housing an Authoring Space for which you are author or co-author.',
         chos => 'Choose server',          chos => 'Choose server',
     );      );
Removed from v.1.484.2.42  
changed lines
  Added in v.1.484.2.43

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