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

Diff for /loncom/interface/londocs.pm between versions 1.479 and 1.484.2.6

version 1.479, 2012/03/28 12:58:42 version 1.484.2.6, 2012/05/29 20:56:34
Line 100  sub authorhosts { Line 100  sub authorhosts {
     my $allowed=0;      my $allowed=0;
     my $myhome=&Apache::lonnet::homeserver($ca,$cd);      my $myhome=&Apache::lonnet::homeserver($ca,$cd);
     my @ids=&Apache::lonnet::current_machine_ids();      my @ids=&Apache::lonnet::current_machine_ids();
     foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }      foreach my $id (@ids) {
                   if ($id eq $myhome) {
                       $allowed=1;
                       last;
                   }
               }
     if ($allowed) {      if ($allowed) {
  $home++;   $home++;
  $outhash{'home_'.$ca.'@'.$cd}=1;   $outhash{'home_'.$ca.':'.$cd}=1;
     } else {      } else {
  $outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;   $outhash{'otherhome_'.$ca.':'.$cd}=$myhome;
  $other++;   $other++;
     }      }
  }   }
Line 114  sub authorhosts { Line 119  sub authorhosts {
 }  }
   
   
 sub dumpbutton {  
     my ($home,$other,%outhash)=&authorhosts();  
     my $crstype = &Apache::loncommon::course_type();  
     if ($home+$other==0) { return ''; }  
     if ($home) {  
         my $link =  
             "<a class='LC_menubuttons_link' href='javascript:injectData(document.courseverify, \"dummy\", \"dumpcourse\", \""  
            .&mt('Dump '.$crstype.' Documents to Construction Space')  
            ."\")'>"  
            .&mt('Dump '.$crstype.' Documents to Construction Space')  
            .'</a>';  
         return  
             $link.' '  
            .&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs')  
            .'<br />';  
     } else {  
         return  
             &mt('Dump '.$crstype.' Documents to Construction Space: available on other servers');  
     }  
 }  
   
 sub clean {  sub clean {
     my ($title)=@_;      my ($title)=@_;
     $title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\|\`\~]+/\_/gs;      $title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\|\`\~]+/\_/gs;
Line 146  sub clean { Line 130  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.' Documents to Construction Space').      $r->print(&Apache::loncommon::start_page('Dump '.$crstype.' Content to Authoring Space')."\n".
       '<form name="dumpdoc" action="" method="post">');                &Apache::lonhtmlcommon::breadcrumbs('Dump '.$crstype.' Content to Authoring Space')."\n");
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Dump '.$crstype.' Documents to Construction Space'));      $r->print(&startContentScreen('tools'));
     my ($home,$other,%outhash)=&authorhosts();      my ($home,$other,%outhash)=&authorhosts();
     unless ($home) { return ''; }      unless ($home) {
           $r->print(&endContentScreen());
           return '';
       }
     my $origcrsid=$env{'request.course.id'};      my $origcrsid=$env{'request.course.id'};
     my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);      my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
     if (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {      if (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {
 # Do the dumping  # Do the dumping
  unless ($outhash{'home_'.$env{'form.authorspace'}}) { return ''; }   unless ($outhash{'home_'.$env{'form.authorspace'}}) {
               $r->print(&endContentScreen());
               return '';
           }
  my ($ca,$cd)=split(/\@/,$env{'form.authorspace'});   my ($ca,$cd)=split(/\@/,$env{'form.authorspace'});
  $r->print('<h3>'.&mt('Copying Files').'</h3>');   $r->print('<h3>'.&mt('Copying Files').'</h3>');
  my $title=$env{'form.authorfolder'};   my $title=$env{'form.authorfolder'};
Line 206  sub dumpcourse { Line 196  sub dumpcourse {
     }      }
  }   }
     } else {      } else {
           $r->print(&mt('Searching ...').'<br />');
           $r->rflush();
 # Input form  # Input form
           $r->print('<form name="dumpdoc" action="" method="post">'."\n");
  unless ($home==1) {   unless ($home==1) {
     $r->print(      $r->print('<div class="LC_left_float">'.
       '<h3>'.&mt('Select the Construction Space').'</h3><select name="authorspace">');        '<fieldset><legend>'.
                         &mt('Select the Authoring Space').
                         '</legend><select name="authorspace">');
  }   }
  foreach my $key (sort(keys(%outhash))) {   foreach my $key (sort(keys(%outhash))) {
     if ($key=~/^home_(.+)$/) {      if ($key=~/^home_(.+)$/) {
Line 218  sub dumpcourse { Line 213  sub dumpcourse {
   '<input type="hidden" name="authorspace" value="'.$1.'" />');    '<input type="hidden" name="authorspace" value="'.$1.'" />');
  } else {   } else {
     $r->print('<option value="'.$1.'">'.$1.' - '.      $r->print('<option value="'.$1.'">'.$1.' - '.
       &Apache::loncommon::plainname(split(/\@/,$1)).'</option>');        &Apache::loncommon::plainname(split(/\:/,$1)).'</option>');
  }   }
     }      }
  }   }
  unless ($home==1) {   unless ($home==1) {
     $r->print('</select>');      $r->print('</select></fieldset></div>'."\n");
  }   }
  my $title=$origcrsdata{'description'};   my $title=$origcrsdata{'description'};
  $title=~s/[\/\s]+/\_/gs;   $title=~s/[\/\s]+/\_/gs;
  $title=&clean($title);   $title=&clean($title);
  $r->print('<h3>'.&mt('Folder in Construction Space').'</h3>'   $r->print('<div class="LC_left_float">'.
                  .'<input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');                    '<fieldset><legend>'.&mt('Folder in Authoring Space').'</legend>'.
                     '<input type="text" size="50" name="authorfolder" value="'.
                     $title.'" />'.
                     '</fieldset></div><br clear="all" />'."\n");
  &tiehash();   &tiehash();
  $r->print('<h3>'.&mt('Filenames in Construction Space').'</h3>'   $r->print('<h4>'.&mt('Filenames in Authoring Space').'</h4>'
                  .&Apache::loncommon::start_data_table()                   .&Apache::loncommon::start_data_table()
                  .&Apache::loncommon::start_data_table_header_row()                   .&Apache::loncommon::start_data_table_header_row()
                  .'<th>'.&mt('Internal Filename').'</th>'                   .'<th>'.&mt('Internal Filename').'</th>'
Line 259  sub dumpcourse { Line 257  sub dumpcourse {
  $r->print(&Apache::loncommon::end_data_table());   $r->print(&Apache::loncommon::end_data_table());
  &untiehash();   &untiehash();
  $r->print(   $r->print(
   '<p><input type="submit" name="dumpcourse" value="'.&mt("Dump $crstype Documents").'" /></p></form>');    '<p><input type="submit" name="dumpcourse" value="'.&mt("Dump $crstype Content").'" /></p></form>');
     }      }
 }      $r->print(&endContentScreen());
   
 sub exportbutton {  
     my $crstype = &Apache::loncommon::course_type();  
     return "<a class='LC_menubuttons_link' href='javascript:injectData(document.courseverify, \"dummy\", \"exportcourse\", \"".&mt('IMS Export')."\")'>".&mt('IMS Export')."</a>".  
     &Apache::loncommon::help_open_topic('Docs_Export_Course_Docs').'<br />';  
 }  }
   
 sub group_import {  sub group_import {
Line 430  sub log_docs { Line 423  sub log_docs {
     }      }
 }  }
   
   
   
   
   
 sub docs_change_log {  sub docs_change_log {
     my ($r)=@_;      my ($r,$coursenum,$coursedom,$folder,$allowed,$crstype,$iconpath)=@_;
     my $folder=$env{'form.folder'};      my $supplementalflag=($env{'form.folderpath'}=~/^supplemental/);
     $r->print(&Apache::loncommon::start_page('Course Document Change Log'));      my $js = '<script type="text/javascript">'."\n".
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Document Change Log'));               '// <![CDATA['."\n".
                &Apache::loncommon::display_filter_js('docslog')."\n".
                &editing_js($env{'user.domain'},$env{'user.name'},$supplementalflag)."\n".
                &history_tab_js()."\n".
                &Apache::lonratedt::editscript('simple')."\n".
                '// ]]>'."\n".
                '</script>'."\n";
       $r->print(&Apache::loncommon::start_page('Content Change Log',$js));
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Content Change Log'));
       $r->print(&startContentScreen('docs'));
       my %orderhash;
       my $container='sequence';
       my $pathitem;
       if ($env{'form.pagepath'}) {
           $container='page';
           $pathitem = '<input type="hidden" name="pagepath" value="'.
                       &HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />';
       } else {
           my $folderpath=$env{'form.folderpath'};
           if ($folderpath eq '') {
               $folderpath = 'default&'.&escape(&mt('Main '.$crstype.' Documents'));
           }
           $pathitem = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
       }
       my $readfile="/uploaded/$coursedom/$coursenum/$folder.$container";
       my $jumpto = $readfile;
       $jumpto =~ s{^/}{};
       my $tid = 1;
       my ($breadcrumbtrail) = &breadcrumbs($allowed,$crstype);
       $r->print($breadcrumbtrail.
                 &generate_edit_table($tid,\%orderhash,undef,$iconpath,$jumpto,
                 $readfile));
     my %docslog=&Apache::lonnet::dump('nohist_docslog',      my %docslog=&Apache::lonnet::dump('nohist_docslog',
                                       $env{'course.'.$env{'request.course.id'}.'.domain'},                                        $env{'course.'.$env{'request.course.id'}.'.domain'},
                                       $env{'course.'.$env{'request.course.id'}.'.num'});                                        $env{'course.'.$env{'request.course.id'}.'.num'});
   
     if ((keys(%docslog))[0]=~/^error\:/) { undef(%docslog); }      if ((keys(%docslog))[0]=~/^error\:/) { undef(%docslog); }
   
     $r->print('<form action="/adm/coursedocs" method="post" name="docslog">'.  
               '<input type="hidden" name="docslog" value="1" />');  
   
     my %saveable_parameters = ('show' => 'scalar',);      my %saveable_parameters = ('show' => 'scalar',);
     &Apache::loncommon::store_course_settings('docs_log',      &Apache::loncommon::store_course_settings('docs_log',
                                               \%saveable_parameters);                                                \%saveable_parameters);
Line 461  sub docs_change_log { Line 478  sub docs_change_log {
     'randomorder'    => 'Randomly ordered',      'randomorder'    => 'Randomly ordered',
     'set'            => 'set to',      'set'            => 'set to',
     'del'            => 'deleted');      'del'            => 'deleted');
     $r->print(&Apache::loncommon::display_filter().      my $filter = &Apache::loncommon::display_filter('docslog')."\n".
               '<input type="hidden" name="folder" value="'.$folder.'" />'.                   $pathitem."\n".
               '<input type="submit" value="'.&mt('Display').'" /></form>');                   '<input type="hidden" name="folder" value="'.$env{'form.folder'}.'" />'.
                    ('&nbsp;'x2).'<input type="submit" value="'.&mt('Display').'" />';
       $r->print('<div class="LC_left_float">'.
                 '<fieldset><legend>'.&mt('Display of Content Changes').'</legend>'."\n".
                 &makedocslogform($filter,1).
                 '</fieldset></div><br clear="all" />');
     $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().      $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
               '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Folder').'</th><th>'.&mt('Before').'</th><th>'.                '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Folder').'</th><th>'.&mt('Before').'</th><th>'.
               &mt('After').'</th>'.                &mt('After').'</th>'.
Line 558  sub docs_change_log { Line 580  sub docs_change_log {
         if (!($env{'form.show'} eq &mt('all')          if (!($env{'form.show'} eq &mt('all')
               || $shown<=$env{'form.show'})) { last; }                || $shown<=$env{'form.show'})) { last; }
     }      }
     $r->print(&Apache::loncommon::end_data_table());      $r->print(&Apache::loncommon::end_data_table()."\n".
                 &makesimpleeditform($pathitem)."\n".
                 '</div></div>');
       $r->print(&endContentScreen());
 }  }
   
 sub update_paste_buffer {  sub update_paste_buffer {
Line 816  sub editor { Line 841  sub editor {
     my $container= ($env{'form.pagepath'}) ? 'page'      my $container= ($env{'form.pagepath'}) ? 'page'
                            : 'sequence';                             : 'sequence';
   
       my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order) =
           &breadcrumbs($allowed,$crstype);
       $r->print($breadcrumbtrail);
   
       my $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container";
   
       unless ($allowed) {
           $randompick = -1;
       }
   
     my ($errtext,$fatal) = &mapread($coursenum,$coursedom,      my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
     $folder.'.'.$container);      $folder.'.'.$container);
     return $errtext if ($fatal);      return $errtext if ($fatal);
Line 827  sub editor { Line 862  sub editor {
         $LONCAPA::map::resources[$idx]='';          $LONCAPA::map::resources[$idx]='';
     }      }
   
     my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order) =  
         &breadcrumbs($allowed,$crstype);  
     $r->print($breadcrumbtrail);  
   
     my $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container";  
   
     unless ($allowed) {  
         $randompick = -1;  
     }  
   
 # ------------------------------------------------------------ Process commands  # ------------------------------------------------------------ Process commands
   
 # ---------------- if they are for this folder and user allowed to make changes  # ---------------- if they are for this folder and user allowed to make changes
Line 988  sub editor { Line 1013  sub editor {
         $tid = 2;          $tid = 2;
     }      }
     if ($allowed) {      if ($allowed) {
         $r->print(&generate_edit_table($tid,$orderhash,$to_show,$iconpath,$jumpto));          my $readfile="/uploaded/$coursedom/$coursenum/$folder.$container";
           $r->print(&generate_edit_table($tid,$orderhash,$to_show,$iconpath,$jumpto,
                                          $readfile));
         &print_paste_buffer($r,$container);          &print_paste_buffer($r,$container);
     } else {      } else {
         if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {          if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
Line 1120  sub process_file_upload { Line 1147  sub process_file_upload {
                     position   => $position,                      position   => $position,
                     phase      => $nextphase,                      phase      => $nextphase,
                     comment    => $comment,                      comment    => $comment,
                 );                   );
                   my ($destination,$dir_root) = &embedded_destination($coursenum,$coursedom);
                   my @current = &get_dir_list($url,$coursenum,$coursedom,$newidx); 
                 $$upload_output = $showupload.                  $$upload_output = $showupload.
                                   &Apache::loncommon::decompress_form($mimetype,                                    &Apache::loncommon::decompress_form($mimetype,
                                       $archiveurl,'/adm/coursedocs',$noextract,                                        $archiveurl,'/adm/coursedocs',$noextract,
                                       \%archiveitems);                                        \%archiveitems,\@current);
             }              }
         }          }
     }      }
     return $nextphase;      return $nextphase;
 }  }
   
   sub get_dir_list {
       my ($url,$coursenum,$coursedom,$newidx) = @_;
       my ($destination,$dir_root) = &embedded_destination();
       my ($dirlistref,$listerror) =  
           &Apache::lonnet::dirlist("$dir_root/$destination/$newidx",$coursedom,$coursenum,1);
       my @dir_lines;
       my $dirptr=16384;
       if (ref($dirlistref) eq 'ARRAY') {
           foreach my $dir_line (sort
                             {
                                 my ($afile)=split('&',$a,2);
                                 my ($bfile)=split('&',$b,2);
                                 return (lc($afile) cmp lc($bfile));
                             } (@{$dirlistref})) {
               my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_line,16);
               $filename =~ s/\s+$//;
               next if ($filename =~ /^\.\.?$/); 
               my $isdir = 0;
               if ($dirptr&$testdir) {
                   $isdir = 1;
               }
               push(@dir_lines, [$filename,$dom,$isdir,$size,$mtime,$obs]);
           }
       }
       return @dir_lines;
   }
   
 sub is_supplemental_title {  sub is_supplemental_title {
     my ($title) = @_;      my ($title) = @_;
     return scalar($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/);      return scalar($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/);
Line 1264  sub entryline { Line 1320  sub entryline {
   
  if (!$nocopy) {   if (!$nocopy) {
     $copylink=(<<ENDCOPY);      $copylink=(<<ENDCOPY);
 <a href='javascript:markcopy("$esc_path","$index","$renametitle","$container","$symb","$folder");' class="LC_docs_copy">$lt{'cp'}</a>  <a href="javascript:markcopy('$esc_path','$index','$renametitle','$container','$symb','$folder');" class="LC_docs_copy">$lt{'cp'}</a>
 ENDCOPY  ENDCOPY
         }          }
  if (!$nocut) {   if (!$nocut) {
     $cutlink=(<<ENDCUT);      $cutlink=(<<ENDCUT);
 <a href='javascript:cutres("$esc_path","$index","$renametitle","$container","$symb","$folder",$skip_confirm);' class="LC_docs_cut">$lt{'ct'}</a>  <a href="javascript:cutres('$esc_path','$index','$renametitle','$container','$symb','$folder',$skip_confirm);" class="LC_docs_cut">$lt{'ct'}</a>
 ENDCUT  ENDCUT
         }          }
  $form_start = '   $form_start = '
Line 1453  $form_common.' Line 1509  $form_common.'
     if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {      if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {
        $line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';         $line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';
     } elsif ($url) {      } elsif ($url) {
        $line.=&Apache::loncommon::modal_link($url.(($url=~/\?/)?'&':'?').'inhibitmenu=yes',         $line.=&Apache::loncommon::modal_link($url.(($url=~/\?/)?'&amp;':'?').'inhibitmenu=yes',
                                              '<img src="'.$icon.'" alt="" class="LC_icon" />',600,500);                                               '<img src="'.$icon.'" alt="" class="LC_icon" />',600,500);
     } else {      } else {
        $line.='<img src="'.$icon.'" alt="" class="LC_icon" />';         $line.='<img src="'.$icon.'" alt="" class="LC_icon" />';
Line 1462  $form_common.' Line 1518  $form_common.'
     if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {      if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {
        $line.='<a href="'.$url.'">'.$title.'</a>';         $line.='<a href="'.$url.'">'.$title.'</a>';
     } elsif ($url) {      } elsif ($url) {
        $line.=&Apache::loncommon::modal_link($url.(($url=~/\?/)?'&':'?').'inhibitmenu=yes',         $line.=&Apache::loncommon::modal_link($url.(($url=~/\?/)?'&amp;':'?').'inhibitmenu=yes',
                                              $title,600,500);                                               $title,600,500);
     } else {      } else {
        $line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';         $line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';
Line 1610  sub checkonthis { Line 1666  sub checkonthis {
   
 =item list_symbs()  =item list_symbs()
   
 List Symbs  List Content Identifiers
   
 =cut  =cut
   
Line 1618  sub list_symbs { Line 1674  sub list_symbs {
     my ($r) = @_;      my ($r) = @_;
   
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
     $r->print(&Apache::loncommon::start_page('Symb List'));      $r->print(&Apache::loncommon::start_page('List of Content Identifiers'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Content Identifiers'));
     &startContentScreen($r,'tools');      $r->print(&startContentScreen('tools'));
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     if (!defined($navmap)) {      if (!defined($navmap)) {
         $r->print('<h2>'.&mt('Retrieval of List Failed').'</h2>'.          $r->print('<h2>'.&mt('Retrieval of List Failed').'</h2>'.
Line 1629  sub list_symbs { Line 1685  sub list_symbs {
                   '</div>');                    '</div>');
         &Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($crstype).':'.$env{'request.course.id'});          &Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($crstype).':'.$env{'request.course.id'});
     } else {      } else {
         $r->print("<pre>\n");          $r->print('<h4 class="LC_info">'.&mt("$crstype Content Identifiers").'</h4>'.
                     &Apache::loncommon::start_data_table().
                     &Apache::loncommon::start_data_table_header_row().
                     '<th>'.&mt('Title').'</th><th>'.&mt('Identifier').'</th>'.
                     &Apache::loncommon::end_data_table_header_row()."\n");
           my $count;
         foreach my $res ($navmap->retrieveResources()) {          foreach my $res ($navmap->retrieveResources()) {
             $r->print($res->compTitle()."\t".$res->symb()."\n");              $r->print(&Apache::loncommon::start_data_table_row().
                         '<td>'.$res->compTitle().'</td>'.
                         '<td>'.$res->symb().'</td>'.
                         &Apache::loncommon::start_data_table_row());
               $count ++;
           }
           if (!$count) {
               $r->print(&Apache::loncommon::start_data_table_row().
                         '<td colspan="2">'.&mt("$crstype is empty").'</td>'.
                         &Apache::loncommon::end_data_table_row()); 
         }          }
         $r->print("\n</pre>\n");          $r->print(&Apache::loncommon::end_data_table());
     }      }
 }  }
   
Line 1641  sub list_symbs { Line 1711  sub list_symbs {
 sub verifycontent {  sub verifycontent {
     my ($r) = @_;      my ($r) = @_;
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
    $r->print(&Apache::loncommon::start_page('Verify '.$crstype.' Documents'));      $r->print(&Apache::loncommon::start_page('Verify '.$crstype.' Documents'));
    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$crstype.' Documents'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$crstype.' Documents'));
    &startContentScreen($r,'tools');      $r->print(&startContentScreen('tools'));
       $r->print('<h4 class="LC_info">'.&mt($crstype.' content verification').'</h4>'); 
    $hashtied=0;     $hashtied=0;
    undef %alreadyseen;     undef %alreadyseen;
    %alreadyseen=();     %alreadyseen=();
    &tiehash();     &tiehash();
      
    foreach my $key (keys(%hash)) {     foreach my $key (keys(%hash)) {
        if ($hash{$key}=~/\.(page|sequence)$/) {         if ($hash{$key}=~/\.(page|sequence)$/) {
    if (($key=~/^src_/) && ($alreadyseen{&unescape($hash{$key})})) {     if (($key=~/^src_/) && ($alreadyseen{&unescape($hash{$key})})) {
Line 1677  sub checkversions { Line 1749  sub checkversions {
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
     $r->print(&Apache::loncommon::start_page("Check $crstype Document Versions"));      $r->print(&Apache::loncommon::start_page("Check $crstype Document Versions"));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $crstype Document Versions"));      $r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $crstype Document Versions"));
     &startContentScreen($r,'tools');      $r->print(&startContentScreen('tools'));
   
     my $header='';      my $header='';
     my $startsel='';      my $startsel='';
Line 1791  sub checkversions { Line 1863  sub checkversions {
        'lw' => 'Version changes since last Week',         'lw' => 'Version changes since last Week',
        'sy' => 'Version changes since Yesterday',         'sy' => 'Version changes since Yesterday',
                'al' => 'All Resources (possibly large output)',                 'al' => 'All Resources (possibly large output)',
                  'cd' => 'Change display', 
        'sd' => 'Display',         'sd' => 'Display',
        'fi' => 'File',         'fi' => 'File',
        'md' => 'Modification Date',         'md' => 'Modification Date',
Line 1801  sub checkversions { Line 1874  sub checkversions {
 'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',  'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',
 'sc' => 'Set all Resource Versions to current Version (Fix Versions)',  'sc' => 'Set all Resource Versions to current Version (Fix Versions)',
        'di' => 'Differences',         'di' => 'Differences',
        'save' => 'Save',         'save' => 'Save changes',
                  'vers' => 'Version choice(s) for specific resources', 
        'act' => 'Actions');         'act' => 'Actions');
     $r->print(<<ENDHEADERS);      $r->print(<<ENDHEADERS);
   <h4 class="LC_info">$header</h4>
 <form action="/adm/coursedocs" method="post">  <form action="/adm/coursedocs" method="post">
 <input type="hidden" name="versions" value="1" />  <input type="hidden" name="versions" value="1" />
 <div class="LC_columnSection">  <div class="LC_left_float">
 <fieldset>  <fieldset>
 <legend>$lt{'act'}</legend>  <legend>$lt{'cd'}</legend>
 $lt{'sm'}: <input type="submit" name="setmostrecent" value="Go" /><br />  
 $lt{'sc'}: <input type="submit" name="setcurrent" value="Go" />  
 </fieldset>  
 </div>  
 <select name="timerange">  <select name="timerange">
 <option value='all' $allsel>$lt{'al'}</option>  <option value='all' $allsel>$lt{'al'}</option>
 <option value="-1" $startsel>$lt{'st'}</option>  <option value="-1" $startsel>$lt{'st'}</option>
Line 1821  $lt{'sc'}: <input type="submit" name="se Line 1892  $lt{'sc'}: <input type="submit" name="se
 <option value="86400" $daysel>$lt{'sy'}</option>  <option value="86400" $daysel>$lt{'sy'}</option>
 </select>  </select>
 <input type="submit" name="display" value="$lt{'sd'}" />  <input type="submit" name="display" value="$lt{'sd'}" />
 <h2>$header</h2>  </fieldset>
   </div>
   <div class="LC_left_float">
   <fieldset>
   <legend>$lt{'act'}</legend>
   $lt{'sm'}: <input type="submit" name="setmostrecent" value="Go" /><br />
   $lt{'sc'}: <input type="submit" name="setcurrent" value="Go" />
   </fieldset>
   </div>
   <br clear="all" />
   <hr />
   <h4>$lt{'vers'}</h4>
 <input type="submit" name="setversions" value="$lt{'save'}" />  <input type="submit" name="setversions" value="$lt{'save'}" />
 <table border="0">  <table border="0">
 ENDHEADERS  ENDHEADERS
Line 1988  $help{'Caching'}.'</p></form>'."\n\n"); Line 2070  $help{'Caching'}.'</p></form>'."\n\n");
 sub init_breadcrumbs {  sub init_breadcrumbs {
     my ($form,$text)=@_;      my ($form,$text)=@_;
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs",      &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?tools=1",
     text=>&Apache::loncommon::course_type().' Editor',      text=>&Apache::loncommon::course_type().' Editor',
     faq=>273,      faq=>273,
     bug=>'Instructor Interface',      bug=>'Instructor Interface',
Line 2023  sub create_form_ul { Line 2105  sub create_form_ul {
 #  #
   
 sub startContentScreen {  sub startContentScreen {
     my ($r,$mode)=@_;      my ($mode) = @_;
     $r->print('<ul class="LC_TabContentBigger" id="mainnav">');      my $output = '<ul class="LC_TabContentBigger" id="mainnav">';
     if (($mode eq 'navmaps') || ($mode eq 'supplemental')) {      if (($mode eq 'navmaps') || ($mode eq 'supplemental')) {
         $r->print('<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Overview').'&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n");          $output .= '<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Overview').'&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n";
         $r->print('<li'.(($mode eq 'coursesearch')?' class="active"':'').'><a href="/adm/searchcourse"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Search').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n");          $output .= '<li'.(($mode eq 'coursesearch')?' class="active"':'').'><a href="/adm/searchcourse"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Search').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n";
         $r->print('<li'.(($mode eq 'courseindex')?' class="active"':'').'><a href="/adm/indexcourse"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Index').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n");          $output .= '<li '.(($mode eq 'suppdocs')?' class="active"':'').'><a href="/adm/supplemental"><b>'.&mt('Supplemental Content').'</b></a></li>';
         $r->print('<li '.(($mode eq 'suppdocs')?' class="active"':'').'><a href="/adm/supplemental"><b>'.&mt('Supplemental Content').'</b></a></li>');      } else {
     } else {          $output .= '<li '.(($mode eq 'docs')?' class="active"':'').' id="tabbededitor"><a href="/adm/coursedocs?forcestandard=1"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Editor').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n";
         $r->print('<li '.(($mode eq 'docs')?' class="active"':'').          $output .= '<li '.(($mode eq 'suppdocs')?' class="active"':'').'><a href="/adm/coursedocs?forcesupplement=1"><b>'.&mt('Supplemental Content Editor').'</b></a></li>'."\n";
                ' id="tabbededitor"><a href="/adm/coursedocs?forcestandard=1"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Editor').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>');          $output .= '<li '.(($mode eq 'tools')?' class="active"':'').'><a href="/adm/coursedocs?tools=1"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Utilities').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n";
         $r->print('<li '.(($mode eq 'suppdocs')?' class="active"':'').                     '><a href="/adm/coursedocs?tools=1"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Utilities').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>';
                   '><a href="/adm/coursedocs?forcesupplement=1"><b>'.&mt('Supplemental Content Editor').'</b></a></li>');      }
     }      $output .= "\n".'</ul>'."\n";
     $r->print("\n".'</ul>'."\n");      $output .= '<div class="LC_DocsBox" style="clear:both;margin:0;" id="contenteditor">'.
     $r->print('<div class="LC_DocsBox" style="clear:both;margin:0;" id="contenteditor">'.                 '<div id="maincoursedoc" style="margin:0 0;padding:0 0;">'.
               '<div id="maincoursedoc" style="margin:0 0;padding:0 0;">'.                 '<div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">';
               '<div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">');      return $output;
 }  }
   
 #  #
Line 2047  sub startContentScreen { Line 2129  sub startContentScreen {
 #  #
   
 sub endContentScreen {  sub endContentScreen {
    my ($r)=@_;      return '</div></div></div>';
    $r->print('</div></div></div>');  
 }  }
   
 sub supplemental_base {  sub supplemental_base {
Line 2060  sub handler { Line 2141  sub handler {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
   # get course data
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
       my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};
       my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};
   
   # graphics settings
       $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL').'/');
   
 #  #
 # --------------------------------------------- Initialize help topics for this  # --------------------------------------------- Initialize help topics for this
Line 2094  sub handler { Line 2182  sub handler {
         $allowed = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});          $allowed = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
     }      }
   
   if ($allowed && $env{'form.verify'}) {      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['chooseserver',
                                               'inhibitmenu']);
     if ($allowed && $env{'form.chooseserver'}) {
         &choose_dump_server($r);
         return OK;
     } elsif ($allowed && $env{'form.verify'}) {
       &init_breadcrumbs('verify','Verify Content');        &init_breadcrumbs('verify','Verify Content');
       &verifycontent($r);        &verifycontent($r);
   } elsif ($allowed && $env{'form.listsymbs'}) {    } elsif ($allowed && $env{'form.listsymbs'}) {
       &init_breadcrumbs('listsymbs','List Symbs');        &init_breadcrumbs('listsymbs','List Content IDs');
       &list_symbs($r);        &list_symbs($r);
   } elsif ($allowed && $env{'form.docslog'}) {    } elsif ($allowed && $env{'form.docslog'}) {
       &init_breadcrumbs('docslog','Show Log');        &init_breadcrumbs('docslog','Show Log');
       &docs_change_log($r);        my $folder = $env{'form.folder'};
         if ($folder eq '') {
             $folder='default';
         }
         &docs_change_log($r,$coursenum,$coursedom,$folder,$allowed,$crstype,$iconpath);
   } elsif ($allowed && $env{'form.versions'}) {    } elsif ($allowed && $env{'form.versions'}) {
       &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().' Documents to Construction Space');        &init_breadcrumbs('dumpcourse','Dump '.&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 2115  sub handler { Line 2212  sub handler {
   } else {    } else {
 #  #
 # Done catching special calls  # Done catching special calls
 # The whole rest is for course and supplemental documents  # The whole rest is for course and supplemental documents and utilities menu
 # Get the parameters that may be needed  # Get the parameters that may be needed
 #  #
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['folderpath','pagepath',                                              ['folderpath','pagepath',
                                              'pagesymb','forcesupplement','forcestandard',                                               'pagesymb','forcesupplement','forcestandard',
                                              'symb','command']);                                               'tools','symb','command']);
   
 # standard=1: this is a "new-style" course with an uploaded map as top level  # standard=1: this is a "new-style" course with an uploaded map as top level
 # standard=2: this is a "old-style" course, and there is nothing we can do  # standard=2: this is a "old-style" course, and there is nothing we can do
   
     my $standard=($env{'request.course.uri'}=~/^\/uploaded\//);      my $standard=($env{'request.course.uri'}=~/^\/uploaded\//);
   
 # Decide whether this should display supplemental or main content  # Decide whether this should display supplemental or main content or utilities
 # supplementalflag=1: show supplemental documents  # supplementalflag=1: show supplemental documents
 # supplementalflag=0: show standard documents  # supplementalflag=0: show standard documents
   # toolsflag=1: show utilities
   
   
     my $supplementalflag=($env{'form.folderpath'}=~/^supplemental/);      my $supplementalflag=($env{'form.folderpath'}=~/^supplemental/);
Line 2141  sub handler { Line 2239  sub handler {
     if ($env{'form.forcestandard'})   { $supplementalflag=0; }      if ($env{'form.forcestandard'})   { $supplementalflag=0; }
     unless ($allowed) { $supplementalflag=1; }      unless ($allowed) { $supplementalflag=1; }
     unless ($standard) { $supplementalflag=1; }      unless ($standard) { $supplementalflag=1; }
       my $toolsflag=0;
       if ($env{'form.tools'}) { $toolsflag=1; }
   
     my $script='';      my $script='';
     my $showdoc=0;      my $showdoc=0;
Line 2263  sub handler { Line 2363  sub handler {
     }      }
   
 # Store this  # Store this
     &Apache::loncommon::store_course_settings($stored_folderpath,      unless ($toolsflag) {
                                                 {'pagepath' => 'scalar',          &Apache::loncommon::store_course_settings($stored_folderpath,
                                                  'folderpath' => 'scalar'});                                                    {'pagepath' => 'scalar',
                                                      'folderpath' => 'scalar'});
     if ($env{'form.folderpath'}) {          if ($env{'form.folderpath'}) {
  my (@folderpath)=split('&',$env{'form.folderpath'});      my (@folderpath)=split('&',$env{'form.folderpath'});
  $env{'form.foldername'}=&unescape(pop(@folderpath));      $env{'form.foldername'}=&unescape(pop(@folderpath));
  $env{'form.folder'}=pop(@folderpath);      $env{'form.folder'}=pop(@folderpath);
         $container='sequence';              $container='sequence';
     }          }
     if ($env{'form.pagepath'}) {          if ($env{'form.pagepath'}) {
         my (@pagepath)=split('&',$env{'form.pagepath'});              my (@pagepath)=split('&',$env{'form.pagepath'});
         $env{'form.pagename'}=&unescape(pop(@pagepath));              $env{'form.pagename'}=&unescape(pop(@pagepath));
         $env{'form.folder'}=pop(@pagepath);              $env{'form.folder'}=pop(@pagepath);
         $container='page';              $container='page';
         $containertag = '<input type="hidden" name="pagepath" value="" />'.              $containertag = '<input type="hidden" name="pagepath" value="" />'.
                 '<input type="hidden" name="pagesymb" value="" />';                      '<input type="hidden" name="pagesymb" value="" />';
         $uploadtag =               $uploadtag = 
             '<input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />'.                  '<input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />'.
     '<input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />'.          '<input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />'.
             '<input type="hidden" name="folderpath" value="" />';                  '<input type="hidden" name="folderpath" value="" />';
     } else {          } else {
         my $folderpath=$env{'form.folderpath'};              my $folderpath=$env{'form.folderpath'};
         if (!$folderpath) {              if (!$folderpath) {
             if ($env{'form.folder'} eq '' ||                  if ($env{'form.folder'} eq '' ||
                 $env{'form.folder'} eq 'supplemental') {                      $env{'form.folder'} eq 'supplemental') {
                 $folderpath='default&'.                      $folderpath='default&'.
                     &escape(&mt('Main '.$crstype.' Documents'));                          &escape(&mt('Main '.$crstype.' Documents'));
                   }
               }
               $containertag = '<input type="hidden" name="folderpath" value="" />';
               $uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
           }
           if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
              $showdoc='/'.$1;
           }
           if ($showdoc) { # got called in sequence from course
       $allowed=0; 
           } else {
               if ($allowed) {
                   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
                   $script=&Apache::lonratedt::editscript('simple');
             }              }
         }          }
         $containertag = '<input type="hidden" name="folderpath" value="" />';  
         $uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';  
     }  
     if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {  
        $showdoc='/'.$1;  
     }  
     if ($showdoc) { # got called in sequence from course  
  $allowed=0;   
     } else {  
        if ($allowed) {  
          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);  
          $script=&Apache::lonratedt::editscript('simple');  
        }  
     }      }
   
 # get course data  
     my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};  
     my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};  
   
 # get personal data  # get personal data
     my $uname=$env{'user.name'};      my $uname=$env{'user.name'};
     my $udom=$env{'user.domain'};      my $udom=$env{'user.domain'};
     my $plainname=&escape(&Apache::loncommon::plainname($uname,$udom));      my $plainname=&escape(&Apache::loncommon::plainname($uname,$udom));
   
 # graphics settings  
   
     $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/");  
   
     if ($allowed) {      if ($allowed) {
         my @tabids;          if ($toolsflag) {
         if ($supplementalflag) {              $script .= &inject_data_js();
             @tabids = ('002','ee2','ff2');              my ($home,$other,%outhash)=&authorhosts();
               if (!$home && $other) {
                   my @hosts;
                   foreach my $aurole (keys(%outhash)) {
                       unless(grep(/^\Q$outhash{$aurole}\E/,@hosts)) {
                           push(@hosts,$outhash{$aurole});
                       }
                   }
                   $script .= &dump_switchserver_js(@hosts); 
               }
         } else {          } else {
             @tabids = ('aa1','bb1','cc1','ff1');              my @tabids;
             unless ($env{'form.pagepath'}) {              if ($supplementalflag) {
                 unshift(@tabids,'001');                  @tabids = ('002','ee2','ff2');
                 push(@tabids,('dd1','ee1'));              } else {
                   @tabids = ('aa1','bb1','cc1','ff1');
                   unless ($env{'form.pagepath'}) {
                       unshift(@tabids,'001');
                       push(@tabids,('dd1','ee1'));
                   }
             }              }
               my $tabidstr = join("','",@tabids);
       $script .= &editing_js($udom,$uname,$supplementalflag).
                          &history_tab_js().
                          &inject_data_js().
                          &Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr);
               $addentries = {
                               onload   => "javascript:resize_scrollbox('contentscroll','1','1');",
                             };
         }          }
         my $tabidstr = join("','",@tabids);  
  $script .= &editing_js($udom,$uname,$supplementalflag).  
                    &resize_contentdiv_js($tabidstr);  
         $addentries = {  
                         onload   => "javascript:resize_contentdiv('contentscroll','1','1');",  
                       };  
     }      }
 # -------------------------------------------------------------------- Body tag  # -------------------------------------------------------------------- Body tag
     $script = '<script type="text/javascript">'."\n"      $script = '<script type="text/javascript">'."\n"
Line 2358  sub handler { Line 2467  sub handler {
                                                  })                                                   })
                  .&Apache::loncommon::help_open_menu('','',273,'RAT')                   .&Apache::loncommon::help_open_menu('','',273,'RAT')
                  .&Apache::lonhtmlcommon::breadcrumbs(                   .&Apache::lonhtmlcommon::breadcrumbs(
                      'Editing the Table of Contents for your '.$crstype,                       'Editing '.$crstype.' Contents',
                      'Docs_Adding_Course_Doc')                       'Docs_Adding_Course_Doc')
         );          );
     } else {      } else {
Line 2403  sub handler { Line 2512  sub handler {
           my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};            my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
           my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};            my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
           my ($destination,$dir_root) = &embedded_destination();            my ($destination,$dir_root) = &embedded_destination();
           $r->print(&Apache::loncommon::modify_html_refs('coursedoc',$destination,            my $result = 
                                                          $docuname,$docudom,undef,                &Apache::loncommon::modify_html_refs('coursedoc',$destination,
                                                          $dir_root).                                                     $docuname,$docudom,undef,
                    &return_to_editor());                                                     $dir_root);
             $r->print($result.&return_to_editor());   
       } elsif ($env{'form.phase'} eq 'decompress_uploaded') {        } elsif ($env{'form.phase'} eq 'decompress_uploaded') {
           $uploadphase = 'decompress_phase_one';            $uploadphase = 'decompress_phase_one';
           $r->print(&decompression_phase_one().            $r->print(&decompression_phase_one().
Line 2418  sub handler { Line 2528  sub handler {
       }        }
   }    }
   
   unless ($showdoc || $uploadphase) {      if ($allowed && $toolsflag) {
         $r->print(&startContentScreen('tools'));
         $r->print(&generate_admin_menu($crstype));
         $r->print(&endContentScreen());
     } elsif ((!$showdoc) && (!$uploadphase)) {
 # -----------------------------------------------------------------------------  # -----------------------------------------------------------------------------
        my %lt=&Apache::lonlocal::texthash(         my %lt=&Apache::lonlocal::texthash(
                 'uplm' => 'Upload a new main '.lc($crstype).' document',                  'uplm' => 'Upload a new main '.lc($crstype).' document',
Line 2428  sub handler { Line 2542  sub handler {
                 'upld' => 'Import Document',                  'upld' => 'Import Document',
                 'srch' => 'Search',                  'srch' => 'Search',
                 'impo' => 'Import',                  'impo' => 'Import',
  'wish' => 'Import from Wishlist',                  'lnks' => 'Import from Stored Links',
                 'selm' => 'Select Map',                  'selm' => 'Select Map',
                 'load' => 'Load Map',                  'load' => 'Load Map',
                 'reco' => 'Recover Deleted Documents',                  'reco' => 'Recover Deleted Documents',
Line 2496  SEDFFORM Line 2610  SEDFFORM
  my @simpleeditdefaultforma = (    my @simpleeditdefaultforma = ( 
  { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'"  onclick="javascript:groupsearch()" />' => "$uploadtag<a class='LC_menubuttons_link' href='javascript:groupsearch()'>$lt{'srch'}</a>" },   { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'"  onclick="javascript:groupsearch()" />' => "$uploadtag<a class='LC_menubuttons_link' href='javascript:groupsearch()'>$lt{'srch'}</a>" },
  { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'"  onclick="javascript:groupimport();"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },   { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'"  onclick="javascript:groupimport();"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },
  { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/wishlist.png" alt="'.$lt{wish}.'" onclick="javascript:open_Wishlist_Import();" />' => "<a class='LC_menubuttons_link' href='javascript:open_Wishlist_Import();'>$lt{'wish'}</a>" },          { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/wishlist.png" alt="'.$lt{lnks}.'" onclick="javascript:open_StoredLinks_Import();" />' => "<a class='LC_menubuttons_link' href='javascript:open_StoredLinks_Import();'>$lt{'lnks'}</a>" },
  );   );
  $simpleeditdefaultform .= &create_form_ul(&create_list_elements(@simpleeditdefaultforma));   $simpleeditdefaultform .= &create_form_ul(&create_list_elements(@simpleeditdefaultforma));
  $simpleeditdefaultform .=(<<SEDFFORM);   $simpleeditdefaultform .=(<<SEDFFORM);
Line 2521  ERFORM Line 2635  ERFORM
   
     if ($allowed) {      if ($allowed) {
  &update_paste_buffer($coursenum,$coursedom);   &update_paste_buffer($coursenum,$coursedom);
        my %lt=&Apache::lonlocal::texthash(  
  'vc' => 'Verify Content',  
  'cv' => 'Check/Set Resource Versions',  
  'ls' => 'List Symbs',  
                                          'sl' => 'Show Log'  
   );  
   
  $r->print(<<HIDDENFORM);   $r->print(<<HIDDENFORM);
  <form name="renameform" method="post" action="/adm/coursedocs">   <form name="renameform" method="post" action="/adm/coursedocs">
    <input type="hidden" name="title" />     <input type="hidden" name="title" />
Line 2536  ERFORM Line 2643  ERFORM
    <input type="hidden" name="copyfolder" />     <input type="hidden" name="copyfolder" />
    $containertag     $containertag
  </form>   </form>
  <form name="simpleedit" method="post" action="/adm/coursedocs">  
    <input type="hidden" name="importdetail" value="" />  
    $uploadtag  
  </form>  
 HIDDENFORM  HIDDENFORM
           $r->print(&makesimpleeditform($uploadtag)."\n".
                     &makedocslogform($uploadtag."\n".
                                      '<input type="hidden" name="folder" value="'.
                                      $env{'form.folder'}.'" />'."\n"));
     }      }
   
 # Generate the tabs  # Generate the tabs
Line 2548  HIDDENFORM Line 2656  HIDDENFORM
     if (($supplementalflag) && (!$allowed)) {      if (($supplementalflag) && (!$allowed)) {
         &Apache::lonnavdisplay::startContentScreen($r,'supplemental');          &Apache::lonnavdisplay::startContentScreen($r,'supplemental');
     } else {      } else {
         &startContentScreen($r,($supplementalflag?'suppdocs':'docs'));          $r->print(&startContentScreen(($supplementalflag?'suppdocs':'docs')));
     }      }
   
 #  #
Line 2585  HIDDENFORM Line 2693  HIDDENFORM
  }   }
  my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;   my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;
   
   
   
  my $recoverform=(<<RFORM);  
  <form action="/adm/groupsort" method="post" name="recover">  
  <a class="LC_menubuttons_link" href="javascript:groupopen('$readfile',1)">$lt{'reco'}</a>  
  </form>  
 RFORM  
   
  my $imspform=(<<IMSPFORM);   my $imspform=(<<IMSPFORM);
  <form action="/adm/imsimportdocs" method="post" name="ims">   <form action="/adm/imsimportdocs" method="post" name="ims">
  <input type="hidden" name="folder" value="$folder" />   <input type="hidden" name="folder" value="$folder" />
Line 2776  NGFFORM Line 2876  NGFFORM
         );          );
         $communityform = &create_form_ul(&create_list_elements(@communityforma));          $communityform = &create_form_ul(&create_list_elements(@communityforma));
   
   
   
 my @tools = (  
 # {'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" />'=>$extresourcesform},  
 # {'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/ims.png" alt="'.$lt{imsf}.'" />'=>$imspform},  
  {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/recover.png" alt="'.$lt{reco}.'" onclick="javascript:groupopen(\''.$readfile.'\',1)" />'=>$recoverform},  
  );  
   
 my %orderhash = (  my %orderhash = (
                 'aa' => ['Import Documents',$fileuploadform],                  'aa' => ['Import Documents',$fileuploadform],
                 'bb' => ['Published Resources',$simpleeditdefaultform],                  'bb' => ['Published Resources',$simpleeditdefaultform],
                 'cc' => ['Grading Resources',$gradingform],                  'cc' => ['Grading Resources',$gradingform],
  'ff' => ['Tools', &create_form_ul(&create_list_elements(@tools)).&generate_admin_options(\%help,\%env)],  
                 );                  );
 unless ($env{'form.pagepath'}) {  unless ($env{'form.pagepath'}) {
     $orderhash{'00'} = ['Newfolder',$newfolderform];      $orderhash{'00'} = ['Newfolder',$newfolderform];
     $orderhash{'dd'} = ['Community Resources',$communityform];      $orderhash{'dd'} = ['Collaboration',$communityform];
     $orderhash{'ee'} = ['Special Documents',$specialdocumentsform];      $orderhash{'ee'} = ['Special Documents',$specialdocumentsform];
 }  }
   
  $hadchanges=0;   $hadchanges=0;
        unless ($supplementalflag) {         unless (($supplementalflag || $toolsflag)) {
           my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,            my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
                               $supplementalflag,\%orderhash,$iconpath);                                $supplementalflag,\%orderhash,$iconpath);
           if ($error) {            if ($error) {
Line 2924  my %suporderhash = ( Line 3015  my %suporderhash = (
         }          }
     }      }
   
     &endContentScreen($r);      $r->print(&endContentScreen());
   
     if ($allowed) {      if ($allowed) {
  $r->print('   $r->print('
Line 2935  my %suporderhash = ( Line 3026  my %suporderhash = (
   <input type="hidden" name="residx" />    <input type="hidden" name="residx" />
 </form>');  </form>');
     }      }
   } else {    } elsif ($showdoc) {
       unless ($uploadphase) {  
 # -------------------------------------------------------- This is showdoc mode  # -------------------------------------------------------- This is showdoc mode
           $r->print("<h1>".&mt('Uploaded Document').' - '.        $r->print("<h1>".&mt('Uploaded Document').' - '.
  &Apache::lonnet::gettitle($r->uri).'</h1><p>'.   &Apache::lonnet::gettitle($r->uri).'</h1><p>'.
 &mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><table>".  &mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><table>".
           &entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table>');                  &entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table>');
       }  
   }    }
  }   }
  $r->print(&Apache::loncommon::end_page());   $r->print(&Apache::loncommon::end_page());
Line 2991  sub decompression_info { Line 3080  sub decompression_info {
     my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};      my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
     my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};      my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
     my $container='sequence';      my $container='sequence';
     my $hiddenelem;      my ($pathitem,$hiddenelem);
       my @hiddens = ('newidx','comment','position');
     if ($env{'form.pagepath'}) {      if ($env{'form.pagepath'}) {
         $container='page';          $container='page';
         $hiddenelem = '<input type="hidden" name="pagepath" value="'.$env{'form.pagepath'}.'" />'."\n";          $pathitem = 'pagepath';
     } else {      } else {
         $hiddenelem = '<input type="hidden" name="folderpath" value="'.$env{'form.folderpath'}.'" />'."\n";          $pathitem = 'folderpath';
     }      }
     if ($env{'form.newidx'}) {      unshift(@hiddens,$pathitem);
         $hiddenelem .= '<input type="hidden" name="newidx" value="'.$env{'form.newidx'}.'" />'."\n";      foreach my $item (@hiddens) {
     }          if ($env{'form.'.$item}) {
     if ($env{'form.comment'}) {              $hiddenelem .= '<input type="hidden" name="'.$item.'" value="'.
         $hiddenelem .= '<input type="hidden" name="comment" value="'.$env{'form.comment'}.'" />'."\n";                             $env{'form.'.$item}.'" />'."\n";
           }
     }      }
     return ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,      return ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,
             $hiddenelem);              $hiddenelem);
Line 3016  sub decompression_phase_one { Line 3107  sub decompression_phase_one {
         $error = &mt('Archive file "[_1]" not in the expected location.',$env{'form.archiveurl'});          $error = &mt('Archive file "[_1]" not in the expected location.',$env{'form.archiveurl'});
     } else {      } else {
         my $file = $1;          my $file = $1;
         $output = &Apache::loncommon::process_decompression($docudom,$docuname,$file,$destination,$dir_root,$hiddenelem);          $output = 
         if ($env{'form.archivedelete'}) {              &Apache::loncommon::process_decompression($docudom,$docuname,$file,
             my $map = $env{'form.folder'}.'.'.$container;                                                        $destination,$dir_root,
             my ($delwarning,$delresult);                                                        $hiddenelem);
             my ($errtext,$fatal) = &mapread($docuname,$docudom,$map);          if ($env{'form.autoextract_camtasia'}) {
             if ($fatal) {              $output .= &remove_archive($docudom,$docuname,$container);
                 if ($container eq 'page') {  
                     $delwarning = &mt('An error occurred retrieving the contents of the current page.');  
                 } else {  
                     $delwarning = &mt('An error occurred retrieving the contents of the current folder.');  
                 }  
                 $delwarning .= &mt('As a result the archive file has not been removed.');  
             } else {  
                 my $currcmd = $env{'form.cmd'};  
                 $env{'form.cmd'} = 'del_'.$env{'form.position'};  
                 if (&handle_edit_cmd($docuname,$docudom)) {  
                     ($errtext,$fatal) = &storemap($docuname,$docudom,$map);  
                     if ($fatal) {  
                         if ($container eq 'page') {  
                             $delwarning = &mt('An error occurred updating the contents of the current page.');  
                         } else {  
                             $delwarning = &mt('An error occurred updating the contents of the current folder.');  
                         }  
                     }  
                 }  
                 $env{'form.cmd'} = $currcmd;  
                 $delresult = &mt('Archive file removed after extracting files.');  
             }  
             if ($delwarning) {  
                 $output .= '<p class="LC_warning">'.  
                            $delwarning.  
                            '</p>';  
             }  
             if ($delresult) {  
                 $output .= '<p class="LC_info">'.  
                            $delresult.  
                            '</p>';  
             }  
         }          }
     }      }
     if ($error) {      if ($error) {
Line 3069  sub decompression_phase_one { Line 3128  sub decompression_phase_one {
 sub decompression_phase_two {  sub decompression_phase_two {
     my ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,$hiddenelem)=      my ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,$hiddenelem)=
         &decompression_info();          &decompression_info();
     my $output =       my $output;
       if ($env{'form.archivedelete'}) {
           $output = &remove_archive($docudom,$docuname,$container);
       }
       $output .= 
         &Apache::loncommon::process_extracted_files('coursedocs',$docudom,$docuname,          &Apache::loncommon::process_extracted_files('coursedocs',$docudom,$docuname,
                                                     $destination,$dir_root,$hiddenelem);                                                      $destination,$dir_root,$hiddenelem);
     return $output;      return $output;
 }  }
   
 sub generate_admin_options {  sub remove_archive {
   my ($help_ref,$env_ref) = @_;      my ($docudom,$docuname,$container) = @_;
   my %lt=&Apache::lonlocal::texthash(      my $map = $env{'form.folder'}.'.'.$container;
                                          'vc' => 'Verify Content',      my ($output,$delwarning,$delresult,$url);
                                          'cv' => 'Check/Set Resource Versions',      my ($errtext,$fatal) = &mapread($docuname,$docudom,$map);
                                          'ls' => 'List Symbs',      if ($fatal) {
                                          'sl' => 'Show Log',          if ($container eq 'page') {
                                          'imse' => 'IMS Export',              $delwarning = &mt('An error occurred retrieving the contents of the current page.');
                                          'dcd' => 'Dump Course Documents to Construction Space: available on other servers'          } else {
                                           );              $delwarning = &mt('An error occurred retrieving the contents of the current folder.');
   my %help = %{$help_ref};          }
   my %env = %{$env_ref};          $delwarning .= &mt('As a result the archive file has not been removed.');
   my $dumpbut=&dumpbutton();      } else {
   my $exportbut=&exportbutton();          my $currcmd = $env{'form.cmd'};
   my @list = (          my $position = $env{'form.position'};
  {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/verify.png" alt="'.$lt{vc}.'"  onclick=\'javascript:injectData(document.courseverify, "dummy", "verify", "'.$lt{'vc'}.'")\' />'           if ($position > 0) { 
         => "<a class='LC_menubuttons_link' href='javascript:injectData(document.courseverify, \"dummy\", \"verify\", \"$lt{'vc'}\")'>$lt{'vc'}</a>$help{'Verify_Content'}"},              $env{'form.cmd'} = 'del_'.$position;
  {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/resversion.png" alt="'.$lt{cv}.'"  onclick=\'javascript:injectData(document.courseverify, "dummy", "versions", "'.$lt{'cv'}.'")\' />'              my ($title,$url,@rrest) = 
         =>"<a class='LC_menubuttons_link' href='javascript:injectData(document.courseverify, \"dummy\", \"versions\", \"$lt{'cv'}\")'>$lt{'cv'}</a>$help{'Check_Resource_Versions'}"},                  split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$position]]);
  );              if (&handle_edit_cmd($docuname,$docudom)) {
   if($dumpbut ne ''){                  ($errtext,$fatal) = &storemap($docuname,$docudom,$map);
   push @list, {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/dump.png" alt="'.$lt{dcd}.'" />'=>$dumpbut};                  if ($fatal) {
   }                      if ($container eq 'page') {
   push @list, ({'<img class="LC_noBorder LC_middle" src="/res/adm/pages/imsexport.png" alt="'.$lt{imse}.'" onclick="javascript:injectData(document.courseverify, \'dummy\', \'exportcourse\', \''.&mt('IMS Export').'\');" />'                          $delwarning = &mt('An error occurred updating the contents of the current page.');
           =>$exportbut},                      } else {
  {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/symbs.png" alt="'.$lt{ls}.'"  onclick=\'javascript:injectData(document.courseverify, "dummy", "listsymbs", "'.$lt{'ls'}.'")\'  />'                          $delwarning = &mt('An error occurred updating the contents of the current folder.');
         =>"<a class='LC_menubuttons_link' href='javascript:injectData(document.courseverify, \"dummy\", \"listsymbs\", \"$lt{'ls'}\")'>$lt{'ls'}</a><input type='hidden' name='folder' value='$env{'form.folder'}' />"},                      }
  {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/document-properties.png" alt="'.$lt{sl}.'"  onclick=\'javascript:injectData(document.courseverify, "dummy", "docslog", "'.$lt{'sl'}.'")\'  />'                  } else {
         =>"<a class='LC_menubuttons_link' href='javascript:injectData(document.courseverify, \"dummy\", \"docslog\", \"$lt{'sl'}\")'>$lt{'sl'}</a>"},                      $delresult = &mt('Archive file removed.');
  );                  }
   return '<form action="/adm/coursedocs" method="post" name="courseverify"><input type="hidden" id="dummy" />'.&create_form_ul(&create_list_elements(@list)).'</form>';              }
           }
           $env{'form.cmd'} = $currcmd;
       }
       if ($delwarning) {
           $output = '<p class="LC_warning">'.
                      $delwarning.
                      '</p>';
       }
       if ($delresult) {
           $output .= '<p class="LC_info">'.
                      $delresult.
                      '</p>';
       }
       return $output;
 }  }
   
   sub generate_admin_menu {
       my ($crstype) = @_;
       my $lc_crstype = lc($crstype);
       my ($home,$other,%outhash)=&authorhosts();
       my %lt=&Apache::lonlocal::texthash (
                                            'vc'   => 'Verify Content',
                                            'cv'   => 'Check/Set Resource Versions',
                                            'ls'   => 'List Resource Identifiers',
                                            'imse' => 'Export contents to IMS Archive',
                                            'dcd'  => "Dump $crstype Content to Authoring Space",
                                          );
       my ($candump,$dumpurl);
       if ($home + $other > 0) {
           $candump = 'F';
           if ($home) {
               $dumpurl = "javascript:injectData(document.courseverify,'dummy','dumpcourse','$lt{'dcd'}')";
           } else {
               my @hosts;
               foreach my $aurole (keys(%outhash)) {
                   unless(grep(/^\Q$outhash{$aurole}\E/,@hosts)) {
                       push(@hosts,$outhash{$aurole});
                   }  
               }
               if (@hosts == 1) {
                   my $switchto = '/adm/switchserver?otherserver='.$hosts[0].
                                  '&amp;role='.
                                  &HTML::Entities::encode($env{'request.role'},'"<>&').'&amp;origurl='.
                                  &HTML::Entities::encode('/adm/coursedocs?dumpcourse=1','"<>&');
                   $dumpurl = "javascript:dump_needs_switchserver('$switchto')";
               } else {
                   $dumpurl = "javascript:choose_switchserver_window()";
               }
           }
       }
       my @menu=
           ({  categorytitle=>'Administration',
               items =>[
                   {   linktext   => $lt{'vc'},
                       url        => "javascript:injectData(document.courseverify,'dummy','verify','$lt{'vc'}')",
                       permission => 'F',
                       help       => 'Verify_Content',
                       icon       => 'verify.png',
                       linktitle  => 'Verify contents can be retrieved/rendered',
                   },
                   {   linktext => $lt{'cv'},
                       url => "javascript:injectData(document.courseverify,'dummy','versions','$lt{'cv'}')",
                       permission => 'F',
                       help       => 'Check_Resource_Versions',
                       icon       => 'resversion.png',
                       linktitle  => "View version information for resources in your $lc_crstype, and fix/unfix use of specific versions",
                   },
                   {   linktext   => $lt{'ls'},
                       url        => "javascript:injectData(document.courseverify,'dummy','listsymbs','$lt{'ls'}')",
                       permission => 'F',
                       #help => '',
                       icon       => 'symbs.png',
                       linktitle  => "List the unique identifier used for each resource instance in your $lc_crstype"
                   },
                   ]
           },
           {   categorytitle=>'Export',
               items =>[
                   {   linktext   => $lt{'imse'},
                       url => "javascript:injectData(document.courseverify,'dummy','exportcourse','$lt{'imse'}')",
                       permission => 'F',
                       help       => 'Docs_Export_Course_Docs',
                       icon       => 'imsexport.png',
                       linktitle  => $lt{'imse'},
                   },
                   {   linktext   => $lt{'dcd'},
                       url        => $dumpurl,
                       permission => $candump,
                       #help => '',
                       icon       => 'dump.png',
                       linktitle  => $lt{'dcd'},
                   },
                   ]
           });
       return '<form action="/adm/coursedocs" method="post" name="courseverify">'."\n".
              '<input type="hidden" id="dummy" />'."\n".
              &Apache::lonhtmlcommon::generate_menu(@menu)."\n".
              '</form>';
   }
   
 sub generate_edit_table {  sub generate_edit_table {
     my ($tid,$orderhash_ref,$to_show,$iconpath,$jumpto) = @_;      my ($tid,$orderhash_ref,$to_show,$iconpath,$jumpto,$readfile) = @_;
     return unless(ref($orderhash_ref) eq 'HASH');      return unless(ref($orderhash_ref) eq 'HASH');
     my %orderhash = %{$orderhash_ref};      my %orderhash = %{$orderhash_ref};
     my $form;      my $form;
Line 3121  sub generate_edit_table { Line 3280  sub generate_edit_table {
         $activetab = $env{'form.active'};          $activetab = $env{'form.active'};
     }      }
     my $backicon = $iconpath.'clickhere.gif';      my $backicon = $iconpath.'clickhere.gif';
     my $backtext = &mt('Back to Overview');      my $backtext = &mt('To Overview');
     $form = '<div class="LC_Box" style="margin:0;">'.      $form = '<div class="LC_Box" style="margin:0;">'.
              '<ul id="navigation'.$tid.'" class="LC_TabContent">'.               '<ul id="navigation'.$tid.'" class="LC_TabContent">'."\n".
              '<li class="goback">'.               '<li class="goback">'.
              '<a href="javascript:toContents('."'$jumpto'".');">'.               '<a href="javascript:toContents('."'$jumpto'".');">'.
              '<img src="'.$backicon.'" class="LC_icon" style="border: none; vertical-align: top;"'.               '<img src="'.$backicon.'" class="LC_icon" style="border: none; vertical-align: top;"'.
              '  alt="'.$backtext.'" />'.$backtext.'</a></li>';               '  alt="'.$backtext.'" />'.$backtext.'</a></li>'."\n";
       if ($tid == 1) {
           $form .= '<li>'.
                    '<a href="javascript:groupopen('."'$readfile'".',1);">'.
                    &mt('Undo Delete').'</a></li>'."\n";
           if ($env{'form.docslog'}) {
               $form .= '<li class="active">';
           } else {
               $form .= '<li>';
           }
           $form .= '<a href="javascript:toggleHistoryDisp(1);">'.
                     &mt('History').'</a></li>'."\n";
           if ($env{'form.docslog'}) {
               $form .= '<li><a href="javascript:toggleHistoryDisp(0);">'.
                     &mt('Edit').'</a></li>'."\n";
           }
       }
     foreach my $name (reverse(sort(keys(%orderhash)))) {      foreach my $name (reverse(sort(keys(%orderhash)))) {
         if($name ne '00'){          if($name ne '00'){
             if($activetab eq '' || $activetab ne $name){              if($activetab eq '' || $activetab ne $name){
Line 3137  sub generate_edit_table { Line 3312  sub generate_edit_table {
             }              }
             $form .= '<li style="float:right" '.$active              $form .= '<li style="float:right" '.$active
                 .' onmouseover="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');"'                  .' onmouseover="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');"'
                 .' onclick="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');"><a href="javascript:;"><b>'.&mt(${$orderhash{$name}}[0]).'</b></a></li>';                  .' 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>';      $form .= '<li '.$active.' style="float:right">'.${$orderhash{$name}}[1].'</li>'."\n";
   
  }   }
     }      }
     $form .= '</ul>';      $form .= '</ul>'."\n";
     $form .= '<div id="content'.$tid.'" style="padding: 0 0; margin: 0 0; overflow: hidden; clear:right">';      $form .= '<div id="content'.$tid.'" style="padding: 0 0; margin: 0 0; overflow: hidden; clear:right">'."\n";
   
     if ($to_show ne '') {      if ($to_show ne '') {
         $form .= '<div style="padding:0;margin:0;float:left">'.$to_show.'</div>';          $form .= '<div style="padding:0;margin:0;float:left">'.$to_show.'</div>'."\n";
     }      }
     foreach my $field (keys(%orderhash)){      foreach my $field (keys(%orderhash)){
  if($field ne '00'){   if($field ne '00'){
Line 3158  sub generate_edit_table { Line 3333  sub generate_edit_table {
             }              }
             $form .= '<div id="'.$field.$tid.'"'              $form .= '<div id="'.$field.$tid.'"'
                     .' class="LC_ContentBox" '.$active.'>'.${$orderhash{$field}}[1]                      .' class="LC_ContentBox" '.$active.'>'.${$orderhash{$field}}[1]
                     .'</div>';                      .'</div>'."\n";
         }          }
     }      }
     $form .= '</div></div>';      unless ($env{'form.docslog'}) {
           $form .= '</div></div>'."\n";
       }
     return $form;      return $form;
 }  }
   
Line 3315  newWindow = window.open("","IMSimport"," Line 3491  newWindow = window.open("","IMSimport","
 newWindow.location.href = newlocation;  newWindow.location.href = newlocation;
 }  }
   
   
 function finishpick() {  function finishpick() {
 var title=this.document.forms.extimport.title.value;  var title=this.document.forms.extimport.title.value;
 var url=this.document.forms.extimport.url.value;  var url=this.document.forms.extimport.url.value;
Line 3509  function showPage(current, pageId, nav, Line 3684  function showPage(current, pageId, nav,
                 }                  }
             }              }
         }          }
         resize_contentdiv('contentscroll','1','0');          resize_scrollbox('contentscroll','1','0');
  return false;   return false;
 }  }
   
 function injectData(current, hiddenField, name, value) {  
  currentElement = document.getElementById(hiddenField);  
  currentElement.name = name;  
  currentElement.value = value;  
  current.submit();  
 }  
   
 function toContents(jumpto) {  function toContents(jumpto) {
     var newurl = '$backtourl';      var newurl = '$backtourl';
     if (jumpto != '') {      if (jumpto != '') {
Line 3532  function toContents(jumpto) { Line 3700  function toContents(jumpto) {
 ENDNEWSCRIPT  ENDNEWSCRIPT
 }  }
   
 sub resize_contentdiv_js {  sub history_tab_js {
     my ($tabidstr) = @_;      return <<"ENDHIST";
     my $viewport_js = &Apache::loncommon::viewport_geometry_js();  function toggleHistoryDisp(choice) {
     return <<ENDRESIZESCRIPT;      document.docslogform.docslog.value = choice;
       document.docslogform.submit();
 window.onresize=resizeContentEditor;      return;
   }
 var activeTab;  
   
 $viewport_js  
   
 function resize_contentdiv(scrollboxname,chkw,chkh) {  
     var scrollboxid = 'div_'+scrollboxname;  
     var scrolltableid = 'table_'+scrollboxname;  
     var scrollbox;  
     var scrolltable;  
   
     if (document.getElementById("contenteditor") == null) {  ENDHIST
         return;  }
     }  
   
     if (document.getElementById(scrollboxid) == null) {  sub inject_data_js {
         return;      return <<ENDINJECT;
     } else {  
         scrollbox = document.getElementById(scrollboxid);  
     }  
   
     if (document.getElementById(scrolltableid) == null) {  function injectData(current, hiddenField, name, value) {
         return;          currentElement = document.getElementById(hiddenField);
     } else {          currentElement.name = name;
         scrolltable = document.getElementById(scrolltableid);          currentElement.value = value;
     }          current.submit();
   }
   
     init_geometry();  ENDINJECT
     var vph = Geometry.getViewportHeight();  }
     var vpw = Geometry.getViewportWidth();  
   
     var alltabs = ['$tabidstr'];  
     var listwchange;  
     if (chkw == 1) {  
         var contenteditorw = document.getElementById("contenteditor").offsetWidth;  
         var contentlistw;  
         var contentlistid = document.getElementById("contentlist");  
         if (contentlistid != null) {  
             contentlistw = document.getElementById("contentlist").offsetWidth;  
         }  
         var contentlistwstart = contentlistw;  
   
         var scrollboxw = scrollbox.offsetWidth;  
         var scrollboxscrollw = scrollbox.scrollWidth;  
   
         var offsetw = parseInt(vpw * 0.015);  
         var paddingw = parseInt(vpw * 0.09);  
   
         var minscrollboxw = 250;  
   
         var maxtabw = 0;  
         var actabw = 0;  
         for (var i=0; i<alltabs.length; i++) {  
             if (activeTab == alltabs[i]) {  
                 actabw = document.getElementById(alltabs[i]).offsetWidth;  
                 if (actabw > maxtabw) {  
                     maxtabw = actabw;  
                 }  
             } else {  
                 if (document.getElementById(alltabs[i]) != null) {  
                     var thistab = document.getElementById(alltabs[i]);  
                     thistab.style.visibility = 'hidden';  
                     thistab.style.display = 'block';  
                     var tabw = document.getElementById(alltabs[i]).offsetWidth;  
                     thistab.style.display = 'none';  
                     thistab.style.visibility = '';  
                     if (tabw > maxtabw) {  
                         maxtabw = tabw;  
                     }  
                 }  
             }  
         }  
   
         if (maxtabw > 0) {  sub dump_switchserver_js {
             var newscrollboxw;      my @hosts = @_;
             if (maxtabw+paddingw+scrollboxscrollw<contenteditorw) {      my %lt = &Apache::lonlocal::texthash(
                 newscrollboxw = contenteditorw-paddingw-maxtabw;          dump => 'Dumping to Authoring Space requires switching server.',
                 if (newscrollboxw < minscrollboxw) {          swit => 'Switch server?',
                     newscrollboxw = minscrollboxw;          duco => 'Dump content to Authoring Space',
                 }          yone => 'You need to switch to a server housing an Authoring Space for which you are author or co-author.',
                 scrollbox.style.width = newscrollboxw+"px";          chos => 'Choose server',
                 if (newscrollboxw != scrollboxw) {      );
                     var newcontentlistw = newscrollboxw-offsetw;      my $role = $env{'request.role'};
                     contentlistid.style.width = newcontentlistw+"px";      my $js = <<"ENDSWJS";
                 }  <script type="text/javascript">
             } else {  function write_switchserver() {
                 newscrollboxw = contenteditorw-paddingw-maxtabw;      var server;
                 if (newscrollboxw < minscrollboxw) {      if (document.setserver.posshosts.length > 0) {
                     newscrollboxw = minscrollboxw;          for (var i=0; i<document.setserver.posshosts.length; i++) {
                 }              if (document.setserver.posshosts[i].checked) {
                 scrollbox.style.width = newscrollboxw+"px";                  server = document.setserver.posshosts[i].value;
                 if (newscrollboxw != scrollboxw) {  
                     var newcontentlistw = newscrollboxw-offsetw;  
                     contentlistid.style.width = newcontentlistw+"px";  
                 }  
             }              }
          }
          opener.document.location.href="/adm/switchserver?otherserver="+server+"&role=$role&origurl=/adm/coursedocs";
       }
       window.close();
   }
   </script>
   
             if (newscrollboxw != scrollboxw) {  ENDSWJS
                 var newscrolltablew = newscrollboxw+offsetw;  
                 scrolltable.style.width = newscrolltablew+"px";  
             }  
         }  
   
         if (contentlistid.offsetWidth != contentlistwstart) {      my $startpage = &Apache::loncommon::start_page('Choose server',$js,
             listwchange = 1;                                                     {'only_body' => 1,
         }                                                      'js_ready'  => 1,});
       my $endpage = &Apache::loncommon::end_page({'js_ready'  => 1});
   
         if (activeTab == 'cc1') {      my $hostpicker;
             if (document.getElementById('cc_hrule') != null) {      my $count = 0;
                 document.getElementById('cc_hrule').style.width=actabw+"px";      foreach my $host (sort(@hosts)) {
             }          my $checked;
         } else {          if ($count == 0) {
             if (activeTab == 'bb1') {              $checked = ' checked="checked"';
                 if (document.getElementById('bb_hrule') != null) {  
                     document.getElementById('bb_hrule').style.width=actabw+"px";  
                 }  
             } else {  
                 if (activeTab == 'ee2') {  
                     if (document.getElementById('ee_hrule') != null) {  
                         document.getElementById('ee_hrule').style.width=actabw+"px";  
                     }  
                 }  
             }  
         }          }
           $hostpicker .= '<label><input type="radio" name="posshosts" value="'.
                          $host.'"'.$checked.' />'.$host.'</label>&nbsp;&nbsp;';
           $count++;
     }      }
     if ((chkh == 1) || (listwchange)) {      
         var primaryheight = document.getElementById("LC_nav_bar").offsetHeight;      return <<"ENDSWITCHJS";
         var secondaryheight = document.getElementById("LC_secondary_menu").offsetHeight;  
         var crumbsheight = document.getElementById("LC_breadcrumbs").offsetHeight;  
         var dccidheight = document.getElementById("dccid").offsetHeight;  
   
         var uploadresultheight = 0;  
         if (document.getElementById("uploadfileresult") != null) {  
             uploadresultheight = document.getElementById("uploadfileresult").offsetHeight;  
         }  
         var tabbedheight = document.getElementById("tabbededitor").offsetHeight;  
         var contenteditorheight = document.getElementById("contenteditor").offsetHeight;  
         var scrollboxheight = scrollbox.offsetHeight;  
         var scrollboxscrollheight = scrollbox.scrollHeight;  
         var freevspace = vph-(primaryheight+secondaryheight+crumbsheight+dccidheight+uploadresultheight+tabbedheight+contenteditorheight);  
   
         var minvscrollbox = 200;  
         var offsetv = 20;  
         var newscrollboxheight;  
         if (freevspace < 0) {  
             newscrollboxheight = scrollboxheight+freevspace-offsetv;  
             if (newscrollboxheight < minvscrollbox) {  
                 newscrollboxheight = minvscrollbox;  
             }  
             scrollbox.style.height = newscrollboxheight + "px";  
         } else {  
             if (scrollboxscrollheight > scrollboxheight) {  
                 if (freevspace > offsetv) {  
                     newscrollboxheight = scrollboxheight+freevspace-offsetv;  
                     if (newscrollboxheight < minvscrollbox) {  
                         newscrollboxheight = minvscrollbox;  
                     }  
                     scrollbox.style.height = newscrollboxheight+"px";  
                 }  
             }  
         }  
         scrollboxheight = scrollbox.offsetHeight;  
         var contentlistheight = document.getElementById("contentlist").offsetHeight;  
   
         if (scrollboxscrollheight <= scrollboxheight) {  function dump_needs_switchserver(url) {
             if ((contentlistheight+offsetv)<scrollboxheight) {      if (url!='' && url!= null) {
                 newscrollheight = contentlistheight+offsetv;          if (confirm("$lt{'dump'}\\n$lt{'swit'}")) {
                 scrollbox.style.height = newscrollheight+"px";              go(url);
             }  
         }          }
     }      }
     return;      return;
 }  }
   
 function resizeContentEditor() {  function choose_switchserver_window() {
     var timer;      newWindow = window.open('','ChooseServer','height=400,width=500,scrollbars=yes')
     clearTimeout(timer)      newWindow.document.open();
     timer=setTimeout('resize_contentdiv("contentscroll","1","1")',500);      newWindow.document.writeln('$startpage');
       newWindow.document.write('<h3>$lt{'duco'}<\\/h3>\\n'+
          '<p>$lt{'yone'}<\\/p>\\n'+
          '<div class="LC_left_float"><fieldset><legend>$lt{'chos'}<\\/legend>\\n'+
          '<form name="setserver" method="post" action="" \\/>\\n'+
          '$hostpicker\\n'+
          '<br \\/><br \\/>\\n'+
          '<input type="button" name="makeswitch" value="$lt{'swit'}" '+
          'onclick="write_switchserver();" \\/>\\n'+
          '<\\/form><\\/fieldset><\\/div><br clear="all" \\/>\\n');
       newWindow.document.writeln('$endpage');
       newWindow.document.close();
       newWindow.focus();
   }
   
   ENDSWITCHJS
   }
   
   sub makedocslogform {
       my ($formelems,$docslog) = @_;
       return <<"LOGSFORM";
    <form action="/adm/coursedocs" method="post" name="docslogform">
      <input type="hidden" name="docslog" value="$docslog" />
      $formelems
    </form>
   LOGSFORM
 }  }
   
 ENDRESIZESCRIPT  sub makesimpleeditform {
     return;      my ($formelems) = @_;
       return <<"SIMPFORM";
    <form name="simpleedit" method="post" action="/adm/coursedocs">
      <input type="hidden" name="importdetail" value="" />
      $formelems
    </form>
   SIMPFORM
 }  }
   
 1;  1;
Line 3754  sets @resources - array with the resourc Line 3853  sets @resources - array with the resourc
   
 Return hash with valid author names  Return hash with valid author names
   
 =item dumpbutton()  
   
 Generate "dump" button  
   
 =item clean()  =item clean()
   
 =item dumpcourse()  =item dumpcourse()
   
     Actually dump course      Actually dump course
   
   
 =item exportbutton()  
   
     Generate "export" button  
   
 =item group_import()  =item group_import()
   
     Imports the given (name, url) resources into the course      Imports the given (name, url) resources into the course
Line 3828  Check Versions Line 3918  Check Versions
   
 Breadcrumbs for special functions  Breadcrumbs for special functions
   
   =item create_list_elements()
   
   =item create_form_ul()
   
   =item startContentScreen() 
   
   =item endContentScreen()
   
   =item supplemental_base()
   
   =item embedded_form_elems()
   
   =item embedded_destination()
   
   =item return_to_editor()
   
   =item decompression_info()
   
   =item decompression_phase_one()
   
   =item decompression_phase_two()
   
   =item remove_archive()
   
   =item generate_admin_menu()
   
   =item generate_edit_table()
   
   =item editing_js()
   
   =item history_tab_js()
   
   =item inject_data_js()
   
   =item dump_switchserver_js()
   
   =item resize_scrollbox_js()
   
   =item makedocslogform()
   
   =item makesimpleeditform()
   
 =back  =back
   
 =cut  =cut
Removed from v.1.479  
changed lines
  Added in v.1.484.2.6

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