Diff for /loncom/interface/londocs.pm between versions 1.327 and 1.608

version 1.327, 2009/01/28 12:56:08 version 1.608, 2016/07/01 19:59:36
Line 1 Line 1
 # The LearningOnline Network  # The LearningOnline Network
 # Documents  # Documents
 #  #
 # $Id$  # $Id$
 #  #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #  #
 # LON-CAPA is free software; you can redistribute it and/or modify  # LON-CAPA is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by  # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or  # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.  # (at your option) any later version.
 #  #
 # LON-CAPA is distributed in the hope that it will be useful,  # LON-CAPA is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of  # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.  # GNU General Public License for more details.
 #  #
 # You should have received a copy of the GNU General Public License  # You should have received a copy of the GNU General Public License
 # along with LON-CAPA; if not, write to the Free Software  # along with LON-CAPA; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #  #
 # /home/httpd/html/adm/gpl.txt  # /home/httpd/html/adm/gpl.txt
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
   package Apache::londocs;
   
 package Apache::londocs;  use strict;
   use Apache::Constants qw(:common :http);
 use strict;  use Apache::imsexport;
 use Apache::Constants qw(:common :http);  use Apache::lonnet;
 use Apache::imsexport;  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonhtmlcommon;
 use Apache::loncommon;  use LONCAPA::map();
 use LONCAPA::map();  use Apache::lonratedt();
 use Apache::lonratedt();  use Apache::lonxml;
 use Apache::lonxml;  use Apache::lonclonecourse;
 use Apache::lonclonecourse;  use Apache::lonnavmaps;
 use Apache::lonnavmaps;  use Apache::lonnavdisplay();
 use HTML::Entities;  use Apache::lonextresedit();
 use GDBM_File;  use Apache::lontemplate();
 use Apache::lonlocal;  use Apache::lonsimplepage();
 use Cwd;  use Apache::lonhomework();
 use LONCAPA qw(:DEFAULT :match);  use Apache::lonpublisher();
   use HTML::Entities;
 my $iconpath;  use HTML::TokeParser;
   use GDBM_File;
 my %hash;  use File::MMagic;
   use File::Copy;
 my $hashtied;  use Apache::lonlocal;
 my %alreadyseen=();  use Cwd;
   use LONCAPA qw(:DEFAULT :match);
 my $hadchanges;  
   my $iconpath;
   
 my %help=();  my %hash;
   
   my $hashtied;
 sub mapread {  my %alreadyseen=();
     my ($coursenum,$coursedom,$map)=@_;  
     return  my $hadchanges;
       &LONCAPA::map::mapread('/uploaded/'.$coursedom.'/'.$coursenum.'/'.  my $suppchanges;
      $map);  
 }  
   my %help=();
 sub storemap {  
     my ($coursenum,$coursedom,$map)=@_;  
     my ($outtext,$errtext)=  sub mapread {
       &LONCAPA::map::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'.      my ($coursenum,$coursedom,$map)=@_;
       $map,1);      return
     if ($errtext) { return ($errtext,2); }        &LONCAPA::map::mapread('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
           $map);
     $hadchanges=1;  }
     return ($errtext,0);  
 }  sub storemap {
       my ($coursenum,$coursedom,$map,$contentchg)=@_;
       my $report;
       if (($contentchg) && ($map =~ /^default/)) {
 sub authorhosts {         $report = 1;
     my %outhash=();      }
     my $home=0;      my ($outtext,$errtext)=
     my $other=0;        &LONCAPA::map::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
     foreach my $key (keys(%env)) {        $map,1,$report);
  if ($key=~/^user\.role\.(au|ca)\.(.+)$/) {      if ($errtext) { return ($errtext,2); }
     my $role=$1;  
     my $realm=$2;      if ($map =~ /^default/) {
     my ($start,$end)=split(/\./,$env{$key});          $hadchanges=1;
     if (($start) && ($start>time)) { next; }      } else {
     if (($end) && (time>$end)) { next; }          $suppchanges=1;
     my ($ca,$cd);      }
     if ($1 eq 'au') {      return ($errtext,0);
  $ca=$env{'user.name'};  }
  $cd=$env{'user.domain'};  
     } else {  
  ($cd,$ca)=($realm=~/^\/($match_domain)\/($match_username)$/);  
     }  sub authorhosts {
     my $allowed=0;      my %outhash=();
     my $myhome=&Apache::lonnet::homeserver($ca,$cd);      my $home=0;
     my @ids=&Apache::lonnet::current_machine_ids();      my $other=0;
     foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }      foreach my $key (keys(%env)) {
     if ($allowed) {   if ($key=~/^user\.role\.(au|ca)\.(.+)$/) {
  $home++;      my $role=$1;
  $outhash{'home_'.$ca.'@'.$cd}=1;      my $realm=$2;
     } else {      my ($start,$end)=split(/\./,$env{$key});
  $outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;      if (($start) && ($start>time)) { next; }
  $other++;      if (($end) && (time>$end)) { next; }
     }      my ($ca,$cd);
  }      if ($1 eq 'au') {
     }   $ca=$env{'user.name'};
     return ($home,$other,%outhash);   $cd=$env{'user.domain'};
 }      } else {
    ($cd,$ca)=($realm=~/^\/($match_domain)\/($match_username)$/);
       }
 sub dumpbutton {      my $allowed=0;
     my ($home,$other,%outhash)=&authorhosts();      my $myhome=&Apache::lonnet::homeserver($ca,$cd);
     my $type = &Apache::loncommon::course_type();      my @ids=&Apache::lonnet::current_machine_ids();
     if ($home+$other==0) { return ''; }      foreach my $id (@ids) {
     if ($home) {                  if ($id eq $myhome) {
  return '<input type="submit" name="dumpcourse" value="'.                      $allowed=1;
     &mt('Dump '.$type.' DOCS to Construction Space').'" />'.                      last;
     &Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs');                  }
     } else {              }
  return '<div>'.      if ($allowed) {
      &mt('Dump '.$type.   $home++;
  ' DOCS to Construction Space: available on other servers').   $outhash{'home_'.$ca.':'.$cd}=1;
  '</div>';      } else {
     }   $outhash{'otherhome_'.$ca.':'.$cd}=$myhome;
 }   $other++;
       }
 sub clean {   }
     my ($title)=@_;      }
     $title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\|\`\~]+/\_/gs;      return ($home,$other,%outhash);
     return $title;  }
 }  
   
   sub clean {
       my ($title)=@_;
 sub dumpcourse {      $title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\|\`\~]+/\_/gs;
     my ($r) = @_;      return $title;
     my $type = &Apache::loncommon::course_type();  }
     $r->print(&Apache::loncommon::start_page('Dump '.$type.' DOCS to Construction Space').  
       '<form name="dumpdoc" method="post">');  
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Dump '.$type.' DOCS to Construction Space'));  
     my ($home,$other,%outhash)=&authorhosts();  sub dumpcourse {
     unless ($home) { return ''; }      my ($r) = @_;
     my $origcrsid=$env{'request.course.id'};      my $crstype = &Apache::loncommon::course_type();
     my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);      my ($starthash,$js);
     if (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {      unless (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {
 # Do the dumping          $js = <<"ENDJS";
  unless ($outhash{'home_'.$env{'form.authorspace'}}) { return ''; }  <script type="text/javascript">
  my ($ca,$cd)=split(/\@/,$env{'form.authorspace'});  // <![CDATA[
  $r->print('<h3>'.&mt('Copying Files').'</h3>');  
  my $title=$env{'form.authorfolder'};  function hide_searching() {
  $title=&clean($title);      if (document.getElementById('searching')) {
  my %replacehash=();          document.getElementById('searching').style.display = 'none';
  foreach my $key (keys(%env)) {      }
     if ($key=~/^form\.namefor\_(.+)/) {      return;
  $replacehash{$1}=$env{$key};  }
     }  
  }  // ]]>
  my $crs='/uploaded/'.$env{'request.course.id'}.'/';  </script>
  $crs=~s/\_/\//g;  ENDJS
  foreach my $item (keys(%replacehash)) {          $starthash = {
     my $newfilename=$title.'/'.$replacehash{$item};                           add_entries => {'onload' => "hide_searching();"},
     $newfilename=~s/\.(\w+)$//;                       };
     my $ext=$1;      }
     $newfilename=&clean($newfilename);      $r->print(&Apache::loncommon::start_page('Copy '.$crstype.' Content to Authoring Space',$js,$starthash)."\n".
     $newfilename.='.'.$ext;                &Apache::lonhtmlcommon::breadcrumbs('Copy '.$crstype.' Content to Authoring Space')."\n");
     my @dirs=split(/\//,$newfilename);      $r->print(&startContentScreen('tools'));
     my $path='/home/'.$ca.'/public_html';      my ($home,$other,%outhash)=&authorhosts();
     my $makepath=$path;      unless ($home) {
     my $fail=0;          $r->print(&endContentScreen());
     for (my $i=0;$i<$#dirs;$i++) {          return '';
  $makepath.='/'.$dirs[$i];      }
  unless (-e $makepath) {      my $origcrsid=$env{'request.course.id'};
     unless(mkdir($makepath,0777)) { $fail=1; }      my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
  }      if (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {
     }  # Do the dumping
     $r->print('<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ');   unless ($outhash{'home_'.$env{'form.authorspace'}}) {
     if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {              $r->print(&endContentScreen());
  if ($item=~/\.(sequence|page|html|htm|xml|xhtml)$/) {              return '';
     print $fh &Apache::lonclonecourse::rewritefile(          }
          &Apache::lonclonecourse::readfile($env{'request.course.id'},$item),   my ($ca,$cd)=split(/\:/,$env{'form.authorspace'});
      (%replacehash,$crs => '')   $r->print('<h3>'.&mt('Copying Files').'</h3>');
     );   my $title=$env{'form.authorfolder'};
  } else {   $title=&clean($title);
     print $fh          my ($navmap,$errormsg) =
          &Apache::lonclonecourse::readfile($env{'request.course.id'},$item);              &Apache::loncourserespicker::get_navmap_object($crstype,'dumpdocs');
        }          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
  $fh->close();          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     } else {          my (%maps,%resources,%titles);
  $fail=1;          if (!ref($navmap)) {
     }              $r->print($errormsg.
     if ($fail) {                        &endContentScreen());
  $r->print('<span class="LC_error">'.&mt('fail').'</span>');              return '';
     } else {          } else {
  $r->print('<span class="LC_success">'.&mt('ok').'</span>');              &Apache::loncourserespicker::enumerate_course_contents($navmap,\%maps,\%resources,\%titles,
     }                                                                     'dumpdocs',$cdom,$cnum);
  }   }
     } else {          my @todump = &Apache::loncommon::get_env_multiple('form.archive');
 # Input form          my (%tocopy,%replacehash,%lookup,%deps,%display,%result,%depresult,%simpleproblems,%simplepages,
  unless ($home==1) {              %newcontent,%has_simpleprobs);
     $r->print(          foreach my $item (sort {$a <=> $b} (@todump)) {
       '<h3>'.&mt('Select the Construction Space').'</h3><select name="authorspace">');              my $name = $env{'form.namefor_'.$item};
  }              if ($resources{$item}) {
  foreach my $key (sort(keys(%outhash))) {                  my ($map,$id,$res) = &Apache::lonnet::decode_symb($resources{$item});
     if ($key=~/^home_(.+)$/) {                  if ($res =~ m{^uploaded/$cdom/$cnum/\E((?:docs|supplemental)/.+)$}) {
  if ($home==1) {                      $tocopy{$1} = $name;
     $r->print(                      $display{$item} = $1;
   '<input type="hidden" name="authorspace" value="'.$1.'" />');                      $lookup{$1} = $item; 
  } else {                  } elsif ($res eq 'lib/templates/simpleproblem.problem') {
     $r->print('<option value="'.$1.'">'.$1.' - '.                      $simpleproblems{$item} = {
       &Apache::loncommon::plainname(split(/\@/,$1)).'</option>');                                                  symb => $resources{$item},
  }                                                  name => $name,
     }                                               };
  }                      $display{$item} = 'simpleproblem_'.$name;
  unless ($home==1) {                      if ($map =~ m{^\Quploaded/$cdom/$cnum/\E(.+)$}) {
     $r->print('</select>');                          $has_simpleprobs{$1}{$id} = $item;
  }                      }
  my $title=$origcrsdata{'description'};                  } elsif ($res =~ m{^adm/$match_domain/$match_username/(\d+)/smppg}) {
  $title=~s/[\/\s]+/\_/gs;                      my $marker = $1;
  $title=&clean($title);                      my $db_name = &Apache::lonsimplepage::get_db_name($res,$marker,$cdom,$cnum);
  $r->print('<h3>'.&mt('Folder in Construction Space').'</h3>'                      $simplepages{$item} = {
                  .'<input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');                                              res    => $res,
  &tiehash();                                              title  => $titles{$item},
  $r->print('<h3>'.&mt('Filenames in Construction Space').'</h3>'                                              db     => $db_name,
                  .&Apache::loncommon::start_data_table()                                              marker => $marker,
                  .&Apache::loncommon::start_data_table_header_row()                                              symb   => $resources{$item},
                  .'<th>'.&mt('Internal Filename').'</th>'                                              name   => $name,
                  .'<th>'.&mt('Title').'</th>'                                            };
                  .'<th>'.&mt('Save as ...').'</th>'                      $display{$item} = '/'.$res;
                  .&Apache::loncommon::end_data_table_header_row());                  }
  foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {              } elsif ($maps{$item}) {
     $r->print(&Apache::loncommon::start_data_table_row()                  if ($maps{$item} =~ m{^\Quploaded/$cdom/$cnum/\E((?:default|supplemental)_\d+\.(?:sequence|page))$}) {
                      .'<td>'.$file.'</td>');                      $tocopy{$1} = $name;
     my ($ext)=($file=~/\.(\w+)$/);                      $display{$item} = $1;
     my $title=$hash{'title_'.$hash{                      $lookup{$1} = $item;
  'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};                  }
     $r->print('<td>'.($title?$title:'&nbsp;').'</td>');              } else {
     if (!$title) {                  next;
  $title=$file;              }
     } else {          }
  $title=~s|/|_|g;   my $crs='/uploaded/'.$env{'request.course.id'}.'/';
     }   $crs=~s/\_/\//g;
     $title=~s/\.(\w+)$//;          my $mm = new File::MMagic;
     $title=&clean($title);          my $prefix = "/uploaded/$cdom/$cnum/";
     $title.='.'.$ext;          %replacehash = %tocopy;
     $r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"          foreach my $item (sort(keys(%simpleproblems))) {
                      .&Apache::loncommon::end_data_table_row());              my $content = &Apache::imsexport::simpleproblem($simpleproblems{$item}{'symb'});
  }              $newcontent{$display{$item}} = $content;
  $r->print(&Apache::loncommon::end_data_table());          }
  &untiehash();          my $gateway = Apache::lonhtmlgateway->new('web');
  $r->print(          foreach my $item (sort(keys(%simplepages))) {
   '<p><input type="submit" name="dumpcourse" value="'.&mt("Dump $type DOCS").'" /></p></form>');              if (ref($simplepages{$item}) eq 'HASH') {
     }                  my $pagetitle = $simplepages{$item}{'title'};
 }                  my %fields = &Apache::lonnet::dump($simplepages{$item}{'db'},$cdom,$cnum);
                   my %contents;
                   foreach my $field (keys(%fields)) {
                       if ($field =~ /^(?:aaa|bbb|ccc)_(\w+)$/) {
 sub exportbutton {                          my $name = $1;
     my $type = &Apache::loncommon::course_type();                          my $msg = $fields{$field};
     return '<input type="submit" name="exportcourse" value="'.                          if ($name eq 'webreferences') {
             &mt('Export '.$type.' to IMS').'" />'.                              if ($msg =~ m{^https?://}) {
     &Apache::loncommon::help_open_topic('Docs_Export_Course_Docs');                                  $contents{$name} = '<a href="'.$msg.'"><tt>'.$msg.'</tt></a>';
 }                              }
                           } else {
                               $msg = &Encode::decode('utf8',$msg);
                               $msg = $gateway->process_outgoing_html($msg,1);
 sub exportcourse {                              $contents{$name} = $msg;
     my $r=shift;                          }
     my $type = &Apache::loncommon::course_type();                      } elsif ($field eq 'uploaded.photourl') {
     my %discussiontime = &Apache::lonnet::dump('discussiontimes',                          my $marker = $simplepages{$item}{marker};
                                                $env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});                          if ($fields{$field} =~ m{^\Q$prefix\E(simplepage/$marker/.+)$}) {
     my $numdisc = keys(%discussiontime);                              my $filepath = $1;
     my $navmap = Apache::lonnavmaps::navmap->new();                              my ($relpath,$fname) = ($filepath =~ m{^(.+/)([^/]+)$});
     if (!defined($navmap)) {                              if ($fname ne '') {
         $r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package').                                  $fname=~s/\.(\w+)$//;
                   '<h2>IMS Export Failed</h2>'.                                  my $ext=$1;
                   '<div class="LC_error">'.                                  $fname = &clean($fname);
                   &mt('Unable to retrieve information about course contents').                                  $fname.='.'.$ext;
                   '</div><a href="/adm/coursedocs">'.&mt('Return to Course Editor').'</a>');                                  $contents{image} = '<img src="'.$relpath.$fname.'" alt="Image" />';
         &Apache::lonnet::logthis('IMS export failed - could not create navmap object in '.lc($type).':'.$env{'request.course.id'});                                  $replacehash{$filepath} = $relpath.$fname;
         return;                                  $deps{$item}{$filepath} = 1;
     }                              }
     my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);                          }
     my $curRes;                      }
     my $outcome;                  }
                   $replacehash{'/'.$simplepages{$item}{'res'}} = $simplepages{$item}{'name'};
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},                  $lookup{'/'.$simplepages{$item}{'res'}} = $item;
                                             ['finishexport']);                  my $content = '
     if ($env{'form.finishexport'}) {  <html>
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},  <head>
                                             ['archive','discussion']);  <title>'.$pagetitle.'</title>
   </head>
         my @exportitems = &Apache::loncommon::get_env_multiple('form.archive');  <body bgcolor="#ffffff">';
         my @discussions = &Apache::loncommon::get_env_multiple('form.discussion');                  if ($contents{title}) {
         if (@exportitems == 0 && @discussions == 0) {                      $content .= "\n".'<h2>'.$contents{title}.'</h2>';
             $outcome = '<br />As you did not select any content items or discussions for export, an IMS package has not been created.  Please <a href="javascript:history.go(-1)">go back</a> to select either content items or discussions for export';                  }
         } else {                  if ($contents{image}) {
             my $now = time;                      $content .= "\n".$contents{image};
             my %symbs;                  }
             my $manifestok = 0;                  if ($contents{content}) {
             my $imsresources;                      $content .= '
             my $tempexport;  <div class="LC_Box">
             my $copyresult;  <h4 class="LC_hcell">'.&mt('Content').'</h4>'.
             my $ims_manifest = &create_ims_store($now,\$manifestok,\$outcome,\$tempexport);  $contents{content}.'
             if ($manifestok) {  </div>';
                 &build_package($now,$navmap,\@exportitems,\@discussions,\$outcome,$tempexport,\$copyresult,$ims_manifest);                  }
                 close($ims_manifest);                  if ($contents{webreferences}) {
                       $content .= ' 
 #Create zip file in prtspool  <div class="LC_Box">
                 my $imszipfile = '/prtspool/'.  <h4 class="LC_hcell">'.&mt('Web References').'</h4>'.
                 $env{'user.name'}.'_'.$env{'user.domain'}.'_'.  $contents{webreferences}.'
                    time.'_'.rand(1000000000).'.zip';  </div>';
                 my $cwd = &Cwd::getcwd();                  }
                 my $imszip = '/home/httpd/'.$imszipfile;                  $content .= '
                 chdir $tempexport;  </body>
                 open(OUTPUT, "zip -r $imszip *  2> /dev/null |");  </html>
                 close(OUTPUT);  ';
                 chdir $cwd;                  $newcontent{'/'.$simplepages{$item}{res}} = $content; 
                 $outcome .= &mt('Download the zip file from <a href="[_1]">IMS '.lc($type).' archive</a><br />',$imszipfile,);              }
                 if ($copyresult) {          }
                     $outcome .= &mt('The following errors occurred during export - [_1]',$copyresult);   foreach my $item (keys(%tocopy)) {
                 }              unless ($item=~/\.(sequence|page)$/) {
             } else {                  my $currurlpath = $prefix.$item;
                 $outcome = '<br />'.&mt('Unfortunately you will not be able to retrieve an IMS archive of this posts at this time, because there was a problem creating a manifest file.').'<br />';                  my $currdirpath = &Apache::lonnet::filelocation('',$currurlpath);
             }                  &recurse_html($mm,$prefix,$currdirpath,$currurlpath,$item,$lookup{$item},\%replacehash,\%deps);
         }              }
         $r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package'));          }
  $r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package'));          foreach my $num (sort {$a <=> $b} (@todump)) {
         $r->print($outcome);              my $src = $display{$num};
         $r->print(&Apache::loncommon::end_page());              next if ($src eq '');
     } else {              my @needcopy = ();
         my $display;              if ($replacehash{$src}) {
         $display = '<form name="exportdoc" method="post">'."\n";                  push(@needcopy,$src);
         $display .= &mt('Choose which items you wish to export from your '.$type.'.<br /><br />');                  if (ref($deps{$num}) eq 'HASH') {
         $display .= '<table border="0" cellspacing="0" cellpadding="3">'.                      foreach my $dep (sort(keys(%{$deps{$num}}))) {
                     '<tr><td><fieldset><legend>&nbsp;<b>Content items</b></legend>'.                          if ($replacehash{$dep}) {
                     '<input type="button" value="check all" '.                              push(@needcopy,$dep);
                     'onclick="javascript:checkAll(document.exportdoc.archive)" />'.                          }
                     '&nbsp;&nbsp;<input type="button" value="uncheck all"'.                      }
                     ' onclick="javascript:uncheckAll(document.exportdoc.archive)" /></fieldset></td>'.                  }
                     '<td>&nbsp;</td><td>&nbsp;</td>'.              } elsif ($src =~ /^simpleproblem_/) {
                     '<td align="right"><fieldset><legend>&nbsp;<b>Discussion posts'.                  push(@needcopy,$src);
                     '</b></legend><input type="button" value="check all"'.              }
                     ' onclick="javascript:checkAll(document.exportdoc.discussion)" />'.              next if (@needcopy == 0);
                     '&nbsp;&nbsp;<input type="button" value="uncheck all"'.              my ($result,$depresult);
                     ' onclick="javascript:uncheckAll(document.exportdoc.discussion)" /></fieldset></td>'.              for (my $i=0; $i<@needcopy; $i++) {
                     '</tr></table>';                  my $item = $needcopy[$i];
         my $curRes;                  my $newfilename;
         my $depth = 0;                  if ($simpleproblems{$num}) {
         my $count = 0;                      $newfilename=$title.'/'.$simpleproblems{$num}{'name'};
         my $boards = 0;                  } else {
         my $startcount = 5;              $newfilename=$title.'/'.$replacehash{$item};
         my %parent = ();                  }
         my %children = ();          $newfilename=~s/\.(\w+)$//;
         my $lastcontainer = $startcount;          my $ext=$1;
         my @bgcolors = ('#F6F6F6','#FFFFFF');          $newfilename=&clean($newfilename);
         $display .= '<table cellspacing="0"><tr>'.          $newfilename.='.'.$ext;
             '<td><b>Export content item?<br /></b></td><td>&nbsp;</td><td align="right">'."\n";                  my ($newrelpath) = ($newfilename =~ m{^\Q$title/\E(.+)$}); 
         if ($numdisc > 0) {                  if ($newrelpath ne $replacehash{$item}) {
             $display.='<b>Export&nbsp;discussion posts?</b>'."\n";                      $replacehash{$item} = $newrelpath;
         }                  }
         $display.='&nbsp;</td></tr>';          my @dirs=split(/\//,$newfilename);
         while ($curRes = $it->next()) {          my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca";
             if (ref($curRes)) {          my $makepath=$path;
                 $count ++;          my $fail;
             }                  my $origin;
             if ($curRes == $it->BEGIN_MAP()) {          for (my $i=0;$i<$#dirs;$i++) {
                 $depth++;      $makepath.='/'.$dirs[$i];
                 $parent{$depth} = $lastcontainer;      unless (-e $makepath) {
             }          unless(mkdir($makepath,0755)) { 
             if ($curRes == $it->END_MAP()) {                              $fail = &mt('Directory creation failed.');
                 $depth--;                          }
                 $lastcontainer = $parent{$depth};      }
             }          }
             if (ref($curRes)) {                  if ($i == 0) {
                 my $symb = $curRes->symb();              $result = '<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ';
                 my $ressymb = $symb;                  } else {
                 if ($ressymb =~ m|adm/($match_domain)/($match_username)/(\d+)/bulletinboard$|) {                      $depresult .= '<li><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt> '.
                     unless ($ressymb =~ m|adm/wrapper/adm|) {                                    '<span class="LC_fontsize_small" style="font-weight: bold;">'.
                         $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';                                    &mt('(dependency)').'</span>: ';
                     }                  }
                 }                  if (-e $path.'/'.$newfilename) {
                 my $color = $count%2;                      $fail = &mt('Destination already exists -- not overwriting.'); 
                 $display .='<tr bgcolor='.$bgcolors[$color].'><td>'."\n".          } else {
                     '<input type="checkbox" name="archive" value="'.$count.'" ';                      if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
                 if (($curRes->is_sequence()) || ($curRes->is_page())) {                          if (($item =~ m{^/adm/$match_domain/$match_username/\d+/smppg}) ||
                     my $checkitem = $count + $boards + $startcount;                              ($item =~ /^simpleproblem_/)) {
                     $display .= 'onClick="javascript:propagateCheck('."'$checkitem'".')"';                              print $fh $newcontent{$item};
                 }                          } else {
                 $display .= ' />'."\n";                              my $fileloc = &Apache::lonnet::filelocation('',$prefix.$item);
                 for (my $i=0; $i<$depth; $i++) {                              if (-e $fileloc) {
                     $display .= '<img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" /><img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" />'."\n";                                  if ($item=~/\.(sequence|page|html|htm|xml|xhtml)$/) {
                 }                                      if ((($1 eq 'sequence') || ($1 eq 'page')) &&
                 if ($curRes->is_sequence()) {                                          (ref($has_simpleprobs{$item}) eq 'HASH')) {
                     $display .= '<img src="/adm/lonIcons/navmap.folder.open.gif">&nbsp;'."\n";                                          my %changes = %{$has_simpleprobs{$item}};
                     $lastcontainer = $count + $startcount + $boards;                                          my $content = &Apache::lonclonecourse::rewritefile(
                 } elsif ($curRes->is_page()) {                       &Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
                     $display .= '<img src="/adm/lonIcons/navmap.page.open.gif">&nbsp;'."\n";                                                        (%replacehash,$crs => '')
                     $lastcontainer = $count + $startcount + $boards;                                                                                            );
                 }                                          my $updatedcontent = '';
                 my $currelem = $count+$boards+$startcount;                                          my $parser = HTML::TokeParser->new(\$content);
                 $children{$parent{$depth}} .= $currelem.':';                                          $parser->attr_encoded(1);
                 $display .= '&nbsp;'.$curRes->title().'</td>';                                          while (my $token = $parser->get_token) {
                 if ($discussiontime{$ressymb} > 0) {                                              if ($token->[0] eq 'S') {
                     $boards ++;                                                  if (($token->[1] eq 'resource') &&
                     $currelem = $count+$boards+$startcount;                                                      ($token->[2]->{'src'} eq '/res/lib/templates/simpleproblem.problem') && 
                     $display .= '<td>&nbsp;</td><td align="right"><input type="checkbox" name="discussion" value="'.$count.'" />&nbsp;</td>'."\n";                                                      ($changes{$token->[2]->{'id'}})) {
                 } else {                                                      my $id = $token->[2]->{'id'};
                     $display .= '<td colspan="2">&nbsp;</td>'."\n";                                                      $updatedcontent .= '<'.$token->[1];
                 }                                                      foreach my $attrib (@{$token->[3]}) {
             }                                                          next unless ($attrib =~ /^(src|type|title|id)$/);
         }                                                          if ($attrib eq 'src') {
         my $scripttag = qq|                                                              my ($file) = ($display{$changes{$id}} =~ /^\Qsimpleproblem_\E(.+)$/); 
 <script>                                                              if ($file) {
                                                                   $updatedcontent .= ' '.$attrib.'="'.$file.'"';
 function checkAll(field) {                                                              } else {
     if (field.length > 0) {                                                                  $updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"'; 
         for (i = 0; i < field.length; i++) {                                                              }
             field[i].checked = true ;                                                          } else {
         }                                                              $updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';
     } else {                                                          }
         field.checked = true                                                      }
     }                                                      $updatedcontent .= ' />'."\n";
 }                                                  } else {
                                                                                                                                      $updatedcontent .= $token->[4]."\n";
 function uncheckAll(field) {                                                  }
     if (field.length > 0) {                                               } else {
         for (i = 0; i < field.length; i++) {                                                   $updatedcontent .= $token->[2];
             field[i].checked = false ;                                               }
         }                                           }
     } else {                                           print $fh $updatedcontent;
         field.checked = false ;                                      } else {  
     }                          print $fh &Apache::lonclonecourse::rewritefile(
 }                       &Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
                                         (%replacehash,$crs => '')
 function propagateCheck(item) {                                );
     if (document.exportdoc.elements[item].checked == true) {                                      }
         containerCheck(item)                                  } else {
     }                      print $fh
 }                                          &Apache::lonclonecourse::readfile($env{'request.course.id'},$item);
                   }
 function containerCheck(item) {                              } else {
     document.exportdoc.elements[item].checked = true                                  $fail = &mt('Source does not exist.');  
     var numitems = $count + $boards + $startcount                              }
     var parents = new Array(numitems)                          }
     for (var i=$startcount; i<numitems; i++) {                          $fh->close();
         parents[i] = new Array              } else {
     }          $fail = &mt('Could not write to destination.');
         |;                      }
           }
         foreach my $container (sort { $a <=> $b } (keys(%children))) {                  my $text;
             my @contents = split(/:/,$children{$container});          if ($fail) {
             for (my $i=0; $i<@contents; $i ++) {                      $text = '<span class="LC_error">'.&mt('fail').('&nbsp;'x3).$fail.'</span>';
                 $scripttag .= '    parents['.$container.']['.$i.'] = '.$contents[$i]."\n";          } else {
             }                      $text = '<span class="LC_success">'.&mt('ok').'</span>';
         }                  }
                   if ($i == 0) {
         $scripttag .= qq|                      $result .= $text;
     if (parents[item].length > 0) {                  } else {
         for (var j=0; j<parents[item].length; j++) {                      $depresult .= $text.'</li>';
             containerCheck(parents[item][j])          }
         }              }
      }                $r->print($result);
 }              if ($depresult) {
                   $r->print('<ul>'.$depresult.'</ul>');
 </script>              }
         |;          }
  $r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package',      } else {
  $scripttag));          my ($navmap,$errormsg) =
  $r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package'));              &Apache::loncourserespicker::get_navmap_object($crstype,'dumpdocs');
  $r->print($display.'</table>'.          if (!ref($navmap)) {
                   '<p><input type="hidden" name="finishexport" value="1">'.              $r->print($errormsg);
                   '<input type="submit" name="exportcourse" value="'.          } else {
                   &mt('Export '.$type.' DOCS').'" /></p></form>');              $r->print('<div id="searching">'.&mt('Searching ...').'</div>');
     }              $r->rflush();
 }              my ($preamble,$formname);
               $formname = 'dumpdoc';
 sub create_ims_store {      unless ($home==1) {
     my ($now,$manifestok,$outcome,$tempexport) = @_;          $preamble = '<div class="LC_left_float">'.
     $$tempexport = $Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/ims_exports';              '<fieldset><legend>'.
     my $ims_manifest;                              &mt('Select the Authoring Space').
     if (!-e $$tempexport) {                              '</legend><select name="authorspace">';
         mkdir($$tempexport,0700);      }
     }              my @orderspaces = ();
     $$tempexport .= '/'.$now;      foreach my $key (sort(keys(%outhash))) {
     if (!-e $$tempexport) {                  if ($key=~/^home_(.+)$/) {
         mkdir($$tempexport,0700);                      if ($1 eq $env{'user.name'}.':'.$env{'user.domain'}) {
     }                          unshift(@orderspaces,$1);
     $$tempexport .= '/'.$env{'user.domain'}.'_'.$env{'user.name'};                      } else {
     if (!-e $$tempexport) {                          push(@orderspaces,$1);
         mkdir($$tempexport,0700);                      }
     }                  } 
     if (!-e "$$tempexport/resources") {              }
         mkdir("$$tempexport/resources",0700);              if ($home>1) {
     }                  $preamble .= '<option value="" selected="selected">'.&mt('Select').'</option>';
 # open manifest file              }
     my $manifest = '/imsmanifest.xml';              foreach my $user (@orderspaces) {
     my $manifestfilename = $$tempexport.$manifest;   if ($home==1) {
     if ($ims_manifest = Apache::File->new('>'.$manifestfilename)) {      $preamble .= '<input type="hidden" name="authorspace" value="'.$user.'" />';
         $$manifestok=1;   } else {
         print $ims_manifest      $preamble .= '<option value="'.$user.'">'.$user.' - '.
 '<?xml version="1.0" encoding="UTF-8"?>'."\n".           &Apache::loncommon::plainname(split(/\:/,$user)).'</option>';
 '<manifest xmlns="http://www.imsglobal.org/xsd/imscp_v1p1"'.          }
 ' xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2"'.      }
 ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'.      unless ($home==1) {
 ' identifier="MANIFEST-'.$env{'request.course.id'}.'-'.$now.'"'.          $preamble .= '</select></fieldset></div>'."\n";
 '  xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1imscp_v1p1.xsd'.      }
 '  http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2p2.xsd">'."\n".      my $title=$origcrsdata{'description'};
 '  <metadata>      $title=~s/[\/\s]+/\_/gs;
     <schema></schema>      $title=&clean($title);
     <imsmd:lom>      $preamble .= '<div class="LC_left_float">'.
       <imsmd:general>                           '<fieldset><legend>'.&mt('Folder in Authoring Space').'</legend>'.
         <imsmd:identifier>'.$env{'request.course.id'}.'</imsmd:identifier>                           '<input type="text" size="50" name="authorfolder" value="'.
         <imsmd:title>                           $title.'" />'.
           <imsmd:langstring xml:lang="en">'.$env{'course.'.$env{'request.course.id'}.'.description'}.'</imsmd:langstring>                           '</fieldset></div><div style="padding:0;clear:both;margin:0;border:0"></div>'."\n";
         </imsmd:title>              my %uploadedfiles;
       </imsmd:general>      &tiehash();
     </imsmd:lom>      foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {
   </metadata>'."\n".          my ($ext)=($file=~/\.(\w+)$/);
 '  <organizations default="ORG-'.$env{'request.course.id'}.'-'.$now.'">'."\n".  # FIXME Check supplemental here
 '    <organization identifier="ORG-'.$env{'request.course.id'}.'-'.$now.'"'.          my $title=$hash{'title_'.$hash{
 ' structure="hierarchical">'."\n".                  'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};
 '      <title>'.$env{'course.'.$env{'request.course.id'}.'.description'}.'</title>'          if (!$title) {
     } else {      $title=$file;
         $$outcome .= 'An error occurred opening the IMS manifest file.<br />'          } else {
 ;      $title=~s|/|_|g;
     }          }
     return $ims_manifest;          $title=~s/\.(\w+)$//;
 }          $title=&clean($title);
           $title.='.'.$ext;
 sub build_package {  #    $r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"
     my ($now,$navmap,$exportitems,$discussions,$outcome,$tempexport,$copyresult,$ims_manifest) = @_;                  $uploadedfiles{$file} = $title;
 # first iterator to look for dependencies      }
     my $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);      &untiehash();
     my $curRes;              $r->print(&Apache::loncourserespicker::create_picker($navmap,'dumpdocs',$formname,$crstype,undef,
     my $count = 0;                                                                   undef,undef,$preamble,$home,\%uploadedfiles));
     my $depth = 0;          }
     my $lastcontainer = 0;      }
     my %parent = ();      $r->print(&endContentScreen());
     my @dependencies = ();  }
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  sub recurse_html {
     while ($curRes = $it->next()) {      my ($mm,$prefix,$currdirpath,$currurlpath,$container,$item,$replacehash,$deps) = @_;
         if (ref($curRes)) {      return unless ((ref($replacehash) eq 'HASH') && (ref($deps) eq 'HASH'));
             $count ++;      my (%allfiles,%codebase);
         }      if (&Apache::lonnet::extract_embedded_items($currdirpath,\%allfiles,\%codebase) eq 'ok') {
         if ($curRes == $it->BEGIN_MAP()) {          if (keys(%allfiles)) {
             $depth++;              foreach my $dependency (keys(%allfiles)) {
             $parent{$depth} = $lastcontainer;                  next if (($dependency =~ m{^/(res|adm)/}) || ($dependency =~ m{^https?://}));
         }                  my ($depurl,$relfile,$newcontainer);
         if ($curRes == $it->END_MAP()) {                  if ($dependency =~ m{^/}) {
             $depth--;                      if ($dependency =~ m{^\Q$currurlpath/\E(.+)$}) {
             $lastcontainer = $parent{$depth};                          $relfile = $1;
         }                          if ($dependency =~ m{^\Q$prefix\E(.+)$}) {
         if (ref($curRes)) {                              $newcontainer = $1;
             if ($curRes->is_sequence() || $curRes->is_page()) {                              next if ($replacehash->{$newcontainer});
                 $lastcontainer = $count;                          }
             }                          $depurl = $dependency;
             if (grep(/^$count$/,@$exportitems)) {                      } else {
                 &get_dependencies($exportitems,\%parent,$depth,\@dependencies);                          next;
             }                      }
         }                  } else {
     }                      $relfile = $dependency;
 # second iterator to build manifest and store resources                      $depurl = $currurlpath;
     $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);                      $depurl =~ s{[^/]+$}{};  
     $depth = 0;                      $depurl .= $dependency;
     my $prevdepth;                      ($newcontainer) = ($depurl =~ m{^\Q$prefix\E(.+)$}); 
     $count = 0;                  }
     my $imsresources;                  next if ($relfile eq '');
     my $pkgdepth;                  my $newname = $replacehash->{$container};
     while ($curRes = $it->next()) {                  $newname =~ s{[^/]+$}{};
         if ($curRes == $it->BEGIN_MAP()) {                  $replacehash->{$newcontainer} = $newname.$relfile;
             $prevdepth = $depth;                  $deps->{$item}{$newcontainer} = 1;
             $depth++;                  my ($newurlpath) = ($depurl =~ m{^(.*)/[^/]+$});  
         }                  my $depfile = &Apache::lonnet::filelocation('',$depurl);
         if ($curRes == $it->END_MAP()) {                  my $type = $mm->checktype_filename($depfile);
             $prevdepth = $depth;                  if ($type eq 'text/html') {
             $depth--;                      &recurse_html($mm,$prefix,$depfile,$newurlpath,$newcontainer,$item,$replacehash,$deps);
         }                  }
               }
         if (ref($curRes)) {          }
             $count ++;      }
             if ((grep(/^$count$/,@$exportitems)) || (grep(/^$count$/,@dependencies))) {      return;
                 my $symb = $curRes->symb();  }
                 my $isvisible = 'true';  
                 my $resourceref;  sub group_import {
                 if ($curRes->randomout()) {      my ($coursenum, $coursedom, $folder, $container, $caller, $ltitoolsref, @files) = @_;
                     $isvisible = 'false';      my ($donechk,$allmaps,%hierarchy,%titles,%addedmaps,%removefrommap,
                 }          %removeparam,$importuploaded,$fixuperrors);
                 unless ($curRes->is_sequence()) {      $allmaps = {};
                     $resourceref = 'identifierref="RES-'.$env{'request.course.id'}.'-'.$count.'"';      while (@files) {
                 }   my ($name, $url, $residx) = @{ shift(@files) };
                 my $step = $prevdepth - $depth;          if (($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page|sequence)$})
                 if (($step >= 0) && ($count > 1)) {       && ($caller eq 'londocs')
                     while ($step >= 0) {       && (!&Apache::lonnet::stat_file($url))) {
                         print $ims_manifest "\n".'  </item>'."\n";  
                         $step --;              my $errtext = '';
                     }              my $fatal = 0;
                 }              my $newmapstr = '<map>'."\n".
                 $prevdepth = $depth;                              '<resource id="1" src="" type="start"></resource>'."\n".
                               '<link from="1" to="2" index="1"></link>'."\n".
                 my $itementry =                              '<resource id="2" src="" type="finish"></resource>'."\n".
               '<item identifier="ITEM-'.$env{'request.course.id'}.'-'.$count.                              '</map>';
               '" isvisible="'.$isvisible.'" '.$resourceref.'>'.              $env{'form.output'}=$newmapstr;
               '<title>'.$curRes->title().'</title>';              my $result=&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,
                 print $ims_manifest "\n".$itementry;                                                  'output',$1.$2);
               if ($result !~ m{^/uploaded/}) {
                 unless ($curRes->is_sequence()) {                  $errtext.='Map not saved: A network error occurred when trying to save the new map. ';
                     my $content_file;                  $fatal = 2;
                     my @hrefs = ();              }
                     &process_content($count,$curRes,$cdom,$cnum,$symb,\$content_file,\@hrefs,$copyresult,$tempexport);              if ($fatal) {
                     if ($content_file) {                  return ($errtext,$fatal);
                         $imsresources .= "\n".              }
                      '   <resource identifier="RES-'.$env{'request.course.id'}.'-'.$count.          }
                      '" type="webcontent" href="'.$content_file.'">'."\n".   if ($url) {
                      '       <file href="'.$content_file.'" />'."\n";              if ($url =~ m{^(/adm/$coursedom/$coursenum/(\d+)/exttool)s?\:?(.*)$}) {
                         foreach my $item (@hrefs) {                  $url = $1;
                             $imsresources .=                  my $marker = $2;
                      '        <file href="'.$item.'" />'."\n";                  my $info = $3;
                         }                  my ($toolid,%toolhash,%toolsettings);
                         if (grep(/^$count$/,@$discussions)) {                  my @toolinfo = split(/:/,$info);
                             my $ressymb = $symb;                  if ($residx) {
                             my $mode;                      %toolsettings=&Apache::lonnet::dump('exttool_'.$marker,$coursedom,$coursenum);
                             if ($ressymb =~ m|adm/($match_domain)/($match_username)/(\d+)/bulletinboard$|) {                      $toolid = $toolsettings{'id'};
                                 unless ($ressymb =~ m|adm/wrapper/adm|) {                  } else {
                                     $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';                      $toolid = shift(@toolinfo);
                                 }                  }
                                 $mode = 'board';                  $toolid =~ s/\D//g;
                             }                  ($toolhash{'target'},$toolhash{'width'},$toolhash{'height'},
                             my %extras = (                   $toolhash{'crslabel'},$toolhash{'crstitle'}) = @toolinfo;
                                           caller => 'imsexport',                  $toolhash{'crslabel'} = &unescape($toolhash{'crslabel'});
                                           tempexport => $tempexport.'/resources',                  $toolhash{'crstitle'} = &unescape($toolhash{'crstitle'});
                                           count => $count                  if (ref($ltitoolsref) eq 'HASH') {
                                          );                      my @deleted;
                             my $discresult = &Apache::lonfeedback::list_discussion($mode,undef,$ressymb,\%extras);                      if (ref($ltitoolsref->{$toolid}) eq 'HASH') {
                         }                          if ($ltitoolsref->{$toolid}->{'url'} =~ m{^https://}) {
                         $imsresources .= '    </resource>'."\n";                              $url =~ s/exttool$/exttools/;
                     }                          }
                 }                          $toolhash{'id'} = $toolid;
                 $pkgdepth = $depth;                          if (($toolhash{'target'} eq 'iframe') || ($toolhash{'target'} eq 'window')) {
             }                              if ($toolhash{'target'} eq 'window') {
         }                                  foreach my $item ('width','height') {
     }                                      $toolhash{$item} =~ s/^\s+//;
     while ($pkgdepth > 0) {                                      $toolhash{$item} =~ s/\s+$//;
         print $ims_manifest "    </item>\n";                                  }
         $pkgdepth --;                              }
     }                          } elsif ($residx) {
     my $resource_text = qq|                              $toolhash{'target'} = $toolsettings{'target'};
     </organization>                              if ($toolhash{'target'} eq 'window') {
   </organizations>                                  $toolhash{'width'} = $toolsettings{'width'};
   <resources>                                  $toolhash{'height'} = $toolsettings{'height'};  
     $imsresources                              }
   </resources>                          } elsif (ref($ltitoolsref->{$toolid}->{'display'}) eq 'HASH') {
 </manifest>                              $toolhash{'target'} = $ltitoolsref->{$toolid}->{'display'}->{'target'};
     |;                              if ($toolhash{'target'} eq 'window') {
     print $ims_manifest $resource_text;                                  $toolhash{'width'} = $ltitoolsref->{$toolid}->{'display'}->{'width'};
 }                                  $toolhash{'height'} = $ltitoolsref->{$toolid}->{'display'}->{'height'};
                               }
 sub get_dependencies {                          }
     my ($exportitems,$parent,$depth,$dependencies) = @_;                          if ($toolhash{'target'} eq 'iframe') {
     if ($depth > 1) {                              delete($toolhash{'width'});
         if ((!grep(/^$$parent{$depth}$/,@$exportitems)) && (!grep(/^$$parent{$depth}$/,@$dependencies))) {                              delete($toolhash{'height'});
             push(@{$dependencies},$$parent{$depth});                              if ($residx) {
             if ($depth > 2) {                                  if ($toolsettings{'width'}) {
                 &get_dependencies($exportitems,$parent,$depth-1,$dependencies);                                      push(@deleted,'width');
             }                                  }
         }                                  if ($toolsettings{'height'}) {
     }                                      push(@deleted,'height');
 }                                  }
                               }
 sub process_content {                          }
     my ($count,$curRes,$cdom,$cnum,$symb,$content_file,$href,$copyresult,$tempexport) = @_;                          if (ref($ltitoolsref->{$toolid}->{'crsconf'}) eq 'HASH') {
     my $content_type;                              foreach my $item ('label','title') { 
     my $message;                                  if ($ltitoolsref->{$toolid}->{'crsconf'}->{$item}) {
     my @uploads = ();                                      $toolhash{'crs'.$item} =~ s/^\s+//;
     if ($curRes->is_sequence()) {                                      $toolhash{'crs'.$item} =~ s/\s+$//;
         $content_type = 'sequence';                                      if ($toolhash{'crs'.$item} eq '') {
     } elsif ($curRes->is_page()) {                                          delete($toolhash{'crs'.$item});
         $content_type = 'page'; # need to handle individual items in pages.                                      }
     } elsif ($symb =~ m-public/$cdom/$cnum/syllabus$-) {                                  } else {
         $content_type = 'syllabus';                                      delete($toolhash{'crs'.$item});
         my $contents = &Apache::imsexport::templatedpage($content_type);                                  }
         if ($contents) {                                  if (($residx) && (exists($toolsettings{'crs'.$item}))) {
             $$content_file = &store_template($contents,$tempexport,$count,$content_type);                                      unless (exists($toolhash{'crs'.$item})) {
         }                                          push(@deleted,'crs'.$item);
     } elsif ($symb =~ m-\.sequence___\d+___ext-) {                                      }
         $content_type = 'external';                                  }
         my $title = $curRes->title;                              }
         my $contents =  &Apache::imsexport::external($symb,$title);                          }
         if ($contents) {                          my $putres = &Apache::lonnet::put('exttool_'.$marker,\%toolhash,$coursedom,$coursenum);
             $$content_file = &store_template($contents,$tempexport,$count,$content_type);                          if ($putres eq 'ok') {
         }                              if (@deleted) {
     } elsif ($symb =~ m-adm/navmaps$-) {                                  &Apache::lonnet::del('exttool_'.$marker,\@deleted,$coursedom,$coursenum);
         $content_type =  'navmap';                              } 
     } elsif ($symb =~ m-adm/[^/]+/[^/]+/(\d+)/smppg$-) {                          }
         $content_type = 'simplepage';                      }
         my $contents = &Apache::imsexport::templatedpage($content_type,$1,$count,\@uploads);                  }
         if ($contents) {              }
             $$content_file = &store_template($contents,$tempexport,$count,$content_type);              if (($caller eq 'londocs') &&
         }                  ($folder =~ /^default/)) {
     } elsif ($symb =~ m-lib/templates/simpleproblem\.problem$-) {                  if (($url =~ /\.(page|sequence)$/) && (!$donechk)) {
         $content_type = 'simpleproblem';                      my $chome = &Apache::lonnet::homeserver($coursenum,$coursedom);
         my $contents =  &Apache::imsexport::simpleproblem($symb);                      my $cid = $coursedom.'_'.$coursenum;
         if ($contents) {                      $allmaps =
             $$content_file = &store_template($contents,$tempexport,$count,$content_type);                          &Apache::loncommon::allmaps_incourse($coursedom,$coursenum,
         }                                                               $chome,$cid);
     } elsif ($symb =~ m-lib/templates/examupload\.problem$-) {                      $donechk = 1;
         $content_type = 'examupload';                  }
     } elsif ($symb =~ m-adm/($match_domain)/($match_username)/(\d+)/bulletinboard$-) {                  if ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page|sequence)$}) {
         $content_type = 'bulletinboard';                      &contained_map_check($url,$folder,\%removefrommap,\%removeparam,
         my $contents =  &Apache::imsexport::templatedpage($content_type,$3,$count,\@uploads,$1,$2);                                           \%addedmaps,\%hierarchy,\%titles,$allmaps);
         if ($contents) {                      $importuploaded = 1;
             $$content_file = &store_template($contents,$tempexport,$count,$content_type);                  } elsif ($url =~ m{^/res/.+\.(page|sequence)$}) {
         }                      next if ($allmaps->{$url});
     } elsif ($symb =~ m-adm/([^/]+)/([^/]+)/aboutme$-) {                  }
         $content_type = 'aboutme';              }
         my $contents =  &Apache::imsexport::templatedpage($content_type,undef,$count,\@uploads,$1,$2);      if (!$residx
         if ($contents) {   || defined($LONCAPA::map::zombies[$residx])) {
             $$content_file = &store_template($contents,$tempexport,$count,$content_type);   $residx = &LONCAPA::map::getresidx($url,$residx);
         }   push(@LONCAPA::map::order, $residx);
     } elsif ($symb =~ m-\.(sequence|page)___\d+___uploaded/$cdom/$cnum/-) {      }
         $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');      my $ext = 'false';
     } elsif ($symb =~ m-\.(sequence|page)___\d+___([^/]+)/([^/]+)-) {      if ($url=~m{^http://} || $url=~m{^https://}) { $ext = 'true'; }
         my $canedit = 0;      $name = &LONCAPA::map::qtunescape($name);
         if ($2 eq $env{'user.domain'} && $3 eq $env{'user.name'})  {              if ($name eq '') {
             $canedit= 1;                  $name = &LONCAPA::map::qtunescape(&mt('Web Page'));
         }              }
 # only include problem code where current user is author              if ($url =~ m{^/uploaded/$coursedom/$coursenum/((?:docs|supplemental)/(?:default|\d+))/new\.html$}) {
         if ($canedit) {                  my $filepath = $1;
             $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource');                  my $fname = $name;
         } else {                  if ($fname =~ /^\W+$/) {
             $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'noedit');                      $fname = 'web';
         }                  } else {
     } elsif ($symb =~ m-uploaded/$cdom/$cnum-) {                      $fname =~ s/\W/_/g;
         $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');                  }
     }                  if (length($fname) > 15) {
     if (@uploads > 0) {                      $fname = substr($fname,0,14);
         foreach my $item (@uploads) {                  }
             my $uploadmsg = '';                  my $initialtext = &mt('Replace with your own content.');
             &replicate_content($cdom,$cnum,$tempexport,$item,$count,\$uploadmsg,$href,'templateupload');                  my $newhtml = <<END;
             if ($uploadmsg) {  <html>
                 $$copyresult .= $uploadmsg."\n";  <head>
             }  <title>$name</title>
         }  </head>
     }  <body bgcolor="#ffffff">
     if ($message) {  $initialtext
         $$copyresult .= $message."\n";  </body>
     }  </html>
 }  END
                   $env{'form.output'}=$newhtml;
 sub replicate_content {                  my $result = 
     my ($cdom,$cnum,$tempexport,$symb,$count,$message,$href,$caller) = @_;                      &Apache::lonnet::finishuserfileupload($coursenum,$coursedom,
     my ($map,$ind,$url);                                                            'output',
     if ($caller eq 'templateupload') {                                                            "$filepath/$residx/$fname.html");
         $url = $symb;                  if ($result =~ m{^/uploaded/}) {
         $url =~ s#//#/#g;                      $url = $result;
     } else {                      if ($filepath =~ /^supplemental/) {
         ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);                          $name = time.'___&&&___'.$env{'user.name'}.'___&&&___'.
     }                                  $env{'user.domain'}.'___&&&___'.$name;
     my $content;                      }
     my $filename;                  } else {
     my $repstatus;                      return (&mt('Failed to save new web page.'),1);
     my $content_name;                  }
     if ($url =~ m-/([^/]+)$-) {              }
         $filename = $1;              $url  = &LONCAPA::map::qtunescape($url);
         if (!-e $tempexport.'/resources') {      $LONCAPA::map::resources[$residx] =
             mkdir($tempexport.'/resources',0700);   join(':', ($name, $url, $ext, 'normal', 'res'));
         }   }
         if (!-e $tempexport.'/resources/'.$count) {      }
             mkdir($tempexport.'/resources/'.$count,0700);      if ($importuploaded) {
         }          my %import_errors;
         my $destination = $tempexport.'/resources/'.$count.'/'.$filename;          my %updated = (
         my $copiedfile;                            removefrommap => \%removefrommap,
         if ($copiedfile = Apache::File->new('>'.$destination)) {                            removeparam   => \%removeparam,
             my $content;                        );
             if ($caller eq 'resource') {          my ($result,$msgsarray,$lockerror) = 
                 my $respath =  $Apache::lonnet::perlvar{'lonDocRoot'}.'/res';              &apply_fixups($folder,1,$coursedom,$coursenum,\%import_errors,\%updated);
                 my $filepath = &Apache::lonnet::filelocation($respath,$url);          if (keys(%import_errors) > 0) {
                 $content = &Apache::lonnet::getfile($filepath);              $fixuperrors =
                 if ($content eq -1) {                  '<p span class="LC_warning">'."\n".
                     $$message = 'Could not copy file '.$filename;                  &mt('The following files are either dependencies of a web page or references within a folder and/or composite page for which errors occurred during import:')."\n".
                 } else {                  '<ul>'."\n";
                     &extract_media($url,$cdom,$cnum,\$content,$count,$tempexport,$href,$message,'resource');              foreach my $key (sort(keys(%import_errors))) {
                     $repstatus = 'ok';                  $fixuperrors .= '<li>'.$key.'</li>'."\n";
                 }              }
             } elsif ($caller eq 'uploaded' || $caller eq 'templateupload') {              $fixuperrors .= '</ul></p>'."\n";
                 my $rtncode;          }
                 $repstatus = &Apache::lonnet::getuploaded('GET',$url,$cdom,$cnum,\$content,$rtncode);          if (ref($msgsarray) eq 'ARRAY') {
                 if ($repstatus eq 'ok') {              if (@{$msgsarray} > 0) {
                     if ($url =~ /\.html?$/i) {                  $fixuperrors .= '<p class="LC_info">'.
                         &extract_media($url,$cdom,$cnum,\$content,$count,$tempexport,$href,$message,'uploaded');                                  join('<br />',@{$msgsarray}).
                     }                                  '</p>';
                 } else {              }
                     $$message = 'Could not render '.$url.' server message - '.$rtncode."<br />\n";          }
                 }          if ($lockerror) {
             } elsif ($caller eq 'noedit') {              $fixuperrors .= '<p class="LC_error">'.
 # Need to render the resource without the LON-CAPA Internal header and the Post discussion footer, and then set $content equal to this.                              $lockerror.
                 $repstatus = 'ok';                              '</p>';
                 $content = 'Not the owner of this resource';          }
             }      }
             if ($repstatus eq 'ok') {      my ($errtext,$fatal) =
                 print $copiedfile $content;          &storemap($coursenum, $coursedom, $folder.'.'.$container,1);
             }      unless ($fatal) {
             close($copiedfile);          if ($folder =~ /^supplemental/) {
         } else {              &Apache::lonnet::get_numsuppfiles($coursenum,$coursedom,1);
             $$message = 'Could not open destination file for '.$filename."<br />\n";              my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
         }                                              $folder.'.'.$container);
     } else {          }
         $$message = 'Could not determine name of file for '.$symb."<br />\n";      }
     }      return ($errtext,$fatal,$fixuperrors);
     if ($repstatus eq 'ok') {  }
         $content_name = 'resources/'.$count.'/'.$filename;  
     }  sub log_docs {
     return $content_name;      return &Apache::lonnet::write_log('course','docslog',@_);
 }  }
   
 sub extract_media {  {
     my ($url,$cdom,$cnum,$content,$count,$tempexport,$href,$message,$caller) = @_;      my @oldresources=();
     my ($dirpath,$container);      my @oldorder=();
     my %allfiles = ();      my $parmidx;
     my %codebase = ();      my %parmaction=();
     if ($url =~ m-(.*/)([^/]+)$-) {      my %parmvalue=();
         $dirpath = $1;      my $changedflag;
         $container = $2;  
     } else {      sub snapshotbefore {
         $dirpath = $url;          @oldresources=@LONCAPA::map::resources;
         $container = '';          @oldorder=@LONCAPA::map::order;
     }          $parmidx=undef;
     &Apache::lonnet::extract_embedded_items(undef,\%allfiles,\%codebase,$content);          %parmaction=();
     foreach my $embed_file (keys(%allfiles)) {          %parmvalue=();
         my $filename;          $changedflag=0;
         if ($embed_file =~ m#([^/]+)$#) {      }
             $filename = $1;  
         } else {      sub remember_parms {
             $filename = $embed_file;          my ($idx,$parameter,$action,$value)=@_;
         }          $parmidx=$idx;
         my $newname = 'res/'.$filename;          $parmaction{$parameter}=$action;
         my ($rtncode,$embed_content,$repstatus);          $parmvalue{$parameter}=$value;
         my $embed_url;          $changedflag=1;
         if ($embed_file =~ m-^/-) {      }
             $embed_url = $embed_file;           # points to absolute path  
         } else {      sub log_differences {
             if ($embed_file =~ m-https?://-) {          my ($plain)=@_;
                 next;                           # points to url          my %storehash=('folder' => $plain,
             } else {                         'currentfolder' => $env{'form.folder'});
                 $embed_url = $dirpath.$embed_file;  # points to relative path          if ($parmidx) {
             }             $storehash{'parameter_res'}=$oldresources[$parmidx];
         }             foreach my $parm (keys(%parmaction)) {
         if ($caller eq 'resource') {                $storehash{'parameter_action_'.$parm}=$parmaction{$parm};
             my $respath =  $Apache::lonnet::perlvar{'lonDocRoot'}.'/res';                  $storehash{'parameter_value_'.$parm}=$parmvalue{$parm};
             my $embed_path = &Apache::lonnet::filelocation($respath,$embed_url);             }
             $embed_content = &Apache::lonnet::getfile($embed_path);          }
             unless ($embed_content eq -1) {          my $maxidx=$#oldresources;
                 $repstatus = 'ok';          if ($#LONCAPA::map::resources>$#oldresources) {
             }             $maxidx=$#LONCAPA::map::resources;
         } elsif ($caller eq 'uploaded') {          }
                      for (my $idx=0; $idx<=$maxidx; $idx++) {
             $repstatus = &Apache::lonnet::getuploaded('GET',$embed_url,$cdom,$cnum,\$embed_content,$rtncode);             if ($LONCAPA::map::resources[$idx] ne $oldresources[$idx]) {
         }                $storehash{'before_resources_'.$idx}=$oldresources[$idx];
         if ($repstatus eq 'ok') {                $storehash{'after_resources_'.$idx}=$LONCAPA::map::resources[$idx];
             my $destination = $tempexport.'/resources/'.$count.'/res';                $changedflag=1;
             if (!-e "$destination") {             }
                 mkdir($destination,0755);             if ($LONCAPA::map::order[$idx] ne $oldorder[$idx]) {
             }                $storehash{'before_order_res_'.$idx}=$oldresources[$oldorder[$idx]];
             $destination .= '/'.$filename;                $storehash{'after_order_res_'.$idx}=$LONCAPA::map::resources[$LONCAPA::map::order[$idx]];
             my $copiedfile;                $changedflag=1;
             if ($copiedfile = Apache::File->new('>'.$destination)) {             }
                 print $copiedfile $embed_content;          }
                 push(@{$href},'resources/'.$count.'/res/'.$filename);   $storehash{'maxidx'}=$maxidx;
                 my $attrib_regexp = '';          if ($changedflag) { &log_docs(\%storehash); }
                 if (@{$allfiles{$embed_file}} > 1) {      }
                     $attrib_regexp = join('|',@{$allfiles{$embed_file}});  }
                 } else {  
                     $attrib_regexp = $allfiles{$embed_file}[0];  sub docs_change_log {
                 }      my ($r,$coursenum,$coursedom,$folder,$allowed,$crstype,$iconpath)=@_;
                 $$content =~ s#($attrib_regexp\s*=\s*['"]?)\Q$embed_file\E(['"]?)#$1$newname$2#gi;      my $supplementalflag=($env{'form.folderpath'}=~/^supplemental/);
                 if ($caller eq 'resource' && $container =~ /\.(problem|library)$/) {      my $js = '<script type="text/javascript">'."\n".
                     $$content =~ s#\Q$embed_file\E#$newname#gi;               '// <![CDATA['."\n".
                 }               &Apache::loncommon::display_filter_js('docslog')."\n".
             }               &editing_js($env{'user.domain'},$env{'user.name'},$supplementalflag,
         } else {                           $coursedom,$coursenum)."\n".
             $$message .= 'replication of embedded file - '.$embed_file.' in '.$url.' failed, reason -'.$rtncode."<br />\n";               &history_tab_js()."\n".
         }               &Apache::lonratedt::editscript('simple')."\n".
     }               '// ]]>'."\n".
     return;               '</script>'."\n";
 }      $r->print(&Apache::loncommon::start_page('Content Change Log',$js));
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Content Change Log'));
 sub store_template {      $r->print(&startContentScreen(($supplementalflag?'suppdocs':'docs')));
     my ($contents,$tempexport,$count,$content_type) = @_;      my %orderhash;
     if ($contents) {      my $container='sequence';
         if ($tempexport) {      my $pathitem;
             if (!-e $tempexport.'/resources') {      if ($env{'form.folderpath'} =~ /\:1$/) {
                 mkdir($tempexport.'/resources',0700);          $container='page';
             }      }
             if (!-e $tempexport.'/resources/'.$count) {      my $folderpath=$env{'form.folderpath'};
                 mkdir($tempexport.'/resources/'.$count,0700);      if ($folderpath eq '') {
             }          $folderpath = 'default&'.&escape(&mt('Main Content').':::::');
             my $destination = $tempexport.'/resources/'.$count.'/'.$content_type.'.xml';      }
             my $storetemplate;      $pathitem = '<input type="hidden" name="folderpath" value="'.
             if ($storetemplate = Apache::File->new('>'.$destination)) {                  &HTML::Entities::encode($folderpath,'<>&"').'" />';
                 print $storetemplate $contents;      my $readfile="/uploaded/$coursedom/$coursenum/$folder.$container";
                 close($storetemplate);      my $jumpto = $readfile;
             }      $jumpto =~ s{^/}{};
             if ($content_type eq 'external') {      my $tid = 1;
                 return 'resources/'.$count.'/'.$content_type.'.html';      if ($supplementalflag) {
             } else {          $tid = 2;
                 return 'resources/'.$count.'/'.$content_type.'.xml';      }
             }      my ($breadcrumbtrail) = 
         }          &Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
     }      $r->print($breadcrumbtrail.
 }                &generate_edit_table($tid,\%orderhash,undef,$iconpath,$jumpto,
                 $readfile));
       my %docslog=&Apache::lonnet::dump('nohist_docslog',
 sub group_import {                                        $env{'course.'.$env{'request.course.id'}.'.domain'},
     my ($coursenum, $coursedom, $folder, $container, $caller, @files) = @_;                                        $env{'course.'.$env{'request.course.id'}.'.num'});
   
     while (@files) {      if ((keys(%docslog))[0]=~/^error\:/) { undef(%docslog); }
  my ($name, $url, $residx) = @{ shift(@files) };  
         if (($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page|sequence)$})      my %saveable_parameters = ('show' => 'scalar',);
      && ($caller eq 'londocs')      &Apache::loncommon::store_course_settings('docs_log',
      && (!&Apache::lonnet::stat_file($url))) {                                                \%saveable_parameters);
           &Apache::loncommon::restore_course_settings('docs_log',
             my $errtext = '';                                                  \%saveable_parameters);
             my $fatal = 0;      if (!$env{'form.show'}) { $env{'form.show'}=10; }
             my $newmapstr = '<map>'."\n".  # FIXME: internationalization seems wrong here
                             '<resource id="1" src="" type="start"></resource>'."\n".      my %lt=('hiddenresource' => 'Resources hidden',
                             '<link from="1" to="2" index="1"></link>'."\n".      'encrypturl'     => 'URL hidden',
                             '<resource id="2" src="" type="finish"></resource>'."\n".      'randompick'     => 'Randomly pick',
                             '</map>';      'randomorder'    => 'Randomly ordered',
             $env{'form.output'}=$newmapstr;      'set'            => 'set to',
             my $result=&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,      'del'            => 'deleted');
                                                 'output',$1.$2);      my $filter = &Apache::loncommon::display_filter('docslog')."\n".
             if ($result != m|^/uploaded/|) {                   $pathitem."\n".
                 $errtext.='Map not saved: A network error occurred when trying to save the new map. ';                   '<input type="hidden" name="folder" value="'.$env{'form.folder'}.'" />'.
                 $fatal = 2;                   ('&nbsp;'x2).'<input type="submit" value="'.&mt('Display').'" />';
             }      $r->print('<div class="LC_left_float">'.
             if ($fatal) {                '<fieldset><legend>'.&mt('Display of Content Changes').'</legend>'."\n".
                 return ($errtext,$fatal);                &makedocslogform($filter,1).
             }                '</fieldset></div><br clear="all" />');
         }      $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
  if ($url) {                '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Folder').'</th><th>'.&mt('Before').'</th><th>'.
     if (!$residx                &mt('After').'</th>'.
  || defined($LONCAPA::map::zombies[$residx])) {                &Apache::loncommon::end_data_table_header_row());
  $residx = &LONCAPA::map::getresidx($url,$residx);      my $shown=0;
  push(@LONCAPA::map::order, $residx);      foreach my $id (sort { $docslog{$b}{'exe_time'}<=>$docslog{$a}{'exe_time'} } (keys(%docslog))) {
     }   if ($env{'form.displayfilter'} eq 'currentfolder') {
     my $ext = 'false';      if ($docslog{$id}{'logentry'}{'currentfolder'} ne $folder) { next; }
     if ($url=~m{^http://} || $url=~m{^https://}) { $ext = 'true'; }   }
     $url  = &LONCAPA::map::qtunescape($url);          my @changes=keys(%{$docslog{$id}{'logentry'}});
     $name = &LONCAPA::map::qtunescape($name);          if ($env{'form.displayfilter'} eq 'containing') {
     $LONCAPA::map::resources[$residx] =      my $wholeentry=$docslog{$id}{'exe_uname'}.':'.$docslog{$id}{'exe_udom'}.':'.
  join(':', ($name, $url, $ext, 'normal', 'res'));   &Apache::loncommon::plainname($docslog{$id}{'exe_uname'},$docslog{$id}{'exe_udom'});
  }      foreach my $key (@changes) {
     }   $wholeentry.=':'.$docslog{$id}{'logentry'}{$key};
     return &storemap($coursenum, $coursedom, $folder.'.'.$container);      }
 }      if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }
    }
 sub breadcrumbs {          my $count = 0;
     my ($where,$allowed,$type)=@_;          my $time =
     &Apache::lonhtmlcommon::clear_breadcrumbs();              &Apache::lonlocal::locallocaltime($docslog{$id}{'exe_time'});
     my (@folders);          my $plainname =
     if ($env{'form.pagepath'}) {              &Apache::loncommon::plainname($docslog{$id}{'exe_uname'},
         @folders = split('&',$env{'form.pagepath'});                                            $docslog{$id}{'exe_udom'});
     } else {          my $about_me_link =
         @folders=split('&',$env{'form.folderpath'});              &Apache::loncommon::aboutmewrapper($plainname,
     }                                                 $docslog{$id}{'exe_uname'},
     my $folderpath;                                                 $docslog{$id}{'exe_udom'});
     my $cpinfo='';          my $send_msg_link='';
     my $plain='';          if ((($docslog{$id}{'exe_uname'} ne $env{'user.name'})
     my $randompick=-1;               || ($docslog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
     my $isencrypted=0;              $send_msg_link ='<br />'.
     my $ishidden=0;                  &Apache::loncommon::messagewrapper(&mt('Send message'),
     my $is_random_order=0;                                                     $docslog{$id}{'exe_uname'},
     while (@folders) {                                                     $docslog{$id}{'exe_udom'});
  my $folder=shift(@folders);          }
     my $foldername=shift(@folders);          $r->print(&Apache::loncommon::start_data_table_row());
  if ($folderpath) {$folderpath.='&';}          $r->print('<td>'.$time.'</td>
  $folderpath.=$folder.'&'.$foldername;                         <td>'.$about_me_link.
  my $url='/adm/coursedocs?folderpath='.                    '<br /><tt>'.$docslog{$id}{'exe_uname'}.
     &escape($folderpath);                                    ':'.$docslog{$id}{'exe_udom'}.'</tt>'.
     my $name=&unescape($foldername);                    $send_msg_link.'</td><td>'.
 # randompick number, hidden, encrypted, random order, is appended with ":"s to the foldername                    $docslog{$id}{'logentry'}{'folder'}.'</td><td>');
      $name=~s/\:(\d*)\:(\w*)\:(\w*):(\d*)$//;          my $is_supp = 0; 
     if ($1 ne '') {          if ($docslog{$id}{'logentry'}{'currentfolder'} =~ /^supplemental/) {
                $randompick=$1;              $is_supp = 1;
             } else {          }
                $randompick=-1;  # Before
             }   for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
             if ($2) { $ishidden=1; }      my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];
             if ($3) { $isencrypted=1; }      my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];
     if ($4 ne '') { $is_random_order = 1; }      if ($oldname ne $newname) {
             if ($folder eq 'supplemental') {                  my $shown = &LONCAPA::map::qtescape($oldname);
                 if ($allowed) {                  if ($is_supp) {
                     $name = &mt('Supplemental '.$type.' Documents');                      $shown = &Apache::loncommon::parse_supplemental_title($shown);
                 } else {                  }
                     $name = &mt($type.' Documents');                  $r->print($shown);
                 }      }
             }   }
     &Apache::lonhtmlcommon::add_breadcrumb(   $r->print('<ul>');
       {'href'=>$url.$cpinfo,   for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
        'title'=>$name,              if ($docslog{$id}{'logentry'}{'before_order_res_'.$idx}) {
        'text'=>'<font size="+1">'.                  my $shown = &LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'before_order_res_'.$idx}))[0]);
    $name.'</font>',                  if ($is_supp) {
        'no_mt'=>1,                      $shown = &Apache::loncommon::parse_supplemental_title($shown);
        });                  }
  $plain.=$name.' &gt; ';   $r->print('<li>'.$shown.'</li>');
     }      }
     $plain=~s/\&gt\;\s*$//;   }
     return (&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp',   $r->print('</ul>');
        'LC_docs_path'),$randompick,$ishidden,$isencrypted,$plain,$is_random_order);  # After
 }          $r->print('</td><td>');
   
 sub log_docs {   for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
     return &Apache::lonnet::instructor_log('docslog',@_);      my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];
 }      my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];
       if ($oldname ne '' && $oldname ne $newname) {
 {                  my $shown = &LONCAPA::map::qtescape($newname);
     my @oldresources=();                  if ($is_supp) {
     my @oldorder=();                      $shown = &Apache::loncommon::parse_supplemental_title(&LONCAPA::map::qtescape($newname));
     my $parmidx;                  }
     my %parmaction=();                  $r->print($shown);
     my %parmvalue=();      }
     my $changedflag;   }
    $r->print('<ul>');
     sub snapshotbefore {   for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
         @oldresources=@LONCAPA::map::resources;              if ($docslog{$id}{'logentry'}{'after_order_res_'.$idx}) {
         @oldorder=@LONCAPA::map::order;                  my $shown = &LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'after_order_res_'.$idx}))[0]);
         $parmidx=undef;                  if ($is_supp) {
         %parmaction=();                      $shown = &Apache::loncommon::parse_supplemental_title($shown);
         %parmvalue=();                  }
         $changedflag=0;                  $r->print('<li>'.$shown.'</li>');
     }      }
    }
     sub remember_parms {   $r->print('</ul>');
         my ($idx,$parameter,$action,$value)=@_;   if ($docslog{$id}{'logentry'}{'parameter_res'}) {
         $parmidx=$idx;      $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');
         $parmaction{$parameter}=$action;      foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder') {
         $parmvalue{$parameter}=$value;   if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {
         $changedflag=1;  # FIXME: internationalization seems wrong here
     }      $r->print('<li>'.
         &mt($lt{$parameter}.' '.$lt{$docslog{$id}{'logentry'}{'parameter_action_'.$parameter}}.' [_1]',
     sub log_differences {    $docslog{$id}{'logentry'}{'parameter_value_'.$parameter})
         my ($plain)=@_;        .'</li>');
         my %storehash=('folder' => $plain,   }
                        'currentfolder' => $env{'form.folder'});      }
         if ($parmidx) {      $r->print('</ul>');
            $storehash{'parameter_res'}=$oldresources[$parmidx];   }
            foreach my $parm (keys(%parmaction)) {  # End
               $storehash{'parameter_action_'.$parm}=$parmaction{$parm};          $r->print('</td>'.&Apache::loncommon::end_data_table_row());
               $storehash{'parameter_value_'.$parm}=$parmvalue{$parm};          $shown++;
            }          if (!($env{'form.show'} eq &mt('all')
         }                || $shown<=$env{'form.show'})) { last; }
         my $maxidx=$#oldresources;      }
         if ($#LONCAPA::map::resources>$#oldresources) {      $r->print(&Apache::loncommon::end_data_table()."\n".
            $maxidx=$#LONCAPA::map::resources;                &makesimpleeditform($pathitem)."\n".
         }                '</div></div>');
         for (my $idx=0; $idx<=$maxidx; $idx++) {      $r->print(&endContentScreen());
            if ($LONCAPA::map::resources[$idx] ne $oldresources[$idx]) {  }
               $storehash{'before_resources_'.$idx}=$oldresources[$idx];  
               $storehash{'after_resources_'.$idx}=$LONCAPA::map::resources[$idx];  sub update_paste_buffer {
               $changedflag=1;      my ($coursenum,$coursedom,$folder) = @_;
            }      my (@possibles,%removals,%cuts,$output);
            if ($LONCAPA::map::order[$idx] ne $oldorder[$idx]) {      if ($env{'form.multiremove'}) {
               $storehash{'before_order_res_'.$idx}=$oldresources[$oldorder[$idx]];          $env{'form.multiremove'} =~ s/,$//;
               $storehash{'after_order_res_'.$idx}=$LONCAPA::map::resources[$LONCAPA::map::order[$idx]];          map { $removals{$_} = 1; } split(/,/,$env{'form.multiremove'});
               $changedflag=1;      }
            }      if (($env{'form.multicopy'}) || ($env{'form.multicut'})) {
         }          if ($env{'form.multicut'}) {
  $storehash{'maxidx'}=$maxidx;              $env{'form.multicut'} =~ s/,$//;
         if ($changedflag) { &log_docs(\%storehash); }              foreach my $item (split(/,/,$env{'form.multicut'})) {
     }                  unless ($removals{$item}) {
 }                      $cuts{$item} = 1;
                       push(@possibles,$item.':cut');
                   }
               }
           }
           if ($env{'form.multicopy'}) {
 sub docs_change_log {              $env{'form.multicopy'} =~ s/,$//;
     my ($r)=@_;              foreach my $item (split(/,/,$env{'form.multicopy'})) {
     my $folder=$env{'form.folder'};                  unless ($removals{$item} || $cuts{$item}) {
     $r->print(&Apache::loncommon::start_page('Course Document Change Log'));                      push(@possibles,$item.':copy'); 
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Document Change Log'));                  }
     my %docslog=&Apache::lonnet::dump('nohist_docslog',              }
                                       $env{'course.'.$env{'request.course.id'}.'.domain'},          }
                                       $env{'course.'.$env{'request.course.id'}.'.num'});      } elsif ($env{'form.markcopy'}) {
           @possibles = split(/,/,$env{'form.markcopy'});
     if ((keys(%docslog))[0]=~/^error\:/) { undef(%docslog); }      }
   
     $r->print('<form action="/adm/coursedocs" method="post" name="docslog">'.      return if (@possibles == 0);
               '<input type="hidden" name="docslog" value="1" />');      return if (!defined($env{'form.copyfolder'}));
   
     my %saveable_parameters = ('show' => 'scalar',);      my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
     &Apache::loncommon::store_course_settings('docs_log',      $env{'form.copyfolder'});
                                               \%saveable_parameters);      return if ($fatal);
     &Apache::loncommon::restore_course_settings('docs_log',  
                                                 \%saveable_parameters);      my %curr_groups = &Apache::longroup::coursegroups();
     if (!$env{'form.show'}) { $env{'form.show'}=10; }  
     my %lt=('hiddenresource' => 'Resources hidden',  # Retrieve current paste buffer suffixes.
     'encrypturl'     => 'URL hidden',      my @currpaste = split(/,/,$env{'docs.markedcopies'});
     'randompick'     => 'Randomly pick',      my (%pasteurls,@newpaste);
     'randomorder'    => 'Randomly ordered',  
     'set'            => 'set to',  # Construct identifiers for current contents of user's paste buffer
     'del'            => 'deleted');      if (@currpaste) {
     $r->print(&Apache::loncommon::display_filter().          foreach my $suffix (@currpaste) {
               '<input type="hidden" name="folder" value="'.$folder.'" />'.               my $cid = $env{'docs.markedcopy_crs_'.$suffix};
               '<input type="submit" value="'.&mt('Display').'" /></form>');               my $url = $env{'docs.markedcopy_url_'.$suffix};
     $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().               my $mapidx = $env{'docs.markedcopy_map_'.$suffix};           
               '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Folder').'</th><th>'.&mt('Before').'</th><th>'.               if (($cid =~ /^$match_domain(?:_)$match_courseid$/) &&
               &mt('After').'</th>'.                   ($url ne '')) {
               &Apache::loncommon::end_data_table_header_row());                   $pasteurls{$cid.'_'.$url.'_'.$mapidx} = 1;
     my $shown=0;               }
     foreach my $id (sort { $docslog{$b}{'exe_time'}<=>$docslog{$a}{'exe_time'} } (keys(%docslog))) {          }
  if ($env{'form.displayfilter'} eq 'currentfolder') {      }
     if ($docslog{$id}{'logentry'}{'currentfolder'} ne $folder) { next; }  
  }  # Mark items for copying (skip any items already in user's paste buffer)
         my @changes=keys(%{$docslog{$id}{'logentry'}});      my %addtoenv;
         if ($env{'form.displayfilter'} eq 'containing') {  
     my $wholeentry=$docslog{$id}{'exe_uname'}.':'.$docslog{$id}{'exe_udom'}.':'.      my @pathitems = split(/\&/,$env{'form.folderpath'});
  &Apache::loncommon::plainname($docslog{$id}{'exe_uname'},$docslog{$id}{'exe_udom'});      my @folderconf = split(/\:/,$pathitems[-1]);
     foreach my $key (@changes) {      my $ispage = $folderconf[4];
  $wholeentry.=':'.$docslog{$id}{'logentry'}{$key};  
     }      foreach my $item (@possibles) {
     if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }                  my ($orderidx,$cmd) = split(/:/,$item);
  }          next if ($orderidx =~ /\D/);
         my $count = 0;          next unless (($cmd eq 'cut') || ($cmd eq 'copy') || ($cmd eq 'remove'));
         my $time =          my $mapidx = $folder.':'.$orderidx.':'.$ispage;
             &Apache::lonlocal::locallocaltime($docslog{$id}{'exe_time'});          my ($title,$url)=split(':',$LONCAPA::map::resources[$orderidx]);
         my $plainname =          my %denied = &action_restrictions($coursenum,$coursedom,
             &Apache::loncommon::plainname($docslog{$id}{'exe_uname'},                                            &LONCAPA::map::qtescape($url),
                                           $docslog{$id}{'exe_udom'});                                            $env{'form.folderpath'},\%curr_groups);
         my $about_me_link =          next if ($denied{'copy'});
             &Apache::loncommon::aboutmewrapper($plainname,          $url=~s{http(&colon;|:)//https(&colon;|:)//}{https$2//};
                                                $docslog{$id}{'exe_uname'},          next if (exists($pasteurls{$coursedom.'_'.$coursenum.'_'.$mapidx}));
                                                $docslog{$id}{'exe_udom'});          my ($suffix,$errortxt,$locknotfreed) =
         my $send_msg_link='';              &new_timebased_suffix($env{'user.domain'},$env{'user.name'},'paste');
         if ((($docslog{$id}{'exe_uname'} ne $env{'user.name'})          if ($suffix ne '') {
              || ($docslog{$id}{'exe_udom'} ne $env{'user.domain'}))) {              push(@newpaste,$suffix);
             $send_msg_link ='<br />'.          } else {
                 &Apache::loncommon::messagewrapper(&mt('Send message'),              if ($locknotfreed) {
                                                    $docslog{$id}{'exe_uname'},                  return $locknotfreed;
                                                    $docslog{$id}{'exe_udom'});              }
         }          }
         $r->print(&Apache::loncommon::start_data_table_row());          if (&is_supplemental_title($title)) {
         $r->print('<td>'.$time.'</td>              &Apache::lonnet::appenv({'docs.markedcopy_supplemental_'.$suffix => $title});
                        <td>'.$about_me_link.      ($title) = &Apache::loncommon::parse_supplemental_title($title);
                   '<br /><tt>'.$docslog{$id}{'exe_uname'}.          }
                                   ':'.$docslog{$id}{'exe_udom'}.'</tt>'.  
                   $send_msg_link.'</td><td>'.          $addtoenv{'docs.markedcopy_title_'.$suffix} = $title,
                   $docslog{$id}{'logentry'}{'folder'}.'</td><td>');          $addtoenv{'docs.markedcopy_url_'.$suffix}   = $url,
 # Before          $addtoenv{'docs.markedcopy_cmd_'.$suffix}   = $cmd,
  for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {          $addtoenv{'docs.markedcopy_crs_'.$suffix}   = $env{'request.course.id'};
     my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];          $addtoenv{'docs.markedcopy_map_'.$suffix}   = $mapidx;
     my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];          if ($url =~ m{^/uploaded/$match_domain/$match_courseid/(default|supplemental)_?(\d*)\.(page|sequence)$}) {
     if ($oldname ne $newname) {              my $prefix = $1;
  $r->print(&LONCAPA::map::qtescape($oldname));              my $subdir =$2;
     }              if ($subdir eq '') {
  }                  $subdir = $prefix;
  $r->print('<ul>');              }
  for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {              my (%addedmaps,%removefrommap,%removeparam,%hierarchy,%titles,%allmaps);
             if ($docslog{$id}{'logentry'}{'before_order_res_'.$idx}) {              &contained_map_check($url,$folder,\%removefrommap,\%removeparam,\%addedmaps,
  $r->print('<li>'.&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'before_order_res_'.$idx}))[0]).'</li>');                                   \%hierarchy,\%titles,\%allmaps);
     }              if (ref($hierarchy{$url}) eq 'HASH') {
  }                  my ($nested,$nestednames);
  $r->print('</ul>');                  &recurse_uploaded_maps($url,$subdir,\%hierarchy,\%titles,\$nested,\$nestednames);
 # After                  $nested =~ s/\&$//;
         $r->print('</td><td>');                  $nestednames =~ s/\Q___&&&___\E$//;
                   if ($nested ne '') {
  for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {                      $addtoenv{'docs.markedcopy_nested_'.$suffix} = $nested;
     my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];                  }
     my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];                  if ($nestednames ne '') {
     if ($oldname ne '' && $oldname ne $newname) {                      $addtoenv{'docs.markedcopy_nestednames_'.$suffix} = $nestednames;
  $r->print(&LONCAPA::map::qtescape($newname));                  }
     }              }
  }                  }
  $r->print('<ul>');          if ($locknotfreed) {
  for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {              $output = $locknotfreed;
             if ($docslog{$id}{'logentry'}{'after_order_res_'.$idx}) {              last;
  $r->print('<li>'.&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'after_order_res_'.$idx}))[0]).'</li>');          }
     }      }
  }      if (@newpaste) {
  $r->print('</ul>');          $addtoenv{'docs.markedcopies'} = join(',',(@currpaste,@newpaste));
  if ($docslog{$id}{'logentry'}{'parameter_res'}) {      }
     $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');      &Apache::lonnet::appenv(\%addtoenv);
     foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder') {      delete($env{'form.markcopy'});
  if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {      return $output;
     $r->print('<li>'.  }
       &mt($lt{$parameter}.' '.$lt{$docslog{$id}{'logentry'}{'parameter_action_'.$parameter}}.' [_1]',  
   $docslog{$id}{'logentry'}{'parameter_value_'.$parameter})  sub recurse_uploaded_maps {
       .'</li>');      my ($url,$dir,$hierarchy,$titlesref,$nestref,$namesref) = @_;
  }      if (ref($hierarchy->{$url}) eq 'HASH') {
     }          my @maps = map { $hierarchy->{$url}{$_}; } sort { $a <=> $b } (keys(%{$hierarchy->{$url}}));
     $r->print('</ul>');          my @titles = map { $titlesref->{$url}{$_}; } sort { $a <=> $b } (keys(%{$titlesref->{$url}}));
  }          my (@uploaded,@names,%shorter);
 # End          for (my $i=0; $i<@maps; $i++) {
         $r->print('</td>'.&Apache::loncommon::end_data_table_row());              my ($inner) = ($maps[$i] =~ m{^/uploaded/$match_domain/$match_courseid/(?:default|supplemental)_(\d+)\.(?:page|sequence)$});
         $shown++;              if ($inner ne '') {
         if (!($env{'form.show'} eq &mt('all')                  push(@uploaded,$inner);
               || $shown<=$env{'form.show'})) { last; }                  push(@names,&escape($titles[$i]));
     }                  $shorter{$maps[$i]} = $inner;
     $r->print(&Apache::loncommon::end_data_table());              }
 }          }
           $$nestref .= "$dir:".join(',',@uploaded).'&';
 sub update_paste_buffer {          $$namesref .= "$dir:".(join(',',@names)).'___&&&___';
     my ($coursenum,$coursedom) = @_;          foreach my $map (@maps) {
               if ($shorter{$map} ne '') {
     return if (!defined($env{'form.markcopy'}));                  &recurse_uploaded_maps($map,$shorter{$map},$hierarchy,$titlesref,$nestref,$namesref);
     return if (!defined($env{'form.copyfolder'}));              }
     return if ($env{'form.markcopy'} < 0);          }
       }
     my ($errtext,$fatal) = &mapread($coursenum,$coursedom,      return;
     $env{'form.copyfolder'});  }
      
     return if ($fatal);  sub print_paste_buffer {
       my ($r,$container,$folder,$coursedom,$coursenum) = @_;
 # Mark for copying      return if (!defined($env{'docs.markedcopies'}));
     my ($title,$url)=split(':',$LONCAPA::map::resources[$LONCAPA::map::order[$env{'form.markcopy'}]]);  
     if (&is_supplemental_title($title)) {      unless (($env{'form.pastemarked'}) || ($env{'form.clearmarked'})) {
         &Apache::lonnet::appenv({'docs.markedcopy_supplemental' => $title});          return if ($env{'docs.markedcopies'} eq '');
  ($title) = &parse_supplemental_title($title);      }
     } elsif ($env{'docs.markedcopy_supplemental'}) {  
         &Apache::lonnet::delenv('docs\\.markedcopy_supplemental');      my @currpaste = split(/,/,$env{'docs.markedcopies'});
     }      my ($pasteitems,@pasteable);
     $url=~s{http(&colon;|:)//https(&colon;|:)//}{https$2//};      my $clipboardcount = 0;
   
     &Apache::lonnet::appenv({'docs.markedcopy_title' => $title,  # Construct identifiers for current contents of user's paste buffer
     'docs.markedcopy_url'   => $url});      foreach my $suffix (@currpaste) {
     delete($env{'form.markcopy'});          next if ($suffix =~ /\D/);
 }          my $cid = $env{'docs.markedcopy_crs_'.$suffix};
           my $url = $env{'docs.markedcopy_url_'.$suffix};
 sub print_paste_buffer {          my $mapidx = $env{'docs.markedcopy_map_'.$suffix};
     my ($r,$container) = @_;          if (($cid =~ /^$match_domain\_$match_courseid$/) &&
     return if (!defined($env{'docs.markedcopy_url'}));              ($url ne '')) {
               $clipboardcount ++;
     $r->print(<<ENDPASTE);              my ($is_external,$othercourse,$fromsupp,$is_uploaded_map,$parent,
 <form name="pasteform" action="/adm/coursedocs" method="post"><p>                  $canpaste,$nopaste,$othercrs,$areachange,$is_exttool);
 ENDPASTE              my $extension = (split(/\./,$env{'docs.markedcopy_url_'.$suffix}))[-1];
     $r->print('<input type="submit" name="pastemarked" value="'.&mt('Paste').'" /> ');              if ($url =~ m{^(?:/adm/wrapper/ext|(?:http|https)(?:&colon;|:))//} ) {
                   $is_external = 1;
     my $type;              } elsif ($url =~ m{^/adm/$match_domain/$match_courseid/\d+/exttools?$}) {
     if ($env{'docs.markedcopy_url'} =~ m{^(?:/adm/wrapper/ext|(?:http|https)(?:&colon;|:))//} ) {                  $is_exttool = 1;
  $type = &mt('External Resource');              }
  $r->print($type.': '.              if ($folder =~ /^supplemental/) {
   &LONCAPA::map::qtescape($env{'docs.markedcopy_title'}).' ('.                  $canpaste = &supp_pasteable($env{'docs.markedcopy_url_'.$suffix});
   &LONCAPA::map::qtescape($env{'docs.markedcopy_url'}).')');                  unless ($canpaste) {
     }  else {                      $nopaste = &mt('Paste into Supplemental Content unavailable.');
  my $extension = (split(/\./,$env{'docs.markedcopy_url'}))[-1];                  }
  my $icon = &Apache::loncommon::icon($extension);              } else {
  if ($extension eq 'sequence' &&                  $canpaste = 1;
     $env{'docs.markedcopy_url'} =~ m{/default_\d+\.sequence$ }x) {              }
     $icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));              if ($canpaste) {
     $icon .= '/folder_closed.gif';                  if ($url =~ m{^/uploaded/($match_domain)/($match_courseid)/(.+)$}) {
  }                      my $srcdom = $1;
  $icon = '<img src="'.$icon.'" alt="" class="LC_icon" />';                      my $srcnum = $2;
  $r->print($icon.$type.': '.  &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'})));                      my $rem = $3;
     }                      if (($srcdom ne $coursedom) || ($srcnum ne $coursenum)) {
     if ($container eq 'page') {                          $othercourse = 1;
  $r->print('                          if ($env{"user.priv.cm./$srcdom/$srcnum"} =~ /\Q:mdc&F\E/) {
  <input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />                              $othercrs = '<br />'.&mt('(from another course)');
  <input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />                          } else {
 ');                              $canpaste = 0;
     } else {                              $nopaste = &mt('Paste from another course unavailable.'); 
  $r->print('                          }
         <input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />                      }
 ');                      if ($rem =~ m{^(default|supplemental)_?(\d*)\.(?:page|sequence)$}) {
     }                          my $prefix = $1;
     $r->print('</p></form>');                          $parent = $2;
 }                          if ($folder !~ /^\Q$prefix\E/) {
                               $areachange = 1;
 sub do_paste_from_buffer {                          }
     my ($coursenum,$coursedom,$folder) = @_;                          $is_uploaded_map = 1;
                       }
     if (!$env{'form.pastemarked'}) {                  } elsif (($url =~ m{^/res/lib/templates/\w+\.problem$}) ||
         return;                           ($url =~ m{^/adm/($match_domain)/($match_username)/\d+/(bulletinboard|smppg)$})) {
     }                      if ($cid ne $env{'request.course.id'}) {
                           my ($srcdom,$srcnum) = split(/_/,$cid);
 # paste resource to end of list                          if ($env{"user.priv.cm./$srcdom/$srcnum"} =~ /\Q:mdc&F\E/) {
     my $url=&LONCAPA::map::qtescape($env{'docs.markedcopy_url'});                              $othercrs = '<br />'.&mt('(from another course)');
     my $title=&LONCAPA::map::qtescape($env{'docs.markedcopy_title'});                          } else {
 # Maps need to be copied first                              $canpaste = 0;
     if (($url=~/\.(page|sequence)$/) && ($url=~/^\/uploaded\//)) {                              $nopaste = &mt('Paste from another course unavailable.');
  $title=&mt('Copy of').' '.$title;                          }       
  my $newid=$$.int(rand(100)).time;                      }
  my ($oldid,$ext) = ($url=~/^(.+)\.(\w+)$/);                  }
         if ($oldid =~ m{^(/uploaded/\Q$coursedom\E/\Q$coursenum\E/)(\D+)(\d+)$}) {                  if ($canpaste) {
             my $path = $1;                      push(@pasteable,$suffix);
             my $prefix = $2;                  }  
             my $ancestor = $3;              }
             if (length($ancestor) > 10) {              my $buffer;
                 $ancestor = substr($ancestor,-10,10);              if (($is_external) || ($is_exttool)) {
             }                  $buffer = &mt('External Resource').': '.
             $oldid = $path.$prefix.$ancestor;                      &LONCAPA::map::qtescape($env{'docs.markedcopy_title_'.$suffix}).' ('.
         }                      &LONCAPA::map::qtescape($url).')';
         my $counter = 0;              } else {
         my $newurl=$oldid.$newid.'.'.$ext;                  my $icon = &Apache::loncommon::icon($extension);
         my $is_unique = &uniqueness_check($newurl);                  if ($extension eq 'sequence' &&
         while (!$is_unique && $counter < 100) {                      $url =~ m{/default_\d+\.sequence$}x) {
             $counter ++;                      $icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));
             $newid ++;                      $icon .= '/navmap.folder.closed.gif';
             $newurl = $oldid.$newid;                  }
             $is_unique = &uniqueness_check($newurl);                  my $title = $env{'docs.markedcopy_title_'.$suffix};
         }                  if ($title eq '') {
         if (!$is_unique) {                      ($title) = ($url =~ m{/([^/]+)$});
             if ($url=~/\.page$/) {                  }
                 return &mt('Paste failed: an error occurred creating a unique URL for the composite page');                  $buffer = '<img src="'.$icon.'" alt="" class="LC_icon" />'.
             } else {                            ': '.
                 return &mt('Paste failed: an error occurred creating a unique URL for the folder');                            &Apache::loncommon::parse_supplemental_title(
             }                               &LONCAPA::map::qtescape($title));
         }              }
  my $storefn=$newurl;              $pasteitems .= '<div class="LC_left_float">';
  $storefn=~s{^/\w+/$match_domain/$match_username/}{};              my ($options,$onclick);
  my $paste_map_result =              if (($canpaste) && (!$areachange) && (!$othercourse) &&
             &Apache::lonclonecourse::writefile($env{'request.course.id'},$storefn,                  ($env{'docs.markedcopy_cmd_'.$suffix} eq 'cut')) {
        &Apache::lonnet::getfile($url));                  if (($is_uploaded_map) ||
         if ($paste_map_result eq '/adm/notfound.html') {                      ($url =~ /(bulletinboard|smppg)$/) ||
             if ($url=~/\.page$/) {                      ($url =~ m{^/uploaded/$coursedom/$coursenum/(?:docs|supplemental)/(.+)$})) {
                 return &mt('Paste failed: an error occurred saving the composite page');                      $options = &paste_options($suffix,$is_uploaded_map,$parent);
             } else {                      $onclick= 'onclick="showOptions(this,'."'$suffix'".');" ';
                 return &mt('Paste failed: an error occurred saving the folder');                  }
             }              }
         }              $pasteitems .= '<label><input type="checkbox" name="pasting" id="pasting_'.$suffix.'" value="'.$suffix.'" '.$onclick.'/>'.$buffer.'</label>';
  $url = $newurl;              if ($nopaste) {
     }                   $pasteitems .= $nopaste;   
 # published maps can only exists once, so remove it from paste buffer when done              } else {
     if (($url=~/\.(page|sequence)$/) && ($url=~m {^/res/})) {                  if ($othercrs) {
  &Apache::lonnet::delenv('docs\\.markedcopy');                      $pasteitems .= $othercrs;
     }                  }
     if ($url=~ m{/smppg$}) {                  if ($options) {
  my $db_name = &Apache::lonsimplepage::get_db_name($url);                      $pasteitems .= $options;
  if ($db_name =~ /^smppage_/) {                  }
     #simple pages, need to copy the db contents to a new one.              }
     my %contents=&Apache::lonnet::dump($db_name,$coursedom,$coursenum);              $pasteitems .= '</div>';
     my $now = time();          }
     $db_name =~ s{_\d*$ }{_$now}x;      }
     my $result=&Apache::lonnet::put($db_name,\%contents,      if ($pasteitems eq '') {
     $coursedom,$coursenum);          &Apache::lonnet::delenv('docs.markedcopies');
     $url =~ s{/(\d*)/smppg$ }{/$now/smppg}x;      }
     $title=&mt('Copy of').' '.$title;      my ($pasteform,$form_start,$buttons,$form_end);
  }      if ($pasteitems) {
     }          $pasteitems .= '<div style="padding:0;clear:both;margin:0;border:0"></div>';
     $title = &LONCAPA::map::qtunescape($title);          $form_start = '<form name="pasteform" action="/adm/coursedocs" method="post" onsubmit="return validateClipboard();">';
     my $ext='false';          if (@pasteable) {
     if ($url=~m{^http(|s)://}) { $ext='true'; }              my $value = &mt('Paste to current folder');
     $url       = &LONCAPA::map::qtunescape($url);              if ($container eq 'page') {
 # Now insert the URL at the bottom                  $value = &mt('Paste to current page');
     my $newidx = &LONCAPA::map::getresidx($url);              } 
     if ($env{'docs.markedcopy_supplemental'}) {              $buttons = '<input type="submit" name="pastemarked" value="'.$value.'" />'.('&nbsp;'x2);
         if ($folder =~ /^supplemental/) {          }
             $title = $env{'docs.markedcopy_supplemental'};          $buttons .= '<input type="submit" name="clearmarked" value="'.&mt('Remove from clipboard').'" />'.('&nbsp;'x2);
         } else {          if ($clipboardcount > 1) {
             (undef,undef,$title) =              $buttons .=
                 &parse_supplemental_title($env{'docs.markedcopy_supplemental'});                  '<span style="text-decoration:line-through">'.('&nbsp;'x20).'</span>'.('&nbsp;'x2).
         }                  '<input type="button" name="checkallclip" value="'.&mt('Check all').'" style="height:20px;" onclick="checkClipboard();" />'.
     } else {                  ('&nbsp;'x2).
         if ($folder=~/^supplemental/) {                  '<input type="button" name="uncheckallclip" value="'.&mt('Uncheck all').'" style="height:20px;" onclick="uncheckClipboard();" />'.
            $title=time.'___&&&___'.$env{'user.name'}.'___&&&___'.                  ('&nbsp;'x2);
                   $env{'user.domain'}.'___&&&___'.$title;          }
         }          $form_end = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />'.
     }                      '</form>';
       } else {
     $LONCAPA::map::resources[$newidx]= $title.':'.$url.':'.$ext.':normal:res';          $pasteitems = &mt('Clipboard is empty');
     push(@LONCAPA::map::order, $newidx);      }
     return 'ok';      $r->print($form_start
 # Store the result               .'<fieldset>'
 }               .'<legend>'.&mt('Clipboard').('&nbsp;' x2).$buttons.'</legend>'
                .$pasteitems
 sub uniqueness_check {               .'</fieldset>'
     my ($newurl) = @_;               .$form_end);
     my $unique = 1;  }
     foreach my $res (@LONCAPA::map::order) {  
         my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);  sub paste_options {
         $url=&LONCAPA::map::qtescape($url);      my ($suffix,$is_uploaded_map,$parent) = @_;
         if ($newurl eq $url) {      my ($copytext,$movetext);
             $unique = 0;      if ($is_uploaded_map) {
             last;              $copytext = &mt('Copy to new folder');
         }          $movetext = &mt('Move old');
     }      } elsif ($env{'docs.markedcopy_url_'.$suffix} =~ /bulletinboard$/) {
     return $unique;          $copytext = &mt('Copy to new board');
 }          $movetext = &mt('Move (not posts)');
       } elsif ($env{'docs.markedcopy_url_'.$suffix} =~ /smppg$/) {
 my %parameter_type = ( 'randompick'     => 'int_pos',          $copytext = &mt('Copy to new page');
        'hiddenresource' => 'string_yesno',          $movetext = &mt('Move');
        'encrypturl'     => 'string_yesno',      } else {
        'randomorder'    => 'string_yesno',);          $copytext = &mt('Copy to new file');
 my $valid_parameters_re = join('|',keys(%parameter_type));          $movetext = &mt('Move');
 # set parameters      }
 sub update_parameter {      my $output = '<br />'.
                    '<span id="pasteoptionstext_'.$suffix.'" class="LC_fontsize_small LC_nobreak"></span>'.
     return 0 if ($env{'form.changeparms'} !~ /^($valid_parameters_re)$/);                   '<div id="pasteoptions_'.$suffix.'" class="LC_dccid" style="display:none;"><span class="LC_nobreak">'.('&nbsp;'x 4).
                    '<label>'.
     my $which = $env{'form.changeparms'};                   '<input type="radio" name="docs.markedcopy_options_'.$suffix.'" value="new" checked="checked" />'.
     my $idx = $env{'form.setparms'};                   $copytext.'</label></span>'.('&nbsp;'x2).' '.
     if ($env{'form.'.$which.'_'.$idx}) {                   '<span class="LC_nobreak"><label>'.
  my $value = ($which eq 'randompick') ? $env{'form.'.$which.'_'.$idx}                   '<input type="radio" name="docs.markedcopy_options_'.$suffix.'" value="move" />'.
                                      : 'yes';                   $movetext.'</label></span>';
  &LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $value,      if (($is_uploaded_map) && ($env{'docs.markedcopy_nested_'.$suffix})) {
       $parameter_type{$which});          $output .= '<br /><fieldset><legend>'.&mt('Folder to paste contains sub-folders').
  &remember_parms($idx,$which,'set',$value);                     '</legend><table border="0">';
     } else {          my @pastemaps = split(/\&/,$env{'docs.markedcopy_nested_'.$suffix});
  &LONCAPA::map::delparameter($idx,'parameter_'.$which);          my @titles = split(/\Q___&&&___\E/,$env{'docs.markedcopy_nestednames_'.$suffix});
           my $lastdir = $parent;
  &remember_parms($idx,$which,'del');          my %depths = (
     }                         $lastdir => 0,
     return 1;                       );
 }          my (%display,%deps);
           for (my $i=0; $i<@pastemaps; $i++) {
               ($lastdir,my $subfolderstr) = split(/\:/,$pastemaps[$i]);
 sub handle_edit_cmd {              my ($namedir,$esctitlestr) = split(/\:/,$titles[$i]);
     my ($coursenum,$coursedom) =@_;              my @subfolders = split(/,/,$subfolderstr);
               $deps{$lastdir} = \@subfolders;
     my ($cmd,$idx)=split('_',$env{'form.cmd'});              my @subfoldertitles = map { &unescape($_); } split(/,/,$esctitlestr);
               my $depth = $depths{$lastdir} + 1;
     my $ratstr = $LONCAPA::map::resources[$LONCAPA::map::order[$idx]];              my $offset = int($depth * 4);
     my ($title, $url, @rrest) = split(':', $ratstr);              my $indent = ('&nbsp;' x $offset);
               for (my $j=0; $j<@subfolders; $j++) {
     if ($cmd eq 'del') {                  $depths{$subfolders[$j]} = $depth;
  if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) &&                  $display{$subfolders[$j]} =
     ($url!~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library|task)$/)) {                      '<tr><td>'.$indent.$subfoldertitles[$j].'&nbsp;</td>'.
     &Apache::lonnet::removeuploadedurl($url);                      '<td><label>'.
  } else {                      '<input type="radio" name="docs.markedcopy_'.$suffix.'_'.$subfolders[$j].'" value="new" checked="checked" />'.&mt('Copy to new').'</label>'.('&nbsp;' x2).
     &LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);                      '<label>'.
  }                      '<input type="radio" name="docs.markedcopy_'.$suffix.'_'.$subfolders[$j].'" value="move" />'.
  splice(@LONCAPA::map::order, $idx, 1);                      &mt('Move old').'</label>'.
                       '</td></tr>';
     } elsif ($cmd eq 'cut') {               }
  &LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);          }
  splice(@LONCAPA::map::order, $idx, 1);          &recurse_print(\$output,$parent,\%deps,\%display);
           $output .= '</table></fieldset>';
     } elsif ($cmd eq 'up'      }
      && ($idx) && (defined($LONCAPA::map::order[$idx-1]))) {      $output .= '</div>';
  @LONCAPA::map::order[$idx-1,$idx] = @LONCAPA::map::order[$idx,$idx-1];      return $output;
   }
     } elsif ($cmd eq 'down'  
      && defined($LONCAPA::map::order[$idx+1])) {  sub recurse_print {
  @LONCAPA::map::order[$idx+1,$idx] = @LONCAPA::map::order[$idx,$idx+1];      my ($outputref,$dir,$deps,$display) = @_;
       $$outputref .= $display->{$dir}."\n";
     } elsif ($cmd eq 'rename') {      if (ref($deps->{$dir}) eq 'ARRAY') {
           foreach my $subdir (@{$deps->{$dir}}) {
  my $comment = &LONCAPA::map::qtunescape($env{'form.title'});              &recurse_print($outputref,$subdir,$deps,$display);
  if ($comment=~/\S/) {          }
     $LONCAPA::map::resources[$LONCAPA::map::order[$idx]]=      }
  $comment.':'.join(':', $url, @rrest);  }
  }  
 # Devalidate title cache  sub supp_pasteable {
  my $renamed_url=&LONCAPA::map::qtescape($url);      my ($url) = @_;
  &Apache::lonnet::devalidate_title_cache($renamed_url);      if (($url =~ m{^(?:/adm/wrapper/ext|(?:http|https)(?:&colon;|:))//}) ||
     } else {          (($url =~ /\.sequence$/) && ($url =~ m{^/uploaded/})) ||
  return 0;          ($url =~ m{^/uploaded/$match_domain/$match_courseid/(docs|supplemental)/(default|\d+)/\d+/}) ||
     }          ($url =~ m{^/adm/$match_domain/$match_username/aboutme}) ||
     return 1;          ($url =~ m{^/public/$match_domain/$match_courseid/syllabus}) ||
 }          ($url =~ m{^/adm/$match_domain/$match_courseid/\d+/exttools?$})) {
           return 1;
 sub editor {      }
     my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$type)=@_;      return;
   }
     my $container= ($env{'form.pagepath'}) ? 'page'  
                            : 'sequence';  sub paste_popup_js {
       my %html_js_lt = &Apache::lonlocal::texthash(
     my ($errtext,$fatal) = &mapread($coursenum,$coursedom,                                            show => 'Show Options',
     $folder.'.'.$container);                                            hide => 'Hide Options',
     return $errtext if ($fatal);                                          );
       my %js_lt = &Apache::lonlocal::texthash(
     if ($#LONCAPA::map::order<1) {                                            none => 'No items selected from clipboard.',
  my $idx=&LONCAPA::map::getresidx();                                          );
  if ($idx<=0) { $idx=1; }      &html_escape(\%html_js_lt);
         $LONCAPA::map::order[0]=$idx;      &js_escape(\%html_js_lt);
         $LONCAPA::map::resources[$idx]='';      &js_escape(\%js_lt);
     }      return <<"END";
      
     my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order)=  function showPasteOptions(suffix) {
  &breadcrumbs($folder,$allowed,$type);      document.getElementById('pasteoptions_'+suffix).style.display='block';
     $r->print($breadcrumbtrail);      document.getElementById('pasteoptionstext_'+suffix).innerHTML = '&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:hidePasteOptions(\\''+suffix+'\\');" class="LC_menubuttons_link">$html_js_lt{'hide'}</a>';
          return;
 # ------------------------------------------------------------ Process commands  }
   
 # ---------------- if they are for this folder and user allowed to make changes  function hidePasteOptions(suffix) {
     if (($allowed) && ($env{'form.folder'} eq $folder)) {      document.getElementById('pasteoptions_'+suffix).style.display='none';
 # set parameters and change order      document.getElementById('pasteoptionstext_'+suffix).innerHTML ='&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:showPasteOptions(\\''+suffix+'\\')" class="LC_menubuttons_link">$html_js_lt{'show'}</a>';
  &snapshotbefore();      return;
   }
  if (&update_parameter()) {  
     ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);  function showOptions(caller,suffix) {
     return $errtext if ($fatal);      if (document.getElementById('pasteoptionstext_'+suffix)) {
  }          if (caller.checked) {
               document.getElementById('pasteoptionstext_'+suffix).innerHTML ='&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:showPasteOptions(\\''+suffix+'\\')" class="LC_menubuttons_link">$html_js_lt{'show'}</a>';
  if ($env{'form.newpos'} && $env{'form.currentpos'}) {          } else {
 # change order              document.getElementById('pasteoptionstext_'+suffix).innerHTML ='';
     my $res = splice(@LONCAPA::map::order,$env{'form.currentpos'}-1,1);          }
     splice(@LONCAPA::map::order,$env{'form.newpos'}-1,0,$res);          if (document.getElementById('pasteoptions_'+suffix)) {
               document.getElementById('pasteoptions_'+suffix).style.display='none';
     ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);          }
     return $errtext if ($fatal);      }
  }      return;
       }
  if ($env{'form.pastemarked'}) {  
             my $paste_res =  function validateClipboard() {
                 &do_paste_from_buffer($coursenum,$coursedom,$folder);      var numchk = 0;
             if ($paste_res eq 'ok') {      if (document.pasteform.pasting.length > 1) {
                 ($errtext,$fatal) = &storemap($coursenum,$coursedom,$folder.'.'.$container);          for (var i=0; i<document.pasteform.pasting.length; i++) {
                 return $errtext if ($fatal);              if (document.pasteform.pasting[i].checked) {
             } elsif ($paste_res ne '') {                  numchk ++;
                 $r->print('<p><span class="LC_error">'.$paste_res.'</span></p>');              }
             }          }
  }      } else {
           if (document.pasteform.pasting.type == 'checkbox') {
  $r->print($upload_output);              if (document.pasteform.pasting.checked) {
                   numchk ++; 
  if (&handle_edit_cmd()) {              } 
     ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);          }
     return $errtext if ($fatal);      }
  }      if (numchk > 0) { 
 # Group import/search          return true;
  if ($env{'form.importdetail'}) {      } else {
     my @imports;          alert("$js_lt{'none'}");
     foreach my $item (split(/\&/,$env{'form.importdetail'})) {          return false;
  if (defined($item)) {      }
     my ($name,$url,$residx)=  }
  map {&unescape($_)} split(/\=/,$item);  
     push(@imports, [$name, $url, $residx]);  function checkClipboard() {
  }      if (document.pasteform.pasting.length > 1) {
     }          for (var i=0; i<document.pasteform.pasting.length; i++) {
     ($errtext,$fatal)=&group_import($coursenum, $coursedom, $folder,              document.pasteform.pasting[i].checked = true;
     $container,'londocs',@imports);          } 
     return $errtext if ($fatal);      }
  }      return;
 # Loading a complete map  }
  if ($env{'form.loadmap'}) {  
     if ($env{'form.importmap'}=~/\w/) {  function uncheckClipboard() {
  foreach my $res (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$env{'form.importmap'}))) {      if (document.pasteform.pasting.length >1) {
     my ($title,$url,$ext,$type)=split(/\:/,$res);          for (var i=0; i<document.pasteform.pasting.length; i++) {
     my $idx=&LONCAPA::map::getresidx($url);              document.pasteform.pasting[i].checked = false;
     $LONCAPA::map::resources[$idx]=$res;          }
     $LONCAPA::map::order[$#LONCAPA::map::order+1]=$idx;      }
  }      return;
  ($errtext,$fatal)=&storemap($coursenum,$coursedom,  }
     $folder.'.'.$container);  
  return $errtext if ($fatal);  END
     } else {  
  $r->print('<p><span class="LC_error">'.&mt('No map selected.').'</span></p>');  }
   
     }  sub do_paste_from_buffer {
  }      my ($coursenum,$coursedom,$folder,$container,$errors) = @_;
  &log_differences($plain);  
     }  # Array of items in paste buffer
 # ---------------------------------------------------------------- End commands      my (@currpaste,%pastebuffer,%allerrors);
 # ---------------------------------------------------------------- Print screen      @currpaste = split(/,/,$env{'docs.markedcopies'});
     my $idx=0;  
     my $shown=0;  # Early out if paste buffer is empty
     if (($ishidden) || ($isencrypted) || ($randompick>=0) || ($is_random_order)) {      if (@currpaste == 0) {
  $r->print('<p>'.&mt('Parameters').':<ul>'.          return ();
   ($randompick>=0?'<li>'.&mt('randomly pick [_1] resources',$randompick).'</li>':'').      } 
   ($ishidden?'<li>'.&mt('contents hidden').'</li>':'').      map { $pastebuffer{$_} = 1; } @currpaste;
   ($isencrypted?'<li>'.&mt('URLs hidden').'</li>':'').  
   '</ul></p>');  # Array of items selected items to paste
     }                                                                                                          my @reqpaste = &Apache::loncommon::get_env_multiple('form.pasting');
     if ($randompick>=0) {  
  $r->print('<p>'.&mt('Caution: this folder is set to randomly pick a subset of resources. Adding or removing resources from this folder will change the set of resources that the students see, resulting in spurious or missing credit for completed problems, not limited to ones you modify. Do not modify the contents of this folder if it is in active student use.').'</p>');  # Early out if nothing selected to paste
     }      if (@reqpaste == 0) {
     if ($is_random_order) {          return();
  $r->print('<p>'.&mt('Caution: this folder is set to randomly order its contents. Adding or removing resources from this folder will change the order of resources shown.').'</p>');      }
     }      my @topaste;
     $r->print('<table class="LC_docs_editor">');      foreach my $suffix (@reqpaste) {
     foreach my $res (@LONCAPA::map::order) {          next if ($suffix =~ /\D/);
  my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);          next unless (exists($pastebuffer{$suffix}));
  $name=&LONCAPA::map::qtescape($name);          push(@topaste,$suffix);
  $url=&LONCAPA::map::qtescape($url);      }
  unless ($name) {  $name=(split(/\//,$url))[-1]; }  
  unless ($name) { $idx++; next; }  # Early out if nothing available to paste
  $r->print(&entryline($idx,$name,$url,$folder,$allowed,$res,      if (@topaste == 0) {
      $coursenum));          return();
  $idx++;      }
  $shown++;  
     }      my (%msgs,%before,%after,@dopaste,%is_map,%notinsupp,%notincrs,%duplicate,
     unless ($shown) {          %prefixchg,%srcdom,%srcnum,%srcmapidx,%marktomove,$save_err,$lockerrors,$allresult);
  $r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');  
     }      foreach my $suffix (@topaste) {
     $r->print("\n</table>\n");          my $url=&LONCAPA::map::qtescape($env{'docs.markedcopy_url_'.$suffix});
     if ($allowed) {          my $cid=&LONCAPA::map::qtescape($env{'docs.markedcopy_crs_'.$suffix});
         &print_paste_buffer($r,$container);          my $mapidx=&LONCAPA::map::qtescape($env{'docs.markedcopy_map_'.$suffix}); 
     }  # Supplemental content may only include certain types of content
     return;  # Early out if pasted content is not supported in Supplemental area
 }          if ($folder =~ /^supplemental/) {
               unless (&supp_pasteable($url)) {
 sub process_file_upload {                  $notinsupp{$suffix} = 1;
     my ($upload_output,$coursenum,$coursedom,$allfiles,$codebase,$uploadcmd) = @_;                  next;
 # upload a file, if present              }
     my $parseaction;          }
    if ($env{'form.parserflag'}) {          if ($url =~ m{^/uploaded/($match_domain)/($match_courseid)/}) {
         $parseaction = 'parse';              my $srcd = $1;
     }              my $srcn = $2;
     my $phase_status;  # When paste buffer was populated using an active role in a different course
     my $folder=$env{'form.folder'};  # check for mdc privilege in the course from which the resource was pasted
     if ($folder eq '') {              if (($srcd ne $coursedom) || ($srcn ne $coursenum)) {
         $folder='default';                  unless ($env{"user.priv.cm./$srcd/$srcn"} =~ /\Q:mdc&F\E/) {
     }                      $notincrs{$suffix} = 1;
     if ( ($folder=~/^$uploadcmd/) || ($uploadcmd eq 'default') ) {                      next;
         my $errtext='';                  }
         my $fatal=0;              }
         my $container='sequence';              $srcdom{$suffix} = $srcd;
         if ($env{'form.pagepath'}) {              $srcnum{$suffix} = $srcn;
             $container='page';          } elsif (($url =~ m{^/res/lib/templates/\w+\.problem$}) ||
         }                   ($url =~ m{^/adm/$match_domain/$match_username/\d+/(bulletinboard|smppg)$})) {
         ($errtext,$fatal)=              my ($srcd,$srcn) = split(/_/,$cid);
               &mapread($coursenum,$coursedom,$folder.'.'.$container);  # When paste buffer was populated using an active role in a different course
         if ($#LONCAPA::map::order<1) {  # check for mdc privilege in the course from which the resource was pasted
             $LONCAPA::map::order[0]=1;              if (($srcd ne $coursedom) || ($srcn ne $coursenum)) {
             $LONCAPA::map::resources[1]='';                  unless ($env{"user.priv.cm./$srcd/$srcn"} =~ /\Q:mdc&F\E/) {
         }                      $notincrs{$suffix} = 1;
         if ($fatal) {                      next;
             return 'failed';                  }
         }              }
         my $destination = 'docs/';              $srcdom{$suffix} = $srcd;
         if ($folder =~ /^supplemental/) {              $srcnum{$suffix} = $srcn;
             $destination = 'supplemental/';          }
         }          $srcmapidx{$suffix} = $mapidx;
         if (($folder eq 'default') || ($folder eq 'supplemental')) {          push(@dopaste,$suffix);
             $destination .= 'default/';          if ($url=~/\.(page|sequence)$/) {
         } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {              $is_map{$suffix} = 1; 
             $destination .=  $2.'/';          }
         }  
 # this is for a course, not a user, so set coursedoc flag          if ($url =~ m{^/uploaded/$match_domain/$match_courseid/([^/]+)}) {
 # probably the only place in the system where this should be "1"              my $oldprefix = $1;
         my $newidx=&LONCAPA::map::getresidx();  # When pasting content from Main Content to Supplemental Content and vice versa 
         $destination .= $newidx;  # URLs will contain different paths (which depend on whether pasted item is
         my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,  # a folder/page or a document).
  $parseaction,$allfiles,              if (($folder =~ /^supplemental/) && (($oldprefix =~ /^default/) || ($oldprefix eq 'docs'))) {
  $codebase);                  $prefixchg{$suffix} = 'docstosupp';
         my $ext='false';              } elsif (($folder =~ /^default/) && ($oldprefix =~ /^supplemental/)) {
         if ($url=~m{^http://}) { $ext='true'; }                  $prefixchg{$suffix} = 'supptodocs';
  $url     = &LONCAPA::map::qtunescape($url);              }
         my $comment=$env{'form.comment'};  
  $comment = &LONCAPA::map::qtunescape($comment);  # If pasting an uploaded map, get list of contained uploaded maps.
         if ($folder=~/^supplemental/) {              if ($env{'docs.markedcopy_nested_'.$suffix}) {
               $comment=time.'___&&&___'.$env{'user.name'}.'___&&&___'.                  my @nested;
                   $env{'user.domain'}.'___&&&___'.$comment;                  my ($type) = ($oldprefix =~ /^(default|supplemental)/);
         }                  my @items = split(/\&/,$env{'docs.markedcopy_nested_'.$suffix});
                   my @deps = map { /\d+:([\d,]+$)/ } @items;
         $LONCAPA::map::resources[$newidx]=                  foreach my $dep (@deps) {
     $comment.':'.$url.':'.$ext.':normal:res';                      if ($dep =~ /,/) {
         $LONCAPA::map::order[$#LONCAPA::map::order+1]= $newidx;                          push(@nested,split(/,/,$dep));
         ($errtext,$fatal)=&storemap($coursenum,$coursedom,                      } else {
     $folder.'.'.$container);                          push(@nested,$dep);
         if ($fatal) {                      }
             $$upload_output .= '<p><span class="LC_error">'.$errtext.'</span></p>';                  }
             return 'failed';                  foreach my $item (@nested) {
         } else {                      if ($env{'form.docs.markedcopy_'.$suffix.'_'.$item} eq 'move') {
             if ($parseaction eq 'parse') {                          push(@{$marktomove{$suffix}},$type.'_'.$item);
                 my $total_embedded = keys(%{$allfiles});                      }
                 if ($total_embedded > 0) {                  }
                     my $num = 0;              }
     my $state = '          }
    <input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />      }
    <input type="hidden" name="cmd" value="upload_embedded" />  
    <input type="hidden" name="newidx" value="'.$newidx.'" />  # Early out if nothing available to paste
    <input type="hidden" name="primaryurl" value="'.&escape($url).'" />      if (@dopaste == 0) {
    <input type="hidden" name="phasetwo" value="'.$total_embedded.'" />';          return ();
     $phase_status = 'phasetwo';      }
   
                     $$upload_output .=  # Populate message hash and hashes used for main content <=> supplemental content
  'This file contains embedded multimedia objects, which need to be uploaded to LON-CAPA.<br />'.  # changes    
  &Apache::loncommon::ask_for_embedded_content(  
                             '/adm/coursedocs',$state,$allfiles,$codebase);      %msgs = &Apache::lonlocal::texthash (
                 } else {                  notinsupp => 'Paste failed: content type is not supported within Supplemental Content',
                     $$upload_output .= 'No embedded items identified<br />';                  notincrs  => 'Paste failed: Item is from a different course which you do not have rights to edit.',
                 }                  duplicate => 'Paste failed: only one instance of a particular published sequence or page is allowed within each course.',
             }              );
         }  
     }      %before = (
     return $phase_status;                   docstosupp => {
 }                                     map => 'default',
                                      doc => 'docs',
 sub process_secondary_uploads {                                 },
     my ($upload_output,$coursedom,$coursenum,$formname,$num,$newidx) = @_;                   supptodocs => {
     my $folder=$env{'form.folder'};                                     map => 'supplemental',
     my $destination = 'docs/';                                     doc => 'supplemental',
     if ($folder =~ /^supplemental/) {                                 },
         $destination = 'supplemental/';                );
     }  
     if (($folder eq 'default') || ($folder eq 'supplemental')) {      %after = (
         $destination .= 'default/';                   docstosupp => {
     } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {                                     map => 'supplemental',
         $destination .=  $2.'/';                                     doc => 'supplemental'
     }                                 },
     $destination .= $newidx;                   supptodocs => {
     my ($url,$filename);                                     map => 'default',
     $url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);                                     doc => 'docs',
     ($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});                                 },
     return $filename;               );
 }  
   # Retrieve information about all course maps in main content area 
 sub is_supplemental_title {  
     my ($title) = @_;      my $allmaps = {};
     return scalar($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/);      if ($folder =~ /^default/) {
 }          $allmaps =
               &Apache::loncommon::allmaps_incourse($coursedom,$coursenum,
 sub parse_supplemental_title {                                                   $env{"course.$env{'request.course.id'}.home"},
     my ($title) = @_;                                                   $env{'request.course.id'});
       }
     my ($foldertitle,$renametitle);  
     if ($title =~ /&amp;&amp;&amp;/) {      my (@toclear,%mapurls,%lockerrs,%msgerrs,%results);
  $title = &HTML::Entites::decode($title);  
     }  # Loop over the items to paste
  if ($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/) {      foreach my $suffix (@dopaste) {
  $renametitle=$4;  # Maps need to be copied first
  my ($time,$uname,$udom) = ($1,$2,$3);          my (%removefrommap,%removeparam,%addedmaps,%rewrites,%retitles,%copies,
  $foldertitle=&Apache::lontexconvert::msgtexconverted($4);              %dbcopies,%zombies,%params,%docmoves,%mapmoves,%mapchanges,%newsubdir,
  my $name =  &Apache::loncommon::plainname($uname,$udom);              %newurls,%tomove,%resdatacopy);
  $name = &HTML::Entities::encode($name,'"<>&\'');          if (ref($marktomove{$suffix}) eq 'ARRAY') {
  $title='<i>'.&Apache::lonlocal::locallocaltime($time).'</i> '.              map { $tomove{$_} = 1; } @{$marktomove{$suffix}};
     $name.': <br />'.$foldertitle;          }
     }          my $url=&LONCAPA::map::qtescape($env{'docs.markedcopy_url_'.$suffix});
     if (wantarray) {          my $title=&LONCAPA::map::qtescape($env{'docs.markedcopy_title_'.$suffix});
  return ($title,$foldertitle,$renametitle);          my $cid=&LONCAPA::map::qtescape($env{'docs.markedcopy_crs_'.$suffix}); 
     }          my $oldurl = $url;
     return $title;          if ($is_map{$suffix}) {
 }  # If pasting a map, check if map contains other maps
               my (%hierarchy,%titles);
 # --------------------------------------------------------------- An entry line              &contained_map_check($url,$folder,\%removefrommap,\%removeparam,
                                    \%addedmaps,\%hierarchy,\%titles,$allmaps);
 sub entryline {              if ($url=~ m{^/uploaded/}) {
     my ($index,$title,$url,$folder,$allowed,$residx,$coursenum)=@_;                  my $newurl;
                   unless ($env{'form.docs.markedcopy_options_'.$suffix} eq 'move') {
     my ($foldertitle,$pagetitle,$renametitle);                      ($newurl,my $error) = 
     if (&is_supplemental_title($title)) {                          &get_newmap_url($url,$folder,$prefixchg{$suffix},$coursedom,
  ($title,$foldertitle,$renametitle) = &parse_supplemental_title($title);                                          $coursenum,$srcdom{$suffix},$srcnum{$suffix},
  $pagetitle = $foldertitle;                                          \$title,$allmaps,\%newurls);
     } else {                      if ($error) {
  $title=&HTML::Entities::encode($title,'"<>&\'');                          $allerrors{$suffix} = $error;
  $renametitle=$title;                          next;
  $foldertitle=$title;                      }
  $pagetitle=$title;                      if ($newurl ne '') {
     }                          if ($newurl ne $url) {
                               if ($newurl =~ /(?:default|supplemental)_(\d+).(?:sequence|page)$/) {
     my $orderidx=$LONCAPA::map::order[$index];                                  $newsubdir{$url} = $1;
                                  }
                               $mapchanges{$url} = 1;
     $renametitle=~s/\\/\\\\/g;                          }
     $renametitle=~s/\&quot\;/\\\"/g;                      }
     $renametitle=~s/ /%20/g;                  }
     my $line='<tr>';                  if (($srcdom{$suffix} ne $coursedom) ||
     my ($form_start,$form_end);                      ($srcnum{$suffix} ne $coursenum) ||
 # Edit commands                      ($prefixchg{$suffix}) || (($newurl ne '') && ($newurl ne $url))) {
     my ($container, $type, $esc_path, $path, $symb);                      unless (&url_paste_fixups($url,$folder,$prefixchg{$suffix},
     if ($env{'form.folderpath'}) {                                                $coursedom,$coursenum,$srcdom{$suffix},
  $type = 'folder';                                                $srcnum{$suffix},$allmaps,\%rewrites,
         $container = 'sequence';                                                \%retitles,\%copies,\%dbcopies,
  $esc_path=&escape($env{'form.folderpath'});                                                \%zombies,\%params,\%mapmoves,
  $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');                                                \%mapchanges,\%tomove,\%newsubdir,
  # $htmlfoldername=&HTML::Entities::encode($env{'form.foldername'},'<>&"');                                                \%newurls,\%resdatacopy)) {
     }                          $mapmoves{$url} = 1;
     if ($env{'form.pagepath'}) {                      }
         $type = $container = 'page';                      $url = $newurl;
         $esc_path=&escape($path = $env{'form.pagepath'});                  } elsif ($env{'docs.markedcopy_nested_'.$suffix}) {
  $path = &HTML::Entities::encode($env{'form.pagepath'},'<>&"');                      &url_paste_fixups($url,$folder,$prefixchg{$suffix},$coursedom,
         $symb=&escape($env{'form.pagesymb'});                                        $coursenum,$srcdom{$suffix},$srcnum{$suffix},
     }                                        $allmaps,\%rewrites,\%retitles,\%copies,\%dbcopies,
     my $cpinfo='';                                        \%zombies,\%params,\%mapmoves,\%mapchanges,
     if ($allowed) {                                        \%tomove,\%newsubdir,\%newurls,\%resdatacopy);
  my $incindex=$index+1;                  }
  my $selectbox='';              } elsif ($url=~m {^/res/}) {
  if (($folder!~/^supplemental/) &&  # published map can only exist once, so remove from paste buffer when done
     ($#LONCAPA::map::order>0) &&                  push(@toclear,$suffix);
     ((split(/\:/,  # if pasting published map (main content area only) check map not already in course
      $LONCAPA::map::resources[$LONCAPA::map::order[0]]))[1]                  if ($folder =~ /^default/) {
      ne '') &&                      if ((ref($allmaps) eq 'HASH') && ($allmaps->{$url})) {
     ((split(/\:/,                          $duplicate{$suffix} = 1; 
      $LONCAPA::map::resources[$LONCAPA::map::order[1]]))[1]                          next;
      ne '')) {                      }
     $selectbox=                  }
  '<input type="hidden" name="currentpos" value="'.$incindex.'" />'.              }
  '<select name="newpos" onChange="this.form.submit()">';          }
     for (my $i=1;$i<=$#LONCAPA::map::order+1;$i++) {          if ($url=~ m{/(bulletinboard|smppg)$}) {
  if ($i==$incindex) {              my $prefix = $1;
     $selectbox.='<option value="" selected="1">('.$i.')</option>';              my $fromothercrs; 
  } else {              #need to copy the db contents to a new one, unless this is a move.
     $selectbox.='<option value="'.$i.'">'.$i.'</option>';              my %info = (
  }                           src  => $url,
     }                           cdom => $coursedom,
     $selectbox.='</select>';                           cnum => $coursenum,
  }                         );
  my %lt=&Apache::lonlocal::texthash(              if (($srcdom{$suffix} =~ /^$match_domain$/) && ($srcnum{$suffix} =~ /^$match_courseid$/)) {
                 'up' => 'Move Up',                  unless (($srcdom{$suffix} eq $coursedom) && ($srcnum{$suffix} eq $coursenum)) {
  'dw' => 'Move Down',                      $fromothercrs = 1;
  'rm' => 'Remove',                      $info{'cdom'} = $srcdom{$suffix};
                 'ct' => 'Cut',                      $info{'cnum'} = $srcnum{$suffix};
  'rn' => 'Rename',                  }
  'cp' => 'Copy');              }
  my $nocopy=0;              unless (($env{'form.docs.markedcopy_options_'.$suffix} eq 'move') && (!$fromothercrs)) {
         my $nocut=0;                  my (%lockerr,$msg); 
         if ($url=~/\.(page|sequence)$/) {                  my ($newurl,$result,$errtext) =
     if ($url =~ m{/res/}) {                      &dbcopy(\%info,$coursedom,$coursenum,\%lockerr);
  # no copy for published maps                  if ($result eq 'ok') {
  $nocopy = 1;                      $url = $newurl;
     } else {                      $title=&mt('Copy of').' '.$title;
  foreach my $item (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$url),1)) {                  } else {
     my ($title,$url,$ext,$type)=split(/\:/,$item);                      if ($prefix eq 'smppg') {
     if (($url=~/\.(page|sequence)/) && ($type ne 'zombie')) {                          $msg = &mt('Paste failed: An error occurred when copying the simple page.').' '.$errtext;
  $nocopy=1;                      } elsif ($prefix eq 'bulletinboard') {
  last;                          $msg = &mt('Paste failed: An error occurred when copying the discussion board.').' '.$errtext;
     }                      }
  }                      $results{$suffix} = $result;
     }                      $msgerrs{$suffix} = $msg;
  }                      $lockerrs{$suffix} = $lockerr{$prefix}; 
         if ($url=~/^\/res\/lib\/templates\//) {                      next;
            $nocopy=1;          }
            $nocut=1;                  if ($lockerr{$prefix}) {
         }                      $lockerrs{$suffix} = $lockerr{$prefix};  
         my $copylink='&nbsp;';                  }
         my $cutlink='&nbsp;';              }
           }
  my $skip_confirm = 0;          $title = &LONCAPA::map::qtunescape($title);
  if ( $folder =~ /^supplemental/          my $ext='false';
      || ($url =~ m{( /smppg$          if ($url=~m{^http(|s)://}) { $ext='true'; }
     |/syllabus$          if ($env{'docs.markedcopy_supplemental_'.$suffix}) {
     |/aboutme$              if ($folder !~ /^supplemental/) {
     |/navmaps$                  (undef,undef,$title) =
     |/bulletinboard$                      &Apache::loncommon::parse_supplemental_title($env{'docs.markedcopy_supplemental_'.$suffix});
     |\.html$              }
     |^/adm/wrapper/ext)}x)) {          } else {
     $skip_confirm = 1;              if ($folder=~/^supplemental/) {
  }                  $title=time.'___&&&___'.$env{'user.name'}.'___&&&___'.
                          $env{'user.domain'}.'___&&&___'.$title;
  if (!$nocopy) {              }
     $copylink=(<<ENDCOPY);          }
 <a href='javascript:markcopy("$esc_path","$index","$renametitle","$container","$symb","$folder");' class="LC_docs_copy">$lt{'cp'}</a>  
 ENDCOPY  # For uploaded files (excluding pages/sequences) path in copied file is changed
         }  # if paste is from Main to Supplemental (or vice versa), or if pasting between
  if (!$nocut) {  # courses.
     $cutlink=(<<ENDCUT);  
 <a href='javascript:cutres("$esc_path","$index","$renametitle","$container","$symb","$folder",$skip_confirm);' class="LC_docs_cut">$lt{'ct'}</a>          unless ($is_map{$suffix}) {
 ENDCUT              my $newidx;
         }  # Now insert the URL at the bottom
  $form_start = (<<END);              $newidx = &LONCAPA::map::getresidx(&LONCAPA::map::qtunescape($url));
    <form  action="/adm/coursedocs" method="post">              if ($url =~ m{^/uploaded/$match_domain/$match_courseid/(?:docs|supplemental)/(.+)$}) {
    <input type="hidden" name="${type}path" value="$path" />                  my $relpath = $1;
    <input type="hidden" name="${type}symb" value="$symb" />                  if ($relpath ne '') {
    <input type="hidden" name="setparms" value="$orderidx" />                      my ($prefix,$subdir,$rem) = ($relpath =~ m{^(default|\d+)/(\d+)/(.+)$});
    <input type="hidden" name="changeparms" value="0" />                      my ($newloc,$newdocsdir) = ($folder =~ /^(default|supplemental)_?(\d*)/);
 END                      my $newprefix = $newloc;
         $form_end = '</form>';                      if ($newloc eq 'default') {
  $line.=(<<END);                          $newprefix = 'docs';
 <td>                      }
    <table class="LC_docs_entry_move">                      if ($newdocsdir eq '') {
       <tr>                          $newdocsdir = 'default';
          <td>                      }
             <a href='/adm/coursedocs?cmd=up_$index&amp;${type}path=$esc_path&amp;${type}symb=$symb$cpinfo'><img src="${iconpath}move_up.gif" alt='$lt{'up'}' class="LC_icon" /></a>                      if (($prefixchg{$suffix}) || 
          </td>                          ($srcdom{$suffix} ne $coursedom) || 
       </tr>                          ($srcnum{$suffix} ne $coursenum) ||
       <tr>                          ($env{'form.docs.markedcopy_options_'.$suffix} ne 'move')) {
         <td>                          my $newpath = "$newprefix/$newdocsdir/$newidx/$rem";
            <a href='/adm/coursedocs?cmd=down_$index&amp;${type}path=$esc_path&amp;${type}symb=$symb$cpinfo'><img src="${iconpath}move_down.gif" alt='$lt{'dw'}' class="LC_icon" /></a>                          $url =
         </td>                              &Apache::lonclonecourse::writefile($env{'request.course.id'},$newpath,
       </tr>                                                                 &Apache::lonnet::getfile($oldurl));
     </table>                          if ($url eq '/adm/notfound.html') {
 </td>                              $msgs{$suffix} = &mt('Paste failed: an error occurred saving the file.');
 <td>                              next;
    $form_start                          } else {
    $selectbox                              my ($newsubpath) = ($newpath =~ m{^(.*/)[^/]*$});
    $form_end                              $newsubpath =~ s{/+$}{/};
 </td>                              $docmoves{$oldurl} = $newsubpath;
 <td class="LC_docs_entry_commands">                          }
    <a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>                      }
 $cutlink                  }
    <a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>              } elsif ($url =~ m{^/res/lib/templates/(\w+)\.problem$}) {
 $copylink                  my $template = $1;
 </td>                  if ($newidx) {
 END                      &copy_templated_files($url,$srcdom{$suffix},$srcnum{$suffix},$srcmapidx{$suffix},
                                             $coursedom,$coursenum,$template,$newidx,"$folder.$container");
     }                  }
 # Figure out what kind of a resource this is              }
     my ($extension)=($url=~/\.(\w+)$/);              $LONCAPA::map::resources[$newidx]=$title.':'.&LONCAPA::map::qtunescape($url).
     my $uploaded=($url=~/^\/*uploaded\//);                                                ':'.$ext.':normal:res';
     my $icon=&Apache::loncommon::icon($url);              push(@LONCAPA::map::order,$newidx);
     my $isfolder=0;  # Store the result
     my $ispage=0;              my ($errtext,$fatal) =
     my $folderarg;                  &storemap($coursenum,$coursedom,$folder.'.'.$container,1);
     my $pagearg;              if ($fatal) {
     my $pagefile;                  $save_err .= $errtext;
     if ($uploaded) {                  $allresult = 'fail';
  if ($extension eq 'sequence') {              }
     $icon=$iconpath.'/folder_closed.gif';          }
     $url=~/\Q$coursenum\E\/([\/\w]+)\.sequence$/;  
     $url='/adm/coursedocs?';  # Apply any changes to maps, or copy dependencies for uploaded HTML pages, or update
     $folderarg=$1;  # resourcedata for simpleproblems copied from another course 
     $isfolder=1;          unless ($allresult eq 'fail') {
         } elsif ($extension eq 'page') {              my %updated = (
             $icon=$iconpath.'/page.gif';                              rewrites      => \%rewrites,
             $url=~/\Q$coursenum\E\/([\/\w]+)\.page$/;                              zombies       => \%zombies,
             $pagearg=$1;                              removefrommap => \%removefrommap,
             $url='/adm/coursedocs?';                              removeparam   => \%removeparam,
             $ispage=1;                              dbcopies      => \%dbcopies,
  } else {                              resdatacopy   => \%resdatacopy,
     &Apache::lonnet::allowuploaded('/adm/coursedoc',$url);                              retitles      => \%retitles,
  }                            );
     }              my %info = (
                                 newsubdir => \%newsubdir,
     my $orig_url = $url;                             params    => \%params,
     my $external = ($url=~s{^http(|s)(&colon;|:)//}{/adm/wrapper/ext/});                         );
     if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) {              if ($prefixchg{$suffix}) {
  my $symb=&Apache::lonnet::symbclean(                  $info{'before'} = $before{$prefixchg{$suffix}};
           &Apache::lonnet::declutter('uploaded/'.                  $info{'after'} = $after{$prefixchg{$suffix}};
            $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.              }
            $env{'course.'.$env{'request.course.id'}.'.num'}.'/'.$folder.              my %moves = (
            '.sequence').                             copies   => \%copies,
            '___'.$residx.'___'.                             docmoves => \%docmoves,
    &Apache::lonnet::declutter($url));                             mapmoves => \%mapmoves,
  (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);                          );
  $url=&Apache::lonnet::clutter($url);              (my $result,$msgs{$suffix},my $lockerror) =
  if ($url=~/^\/*uploaded\//) {                  &apply_fixups($folder,$is_map{$suffix},$coursedom,$coursenum,$errors,
     $url=~/\.(\w+)$/;                                \%updated,\%info,\%moves,$prefixchg{$suffix},$oldurl,
     my $embstyle=&Apache::loncommon::fileembstyle($1);                                $url,'paste');
     if (($embstyle eq 'img') || ($embstyle eq 'emb')) {              $lockerrors .= $lockerror;
  $url='/adm/wrapper'.$url;              if ($result eq 'ok') {
     } elsif ($embstyle eq 'ssi') {                  if ($is_map{$suffix}) {
  #do nothing with these                      my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
     } elsif ($url!~/\.(sequence|page)$/) {                                                      $folder.'.'.$container);
  $url='/adm/coursedocs/showdoc'.$url;                      if ($fatal) {
     }                          $allresult = 'failread';
  } elsif ($url=~m|^/ext/|) {                      } else {
     $url='/adm/wrapper'.$url;                          if ($#LONCAPA::map::order<1) {
     $external = 1;                              my $idx=&LONCAPA::map::getresidx();
  }                              if ($idx<=0) { $idx=1; }
         if (&Apache::lonnet::symbverify($symb,$url)) {                              $LONCAPA::map::order[0]=$idx;
     $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);                              $LONCAPA::map::resources[$idx]='';
         } else {                          }
             $url='';                          my $newidx = &LONCAPA::map::getresidx(&LONCAPA::map::qtunescape($url));
         }                          $LONCAPA::map::resources[$newidx]=$title.':'.&LONCAPA::map::qtunescape($url).
  if ($container eq 'page') {                                                            ':'.$ext.':normal:res';
     my $symb=$env{'form.pagesymb'};                          push(@LONCAPA::map::order,$newidx);
           
     $url=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);  # Store the result
     $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);                          my ($errtext,$fatal) = 
  }                              &storemap($coursenum,$coursedom,$folder.'.'.$container,1);
     }                          if ($fatal) {
     my ($parameterset,$rand_order_text) = ('&nbsp;', '&nbsp;');                              $save_err .= $errtext;
     if ($isfolder || $extension eq 'sequence') {                              $allresult = 'failstore';
  my $foldername=&escape($foldertitle);                          }
  my $folderpath=$env{'form.folderpath'};                      } 
  if ($folderpath) { $folderpath.='&' };                  }
 # Append randompick number, hidden, and encrypted with ":" to foldername,                  if ($env{'form.docs.markedcopy_options_'.$suffix} eq 'move') {
 # so it gets transferred between levels                       push(@toclear,$suffix);
  $folderpath.=$folderarg.'&'.$foldername.':'.(&LONCAPA::map::getparameter($orderidx,                  }
                                               'parameter_randompick'))[0]              }
                                                .':'.((&LONCAPA::map::getparameter($orderidx,          }
                                               'parameter_hiddenresource'))[0]=~/^yes$/i)      }
                                                .':'.((&LONCAPA::map::getparameter($orderidx,      &clear_from_buffer(\@toclear,\@currpaste);
                                               'parameter_encrypturl'))[0]=~/^yes$/i)      my $msgsarray;
                                                .':'.((&LONCAPA::map::getparameter($orderidx,      foreach my $suffix (keys(%msgs)) {
                                               'parameter_randomorder'))[0]=~/^yes$/i);           if (ref($msgs{$suffix}) eq 'ARRAY') {
  $url.='folderpath='.&escape($folderpath).$cpinfo;               $msgsarray .= join(',',@{$msgs{$suffix}});
  $parameterset='<label>'.&mt('Randomly Pick: ').           }
     '<input type="text" size="4" onChange="this.form.changeparms.value='."'randompick'".';this.form.submit()" name="randompick_'.$orderidx.'" value="'.      }
     (&LONCAPA::map::getparameter($orderidx,      return ($allresult,$save_err,$msgsarray,$lockerrors);
                                               'parameter_randompick'))[0].  }
                                               '" />'.  
 '<a href="javascript:void(0)">'.&mt('Save').'</a></label>';  sub do_buffer_empty {
     my $ro_set=      my @currpaste = split(/,/,$env{'docs.markedcopies'});
     ((&LONCAPA::map::getparameter($orderidx,'parameter_randomorder'))[0]=~/^yes$/i?' checked="checked"':'');      if (@currpaste == 0) {
  $rand_order_text ='          return &mt('Clipboard is already empty');
 <span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" onClick="this.form.changeparms.value=\'randomorder\';this.form.submit()" '.$ro_set.' /> '.&mt('Random Order').' </label></span>';        }
     }      my @toclear = &Apache::loncommon::get_env_multiple('form.pasting');
     if ($ispage) {      if (@toclear == 0) {
         my $pagename=&escape($pagetitle);          return &mt('Nothing selected to clear from clipboard');
         my $pagepath;      }
         my $folderpath=$env{'form.folderpath'};      my $numdel = &clear_from_buffer(\@toclear,\@currpaste);
         if ($folderpath) { $pagepath = $folderpath.'&' };      if ($numdel) {
         $pagepath.=$pagearg.'&'.$pagename;          return &mt('[quant,_1,item] cleared from clipboard',$numdel);
  my $symb=$env{'form.pagesymb'};      } else {
  if (!$symb) {          return &mt('Clipboard unchanged');
     my $path='uploaded/'.      }
  $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.      return;
  $env{'course.'.$env{'request.course.id'}.'.num'}.'/';  }
     $symb=&Apache::lonnet::encode_symb($path.$folder.'.sequence',  
        $residx,  sub clear_from_buffer {
        $path.$pagearg.'.page');      my ($toclear,$currpaste) = @_;
  }      return unless ((ref($toclear) eq 'ARRAY') && (ref($currpaste) eq 'ARRAY'));
  $url.='pagepath='.&escape($pagepath).      my %pastebuffer;
     '&amp;pagesymb='.&escape($symb).$cpinfo;      map { $pastebuffer{$_} = 1; } @{$currpaste};
     }      my $numdel = 0;
     if ($external) {      foreach my $suffix (@{$toclear}) {
  my $form = ($folder =~ /^default/)? 'newext' : 'supnewext';          next if ($suffix =~ /\D/);
  $external = '&nbsp;<a class="LC_docs_ext_edit" href="javascript:edittext(\''.$form.'\',\''.$residx.'\',\''.&escape($title).'\',\''.&escape($orig_url).'\');" >'.&mt('Edit').'</a>';          next unless (exists($pastebuffer{$suffix}));
     } else {          my $regexp = 'docs.markedcopy_[a-z]+_'.$suffix;
  undef($external);          if (&Apache::lonnet::delenv($regexp,1) eq 'ok') {
     }              delete($pastebuffer{$suffix});
     $line.='              $numdel ++;
   <td class="LC_docs_entry_icon">          }
     '.($url?'<a href="'.$url.'">':'').'<img src="'.$icon.'" alt="" class="LC_icon" />'.($url?'</a>':'').'      }
   </td>      my $newbuffer = join(',',sort(keys(%pastebuffer)));
   <td class="LC_docs_entry_title">      &Apache::lonnet::appenv({'docs.markedcopies' => $newbuffer});
     '.($url?"<a href=\"$url\">":'').$title.($url?'</a>':' <span class="LC_docs_reinit_warn">'.&mt('(re-initialize course to access)').'</span>').$external."      return $numdel;
   </td>";  }
     if (($allowed) && ($folder!~/^supplemental/)) {  
   my %lt=&Apache::lonlocal::texthash(  sub get_newmap_url {
        'hd' => 'Hidden',      my ($url,$folder,$prefixchg,$coursedom,$coursenum,$srcdom,$srcnum,
        'ec' => 'URL hidden');          $titleref,$allmaps,$newurls) = @_;
  my $enctext=      my $newurl;
     ((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i?' checked="1"':'');      if ($url=~ m{^/uploaded/}) {
  my $hidtext=          $$titleref=&mt('Copy of').' '.$$titleref;
     ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i?' checked="1"':'');      }
  $line.=(<<ENDPARMS);      my $now = time;
   <td class="LC_docs_entry_parameter">      my $suffix=$$.int(rand(100)).$now;
     $form_start      my ($oldid,$ext) = ($url=~/^(.+)\.(\w+)$/);
     <label><input type="checkbox" name="hiddenresource_$orderidx" onClick="this.form.changeparms.value='hiddenresource';this.form.submit()" $hidtext /> $lt{'hd'}</label>      if ($oldid =~ m{^(/uploaded/$match_domain/$match_courseid/)(\D+)(\d+)$}) {
     $form_end          my $path = $1;
   </td>          my $prefix = $2;
   <td class="LC_docs_entry_parameter">          my $ancestor = $3;
     $form_start          if (length($ancestor) > 10) {
     <label><input type="checkbox" name="encrypturl_$orderidx" onClick="this.form.changeparms.value='encrypturl';this.form.submit()" $enctext /> $lt{'ec'}</label>              $ancestor = substr($ancestor,-10,10);
     $form_end          }
   </td>          my $newid;
   <td class="LC_docs_entry_parameter">$form_start $rand_order_text $form_end</td>          if ($prefixchg) {
   <td class="LC_docs_entry_parameter">$form_start $parameterset $form_end</td>              if ($folder =~ /^supplemental/) {
 ENDPARMS                  $prefix =~ s/^default/supplemental/;
     }              } else {
     $line.="</tr>";                  $prefix =~ s/^supplemental/default/;
     return $line;              }
 }          }
           if (($srcdom eq $coursedom) && ($srcnum eq $coursenum)) {
 =pod              $newurl = $path.$prefix.$ancestor.$suffix.'.'.$ext;
           } else {
 =item tiehash()              $newurl = "/uploaded/$coursedom/$coursenum/$prefix".$now.'.'.$ext;
           }
 tie the hash          my $counter = 0;
           my $is_unique = &uniqueness_check($newurl);
 =cut          if ($folder =~ /^default/) {
               if ($allmaps->{$newurl}) {
 sub tiehash {                  $is_unique = 0;
     my ($mode)=@_;              }
     $hashtied=0;          }
     if ($env{'request.course.fn'}) {          while ((!$is_unique || $allmaps->{$newurl} || $newurls->{$newurl}) && ($counter < 100)) {
  if ($mode eq 'write') {              $counter ++;
     if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.".db",              $suffix ++;
     &GDBM_WRCREAT(),0640)) {              if (($srcdom eq $coursedom) && ($srcnum eq $coursenum)) {
                 $hashtied=2;                  $newurl = $path.$prefix.$ancestor.$suffix.'.'.$ext;
     }              } else {
  } else {                  $newurl = "/uploaded/$coursedom/$coursenum/$prefix".$ancestor.$suffix.'.'.$ext;
     if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.".db",              }
     &GDBM_READER(),0640)) {              $is_unique = &uniqueness_check($newurl);
                 $hashtied=1;          }
     }          if ($is_unique) {
  }              $newurls->{$newurl} = 1;
     }              } else {
 }              if ($url=~/\.page$/) {
                   return (undef,&mt('Paste failed: an error occurred creating a unique URL for the composite page'));
 sub untiehash {              } else {
     if ($hashtied) { untie %hash; }                  return (undef,&mt('Paste failed: an error occurred creating a unique URL for the folder'));
     $hashtied=0;              }
     return OK;          }
 }      }
       return ($newurl);
   }
   
   sub dbcopy {
 sub checkonthis {      my ($dbref,$coursedom,$coursenum,$lockerrorsref) = @_;
     my ($r,$url,$level,$title)=@_;      my ($url,$result,$errtext);
     $url=&unescape($url);      if (ref($dbref) eq 'HASH') {
     $alreadyseen{$url}=1;          $url = $dbref->{'src'};
     $r->rflush();          if ($url =~ m{/(smppg|bulletinboard)$}) {
     if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {              my $prefix = $1;
        $r->print("\n<br />");              if (($dbref->{'cdom'} =~ /^$match_domain$/) && 
        if ($level==0) {                  ($dbref->{'cnum'} =~ /^$match_courseid$/)) {
            $r->print("<br />");                  my $db_name;
        }                  my $marker = (split(m{/},$url))[4];
        for (my $i=0;$i<=$level*5;$i++) {                  $marker=~s/\D//g;
            $r->print('&nbsp;');                  if ($dbref->{'src'} =~ m{/smppg$}) {
        }                      $db_name =
        $r->print('<a href="'.$url.'" target="cat">'.                          &Apache::lonsimplepage::get_db_name($url,$marker,
  ($title?$title:$url).'</a> ');                                                              $dbref->{'cdom'},
        if ($url=~/^\/res\//) {                                                              $dbref->{'cnum'});
   my $result=&Apache::lonnet::repcopy(                  } else {
                               &Apache::lonnet::filelocation('',$url));                      $db_name = 'bulletinpage_'.$marker;
           if ($result eq 'ok') {                  }
              $r->print('<span class="LC_success">'.&mt('ok').'</span>');                  my ($suffix,$freedlock,$error) =
              $r->rflush();                      &Apache::lonnet::get_timebased_id($prefix,'num','templated',
              &Apache::lonnet::countacc($url);                                                        $coursedom,$coursenum,
              $url=~/\.(\w+)$/;                                                        'concat');
              if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {                  if (!$suffix) {
  $r->print('<br />');                      if ($prefix eq 'smppg') {
                  $r->rflush();                          $errtext = &mt('Failed to acquire a unique timestamp-based suffix when copying a simple page [_1].',$url);
                  for (my $i=0;$i<=$level*5;$i++) {                      } else {
                      $r->print('&nbsp;');                          $errtext = &mt('Failed to acquire a unique timestamp-based suffix when copying a discussion board [_1].',$url);
                  }                      }
                  $r->print('- '.&mt('Rendering:').' ');                      if ($error) {
  my ($errorcount,$warningcount)=split(/:/,                          $errtext .= '<br />'.$error;
        &Apache::lonnet::ssi_body($url,                      }
        ('grade_target'=>'web',                  } else {
  'return_only_error_and_warning_counts' => 1)));                      #need to copy the db contents to a new one.
                  if (($errorcount) ||                      my %contents=&Apache::lonnet::dump($db_name,
                      ($warningcount)) {                                                         $dbref->{'cdom'},
      if ($errorcount) {                                                         $dbref->{'cnum'});
                         $r->print('<img src="/adm/lonMisc/bomb.gif" /><span class="LC_error">'.                      if (exists($contents{'uploaded.photourl'})) {
                           &mt('[quant,_1,error]',$errorcount).'</span>');                          my $photo = $contents{'uploaded.photourl'};
                      }                          my ($subdir,$fname) =
      if ($warningcount) {                              ($photo =~ m{^/uploaded/$match_domain/$match_courseid/+(bulletin|simplepage)/(?:|\d+/)([^/]+)$});
                         $r->print('<span class="LC_warning">'.                          my $newphoto;
                           &mt('[quant,_1,warning]',$warningcount).'</span>');                          if ($fname ne '') {
                      }                              my $content = &Apache::lonnet::getfile($photo);
                  } else {                              unless ($content eq '-1') {
                      $r->print('<span class="LC_success">'.&mt('ok').'</span>');                                  $env{'form.'.$suffix.'.photourl'} = $content;
                  }                                  $newphoto = 
                  $r->rflush();                                      &Apache::lonnet::finishuserfileupload($coursenum,$coursedom,$suffix.'.photourl',"$subdir/$suffix/$fname");
              }                                  delete($env{'form.'.$suffix.'.photourl'});
      my $dependencies=                              }
                 &Apache::lonnet::metadata($url,'dependencies');                          }
              foreach my $dep (split(/\,/,$dependencies)) {                          if ($newphoto =~ m{^/uploaded/}) {
  if (($dep=~/^\/res\//) && (!$alreadyseen{$dep})) {                              $contents{'uploaded.photourl'} = $newphoto;
                     &checkonthis($r,$dep,$level+1);                          }
                  }                      }
              }                      $db_name =~ s{_\d*$ }{_$suffix}x;
           } elsif ($result eq 'unavailable') {                      $result=&Apache::lonnet::put($db_name,\%contents,
              $r->print('<span class="LC_error">'.&mt('connection down').'</span>');                                                   $coursedom,$coursenum);
           } elsif ($result eq 'not_found') {                      if ($result eq 'ok') {
       unless ($url=~/\$/) {                          $url =~ s{/(\d*)/(smppg|bulletinboard)$}{/$suffix/$2}x;
   $r->print('<span class="LC_error">'.&mt('not found').'</b></span>');                      }
       } else {                  }
   $r->print('<span class="LC_unknown">'.&mt('unable to verify variable URL').'</span>');                  if (($freedlock ne 'ok') && (ref($lockerrorsref) eq 'HASH')) {
       }                      $lockerrorsref->{$prefix} =
           } else {                          '<div class="LC_error">'.
              $r->print('<span class="LC_error">'.&mt('access denied').'</span>');                          &mt('There was a problem removing a lockfile.');
           }                      if ($prefix eq 'smppg') {
        }                          $lockerrorsref->{$prefix} .=
     }                              ' '.&mt('This will prevent creation of additional simple pages in this course.');
 }                      } else {
                           $lockerrorsref->{$prefix} .= ' '.&mt('This will prevent creation of additional discussion boards in this course.');
                       }
                       $lockerrorsref->{$prefix} .= ' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.',
 =pod                                                       '<a href="/adm/helpdesk" target="_helpdesk">','</a>').
                                                    '</div>';
 =item list_symbs()                  }
               }
 List Symbs          } elsif ($url =~ m{/syllabus$}) {
               if (($dbref->{'cdom'} =~ /^$match_domain$/) &&
 =cut                  ($dbref->{'cnum'} =~ /^$match_courseid$/)) {
                   if (($dbref->{'cdom'} ne $coursedom) ||
 sub list_symbs {                      ($dbref->{'cnum'} ne $coursenum)) {
     my ($r) = @_;                      my %contents=&Apache::lonnet::dump('syllabus',
                                                          $dbref->{'cdom'},
     my $type = &Apache::loncommon::course_type();                                                         $dbref->{'cnum'});
     $r->print(&Apache::loncommon::start_page('Symb List'));                      $result=&Apache::lonnet::put('syllabus',\%contents,
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List'));                                                   $coursedom,$coursenum);
     my $navmap = Apache::lonnavmaps::navmap->new();                  }
     if (!defined($navmap)) {              }
         $r->print('<h2>'.&mt('Retrieval of List Failed').'</h2>'.          }
                   '<div class="LC_error">'.      }
                   &mt('Unable to retrieve information about course contents').      return ($url,$result,$errtext);
                   '</div>');  }
         &Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($type).':'.$env{'request.course.id'});  
     } else {  sub copy_templated_files {
         $r->print("<pre>\n");      my ($srcurl,$srcdom,$srcnum,$srcmapinfo,$coursedom,$coursenum,$template,$newidx,$newmapname) = @_;
         foreach my $res ($navmap->retrieveResources()) {      my ($srcfolder,$srcid,$srcwaspage) = split(/:/,$srcmapinfo);
     $r->print($res->compTitle()."\t".$res->symb()."\n");      my $srccontainer = 'sequence';
         }      if ($srcwaspage) {
         $r->print("\n</pre>\n");          $srccontainer = 'page';
     }      }
     $r->print('<a href="/adm/coursedocs">'.&mt('Return to DOCS').'</a>');      my $srcsymb = "uploaded/$srcdom/$srcnum/$srcfolder.$srccontainer".
 }                    '___'.$srcid.'___'.&Apache::lonnet::declutter($srcurl);
       my $srcprefix = $srcdom.'_'.$srcnum.'.'.$srcsymb;
       my %srcparms=&Apache::lonnet::dump('resourcedata',$srcdom,$srcnum,$srcprefix);
 sub verifycontent {      my $newsymb = "uploaded/$coursedom/$coursenum/$newmapname".'___'.$newidx.'___lib/templates/'.
     my ($r) = @_;                    $template.'.problem';
     my $type = &Apache::loncommon::course_type();      my $newprefix = $coursedom.'_'.$coursenum.'.'.$newsymb;
    my $loaderror=&Apache::lonnet::overloaderror($r);      if ($template eq 'simpleproblem') {
    if ($loaderror) { return $loaderror; }          $srcprefix .= '.0.';
    $r->print(&Apache::loncommon::start_page('Verify '.$type.' Documents'));          my $weightprefix = $newprefix;
    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$type.' Documents'));          $newprefix .= '.0.';
    $hashtied=0;          my @simpleprobqtypes = qw(radio option string essay numerical);
    undef %alreadyseen;          my $qtype=$srcparms{$srcprefix.'questiontype'};
    %alreadyseen=();          if (grep(/^\Q$qtype\E$/,@simpleprobqtypes)) {
    &tiehash();              my %newdata;
    foreach my $key (keys(%hash)) {              foreach my $type (@simpleprobqtypes) {
        if ($hash{$key}=~/\.(page|sequence)$/) {                  if ($type eq $qtype) {
    if (($key=~/^src_/) && ($alreadyseen{&unescape($hash{$key})})) {                      $newdata{"$weightprefix.$type.weight"}=1;
        $r->print('<hr /><span class="LC_error">'.                  } else {
  &mt('The following sequence or page is included more than once in your '.$type.': ').                      $newdata{"$weightprefix.$type.weight"}=0;
  &unescape($hash{$key}).'</span><br />'.                  }
  &mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />'));              }
    }              $newdata{$newprefix.'hiddenparts'} = '!'.$qtype;
        }              $newdata{$newprefix.'questiontext'} = $srcparms{$srcprefix.'questiontext'};
        if (($key=~/^src\_(.+)$/) && (!$alreadyseen{&unescape($hash{$key})})) {              $newdata{$newprefix.'hinttext'} = $srcparms{$srcprefix.'hinttext'};
            &checkonthis($r,$hash{$key},0,$hash{'title_'.$1});              if ($qtype eq 'numerical') {
        }                  $newdata{$newprefix.'numericalscript'} = $srcparms{$srcprefix.'numericalscript'};
    }                  $newdata{$newprefix.'numericalanswer'} = $srcparms{$srcprefix.'numericalanswer'};
    &untiehash();                  $newdata{$newprefix.'numericaltolerance'} = $srcparms{$srcprefix.'numericaltolerance'};
    $r->print('<h1>'.&mt('Done').'.</h1>'.'<a href="/adm/coursedocs">'.                  $newdata{$newprefix.'numericalsigfigs'} = $srcparms{$srcprefix.'numericalsigfigs'};
      &mt('Return to DOCS').'</a>');              } elsif (($qtype eq 'option') || ($qtype eq 'radio')) {
 }                  my $maxfoils=$srcparms{$srcprefix.'maxfoils'};
                   unless (defined($maxfoils)) { $maxfoils=10; }
                       unless ($maxfoils=~/^\d+$/) { $maxfoils=10; }
 sub devalidateversioncache {                          if ($maxfoils<=0) { $maxfoils=10; }
     my $src=shift;                              my $randomize=$srcparms{$srcprefix.'randomize'};
     &Apache::lonnet::devalidate_cache_new('courseresversion',$env{'request.course.id'}.'_'.                              unless (defined($randomize)) { $randomize='yes'; }
   &Apache::lonnet::clutter($src));                              unless ($randomize eq 'no') { $randomize='yes'; }
 }                              $newdata{$newprefix.'maxfoils'} = $maxfoils;
                               $newdata{$newprefix.'randomize'} = $randomize;
 sub checkversions {                              if ($qtype eq 'option') {
     my ($r) = @_;                                  $newdata{$newprefix.'options'} = $srcparms{$srcprefix.'options'};
     my $type = &Apache::loncommon::course_type();                              }
     $r->print(&Apache::loncommon::start_page("Check $type Document Versions"));                              for (my $i=1; $i<=10; $i++) {
     $r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $type Document Versions"));                                  $newdata{$newprefix.'value'.$i} = $srcparms{$srcprefix.'value'.$i};
     my $header='';                                  $newdata{$newprefix.'position'.$i} = $srcparms{$srcprefix.'position'.$i};
     my $startsel='';                                  $newdata{$newprefix.'text'.$i} = $srcparms{$srcprefix.'text'.$i};
     my $monthsel='';                              }
     my $weeksel='';  
     my $daysel='';              } elsif (($qtype eq 'option') || ($qtype eq 'radio')) {
     my $allsel='';                  my $maxfoils=$srcparms{$srcprefix.'maxfoils'};
     my %changes=();                  unless (defined($maxfoils)) { $maxfoils=10; }
     my $starttime=0;                  unless ($maxfoils=~/^\d+$/) { $maxfoils=10; }
     my $haschanged=0;                  if ($maxfoils<=0) { $maxfoils=10; }
     my %setversions=&Apache::lonnet::dump('resourceversions',                  my $randomize=$srcparms{$srcprefix.'randomize'};
   $env{'course.'.$env{'request.course.id'}.'.domain'},                  unless (defined($randomize)) { $randomize='yes'; }
   $env{'course.'.$env{'request.course.id'}.'.num'});                  unless ($randomize eq 'no') { $randomize='yes'; }
                   $newdata{$newprefix.'maxfoils'} = $maxfoils;
     $hashtied=0;                  $newdata{$newprefix.'randomize'} = $randomize;
     &tiehash();                  if ($qtype eq 'option') {
     my %newsetversions=();                      $newdata{$newprefix.'options'} = $srcparms{$srcprefix.'options'};
     if ($env{'form.setmostrecent'}) {                  }
  $haschanged=1;                  for (my $i=1; $i<=10; $i++) {
  foreach my $key (keys(%hash)) {                      $newdata{$newprefix.'value'.$i} = $srcparms{$srcprefix.'value'.$i};
     if ($key=~/^ids\_(\/res\/.+)$/) {                      $newdata{$newprefix.'position'.$i} = $srcparms{$srcprefix.'position'.$i};
  $newsetversions{$1}='mostrecent';                      $newdata{$newprefix.'text'.$i} = $srcparms{$srcprefix.'text'.$i};
                 &devalidateversioncache($1);                  }
     }              } elsif ($qtype eq 'string') {
  }                  $newdata{$newprefix.'stringanswer'} = $srcparms{$srcprefix.'stringanswer'};
     } elsif ($env{'form.setcurrent'}) {                  $newdata{$newprefix.'stringtype'} = $srcparms{$srcprefix.'stringtype'};
  $haschanged=1;              }
  foreach my $key (keys(%hash)) {              if (keys(%newdata)) {
     if ($key=~/^ids\_(\/res\/.+)$/) {                  my $putres = &Apache::lonnet::cput('resourcedata',\%newdata,$coursedom,
  my $getvers=&Apache::lonnet::getversion($1);                                                     $coursenum);
  if ($getvers>0) {                  if ($putres eq 'ok') {
     $newsetversions{$1}=$getvers;                      &Apache::lonnet::devalidatecourseresdata($coursenum,$coursedom);
     &devalidateversioncache($1);                  }
  }              }
     }          }
  }      }
     } elsif ($env{'form.setversions'}) {  }
  $haschanged=1;  
  foreach my $key (keys(%env)) {  sub uniqueness_check {
     if ($key=~/^form\.set_version_(.+)$/) {      my ($newurl) = @_;
  my $src=$1;      my $unique = 1;
  if (($env{$key}) && ($env{$key} ne $setversions{$src})) {      foreach my $res (@LONCAPA::map::order) {
     $newsetversions{$src}=$env{$key};          my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
     &devalidateversioncache($src);          $url=&LONCAPA::map::qtescape($url);
  }          if ($newurl eq $url) {
     }              $unique = 0;
  }              last;
     }          }
     if ($haschanged) {      }
         if (&Apache::lonnet::put('resourceversions',\%newsetversions,      return $unique;
   $env{'course.'.$env{'request.course.id'}.'.domain'},  }
   $env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {  
     $r->print('<h1>'.&mt('Your Version Settings have been Saved').'</h1>');  sub contained_map_check {
  } else {      my ($url,$folder,$removefrommap,$removeparam,$addedmaps,$hierarchy,$titles,
     $r->print('<h1><span class="LC_error">'.&mt('An Error Occured while Attempting to Save your Version Settings').'</span></h1>');          $allmaps) = @_;
  }      my $content = &Apache::lonnet::getfile($url);
  &mark_hash_old();      unless ($content eq '-1') {
     }          my $parser = HTML::TokeParser->new(\$content);
     &changewarning($r,'');          $parser->attr_encoded(1);
     if ($env{'form.timerange'} eq 'all') {          while (my $token = $parser->get_token) {
 # show all documents              next if ($token->[0] ne 'S');
  $header=&mt('All Documents in '.$type);              if ($token->[1] eq 'resource') {
  $allsel=1;                  next if ($token->[2]->{'type'} eq 'zombie');
  foreach my $key (keys(%hash)) {                  my $ressrc = $token->[2]->{'src'};
     if ($key=~/^ids\_(\/res\/.+)$/) {                  if ($folder =~ /^supplemental/) {
  my $src=$1;                      unless (&supp_pasteable($ressrc)) {
  $changes{$src}=1;                          $removefrommap->{$url}{$token->[2]->{'id'}} = $ressrc;
     }                          next;
  }                      }
     } else {                  }
 # show documents which changed                  if ($ressrc =~ m{^/(res|uploaded)/.+\.(sequence|page)$}) {
  %changes=&Apache::lonnet::dump                      if ($1 eq 'uploaded') {
  ('versionupdate',$env{'course.'.$env{'request.course.id'}.'.domain'},                          $hierarchy->{$url}{$token->[2]->{'id'}} = $ressrc;
                      $env{'course.'.$env{'request.course.id'}.'.num'});                          $titles->{$url}{$token->[2]->{'id'}} = $token->[2]->{'title'};
  my $firstkey=(keys(%changes))[0];                      } else {
  unless ($firstkey=~/^error\:/) {                          if ($allmaps->{$ressrc}) {
     unless ($env{'form.timerange'}) {                              $removefrommap->{$url}{$token->[2]->{'id'}} = $ressrc;
  $env{'form.timerange'}=604800;                          } elsif (ref($addedmaps->{$ressrc}) eq 'ARRAY') {
     }                              $removefrommap->{$url}{$token->[2]->{'id'}} = $ressrc;
     my $seltext=&mt('during the last').' '.$env{'form.timerange'}.' '                          } else {
  .&mt('seconds');                              $addedmaps->{$ressrc} = [$url];
     if ($env{'form.timerange'}==-1) {                          }
  $seltext='since start of course';                      }
  $startsel='selected';                      &contained_map_check($ressrc,$folder,$removefrommap,$removeparam,
  $env{'form.timerange'}=time;                                           $addedmaps,$hierarchy,$titles,$allmaps);
     }                  }
     $starttime=time-$env{'form.timerange'};              } elsif ($token->[1] eq 'param') {
     if ($env{'form.timerange'}==2592000) {                  if ($folder =~ /^supplemental/) {
  $seltext=&mt('during the last month').' ('.&Apache::lonlocal::locallocaltime($starttime).')';                      if (ref($removeparam->{$url}{$token->[2]->{'to'}}) eq 'ARRAY') {
  $monthsel='selected';                          push(@{$removeparam->{$url}{$token->[2]->{'to'}}},$token->[2]->{'name'});
     } elsif ($env{'form.timerange'}==604800) {                      } else {
  $seltext=&mt('during the last week').' ('.&Apache::lonlocal::locallocaltime($starttime).')';                          $removeparam->{$url}{$token->[2]->{'to'}} = [$token->[2]->{'name'}]; 
  $weeksel='selected';                      }
     } elsif ($env{'form.timerange'}==86400) {                  }
  $seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')';              }
  $daysel='selected';          }
     }      }
     $header=&mt('Content changed').' '.$seltext;      return;
  } else {  }
     $header=&mt('No content modifications yet.');  
  }  sub url_paste_fixups {
     }      my ($oldurl,$folder,$prefixchg,$cdom,$cnum,$fromcdom,$fromcnum,$allmaps,
     %setversions=&Apache::lonnet::dump('resourceversions',          $rewrites,$retitles,$copies,$dbcopies,$zombies,$params,$mapmoves,
   $env{'course.'.$env{'request.course.id'}.'.domain'},          $mapchanges,$tomove,$newsubdir,$newurls,$resdatacopy) = @_;
   $env{'course.'.$env{'request.course.id'}.'.num'});      my $checktitle;
     my %lt=&Apache::lonlocal::texthash      if (($prefixchg) &&
       ('st' => 'Version changes since start of '.$type,          ($oldurl =~ m{^/uploaded/$match_domain/$match_courseid/supplemental})) {
        'lm' => 'Version changes since last Month',          $checktitle = 1;
        'lw' => 'Version changes since last Week',      }
        'sy' => 'Version changes since Yesterday',      my $skip;
                'al' => 'All Resources (possibly large output)',      if ($oldurl =~ m{^\Q/uploaded/$cdom/$cnum/\E(default|supplemental)(_?\d*)\.(?:page|sequence)$}) {
        'sd' => 'Display',          my $mapid = $1.$2;
        'fi' => 'File',          if ($tomove->{$mapid}) {
        'md' => 'Modification Date',              $skip = 1;
                'mr' => 'Most recently published Version',          }
        've' => 'Version used in '.$type,      }
                'vu' => 'Set Version to be used in '.$type,      my $file = &Apache::lonnet::getfile($oldurl);
 'sv' => 'Set Versions to be used in '.$type.' according to Selections below',      return if ($file eq '-1');
 'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',      my $parser = HTML::TokeParser->new(\$file);
 'sc' => 'Set all Resource Versions to current Version (Fix Versions)',      $parser->attr_encoded(1);
        'di' => 'Differences');      my $changed = 0;
     $r->print(<<ENDHEADERS);      while (my $token = $parser->get_token) {
 <form action="/adm/coursedocs" method="post">          next if ($token->[0] ne 'S');
 <input type="hidden" name="versions" value="1" />          if ($token->[1] eq 'resource') {
 <input type="submit" name="setmostrecent" value="$lt{'sm'}" />              my $ressrc = $token->[2]->{'src'};
 <input type="submit" name="setcurrent" value="$lt{'sc'}" /><hr />              next if ($ressrc eq '');
 <select name="timerange">              my $id = $token->[2]->{'id'};
 <option value='all' $allsel>$lt{'al'}</option>              my $title = $token->[2]->{'title'};
 <option value="-1" $startsel>$lt{'st'}</option>              if ($checktitle) {
 <option value="2592000" $monthsel>$lt{'lm'}</option>                  if ($title =~ m{\d+\Q___&amp;&amp;&amp;___\E$match_username\Q___&amp;&amp;&amp;___\E$match_domain\Q___&amp;&amp;&amp;___\E(.+)$}) {
 <option value="604800" $weeksel>$lt{'lw'}</option>                      $retitles->{$oldurl}{$id} = $ressrc;
 <option value="86400" $daysel>$lt{'sy'}</option>                  }
 </select>              }
 <input type="submit" name="display" value="$lt{'sd'}" />              next if ($token->[2]->{'type'} eq 'external');
 <h3>$header</h3>              if ($token->[2]->{'type'} eq 'zombie') {
 <input type="submit" name="setversions" value="$lt{'sv'}" />                  next if ($skip);  
 <table border="0">                  $zombies->{$oldurl}{$id} = $ressrc;
 ENDHEADERS                  $changed = 1;
     foreach my $key (sort(keys(%changes))) {              } elsif ($ressrc =~ m{^/uploaded/($match_domain)/($match_courseid)/(.+)$}) {
  if ($changes{$key}>$starttime) {                  my $srcdom = $1;
     my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);                  my $srcnum = $2;
     my $currentversion=&Apache::lonnet::getversion($key);                  my $rem = $3;
     if ($currentversion<0) {                  my $newurl;
  $currentversion=&mt('Could not be determined.');                  my $mapname;
     }                  if ($rem =~ /^(default|supplemental)(_?\d*).(sequence|page)$/) {
     my $linkurl=&Apache::lonnet::clutter($key);                      my $prefix = $1;
     $r->print(                      $mapname = $prefix.$2;
       '<tr><td colspan="5"><br /><br /><font size="+1"><b>'.                      if ($tomove->{$mapname}) {
       &Apache::lonnet::gettitle($linkurl).                          &url_paste_fixups($ressrc,$folder,$prefixchg,$cdom,$cnum,
                       '</b></font></td></tr>'.                                            $srcdom,$srcnum,$allmaps,$rewrites,
                       '<tr><td>&nbsp;&nbsp;&nbsp;</td>'.                                            $retitles,$copies,$dbcopies,$zombies,
                       '<td colspan="4">'.                                            $params,$mapmoves,$mapchanges,$tomove,
                       '<a href="'.$linkurl.'" target="cat">'.$linkurl.                                            $newsubdir,$newurls,$resdatacopy);
       '</a></td></tr>'.                          next;
                       '<tr><td></td>'.                      } else {
                       '<td title="'.$lt{'md'}.'">'.                          ($newurl,my $error) =
       &Apache::lonlocal::locallocaltime(                              &get_newmap_url($ressrc,$folder,$prefixchg,$cdom,$cnum,
                            &Apache::lonnet::metadata($root.'.'.$extension,                                              $srcdom,$srcnum,\$title,$allmaps,$newurls);
                                                      'lastrevisiondate')                          if ($newurl =~ /(?:default|supplemental)_(\d+)\.(?:sequence|page)$/) {
                                                         ).                              $newsubdir->{$ressrc} = $1;
                       '</td>'.                          }
                       '<td title="'.$lt{'mr'}.'"><span class="LC_nobreak">Most Recent: '.                          if ($error) {
                       '<font size="+1">'.$currentversion.'</font>'.                              next;
                       '</span></td>'.                          }
                       '<td title="'.$lt{'ve'}.'"><span class="LC_nobreak">In '.$type.': '.                      }
                       '<font size="+1">');                  }
 # Used in course                  if (($srcdom ne $cdom) || ($srcnum ne $cnum) || ($prefixchg) ||
     my $usedversion=$hash{'version_'.$linkurl};                      ($mapchanges->{$oldurl}) || (($newurl ne '') && ($newurl ne $oldurl))) {
     if (($usedversion) && ($usedversion ne 'mostrecent')) {                     
  $r->print($usedversion);                      if ($rem =~ /^(default|supplemental)(_?\d*).(sequence|page)$/) {
     } else {                          $rewrites->{$oldurl}{$id} = $ressrc;
  $r->print($currentversion);                          $mapchanges->{$ressrc} = 1;
     }                          unless (&url_paste_fixups($ressrc,$folder,$prefixchg,$cdom,
     $r->print('</font></span></td><td title="'.$lt{'vu'}.'">'.                                                    $cnum,$srcdom,$srcnum,$allmaps,
                       '<span class="LC_nobreak">Use: ');                                                    $rewrites,$retitles,$copies,$dbcopies,
 # Set version                                                    $zombies,$params,$mapmoves,$mapchanges,
     $r->print(&Apache::loncommon::select_form($setversions{$linkurl},                                                    $tomove,$newsubdir,$newurls,$resdatacopy)) {
       'set_version_'.$linkurl,                              $mapmoves->{$ressrc} = 1;
       ('select_form_order' =>                          }
        ['',1..$currentversion,'mostrecent'],                          $changed = 1;
        '' => '',                      } else {
        'mostrecent' => 'most recent',                          $rewrites->{$oldurl}{$id} = $ressrc;
        map {$_,$_} (1..$currentversion))));                          $copies->{$oldurl}{$ressrc} = $id;
     $r->print('</span></td></tr><tr><td></td>');                          $changed = 1;
     my $lastold=1;                      }
     for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {                  }
  my $url=$root.'.'.$prevvers.'.'.$extension;              } elsif ($ressrc =~ m{^/adm/($match_domain)/($match_courseid)/.+$}) {
  if (&Apache::lonnet::metadata($url,'lastrevisiondate')<                  next if ($skip);
     $starttime) {                  my $srcdom = $1;
     $lastold=$prevvers;                  my $srcnum = $2;
  }                  if (($srcdom ne $cdom) || ($srcnum ne $cnum)) {
     }                      $rewrites->{$oldurl}{$id} = $ressrc;
             #                      $dbcopies->{$oldurl}{$id}{'src'} = $ressrc;
             # Code to figure out how many version entries should go in                      $dbcopies->{$oldurl}{$id}{'cdom'} = $srcdom;
             # each of the four columns                      $dbcopies->{$oldurl}{$id}{'cnum'} = $srcnum;
             my $entries_per_col = 0;                      $changed = 1;
             my $num_entries = ($currentversion-$lastold);                  }
             if ($num_entries % 4 == 0) {              } elsif ($ressrc =~ m{^/adm/$match_domain/$match_username/\d+/(smppg|bulletinboard)$}) {
                 $entries_per_col = $num_entries/4;                  if (($fromcdom ne $cdom) || ($fromcnum ne $cnum) ||
             } else {                      ($env{'form.docs.markedcopy_options'} ne 'move')) {
                 $entries_per_col = $num_entries/4 + 1;                      $dbcopies->{$oldurl}{$id}{'src'} = $ressrc;
             }                      $dbcopies->{$oldurl}{$id}{'cdom'} = $fromcdom;
             my $entries_count = 0;                      $dbcopies->{$oldurl}{$id}{'cnum'} = $fromcnum;
             $r->print('<td valign="top"><font size="-2">');                      $changed = 1;
             my $cols_output = 1;                  }
             for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {              } elsif ($ressrc eq '/res/lib/templates/simpleproblem.problem') {
  my $url=$root.'.'.$prevvers.'.'.$extension;                  if (($fromcdom ne $cdom) || ($fromcnum ne $cnum)) {
  $r->print('<span class="LC_nobreak"><a href="'.&Apache::lonnet::clutter($url).                      $resdatacopy->{$oldurl}{$id}{'src'} = $ressrc;
   '">'.&mt('Version').' '.$prevvers.'</a> ('.                      $resdatacopy->{$oldurl}{$id}{'cdom'} = $fromcdom;
   &Apache::lonlocal::locallocaltime(                      $resdatacopy->{$oldurl}{$id}{'cnum'} = $fromcnum;
                                 &Apache::lonnet::metadata($url,                  }
                                                           'lastrevisiondate')              } elsif ($ressrc =~ m{^/public/($match_domain)/($match_courseid)/(.+)$}) {
                                                             ).                  next if ($skip);
   ')');                  my $srcdom = $1;
  if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {                  my $srcnum = $2;
                     $r->print(' <a href="/adm/diff?filename='.                  if (($srcdom ne $cdom) || ($srcnum ne $cnum)) {
       &Apache::lonnet::clutter($root.'.'.$extension).                      $dbcopies->{$oldurl}{$id}{'src'} = $ressrc;
       '&versionone='.$prevvers.                      $dbcopies->{$oldurl}{$id}{'cdom'} = $srcdom;
       '">'.&mt('Diffs').'</a>');                      $dbcopies->{$oldurl}{$id}{'cnum'} = $srcnum;
  }                      $changed = 1;
  $r->print('</span><br />');                  }
                 if (++$entries_count % $entries_per_col == 0) {              }
                     $r->print('</font></td>');          } elsif ($token->[1] eq 'param') {
                     if ($cols_output != 4) {              next if ($skip);
                         $r->print('<td valign="top"><font size="-2">');              my $to = $token->[2]->{'to'}; 
                         $cols_output++;              if ($to ne '') {
                     }                  if (ref($params->{$oldurl}{$to}) eq 'ARRAY') {
                 }                      push(@{$params->{$oldurl}{$to}},$token->[2]->{'name'});
     }                  } else {
             while($cols_output++ < 4) {                      @{$params->{$oldurl}{$to}} = ($token->[2]->{'name'});
                 $r->print('</font></td><td><font>')                  }
             }              }
     $r->print('</font></td></tr>'."\n");          }
  }      }
     }      return $changed;
     $r->print('</table></form>');  }
     $r->print('<h1>'.&mt('Done').'.</h1>');  
   sub apply_fixups {
     &untiehash();      my ($folder,$is_map,$cdom,$cnum,$errors,$updated,$info,$moves,$prefixchg,
 }          $oldurl,$url,$caller) = @_;
       my (%rewrites,%zombies,%removefrommap,%removeparam,%dbcopies,%retitles,
 sub mark_hash_old {          %params,%newsubdir,%before,%after,%copies,%docmoves,%mapmoves,@msgs,
     my $retie_hash=0;          %resdatacopy,%lockerrors,$lockmsg);
     if ($hashtied) {      if (ref($updated) eq 'HASH') {
  $retie_hash=1;          if (ref($updated->{'rewrites'}) eq 'HASH') {
  &untiehash();              %rewrites = %{$updated->{'rewrites'}};
     }          }
     &tiehash('write');          if (ref($updated->{'zombies'}) eq 'HASH') {
     $hash{'old'}=1;              %zombies = %{$updated->{'zombies'}};
     &untiehash();          }
     if ($retie_hash) { &tiehash(); }          if (ref($updated->{'removefrommap'}) eq 'HASH') {
 }              %removefrommap = %{$updated->{'removefrommap'}};
           }
 sub is_hash_old {          if (ref($updated->{'removeparam'}) eq 'HASH') {
     my $untie_hash=0;              %removeparam = %{$updated->{'removeparam'}};
     if (!$hashtied) {          }
  $untie_hash=1;          if (ref($updated->{'dbcopies'}) eq 'HASH') {
  &tiehash();              %dbcopies = %{$updated->{'dbcopies'}};
     }          }
     my $return=$hash{'old'};          if (ref($updated->{'retitles'}) eq 'HASH') {
     if ($untie_hash) { &untiehash(); }              %retitles = %{$updated->{'retitles'}};
     return $return;          }
 }          if (ref($updated->{'resdatacopy'}) eq 'HASH') {
               %resdatacopy = %{$updated->{'resdatacopy'}};
 sub changewarning {          }
     my ($r,$postexec,$message,$url)=@_;      }
     if (!&is_hash_old()) { return; }      if (ref($info) eq 'HASH') {
     my $pathvar='folderpath';          if (ref($info->{'newsubdir'}) eq 'HASH') {
     my $path=&escape($env{'form.folderpath'});              %newsubdir = %{$info->{'newsubdir'}};
     if (!defined($url)) {          }
  if (defined($env{'form.pagepath'})) {          if (ref($info->{'params'}) eq 'HASH') {
     $pathvar='pagepath';              %params = %{$info->{'params'}};
     $path=&escape($env{'form.pagepath'});          }
     $path.='&amp;pagesymb='.&escape($env{'form.pagesymb'});          if (ref($info->{'before'}) eq 'HASH') {
  }              %before = %{$info->{'before'}};
  $url='/adm/coursedocs?'.$pathvar.'='.$path;          }
     }          if (ref($info->{'after'}) eq 'HASH') {
     my $course_type = &Apache::loncommon::course_type();              %after = %{$info->{'after'}};
     if (!defined($message)) {          }
  $message='Changes will become active for your current session after [_1], or the next time you log in.';      }
     }      if (ref($moves) eq 'HASH') {
     $r->print("\n\n".          if (ref($moves->{'copies'}) eq 'HASH') {
 '<script type="text/javascript">function reinit(tf) { tf.submit();'.$postexec.' }</script>'."\n".              %copies = %{$moves->{'copies'}};
 '<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.          }
 '<input type="hidden" name="orgurl" value="'.$url.          if (ref($moves->{'docmoves'}) eq 'HASH') {
 '" /><input type="hidden" name="selectrole" value="1" /><h3><span class="LC_warning">'.              %docmoves = %{$moves->{'docmoves'}};
 &mt($message,' <input type="hidden" name="'.          }
     $env{'request.role'}.'" value="1" /><input type="button" value="'.          if (ref($moves->{'mapmoves'}) eq 'HASH') {
     &mt('re-initializing '.$course_type).'" onClick="reinit(this.form)" />').              %mapmoves = %{$moves->{'mapmoves'}};
 $help{'Caching'}.'</span></h3></form>'."\n\n");          }
 }      }
       foreach my $key (keys(%copies),keys(%docmoves)) {
           my @allcopies;
 sub init_breadcrumbs {          if (exists($copies{$key})) {
     my ($form,$text)=@_;              if (ref($copies{$key}) eq 'HASH') {
     &Apache::lonhtmlcommon::clear_breadcrumbs();                  my %added;
     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs",                  foreach my $innerkey (keys(%{$copies{$key}})) {
     text=>"Edit ".&Apache::loncommon::course_type(),                      if (($innerkey ne '') && (!$added{$innerkey})) {
     faq=>273,                          push(@allcopies,$innerkey);
     bug=>'Instructor Interface',                          $added{$innerkey} = 1;
                                             help => 'Docs_Adding_Course_Doc'});                      }
     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?".$form.'=1',                  }
     text=>$text,                  undef(%added);
     faq=>273,              }
     bug=>'Instructor Interface'});          }
 }          if ($key eq $oldurl) {
               if ((exists($docmoves{$key}))) {
                   unless (grep(/^\Q$oldurl\E$/,@allcopies)) {
                       push(@allcopies,$oldurl);
                   }
 sub handler {              }
     my $r = shift;          }
     &Apache::loncommon::content_type($r,'text/html');          if (@allcopies > 0) {
     $r->send_http_header;              foreach my $item (@allcopies) {
     return OK if $r->header_only;                  my ($relpath,$oldsubdir,$fname) = 
     my $type = &Apache::loncommon::course_type();                      ($item =~ m{^(/uploaded/$match_domain/$match_courseid/(?:docs|supplemental)/(default|\d+)/.*/)([^/]+)$});
                   if ($fname ne '') {
                       my $content = &Apache::lonnet::getfile($item);
 # --------------------------------------------- Initialize help topics for this                      unless ($content eq '-1') {
     foreach my $topic ('Adding_Course_Doc','Main_Course_Documents',                          my $storefn;
                'Adding_External_Resource','Navigate_Content',                          if (($key eq $oldurl) && (exists($docmoves{$key}))) {
                'Adding_Folders','Docs_Overview', 'Load_Map',                              $storefn = $docmoves{$key};
                'Supplemental','Score_Upload_Form','Adding_Pages',                          } else {
                'Importing_LON-CAPA_Resource','Uploading_From_Harddrive',                              $storefn = $relpath;
                'Check_Resource_Versions','Verify_Content') {                              $storefn =~s{^/uploaded/$match_domain/$match_courseid/}{};
  $help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);                              if ($prefixchg && $before{'doc'} && $after{'doc'}) {
     }                                  $storefn =~ s/^\Q$before{'doc'}\E/$after{'doc'}/;
     # Composite help files                              }
     $help{'Syllabus'} = &Apache::loncommon::help_open_topic(                              if ($newsubdir{$key}) {
     'Docs_About_Syllabus,Docs_Editing_Templated_Pages');                                  $storefn =~ s#^(docs|supplemental)/\Q$oldsubdir\E/#$1/$newsubdir{$key}/#;
     $help{'Simple Page'} = &Apache::loncommon::help_open_topic(                              }
     'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');                          }
     $help{'Simple Problem'} = &Apache::loncommon::help_open_topic(                          &copy_dependencies($item,$storefn,$relpath,$errors,\$content);
     'Option_Response_Simple');                          my $copyurl = 
     $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(                              &Apache::lonclonecourse::writefile($env{'request.course.id'},
     'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');                                                                 $storefn.$fname,$content);
     $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(                          if ($copyurl eq '/adm/notfound.html') {
   'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');                              if (exists($docmoves{$oldurl})) {
     $help{'Group Files'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');                                  return &mt('Paste failed: an error occurred copying the file.');
     $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');                              } elsif (ref($errors) eq 'HASH') {
                                   $errors->{$item} = 1;
 # does this user have privileges to modify docs                              }
     my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});                          }
   if ($allowed && $env{'form.verify'}) {                      }
       &init_breadcrumbs('verify','Verify Content');                  }
       &verifycontent($r);              }
   } elsif ($allowed && $env{'form.listsymbs'}) {          }
       &init_breadcrumbs('listsymbs','List Symbs');      }
       &list_symbs($r);      foreach my $key (keys(%mapmoves)) {
   } elsif ($allowed && $env{'form.docslog'}) {          my $storefn=$key;
       &init_breadcrumbs('docslog','Show Log');          $storefn=~s{^/uploaded/$match_domain/$match_courseid/}{};
       &docs_change_log($r);          if ($prefixchg && $before{'map'} && $after{'map'}) {
   } elsif ($allowed && $env{'form.versions'}) {              $storefn =~ s/^\Q$before{'map'}\E/$after{'map'}/;
       &init_breadcrumbs('versions','Check/Set Resource Versions');          }
       &checkversions($r);          if ($newsubdir{$key}) {
   } elsif ($allowed && $env{'form.dumpcourse'}) {              $storefn =~ s/^((?:default|supplemental)_)(\d+)/$1$newsubdir{$key}/;
       &init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' DOCS to Construction Space');          }
       &dumpcourse($r);          my $mapcontent = &Apache::lonnet::getfile($key);
   } elsif ($allowed && $env{'form.exportcourse'}) {          if ($mapcontent eq '-1') {
       &init_breadcrumbs('exportcourse','Export '.&Apache::loncommon::course_type().' to IMS');              if (ref($errors) eq 'HASH') {
       &exportcourse($r);                  $errors->{$key} = 1;
   } else {              }
 # is this a standard course?          } else {
               my $newmap =
     my $standard=($env{'request.course.uri'}=~/^\/uploaded\//);                  &Apache::lonclonecourse::writefile($env{'request.course.id'},$storefn,
     my $forcestandard = 0;                                                     $mapcontent);
     my $forcesupplement;              if ($newmap eq '/adm/notfound.html') {
     my $script='';                  if (ref($errors) eq 'HASH') {
     my $showdoc=0;                      $errors->{$key} = 1;
     my $containertag;                  }
     my $uploadtag;              }
           }
       }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      my %updates;
     ['folderpath','pagepath',      if ($is_map) {
      'pagesymb']);          if (ref($updated) eq 'HASH') {
 # No folderpath, no pagepath, see if we have something stored              foreach my $type (keys(%{$updated})) {
     if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'})) {                  if (ref($updated->{$type}) eq 'HASH') {
         &Apache::loncommon::restore_course_settings('docs_folderpath',                      foreach my $key (keys(%{$updated->{$type}})) {
                                               {'folderpath' => 'scalar'});                          $updates{$key} = 1;
     }                      }
     if (!$env{'form.folderpath'}) {                  }
         &Apache::loncommon::restore_course_settings('docs_folderpath',              }
                                               {'pagepath' => 'scalar'});          }
     }          foreach my $key (keys(%updates)) {
     if ($env{'form.pagepath'}) {              my (%torewrite,%toretitle,%toremove,%remparam,%currparam,%zombie,%newdb);
        $env{'form.folderpath'}='';              if (ref($rewrites{$key}) eq 'HASH') {
     }                  %torewrite = %{$rewrites{$key}};
     if ($env{'form.folderpath'} =~ /^supplemental_\d+/) {              }
         $env{'form.folderpath'} = 'supplemental&'.              if (ref($retitles{$key}) eq 'HASH') {
                                   &escape(&mt('Supplemental '.$type.' Documents')).'&'.                  %toretitle = %{$retitles{$key}};
                                   $env{'form.folderpath'};              }
     }              if (ref($removefrommap{$key}) eq 'HASH') {
     &Apache::loncommon::store_course_settings('docs_folderpath',                  %toremove = %{$removefrommap{$key}};
                                                 {'pagepath' => 'scalar',              }
                                                  'folderpath' => 'scalar'});              if (ref($removeparam{$key}) eq 'HASH') {
     if ($env{'form.folderpath'}) {                  %remparam = %{$removeparam{$key}};
  my (@folderpath)=split('&',$env{'form.folderpath'});              }
  $env{'form.foldername'}=&unescape(pop(@folderpath));              if (ref($zombies{$key}) eq 'HASH') {
  $env{'form.folder'}=pop(@folderpath);                  %zombie = %{$zombies{$key}};
     }              }
     if ($env{'form.pagepath'}) {              if (ref($dbcopies{$key}) eq 'HASH') {
         my (@pagepath)=split('&',$env{'form.pagepath'});                  foreach my $idx (keys(%{$dbcopies{$key}})) {
         $env{'form.pagename'}=&unescape(pop(@pagepath));                      if (ref($dbcopies{$key}{$idx}) eq 'HASH') {
         $env{'form.folder'}=pop(@pagepath);                          my ($newurl,$result,$errtext) =
         $containertag = '<input type="hidden" name="pagepath" value="" />'.                              &dbcopy($dbcopies{$key}{$idx},$cdom,$cnum,\%lockerrors);
     '<input type="hidden" name="pagesymb" value="" />';                          if ($result eq 'ok') {
         $uploadtag = '<input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />'.                              $newdb{$idx} = $newurl;
     '<input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />';                          } elsif (ref($errors) eq 'HASH') {
     }                              $errors->{$key} = 1;
     if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {                          }
        $showdoc='/'.$1;                          push(@msgs,$errtext);
     }                      }
     unless ($showdoc) { # got called from remote                  }
        if (($env{'form.folder'}=~/^(?:group|default)_/) ||              }
           ($env{'form.folder'} =~ m:^\d+/(pages|sequences)/:)) {              if (ref($resdatacopy{$key}) eq 'HASH') {
            $forcestandard = 1;                  if ($newsubdir{$key}) {
        }  
        $forcesupplement=($env{'form.folder'}=~/^supplemental_/);                  }
                   foreach my $idx (keys(%{$resdatacopy{$key}})) {
        if ($allowed) {                      if (ref($resdatacopy{$key}{$idx}) eq 'HASH') {
          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);                          my $srcurl = $resdatacopy{$key}{$idx}{'src'};
          $script=&Apache::lonratedt::editscript('simple');                          if ($srcurl =~ m{^/res/lib/templates/(\w+)\.problem$}) {
        }                              my $template = $1;
     } else { # got called in sequence from course                              if (($resdatacopy{$key}{$idx}{'cdom'} =~ /^$match_domain$/) &&
        $allowed=0;                                  ($resdatacopy{$key}{$idx}{'cnum'} =~ /^$match_courseid$/)) {
     }                                  my $srcdom = $resdatacopy{$key}{$idx}{'cdom'};
                                   my $srcnum = $resdatacopy{$key}{$idx}{'cnum'};
 # get course data                                  my ($newmapname) = ($key =~ m{/([^/]+)$});
     my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};                                  my ($srcfolder,$srccontainer) = split(/\./,$newmapname);
     my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};                                  my $srcmapinfo = $srcfolder.':'.$idx;
                                   if ($srccontainer eq 'page') {
 # get personal data                                      $srcmapinfo .= ':1';
     my $uname=$env{'user.name'};                                  }
     my $udom=$env{'user.domain'};                                  if ($newsubdir{$key}) {
     my $plainname=&escape(&Apache::loncommon::plainname($uname,$udom));                                      $newmapname =~ s/^((?:default|supplemental)_)(\d+)/$1$newsubdir{$key}/;
                                   }
 # graphics settings                                  &copy_templated_files($srcurl,$srcdom,$srcnum,$srcmapinfo,$cdom,
                                                         $cnum,$template,$idx,$newmapname);
     $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/");                              }
                           }
     if ($allowed) {                      }
  $script .= &editing_js($udom,$uname);                  }
     }              }
 # -------------------------------------------------------------------- Body tag              if (ref($params{$key}) eq 'HASH') {
     $script = '<script type="text/javascript">'."\n".$script."\n".'</script>';                  %currparam = %{$params{$key}};
     my $brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}];              }
     $r->print(&Apache::loncommon::start_page("$type Documents", $script,              my ($errtext,$fatal) = &LONCAPA::map::mapread($key);
     {'force_register' => $showdoc,              if ($fatal) {
                                      'bread_crumbs' => $brcrum}).                  return ($errtext);
       &Apache::loncommon::help_open_menu('','',273,'RAT'));              }
                for (my $i=0; $i<@LONCAPA::map::zombies; $i++) {
   my %allfiles = ();                  if (defined($LONCAPA::map::zombies[$i])) {
   my %codebase = ();                      my ($title,$src,$ext,$type)=split(/\:/,$LONCAPA::map::zombies[$i]);
   my ($upload_result,$upload_output);                      if ($zombie{$i} eq $src) {
   if ($allowed) {                          undef($LONCAPA::map::zombies[$i]);
       if (($env{'form.uploaddoc.filename'}) &&                      }
   ($env{'form.cmd'}=~/^upload_(\w+)/)) {                  }
 # Process file upload - phase one - upload and parse primary file.                }
   undef($hadchanges);              for (my $i=0; $i<@LONCAPA::map::order; $i++) {
           $upload_result = &process_file_upload(\$upload_output,$coursenum,                  my $idx = $LONCAPA::map::order[$i];
  $coursedom,\%allfiles,                  if (defined($LONCAPA::map::resources[$idx])) {
  \%codebase,$1);                      my $changed;
   if ($hadchanges) {                      my ($title,$src,$ext,$type)=split(/\:/,$LONCAPA::map::resources[$idx]);
       &mark_hash_old();                      if ((exists($toremove{$idx})) && 
   }                          ($toremove{$idx} eq &LONCAPA::map::qtescape($src))) {
           if ($upload_result eq 'phasetwo') {                          splice(@LONCAPA::map::order,$i,1);
               $r->print($upload_output);                          if (ref($currparam{$idx}) eq 'ARRAY') {
           }                              foreach my $name (@{$currparam{$idx}}) {
       } elsif ($env{'form.phasetwo'}) {                                  &LONCAPA::map::delparameter($idx,'parameter_'.$name);
           my %newname = ();                              }
           my %origname = ();                          }
           my %attribs = ();                          next;
           my $updateflag = 0;                      }
           my $residx = $env{'form.newidx'};                      my $origsrc = $src;
           my $primary_url = &unescape($env{'form.primaryurl'});                      if ((exists($toretitle{$idx})) && ($toretitle{$idx} eq $src)) {
 # Process file upload - phase two - gather secondary files.                          if ($title =~ m{^\d+\Q___&amp;&amp;&amp;___\E$match_username\Q___&amp;&amp;&amp;___\E$match_domain\Q___&amp;&amp;&amp;___\E(.+)$}) {
           for (my $i=0; $i<$env{'form.phasetwo'}; $i++) {                              $changed = 1;
               if ($env{'form.embedded_item_'.$i.'.filename'}) {                          }
                   my $javacodebase;                      }
                   $newname{$i} = &process_secondary_uploads(\$upload_output,$coursedom,$coursenum,'embedded_item_',$i,$residx);                      if ((exists($torewrite{$idx})) && ($torewrite{$idx} eq $src)) {
                   $origname{$i} = &unescape($env{'form.embedded_orig_'.$i});                          $src =~ s{^/(uploaded|adm|public)/$match_domain/$match_courseid/}{/$1/$cdom/$cnum/};
                   if (exists($env{'form.embedded_codebase_'.$i})) {                          if ($origsrc =~ m{^/uploaded/}) {
                       $javacodebase =  &unescape($env{'form.embedded_codebase_'.$i});                                if ($prefixchg && $before{'map'} && $after{'map'}) {
                       $origname{$i} =~ s#^\Q$javacodebase\E/##;                                  if ($src =~ /\.(page|sequence)$/) {
                   }                                      $src =~ s#^(/uploaded/$match_domain/$match_courseid/)\Q$before{'map'}\E#$1$after{'map'}#;
                   my @attributes = ();                                  } else {
                   if ($env{'form.embedded_attrib_'.$i} =~ /:/) {                                      $src =~ s#^(/uploaded/$match_domain/$match_courseid/)\Q$before{'doc'}\E#$1$after{'doc'}#;
                       @attributes = split(/:/,$env{'form.embedded_attrib_'.$i});                                  }
                   } else {                              }
                       @attributes = ($env{'form.embedded_attrib_'.$i});                              if ($origsrc =~ /\.(page|sequence)$/) {
                   }                                  if ($newsubdir{$origsrc}) {
                   foreach my $attr (@attributes) {                                      $src =~ s#^(/uploaded/$match_domain/$match_courseid/(?:default|supplemental)_)(\d+)#$1$newsubdir{$origsrc}#;
                       push(@{$attribs{$i}},&unescape($attr));                                  }
                   }                              } elsif ($newsubdir{$key}) {
                   if ($javacodebase) {                                  $src =~ s#^(/uploaded/$match_domain/$match_courseid/\w+/)(\d+)#$1$newsubdir{$key}#;
                       $codebase{$i} = $javacodebase;                              }
                       $codebase{$i} =~ s#/$##;                          }
                       $updateflag = 1;                          $changed = 1;
                   }                      } elsif ($newdb{$idx} ne '') {
               }                          $src = $newdb{$idx};
               unless ($newname{$i} eq $origname{$i}) {                          $changed = 1;
                   $updateflag = 1;                      }
               }                      if ($changed) {
           }                          $LONCAPA::map::resources[$idx] = join(':',($title,&LONCAPA::map::qtunescape($src),$ext,$type));
 # Process file upload - phase three - modify primary file                      }
           if ($updateflag) {                  }
               my ($content,$rtncode);              }
               my $updateflag = 0;              foreach my $idx (keys(%remparam)) {
               my $getstatus = &Apache::lonnet::getuploaded('GET',$primary_url,$coursedom,$coursenum,\$content,\$rtncode);                  if (ref($remparam{$idx}) eq 'ARRAY') {
               if ($getstatus eq 'ok') {                      foreach my $name (@{$remparam{$idx}}) {   
                   foreach my $item (keys(%newname)) {                          &LONCAPA::map::delparameter($idx,'parameter_'.$name);
                       if ($newname{$item} ne $origname{$item}) {                      }
                           my $attrib_regexp = '';                  }
                           if (@{$attribs{$item}} > 1) {              }
                               $attrib_regexp = join('|',@{$attribs{$item}});              if (values(%lockerrors) > 0) {
                           } else {                  $lockmsg = join('<br />',values(%lockerrors));
                               $attrib_regexp = $attribs{$item}[0];              }
                           }              my $storefn;
                           if ($content =~ m#($attrib_regexp\s*=\s*['"]?)\Q$origname{$item}\E(['"]?)#) {              if ($key eq $oldurl) {
                           }                  $storefn = $url;
                           $content =~ s#($attrib_regexp\s*=\s*['"]?)\Q$origname{$item}\E(['"]?)#$1$newname{$item}$2#gi;                  $storefn=~s{^/uploaded/$match_domain/$match_courseid/}{};
                       }              } else {
                       if (exists($codebase{$item})) {                  $storefn = $key;
                           $content =~ s/(codebase\s*=\s*["']?)\Q$codebase{$item}\E(["']?)/$1.$2/i; #' stupid emacs                  $storefn=~s{^/uploaded/$match_domain/$match_courseid/}{};
                       }                  if ($prefixchg && $before{'map'} && $after{'map'}) {
                   }                      $storefn =~ s/^\Q$before{'map'}\E/$after{'map'}/;
 # Save edited file.                  }
                   my $saveresult;                  if ($newsubdir{$key}) {
                   my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};                      $storefn =~ s/^((?:default|supplemental)_)(\d+)/$1$newsubdir{$key}/;
                   my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};                  }
                   my $url = &Apache::lonnet::store_edited_file($primary_url,$content,$docudom,$docuname,\$saveresult);              }
               } else {              my $report;
                   &Apache::lonnet::logthis('retrieval of uploaded file - '.$primary_url.' - for editing, failed: '.$getstatus);              if ($folder !~ /^supplemental/) {
               }                  $report = 1;
           }              }
       }              (my $outtext,$errtext) =
   }                  &LONCAPA::map::storemap("/uploaded/$cdom/$cnum/$storefn",1,$report);
               if ($errtext) {
   unless ($showdoc ||  $upload_result eq 'phasetwo') {                  if ($caller eq 'paste') {
 # -----------------------------------------------------------------------------                      return (&mt('Paste failed: an error occurred saving the folder or page.'));
        my %lt=&Apache::lonlocal::texthash(                  }
                 'uplm' => 'Upload a new main '.lc($type).' document',              }
                 'upls' => 'Upload a new supplemental '.lc($type).' document',          }
                 'impp' => 'Import a document',      }
                 'pubd' => 'Published Documents',      return ('ok',\@msgs,$lockmsg);
  'copm' => 'All documents out of a published map into this folder',  }
                 'upld' => 'Upload Document',  
                 'srch' => 'Search',  sub copy_dependencies {
                 'impo' => 'Import',      my ($item,$storefn,$relpath,$errors,$contentref) = @_;
  'book' => 'Import Bookmarks',      my $content;
                 'selm' => 'Select Map',      if (ref($contentref)) {
                 'load' => 'Load Map',          $content = $$contentref;
                 'reco' => 'Recover Deleted Resources',      } else {
                 'newf' => 'New Folder',          $content = &Apache::lonnet::getfile($item);
                 'newp' => 'New Composite Page',      }
                 'extr' => 'External Resource',      unless ($content eq '-1') {
                 'syll' => 'Syllabus',          my $mm = new File::MMagic;
                 'navc' => 'Navigate Contents',          my $mimetype = $mm->checktype_contents($content);
                 'sipa' => 'Simple Page',          if ($mimetype eq 'text/html') {
                 'sipr' => 'Simple Problem',              my (%allfiles,%codebase,$state);
                 'drbx' => 'Drop Box',              my $res = &Apache::lonnet::extract_embedded_items(undef,\%allfiles,\%codebase,\$content);
                 'scuf' => 'Score Upload Form',              if ($res eq 'ok') {
                 'bull' => 'Bulletin Board',                  my ($numexisting,$numpathchanges,$existing);
                 'mypi' => 'My Personal Info',                  (undef,$numexisting,$numpathchanges,$existing) =
                 'grpo' => 'Group Files',                      &Apache::loncommon::ask_for_embedded_content(
                 'rost' => 'Course Roster',                          '/adm/coursedocs',$state,\%allfiles,\%codebase,
  'abou' => 'About User',                          {'error_on_invalid_names'   => 1,
                 'imsf' => 'Import IMS package',                           'ignore_remote_references' => 1,
                 'file' =>  'File',                           'docs_url'                 => $item,
                 'title' => 'Title',                           'context'                  => 'paste'});
                 'comment' => 'Comment',                  if ($numexisting > 0) {
                 'parse' => 'Upload embedded images/multimedia files if HTML file!',                      if (ref($existing) eq 'HASH') {
  'nd' => 'New Document',                          foreach my $dep (keys(%{$existing})) {
  'pm' => 'Published Map',                              my $depfile = $dep;
  'sd' => 'Special Document',                              unless ($depfile =~ m{^\Q$relpath\E}) {
  'mo' => 'More Options',                                  $depfile = $relpath.$dep;
  'hao' => 'Hide all Options'                              }
   );                              my $depcontent = &Apache::lonnet::getfile($depfile);
 # -----------------------------------------------------------------------------                              unless ($depcontent eq '-1') {
  my $fileupload=(<<FIUP);                                  my $storedep = $dep;
  $lt{'file'}:<br />                                  $storedep =~ s{^\Q$relpath\E}{};
  <input type="file" name="uploaddoc" size="40" />                                  my $dep_url =
 FIUP                                      &Apache::lonclonecourse::writefile(
                                           $env{'request.course.id'},
  my $checkbox=(<<CHBO);                                          $storefn.$storedep,$depcontent);
  <!-- <label>$lt{'parse'}?                                  if ($dep_url eq '/adm/notfound.html') {
  <input type="checkbox" name="parserflag" />                                      if (ref($errors) eq 'HASH') {
  </label> -->                                          $errors->{$depfile} = 1;
  <label>                                      }
  <input type="checkbox" name="parserflag" checked="checked" /> $lt{'parse'}                                  } else {
  </label>                                      &copy_dependencies($depfile,$storefn,$relpath,$errors,\$depcontent);
 CHBO                                  }
                               }
  my $fileuploadform=(<<FUFORM);                          }
  <form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">                      }
  $fileupload                  }
  <br />              }
  $lt{'title'}:<br />          }
  <input type="text" size="50" name="comment" />      }
  $uploadtag      return;
  <input type="hidden" name="cmd" value="upload_default" />  }
  <br />  
  <span class="LC_nobreak">  my %parameter_type = ( 'randompick'     => 'int_pos',
  $checkbox         'hiddenresource' => 'string_yesno',
  </span>         'encrypturl'     => 'string_yesno',
  <br />         'randomorder'    => 'string_yesno',);
  <br />  my $valid_parameters_re = join('|',keys(%parameter_type));
  <span class="LC_nobreak">  # set parameters
  <input type="submit" value="$lt{'upld'}" />  sub update_parameter {
  $help{'Uploading_From_Harddrive'}      if ($env{'form.changeparms'} eq 'all') {
  </span>          my (@allidx,@allmapidx,%allchecked,%currchecked);
  </form>          %allchecked = (
 FUFORM                           'hiddenresource' => {},
                            'encrypturl'     => {},
  my $simpleeditdefaultform=(<<SEDFFORM);                           'randompick'     => {},
  <form action="/adm/coursedocs" method="post" name="simpleeditdefault">                           'randomorder'    => {},
  $lt{'pubd'}<br />                        );
  $uploadtag          foreach my $which (keys(%allchecked)) {
  <input type="button" onClick="javascript:groupsearch()" value="$lt{'srch'}" />              $env{'form.all'.$which} =~ s/,$//;   
  <br />              if ($which eq 'randompick') {
  <span class="LC_nobreak">                  foreach my $item (split(/,/,$env{'form.all'.$which})) {
  <input type="button" onClick="javascript:groupimport();" value="$lt{'impo'}" />                      my ($res,$value) = split(/:/,$item);
  $help{'Importing_LON-CAPA_Resource'}                      if ($value =~ /^\d+$/) {
  </span>                          $allchecked{$which}{$res} = $value;
  <br />                      }
  <input type="button" onClick="javascript:groupopen(0,1,1);" value="$lt{'book'}" />                  }
  <hr />              } else {
  <p>                  if ($env{'form.all'.$which}) {
  $lt{'copm'}<br />                      map { $allchecked{$which}{$_} = 1; } split(/,/,$env{'form.all'.$which});
  <input type="text" size="40" name="importmap" /><br />                  }
  <span class="LC_nobreak"><input type="button"              }
  onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"          }
  value="$lt{'selm'}" /> <input type="submit" name="loadmap" value="$lt{'load'}" />          my $haschanges = 0;
  $help{'Load_Map'}</span>          foreach my $res (@LONCAPA::map::order) {
  </p>              my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
  </form>              $name=&LONCAPA::map::qtescape($name);
 SEDFFORM              $url=&LONCAPA::map::qtescape($url);
               next unless ($name && $url);
  my $extresourcesform=(<<ERFORM);              my $is_map;
  <form action="/adm/coursedocs" method="post" name="newext">              if ($url =~ m{/uploaded/.+\.(page|sequence)$}) {
  $uploadtag                  $is_map = 1;
  <input type="hidden" name="importdetail" value="" />              }
  <span class="LC_nobreak">              foreach my $which (keys(%allchecked)) {
  <input name="newext" type="button" onClick="javascript:makenewext('newext');"                  if (($which eq 'randompick' || $which eq 'randomorder')) {
  value="$lt{'extr'}" /> $help{'Adding_External_Resource'}                      next if (!$is_map);
  </span>                  } 
  </form>                  my $oldvalue = 0;
 ERFORM                  my $newvalue = 0;
                   if ($allchecked{$which}{$res}) {
     if ($allowed) {                      $newvalue = $allchecked{$which}{$res};
  &update_paste_buffer($coursenum,$coursedom);                  }
        my $dumpbut=&dumpbutton();                  my $current = (&LONCAPA::map::getparameter($res,'parameter_'.$which))[0];
        my $exportbut=&exportbutton();                  if ($which eq 'randompick') {
        my %lt=&Apache::lonlocal::texthash(                      if ($current =~ /^(\d+)$/) {
  'vc' => 'Verify Content',                          $oldvalue = $1;
  'cv' => 'Check/Set Resource Versions',                      }
  'ls' => 'List Symbs',                  } else {
                                          'sl' => 'Show Log'                      if ($current =~ /^yes$/i) {
   );                          $oldvalue = 1;
                       }
        my $folderpath=$env{'form.folderpath'};                  }
        if (!$folderpath) {                  if ($oldvalue ne $newvalue) {
    if ($env{'form.folder'} eq '' ||                      $haschanges = 1;
        $env{'form.folder'} eq 'supplemental') {                      if ($newvalue) {
        $folderpath='default&'.                          my $storeval = 'yes';
    &escape(&mt('Main '.$type.' Documents'));                          if ($which eq 'randompick') {
    }                              $storeval = $newvalue;
        }                          }
        unless ($env{'form.pagepath'}) {                          &LONCAPA::map::storeparameter($res,'parameter_'.$which,
            $containertag = '<input type="hidden" name="folderpath" value="" />';                                                        $storeval,
            $uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';                                                        $parameter_type{$which});
        }                          &remember_parms($res,$which,'set',$storeval);
        $r->print(&generate_admin_options($containertag,$uploadtag,\%lt,\%help,\%env));                      } elsif ($oldvalue) {
        $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',                          &LONCAPA::map::delparameter($res,'parameter_'.$which);
      &mt('Editing the Table of Contents for your '.$type)));                          &remember_parms($res,$which,'del');
     }                      }
 # --------------------------------------------------------- Standard documents                  }
     $r->print('<table class="LC_docs_documents">');              }
           }
     if (($standard) && ($allowed) && (!$forcesupplement)) {          return $haschanges;
  $r->print('<tr><td class="LC_docs_document">');      } else {
 #  '<h2>'.&mt('Main Course Documents').          my $haschanges = 0;
 #  ($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');          return $haschanges if ($env{'form.changeparms'} !~ /^($valid_parameters_re)$/);
        my $folder=$env{'form.folder'};  
        if ($folder eq '' || $folder eq 'supplemental') {          my $which = $env{'form.changeparms'};
            $folder='default';          my $idx = $env{'form.setparms'};
    $env{'form.folderpath'}='default&'.&escape(&mt('Main '.$type.' Documents'));          my $oldvalue = 0;
            $uploadtag = '<input type="hidden" name="folderpath" value="'.          my $newvalue = 0;
        &HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';          my $current = (&LONCAPA::map::getparameter($idx,'parameter_'.$which))[0];
        }          if ($which eq 'randompick') {
        my $postexec='';              if ($current =~ /^(\d+)$/) {
        if ($folder eq 'default') {                  $oldvalue = $1;
    $r->print('<script type="text/javascript">this.window.name="loncapaclient";</script>');              }
        } else {          } elsif ($current =~ /^yes$/i) {
            #$postexec='self.close();';              $oldvalue = 1;
        }          }
        $hadchanges=0;          if ($env{'form.'.$which.'_'.$idx}) {
        my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,      $newvalue = ($which eq 'randompick') ? $env{'form.rpicknum_'.$idx}
    $upload_output,$type);                                           : 1;
        if ($error) {          }
    $r->print('<p><span class="LC_error">'.$error.'</span></p>');          if ($oldvalue ne $newvalue) {
        }              $haschanges = 1;
        if ($hadchanges) {              if ($newvalue) {
    &mark_hash_old();                  my $storeval = 'yes';
        }                  if ($which eq 'randompick') {
        &changewarning($r,$postexec);                      $storeval = $newvalue;
        my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.                  }
                      '.sequence';          &LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $storeval,
        my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.                $parameter_type{$which});
                      '.page';          &remember_parms($idx,$which,'set',$storeval);
  my $container='sequence';              } else {
  if ($env{'form.pagepath'}) {          &LONCAPA::map::delparameter($idx,'parameter_'.$which);
     $container='page';          &remember_parms($idx,$which,'del');
  }              }
  my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;          }
           return $haschanges;
       }
   }
  my $recoverform=(<<RFORM);  
  <form action="/adm/groupsort" method="post" name="recover">  sub handle_edit_cmd {
  <input type="button" name="recovermap" onClick="javascript:groupopen('$readfile',1,0)" value="$lt{'reco'}" />      my ($coursenum,$coursedom) =@_;
  </form>      if ($env{'form.cmd'} eq '') {
 RFORM          return 0;
       }
  my $imspform=(<<IMSPFORM);      my ($cmd,$idx)=split('_',$env{'form.cmd'});
  <form action="/adm/imsimportdocs" method="post" name="ims">  
  <input type="hidden" name="folder" value="$folder" />      my $ratstr = $LONCAPA::map::resources[$LONCAPA::map::order[$idx]];
  <input name="imsimport" type="button" value="$lt{'imsf'}" onClick="javascript:makeims();" />      my ($title, $url, @rrest) = split(':', $ratstr);
  </form>  
 IMSPFORM      if ($cmd eq 'remove') {
    if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) &&
  my $newnavform=(<<NNFORM);      ($url!~/$LONCAPA::assess_page_seq_re/)) {
  <form action="/adm/coursedocs" method="post" name="newnav">      &Apache::lonnet::removeuploadedurl($url);
  $uploadtag   } else {
  <input type="hidden" name="importdetail"      &LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
  value="$lt{'navc'}=/adm/navmaps" />   }
  <span class="LC_nobreak">   splice(@LONCAPA::map::order, $idx, 1);
  <input name="newnav" type="submit" value="$lt{'navc'}" />  
  $help{'Navigate_Content'}      } elsif ($cmd eq 'cut') {
  </span>   &LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
  </form>   splice(@LONCAPA::map::order, $idx, 1);
 NNFORM  
  my $newsmppageform=(<<NSPFORM);      } elsif ($cmd eq 'up'
  <form action="/adm/coursedocs" method="post" name="newsmppg">       && ($idx) && (defined($LONCAPA::map::order[$idx-1]))) {
  $uploadtag   @LONCAPA::map::order[$idx-1,$idx] = @LONCAPA::map::order[$idx,$idx-1];
  <input type="hidden" name="importdetail" value="" />  
  <span class="LC_nobreak">      } elsif ($cmd eq 'down'
  <input name="newsmppg" type="button" value="$lt{'sipa'}"       && defined($LONCAPA::map::order[$idx+1])) {
  onClick="javascript:makesmppage();" /> $help{'Simple Page'}   @LONCAPA::map::order[$idx+1,$idx] = @LONCAPA::map::order[$idx,$idx+1];
  </span>  
  </form>      } elsif ($cmd eq 'rename') {
 NSPFORM   my $comment = &LONCAPA::map::qtunescape($env{'form.title'});
    if ($comment=~/\S/) {
  my $newsmpproblemform=(<<NSPROBFORM);      $LONCAPA::map::resources[$LONCAPA::map::order[$idx]]=
  <form action="/adm/coursedocs" method="post" name="newsmpproblem">   $comment.':'.join(':', $url, @rrest);
  $uploadtag   }
  <input type="hidden" name="importdetail" value="" />  # Devalidate title cache
  <span class="LC_nobreak">   my $renamed_url=&LONCAPA::map::qtescape($url);
  <input name="newsmpproblem" type="button" value="$lt{'sipr'}"   &Apache::lonnet::devalidate_title_cache($renamed_url);
  onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}  
  </span>      } else {
  </form>   return 0;
       }
 NSPROBFORM      return 1;
   }
  my $newdropboxform=(<<NDBFORM);  
  <form action="/adm/coursedocs" method="post" name="newdropbox">  sub editor {
  $uploadtag            my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$crstype,
  <input type="hidden" name="importdetail" value="" />          $supplementalflag,$orderhash,$iconpath,$pathitem,$ltitoolsref)=@_;
  <span class="LC_nobreak">                my ($randompick,$ishidden,$isencrypted,$plain,$is_random_order,$container);
  <input name="newdropbox" type="button" value="$lt{'drbx'}"      if ($allowed) {
  onClick="javascript:makedropbox();" />          (my $breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,
  </span>                   $is_random_order,$container) =
  </form>              &Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
 NDBFORM          $r->print($breadcrumbtrail);
       } elsif ($env{'form.folderpath'} =~ /\:1$/) {
  my $newexuploadform=(<<NEXUFORM);          $container = 'page'; 
  <form action="/adm/coursedocs" method="post" name="newexamupload">      } else {
  $uploadtag          $container = 'sequence';
  <input type="hidden" name="importdetail" value="" />      }
  <span class="LC_nobreak">  
  <input name="newexamupload" type="button" value="$lt{'scuf'}"      my $jumpto;
  onClick="javascript:makeexamupload();" />  
  $help{'Score_Upload_Form'}      unless ($supplementalflag) {
  </span>          $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container";
  </form>      }
 NEXUFORM  
       unless ($allowed) {
  my $newbulform=(<<NBFORM);          $randompick = -1;
  <form action="/adm/coursedocs" method="post" name="newbul">      }
  $uploadtag  
  <input type="hidden" name="importdetail" value="" />      my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
  <span class="LC_nobreak">      $folder.'.'.$container);
  <input name="newbulletin" type="button" value="$lt{'bull'}"      return $errtext if ($fatal);
  onClick="javascript:makebulboard();" />  
  $help{'Bulletin Board'}      if ($#LONCAPA::map::order<1) {
  </span>   my $idx=&LONCAPA::map::getresidx();
  </form>   if ($idx<=0) { $idx=1; }
 NBFORM          $LONCAPA::map::order[0]=$idx;
           $LONCAPA::map::resources[$idx]='';
  my $newaboutmeform=(<<NAMFORM);      }
  <form action="/adm/coursedocs" method="post" name="newaboutme">  
  $uploadtag  # ------------------------------------------------------------ Process commands
  <input type="hidden" name="importdetail"  
  value="$plainname=/adm/$udom/$uname/aboutme" />  # ---------------- if they are for this folder and user allowed to make changes
  <span class="LC_nobreak">      if (($allowed) && ($env{'form.folder'} eq $folder)) {
  <input name="newaboutme" type="submit" value="$lt{'mypi'}" />  # set parameters and change order
  $help{'My Personal Info'}   &snapshotbefore();
  </span>  
  </form>   if (&update_parameter()) {
 NAMFORM      ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,1);
       return $errtext if ($fatal);
  my $newaboutsomeoneform=(<<NASOFORM);   }
  <form action="/adm/coursedocs" method="post" name="newaboutsomeone">  
  $uploadtag   if ($env{'form.newpos'} && $env{'form.currentpos'}) {
  <input type="hidden" name="importdetail" value="" />  # change order
  <span class="LC_nobreak">      my $res = splice(@LONCAPA::map::order,$env{'form.currentpos'}-1,1);
  <input name="newaboutsomeone" type="button" value="$lt{'abou'}"      splice(@LONCAPA::map::order,$env{'form.newpos'}-1,0,$res);
  onClick="javascript:makeabout();" />  
  </span>      ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
  </form>      return $errtext if ($fatal);
 NASOFORM   }
   
    if ($env{'form.pastemarked'}) {
  my $newrosterform=(<<NROSTFORM);              my %paste_errors;
  <form action="/adm/coursedocs" method="post" name="newroster">              my ($paste_res,$save_error,$pastemsgarray,$lockerror) =
  $uploadtag                  &do_paste_from_buffer($coursenum,$coursedom,$folder,$container,
  <input type="hidden" name="importdetail"                                        \%paste_errors);
  value="$lt{'rost'}=/adm/viewclasslist" />              if (ref($pastemsgarray) eq 'ARRAY') {
  <span class="LC_nobreak">                  if (@{$pastemsgarray} > 0) {
  <input name="newroster" type="submit" value="$lt{'rost'}" />                      $r->print('<p class="LC_info">'.
  $help{'Course Roster'}                                join('<br />',@{$pastemsgarray}).
  </span>                                '</p>');
  </form>                  }
 NROSTFORM              }
               if ($lockerror) {
        $r->print(<<ENDFORM);                  $r->print('<p class="LC_error">'.
                             $lockerror.
 <ul class="LC_TabContent">                            '</p>');
 <li>$lt{'nd'}</li>              }
 <li>$lt{'pm'}</li>              if ($save_error ne '') {
 <li>$lt{'pubd'}</li>                  return $save_error; 
 <li>$lt{'sd'}</li>              }
 <li>$lt{'mo'}</li>              if ($paste_res) {
 <li>$lt{'hao'}</li>                  my %errortext = &Apache::lonlocal::texthash (
 </ul>                                      fail      => 'Storage of folder contents failed',
                                       failread  => 'Reading folder contents failed',
 <table class="LC_docs_adddocs">                                      failstore => 'Storage of folder contents failed',
 <!-- <tr>                                  );
 <th>$lt{'uplm'}</th>                  if ($errortext{$paste_res}) {
 <th>$lt{'impp'}</th>                      $r->print('<p class="LC_error">'.$errortext{$paste_res}.'</p>');
 <th>$lt{'spec'}</th>                  }
 </tr> -->              }
 <tr>              if (keys(%paste_errors) > 0) {
 <td>                  $r->print('<p class="LC_warning">'."\n".
 $fileuploadform                            &mt('The following files are either dependencies of a web page or references within a folder and/or composite page which could not be copied during the paste operation:')."\n".
 </td>                            '<ul>'."\n");
 <td>                  foreach my $key (sort(keys(%paste_errors))) {
 $simpleeditdefaultform                      $r->print('<li>'.$key.'</li>'."\n");
 <hr />                  }
 $recoverform                  $r->print('</ul></p>'."\n");
 ENDFORM              }
        unless ($env{'form.pagepath'}) {   } elsif ($env{'form.clearmarked'}) {
    $r->print(<<ENDFORM);              my $output = &do_buffer_empty();
 <hr />              if ($output) {
 $extresourcesform                  $r->print('<p class="LC_info">'.$output.'</p>');
  <br />              }
 $imspform          }
 ENDFORM  
        }   $r->print($upload_output);
        $r->print('</td><td>');  
        unless ($env{'form.pagepath'}) {  # Rename, cut, copy or remove a single resource
    my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');   if (&handle_edit_cmd($coursenum,$coursedom)) {
               my $contentchg;
               if ($env{'form.cmd'} =~ m{^(remove|cut)_}) {
                   $contentchg = 1;
  my $newpageform=(<<NPFORM);              }
  <form action="/adm/coursedocs" method="post" name="newpage">      ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,$contentchg);
  <input type="hidden" name="folderpath" value="$path" />      return $errtext if ($fatal);
  <input type="hidden" name="importdetail" value="" />   }
  <span class="LC_nobreak">  
  <input name="newpage" type="button"  # Cut, copy and/or remove multiple resources
  onClick="javascript:makenewpage(this.form,'$pageseq');"          if ($env{'form.multichange'}) {
  value="$lt{'newp'}" />$help{'Adding_Pages'}              my %allchecked = (
  </span>                                 cut     => {},
  </form>                                 remove  => {},
 NPFORM                               );
               my $needsupdate;
  my $newfolderform=(<<NFFORM);              foreach my $which (keys(%allchecked)) {
  <form action="/adm/coursedocs" method="post" name="newfolder">                  $env{'form.multi'.$which} =~ s/,$//;
  <input type="hidden" name="folderpath" value="$path" />                  if ($env{'form.multi'.$which}) {
  <input type="hidden" name="importdetail" value="" />                      map { $allchecked{$which}{$_} = 1; } split(/,/,$env{'form.multi'.$which});
  <span class="LC_nobreak">                      if (ref($allchecked{$which}) eq 'HASH') {
  <input name="newfolder" type="button"                          $needsupdate += scalar(keys(%{$allchecked{$which}}));
  onClick="javascript:makenewfolder(this.form,'$folderseq');"                      }
  value="$lt{'newf'}" />$help{'Adding_Folders'}                  }
  </span>              }
  </form>              if ($needsupdate) {
 NFFORM                  my $haschanges = 0;
                   my %curr_groups = &Apache::longroup::coursegroups();
  my $newsylform=(<<NSYLFORM);                  my $total = scalar(@LONCAPA::map::order) - 1; 
  <form action="/adm/coursedocs" method="post" name="newsyl">                  for (my $i=$total; $i>=0; $i--) {
  $uploadtag                      my $res = $LONCAPA::map::order[$i];
  <input type="hidden" name="importdetail"                      my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
  value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />                      $name=&LONCAPA::map::qtescape($name);
  <span class="LC_nobreak">                      $url=&LONCAPA::map::qtescape($url);
  <input name="newsyl" type="submit" value="$lt{'syll'}" />                      next unless $url;
  $help{'Syllabus'}                      my %denied =
  </span>                          &action_restrictions($coursenum,$coursedom,$url,
  </form>                                               $env{'form.folderpath'},\%curr_groups);
 NSYLFORM                      foreach my $which (keys(%allchecked)) {
                           next if ($denied{$which});
  my $newgroupfileform=(<<NGFFORM);                          next unless ($allchecked{$which}{$res});
  <form action="/adm/coursedocs" method="post" name="newgroupfiles">                          if ($which eq 'remove') {
  $uploadtag                              if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) &&
  <input type="hidden" name="importdetail"                                  ($url!~/$LONCAPA::assess_page_seq_re/)) {
  value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />                                  &Apache::lonnet::removeuploadedurl($url);
  <span class="LC_nobreak">                              } else {
  <input name="newgroupfiles" type="submit" value="$lt{'grpo'}" />                                  &LONCAPA::map::makezombie($res);
  $help{'Group Files'}                              }
  </span>                              splice(@LONCAPA::map::order,$i,1);
  </form>                              $haschanges ++;
 NGFFORM                          } elsif ($which eq 'cut') {
                               &LONCAPA::map::makezombie($res);
                               splice(@LONCAPA::map::order,$i,1);
            $r->print(<<ENDFORM);                              $haschanges ++;
 <br />                          }
 $newfolderform                      }
 <br />                  }
 $newpageform                  if ($haschanges) {
 <br />                      ($errtext,$fatal) = 
 $newsylform                          &storemap($coursenum,$coursedom,$folder.'.'.$container,1);
 <br />                      return $errtext if ($fatal);
 $newnavform                  }
 <br />              }
 $newsmppageform          }
 <br />  
 $newsmpproblemform  # Group import/search
 <br />   if ($env{'form.importdetail'}) {
 $newdropboxform      my @imports;
 <br />      foreach my $item (split(/\&/,$env{'form.importdetail'})) {
 $newexuploadform   if (defined($item)) {
 <br />      my ($name,$url,$residx)=
 $newbulform   map { &unescape($_); } split(/\=/,$item);
 <br />                      if ($url =~ m{^\Q/uploaded/$coursedom/$coursenum/\E(default|supplemental)_new\.(sequence|page)$}) {
 $newaboutmeform                          my ($suffix,$errortxt,$locknotfreed) =
 <br />                              &new_timebased_suffix($coursedom,$coursenum,'map',$1,$2);
 $newaboutsomeoneform                          if ($locknotfreed) {
 <br />                              $r->print($locknotfreed);
 $newgroupfileform                          }
 <br />                          if ($suffix) {
 $newrosterform                              $url =~ s/_new\./_$suffix./; 
 ENDFORM                          } else {
        }                              return $errortxt;
        if ($env{'form.pagepath'}) {                          }
            $r->print(<<ENDBLOCK);                      } elsif ($url =~ m{^/adm/$match_domain/$match_username/new/(smppg|bulletinboard)$}) {
 $newsmpproblemform                          my $type = $1;
 <br />                          my ($suffix,$errortxt,$locknotfreed) =
 $newexuploadform                              &new_timebased_suffix($coursedom,$coursenum,$type);
 ENDBLOCK                          if ($locknotfreed) {
        }                              $r->print($locknotfreed);
        $r->print('</td></tr>'."\n".                          }
 '</table>');                          if ($suffix) {
        $r->print('</td></tr>');                              $url =~ s{^(/adm/$match_domain/$match_username)/new}{$1/$suffix};
     }                          } else {
 # ----------------------------------------------------- Supplemental documents                              return $errortxt;
     if (!$forcestandard) {                          }
        $r->print('<tr><td class="LC_docs_document">');                      } elsif ($url =~ m{^/adm/$coursedom/$coursenum/new/exttool}) {
 # '<h2>'.&mt('Supplemental Course Documents').                          my ($suffix,$errortxt,$locknotfreed) =
 #  ($allowed?' '.$help{'Supplemental'}:'').'</h2>');                              &new_timebased_suffix($coursedom,$coursenum,'exttool');
        my $folder=$env{'form.folder'};                          if ($locknotfreed) {
        unless ($folder=~/^supplemental/) {                              $r->print($locknotfreed);
    $folder='supplemental';                          }
        }                          if ($suffix) {
        if ($folder =~ /^supplemental$/ &&                              $url =~ s{^(/adm/$coursedom/$coursenum)/new}{$1/$suffix};
    (($env{'form.folderpath'} =~ /^default\&/) || ($env{'form.folderpath'} eq ''))) {                          } else {
           $env{'form.folderpath'} = 'supplemental&'.                              return $errortxt;
                                     &escape(&mt('Supplemental '.$type.' Documents'));                          }
        }                      } elsif ($url =~ m{^/uploaded/$coursedom/$coursenum/(docs|supplemental)/(default|\d+)/new.html$}) {
        my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);                          if ($supplementalflag) {
        if ($error) {                              next unless ($1 eq 'supplemental');
    $r->print('<p><span class="LC_error">'.$error.'</span></p>');                              if ($folder eq 'supplemental') {
        }                                  next unless ($2 eq 'default');
        if ($allowed) {                              } else {
    my $folderseq=                                  next unless ($folder eq 'supplemental_'.$2);
        '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_'.time.                              }
        '.sequence';                          } else {
                               next unless ($1 eq 'docs');
    my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');                              if ($folder eq 'default') {
                                   next unless ($2 eq 'default');
  my $supupdocform=(<<SUPDOCFORM);                              } else {
  <form action="/adm/coursedocs" method="post" enctype="multipart/form-data">                                  next unless ($folder eq 'default_'.$2);
  $fileupload                              }
  <br />                          }
  <br />                      }
  <span class="LC_nobreak">      push(@imports, [$name, $url, $residx]);
  $checkbox   }
  </span>      }
  <br /><br />              ($errtext,$fatal,my $fixuperrors) =
  $lt{'comment'}:<br />                  &group_import($coursenum, $coursedom, $folder,$container,
  <textarea cols=50 rows=4 name='comment'>                                'londocs',$ltitoolsref,@imports);
  </textarea>      return $errtext if ($fatal);
  <br />              if ($fixuperrors) {
  <input type="hidden" name="folderpath" value="$path" />                  $r->print($fixuperrors);
  <input type="hidden" name="cmd" value="upload_supplemental" />              }
  <span class="LC_nobreak">   }
  <input type="submit" value="$lt{'upld'}" />  # Loading a complete map
  $help{'Uploading_From_Harddrive'}   if ($env{'form.loadmap'}) {
  </span>      if ($env{'form.importmap'}=~/\w/) {
  </form>   foreach my $res (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$env{'form.importmap'}))) {
 SUPDOCFORM      my ($title,$url,$ext,$type)=split(/\:/,$res);
       my $idx=&LONCAPA::map::getresidx($url);
  my $supnewfolderform=(<<SNFFORM);      $LONCAPA::map::resources[$idx]=$res;
  <form action="/adm/coursedocs" method="post" name="supnewfolder">      $LONCAPA::map::order[$#LONCAPA::map::order+1]=$idx;
  <input type="hidden" name="folderpath" value="$path" />   }
  <input type="hidden" name="importdetail" value="" />   ($errtext,$fatal)=&storemap($coursenum,$coursedom,
  <span class="LC_nobreak">      $folder.'.'.$container,1);
  <input name="newfolder" type="button"   return $errtext if ($fatal);
  onClick="javascript:makenewfolder(this.form,'$folderseq');"      } else {
  value="$lt{'newf'}" /> $help{'Adding_Folders'}   $r->print('<p><span class="LC_error">'.&mt('No map selected.').'</span></p>');
  </span>  
  </form>      }
 SNFFORM   }
    &log_differences($plain);
       }
  my $supnewextform=(<<SNEFORM);  # ---------------------------------------------------------------- End commands
  <form action="/adm/coursedocs" method="post" name="supnewext">  # ---------------------------------------------------------------- Print screen
  <input type="hidden" name="folderpath" value="$path" />      my $idx=0;
  <input type="hidden" name="importdetail" value="" />      my $shown=0;
  <span class="LC_nobreak">      if (($ishidden) || ($isencrypted) || ($randompick>=0) || ($is_random_order)) {
  <input name="newext" type="button"   $r->print('<div class="LC_Box">'.
  onClick="javascript:makenewext('supnewext');"            '<ol class="LC_docs_parameters"><li class="LC_docs_parameters_title">'.&mt('Parameters:').'</li>'.
  value="$lt{'extr'}" /> $help{'Adding_External_Resource'}    ($randompick>=0?'<li>'.&mt('randomly pick [quant,_1,resource]',$randompick).'</li>':'').
  </span>    ($ishidden?'<li>'.&mt('contents hidden').'</li>':'').
  </form>    ($isencrypted?'<li>'.&mt('URLs hidden').'</li>':'').
 SNEFORM    ($is_random_order?'<li>'.&mt('random order').'</li>':'').
     '</ol>');
  my $supnewsylform=(<<SNSFORM);          if ($randompick>=0) {
  <form action="/adm/coursedocs" method="post" name="supnewsyl">              $r->print('<p class="LC_warning">'
  <input type="hidden" name="folderpath" value="$path" />                   .&mt('Caution: this folder is set to randomly pick a subset'
  <input type="hidden" name="importdetail"                       .' of resources. Adding or removing resources from this'
  value="Syllabus=/public/$coursedom/$coursenum/syllabus" />                       .' folder will change the set of resources that the'
  <span class="LC_nobreak">                       .' students see, resulting in spurious or missing credit'
  <input name="newsyl" type="submit" value="$lt{'syll'}" />                       .' for completed problems, not limited to ones you'
  $help{'Syllabus'}                       .' modify. Do not modify the contents of this folder if'
  </span>                       .' it is in active student use.')
  </form>                   .'</p>'
 SNSFORM              );
           }
  my $supnewaboutmeform=(<<SNAMFORM);          if ($is_random_order) {
  <form action="/adm/coursedocs" method="post" name="subnewaboutme">              $r->print('<p class="LC_warning">'
  <input type="hidden" name="folderpath" value="$path" />                   .&mt('Caution: this folder is set to randomly order its'
  <input type="hidden" name="importdetail"                       .' contents. Adding or removing resources from this folder'
  value="$plainname=/adm/$udom/$uname/aboutme" />                       .' will change the order of resources shown.')
  <span class="LC_nobreak">                   .'</p>'
  <input name="newaboutme" type="submit" value="$lt{'mypi'}" />              );
  $help{'My Personal Info'}          }
  </span>          $r->print('</div>');
  </form>      }
 SNAMFORM  
       my ($to_show,$output,@allidx,@allmapidx,%filters,%lists,%curr_groups);
    $r->print(<<ENDSUPFORM);      %filters =  (
 <ul class="LC_TabContent">                    canremove      => [],
 <li>$lt{'nd'}</li>                    cancut         => [],
 <li>$lt{'sd'}</li>                    cancopy        => [],
 <li>$lt{'hao'}</li>                    hiddenresource => [],
 </ul>                    encrypturl     => [],
 <table class="LC_docs_adddocs">                    randomorder    => [],
 <tr><td>                    randompick     => [],
 $supupdocform                  );
 </td>      %curr_groups = &Apache::longroup::coursegroups();
 <td>      &Apache::loncommon::start_data_table_count(); #setup a row counter 
 $supnewfolderform      foreach my $res (@LONCAPA::map::order) {
 <br />          my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
 $supnewextform          $name=&LONCAPA::map::qtescape($name);
 <br />          $url=&LONCAPA::map::qtescape($url);
 $supnewsylform          unless ($name) {  $name=(split(/\//,$url))[-1]; }
 <br />          unless ($name) { $idx++; next; }
 $supnewaboutmeform          push(@allidx,$res);
 </td></tr>          if ($url =~ m{/uploaded/.+\.(page|sequence)$}) {
 </table></td></tr>              push(@allmapidx,$res);
 ENDSUPFORM          }
        }          $output .= &entryline($idx,$name,$url,$folder,$allowed,$res,
     }                                $coursenum,$coursedom,$crstype,
     $r->print('</table>');                                $pathitem,$supplementalflag,$container,
     if ($allowed) {                                \%filters,\%curr_groups,$ltitoolsref);
  $r->print('          $idx++;
 <form method="post" name="extimport" action="/adm/coursedocs">          $shown++;
   <input type="hidden" name="title" />      }
   <input type="hidden" name="url" />      &Apache::loncommon::end_data_table_count();
   <input type="hidden" name="useform" />  
   <input type="hidden" name="residx" />      my $need_save;
 </form>');      if (($allowed) || ($supplementalflag && $folder eq 'supplemental')) {
     }          my $toolslink;
   } else {          if ($allowed || &Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
       unless ($upload_result eq 'phasetwo') {              $toolslink = '<table><tr><td>'
 # -------------------------------------------------------- This is showdoc mode                         .&Apache::loncommon::help_open_menu('Navigation Screen',
           $r->print("<h1>".&mt('Uploaded Document').' - '.                                                             'Navigation_Screen',undef,'RAT')
  &Apache::lonnet::gettitle($r->uri).'</h1><p>'.                         .'</td><td class="LC_middle">'.&mt('Tools:').'</td>'
 &mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><table>".                         .'<td align="left"><ul id="LC_toolbar">'
           &entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table>');                         .'<li><a href="/adm/coursedocs?forcesupplement=1&amp;command=editsupp" '
       }                         .'id="LC_content_toolbar_edittoplevel" '
   }                         .'class="LC_toolbarItem" '
  }                         .'title="'.&mt('Supplemental Content Editor').'">'
  $r->print(&Apache::loncommon::end_page());                         .'</a></li></ul></td></tr></table><br />';
  return OK;          }
 }          if ($shown) {
               if ($allowed) {
 sub generate_admin_options {                  $to_show = &Apache::loncommon::start_scrollbox('900px','880px','400px','contentscroll')
   my ($containertag,$uploadtag,$lt_ref,$help_ref,$env_ref) = @_;                            .&Apache::loncommon::start_data_table(undef,'contentlist')
   my %lt = %{$lt_ref};                            .&Apache::loncommon::start_data_table_header_row()
   my %help = %{$help_ref};                            .'<th colspan="2">'.&mt('Move').'</th>'
   my %env = %{$env_ref};                            .'<th colspan="2">'.&mt('Actions').'</th>'
   my $dumpbut=&dumpbutton();                            .'<th>'.&mt('Document').'</th>';
   my $exportbut=&exportbutton();                  if ($folder !~ /^supplemental/) {
   return (<<ENDOPTIONFORM);                      $to_show .= '<th colspan="4">'.&mt('Settings').'</th>';
  <form name="renameform" method="post" action="/adm/coursedocs">                  }
    <input type="hidden" name="title" />                  $to_show .= &Apache::loncommon::end_data_table_header_row();
    <input type="hidden" name="cmd" />                  if ($folder !~ /^supplemental/) {
    <input type="hidden" name="markcopy" />                      $lists{'canhide'} = join(',',@allidx);
    <input type="hidden" name="copyfolder" />                      $lists{'canrandomlyorder'} = join(',',@allmapidx);
    $containertag                      my @possfilters = ('canremove','cancut','cancopy','hiddenresource','encrypturl',
  </form>                                         'randomorder','randompick');
  <form name="simpleedit" method="post" action="/adm/coursedocs">                      foreach my $item (@possfilters) {
    <input type="hidden" name="importdetail" value="" />                          if (ref($filters{$item}) eq 'ARRAY') {
    $uploadtag                              if (@{$filters{$item}} > 0) {
  </form>                                  $lists{$item} = join(',',@{$filters{$item}});
  <form action="/adm/coursedocs" method="post" name="courseverify">                              }
    <ul style="list-style-type:none">                          }
        <li>                      }
            <input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}                      if (@allidx > 0) {
        </li>                          my $path;
        <li>                          if ($env{'form.folderpath'}) {
            <input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}                              $path = 
        </li>                                  &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
        <li>                          }
            $dumpbut                          if (@allidx > 1) {
        </li>                              $to_show .= 
        <li>                                  &Apache::loncommon::continue_data_table_row().
            $exportbut                                  '<td colspan="2">&nbsp;</td>'.
        </li>                                  '<td>'.
        <li>                                  &multiple_check_form('actions',\%lists).
           <input type="submit" name="listsymbs" value="$lt{'ls'}" />                                  '</td>'.
         </li>                                  '<td>&nbsp;</td>'.
         <li>                                  '<td>&nbsp;</td>'.
           <input type="hidden" name="folder" value="$env{'form.folder'}" />                                  '<td colspan="4">'.
           <input type="submit" name="docslog" value="$lt{'sl'}" />                                  &multiple_check_form('settings',\%lists).
         </li>                                  '</td>'.
    </ul>                                  &Apache::loncommon::end_data_table_row();
  </form>                               $need_save = 1;
  <div style="clear: both; height: 0px;">&nbsp;</div>                          }
 ENDOPTIONFORM                      }
 }                  }
                   $to_show .= $output.' '
 sub generate_edit_table {                             .&Apache::loncommon::end_data_table()
     my ($optionhash_ref,$namehash_ref,$orderhash_ref) = @_;                             .'<br style="line-height:2px;" />'
     my %optionhash = %{$optionhash_ref};         #id verlinkt mit inhalt                             .&Apache::loncommon::end_scrollbox();
     my %namehash = %{$namehash_ref};             #name verlinkt mit id              } else {
     my %orderhash = %{$orderhash_ref};           #name mit kürzel verlinkt mit name                  $to_show .= $toolslink
     my $form;                             .&Apache::loncommon::start_data_table('LC_tableOfContent')
     $form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload Course Documents').'<h4>';                             .$output.' '
     $form .= '<ul class="LC_TabContent">';                             .&Apache::loncommon::end_data_table();
     foreach my $name (sort(keys(%orderhash))){              }
         if($name eq 'zz_hide'){          } else {
             $form .= '<li><a onclick="hideAllSection();" href="#">'.&mt($orderhash{$name}).'</a></li>';              if (!$allowed) {
         }else{                  $to_show .= $toolslink;
             $form .= '<li><a onclick="popUpSection(\''.$namehash{$orderhash{$name}}.'\');" href="#">'.&mt($orderhash{$name}).'</a></li>';              }
         }              $to_show .= &Apache::loncommon::start_scrollbox('400px','380px','200px','contentscroll')
     }                         .'<div class="LC_info" id="contentlist">'
     foreach my $field (keys(%optionhash)){                         .&mt('Currently empty')
         $form .= '<div id="'.$field.'" class="LC_ContentBox LC_hideThis">'.$optionhash{$field}.'</div>';                         .'</div>'
     }                         .&Apache::loncommon::end_scrollbox();
     $form .= '</div>';          }
     return $form;      } else {
 }          if ($shown) {
               $to_show = '<div>'
 sub editing_js {                        .&Apache::loncommon::start_data_table('LC_tableOfContent')
     my ($udom,$uname) = @_;                        .$output
     my $now = time();                        .&Apache::loncommon::end_data_table()
     my %lt = &Apache::lonlocal::texthash(                        .'</div>';
                                           p_mnf => 'Name of New Folder',          } else {
                                           t_mnf => 'New Folder',              $to_show = '<div class="LC_info" id="contentlist">'
                                           p_mnp => 'Name of New Page',                        .&mt('Currently empty')
                                           t_mnp => 'New Page',                        .'</div>'
                                           p_mxu => 'Title for the Uploaded Score',          }
                                           p_msp => 'Title for the Page',      }
                                           p_msb => 'Title for the Problem',      my $tid = 1;
                                           p_mdb => 'Title for the Drop Box',      if ($supplementalflag) {
                                           p_mbb => 'Title for the Bulletin Board',          $tid = 2;
                                           p_mab => "Enter user:domain for User's 'About Me' Page",      }
                                           p_mab2 => "About [_99]",      if ($allowed) {
                                           p_mab_alrt1 => 'Not a valid user:domain',          my $readfile="/uploaded/$coursedom/$coursenum/$folder.$container";
                                           p_mab_alrt2 => 'Please enter both user and domain in the format user:domain',          $r->print(&generate_edit_table($tid,$orderhash,$to_show,$iconpath,
                                           p_chn => 'New Title',                                         $jumpto,$readfile,$need_save,"$folder.$container"));
                                           p_rmr1 => 'WARNING: Removing a resource makes associated grades and scores inaccessible!',          &print_paste_buffer($r,$container,$folder,$coursedom,$coursenum);
                                           p_rmr2a => 'Remove[_99]',      } else {
                                           p_rmr2b => '?[_99]',          $r->print($to_show);
                                           p_ctr1a => 'WARNING: Cutting a resource makes associated grades and scores inaccessible!',      }
                                           p_ctr1b => 'Grades remain inaccessible if resource is pasted into another folder.',      return;
                                           p_ctr2a => 'Cut[_98]',  }
                                           p_ctr2b => '?[_98]'  
                                         );  sub multiple_check_form {
       my ($caller,$listsref) = @_;
     return <<ENDNEWSCRIPT;      return unless (ref($listsref) eq 'HASH');
 function makenewfolder(targetform,folderseq) {      my $output =
     var foldername=prompt('$lt{"p_mnf"}','$lt{"t_mnf"}');      '<form action="/adm/coursedocs" method="post" name="togglemult'.$caller.'">'.
     if (foldername) {      '<span class="LC_nobreak" style="font-size:x-small;font-weight:bold;">'.
        targetform.importdetail.value=escape(foldername)+"="+folderseq;      '<label><input type="radio" name="showmultpick" value="0" onclick="javascript:togglePick('."'$caller','0'".');" checked="checked" />'.&mt('one').'</label>'.('&nbsp;'x2).'<label><input type="radio" name="showmultpick" value="1" onclick="javascript:togglePick('."'$caller','1'".');" />'.&mt('multiple').'</label></span><span id="more'.$caller.'" class="LC_nobreak LC_docs_ext_edit"></span></form>'.
         targetform.submit();      '<div id="multi'.$caller.'" style="display:none;margin:0;padding:0;border:0">'.
     }      '<form action="/adm/coursedocs" method="post" name="cumulative'.$caller.'">'."\n".
 }      '<fieldset id="allfields'.$caller.'" style="display:none"><legend style="font-size:x-small;">'.&mt('check/uncheck all').'</legend>'."\n";
       if ($caller eq 'settings') {
 function makenewpage(targetform,folderseq) {          $output .= 
     var pagename=prompt('$lt{"p_mnp"}','$lt{"t_mnp"}');              '<table><tr>'.
     if (pagename) {              '<td class="LC_docs_entry_parameter">'.
         targetform.importdetail.value=escape(pagename)+"="+folderseq;              '<span class="LC_nobreak"><label>'.
         targetform.submit();              '<input type="checkbox" name="hiddenresourceall" id="hiddenresourceall" onclick="propagateState(this.form,'."'hiddenresource'".')" />'.&mt('Hidden').
     }              '</label></span></td>'.
 }              '<td class="LC_docs_entry_parameter">'.
               '<span class="LC_nobreak"><label><input type="checkbox" name="randompickall" id="randompickall" onclick="updatePick(this.form,'."'all','check'".');propagateState(this.form,'."'randompick'".');propagateState(this.form,'."'rpicknum'".');" />'.&mt('Randomly Pick').'</label><span id="rpicktextall"></span><input type="hidden" name="rpicknumall" id="rpicknumall" value="" />'.
 function makenewext(targetname) {              '</span></td>'.
     this.document.forms.extimport.useform.value=targetname;              '</tr>'."\n".
     this.document.forms.extimport.title.value='';              '<tr>'.
     this.document.forms.extimport.url.value='';              '<td class="LC_docs_entry_parameter">'.
     this.document.forms.extimport.residx.value='';              '<span class="LC_nobreak"><label><input type="checkbox" name="encrypturlall" id="encrypturlall" onclick="propagateState(this.form,'."'encrypturl'".')" />'.&mt('URL hidden').'</label></span></td><td class="LC_docs_entry_parameter"><span class="LC_nobreak"><label><input type="checkbox" name="randomorderall" id="randomorderall" onclick="propagateState(this.form,'."'randomorder'".')" />'.&mt('Random Order').
     window.open('/adm/rat/extpickframe.html');              '</label></span>'.
 }              '</td></tr></table>'."\n";
       } else {
 function edittext(targetname,residx,title,url) {          $output .=
     this.document.forms.extimport.useform.value=targetname;              '<table><tr>'.
     this.document.forms.extimport.residx.value=residx;              '<td class="LC_docs_entry_parameter">'.
     this.document.forms.extimport.url.value=url;              '<span class="LC_nobreak LC_docs_remove">'.
     this.document.forms.extimport.title.value=title;              '<label><input type="checkbox" name="removeall" id="removeall" onclick="propagateState(this.form,'."'remove'".')" />'.&mt('Remove').
     window.open('/adm/rat/extpickframe.html');              '</label></span></td>'.
 }              '<td class="LC_docs_entry_parameter">'.
               '<span class="LC_nobreak LC_docs_cut">'.
 function makeexamupload() {              '<label><input type="checkbox" name="cut" id="cutall" onclick="propagateState(this.form,'."'cut'".');" />'.&mt('Cut').
    var title=prompt('$lt{"p_mxu"}');              '</label></span></td>'."\n".
    if (title) {              '<td class="LC_docs_entry_parameter">'.
     this.document.forms.newexamupload.importdetail.value=              '<span class="LC_nobreak LC_docs_copy">'.
  escape(title)+'=/res/lib/templates/examupload.problem';              '<label><input type="checkbox" name="copyall" id="copyall" onclick="propagateState(this.form,'."'copy'".')" />'.&mt('Copy').
     this.document.forms.newexamupload.submit();              '</label></span></td>'.
    }              '</tr></table>'."\n";
 }      }
       $output .= 
 function makesmppage() {          '</fieldset>'.
    var title=prompt('$lt{"p_msp"}');          '<input type="hidden" name="allidx" value="'.$listsref->{'canhide'}.'" />';
    if (title) {      if ($caller eq 'settings') {
     this.document.forms.newsmppg.importdetail.value=          $output .= 
  escape(title)+'=/adm/$udom/$uname/$now/smppg';          '<input type="hidden" name="allmapidx" value="'.$listsref->{'canrandomlyorder'}.'" />'."\n".
     this.document.forms.newsmppg.submit();          '<input type="hidden" name="currhiddenresource" value="'.$listsref->{'hiddenresource'}.'" />'."\n".
    }          '<input type="hidden" name="currencrypturl" value="'.$listsref->{'encrypturl'}.'" />'."\n".
 }          '<input type="hidden" name="currrandomorder" value="'.$listsref->{'randomorder'}.'" />'."\n".
           '<input type="hidden" name="currrandompick" value="'.$listsref->{'randompick'}.'" />'."\n";
 function makesmpproblem() {      } elsif ($caller eq 'actions') {
    var title=prompt('$lt{"p_msb"}');          $output .=
    if (title) {          '<input type="hidden" name="allremoveidx" id="allremoveidx" value="'.$listsref->{'canremove'}.'" />'.
     this.document.forms.newsmpproblem.importdetail.value=          '<input type="hidden" name="allcutidx" id="allcutidx" value="'.$listsref->{'cancut'}.'" />'.
  escape(title)+'=/res/lib/templates/simpleproblem.problem';          '<input type="hidden" name="allcopyidx" id="allcopyidx" value="'.$listsref->{'cancopy'}.'" />';
     this.document.forms.newsmpproblem.submit();      }
    }      $output .= 
 }          '</form>'.
           '</div>';
 function makedropbox() {      return $output;
    var title=prompt('$lt{"p_mdb"}');  }
    if (title) {  
     this.document.forms.newdropbox.importdetail.value=  sub process_file_upload {
         escape(title)+'=/res/lib/templates/DropBox.problem';      my ($upload_output,$coursenum,$coursedom,$allfiles,$codebase,$uploadcmd,$crstype) = @_;
     this.document.forms.newdropbox.submit();  # upload a file, if present
    }      my $filesize = length($env{'form.uploaddoc'});
 }      if (!$filesize) {
           $$upload_output = '<div class="LC_error">'.
 function makebulboard() {                             &mt('Unable to upload [_1]. (size = [_2] bytes)',
    var title=prompt('$lt{"p_mbb"}');                            '<span class="LC_filename">'.$env{'form.uploaddoc.filename'}.'</span>',
    if (title) {                            $filesize).'<br />'.
     this.document.forms.newbul.importdetail.value=                            &mt('Either the file you attempted to upload was empty, or your web browser was unable to read its contents.').'<br />'.
  escape(title)+'=/adm/$udom/$uname/$now/bulletinboard';                            '</div>';
     this.document.forms.newbul.submit();          return;
    }      }
 }      my $quotatype = 'unofficial';
       if ($crstype eq 'Community') {
 function makeabout() {          $quotatype = 'community';
    var user=prompt("$lt{'p_mab'}");      } elsif ($crstype eq 'Placement') {
    if (user) {          $quotatype = 'placement';
        var comp=new Array();      } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {
        comp=user.split(':');          $quotatype = 'official';
        if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) {      } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {
    if ((comp[0]) && (comp[1])) {          $quotatype = 'textbook';
        this.document.forms.newaboutsomeone.importdetail.value=      }
    '$lt{"p_mab2"}'+escape(user)+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';      if (&Apache::loncommon::get_user_quota($coursenum,$coursedom,'course',$quotatype)) {
        this.document.forms.newaboutsomeone.submit();          $filesize = int($filesize/1000); #expressed in kb
    } else {          $$upload_output = &Apache::loncommon::excess_filesize_warning($coursenum,$coursedom,'course',
                alert("$lt{'p_mab_alrt1'}");                                                                        $env{'form.uploaddoc.filename'},$filesize,
            }                                                                        'upload',$quotatype);
        } else {          return if ($$upload_output);
            alert("$lt{'p_mab_alrt2'}");      }
        }      my ($parseaction,$showupload,$nextphase,$mimetype);
    }      if ($env{'form.parserflag'}) {
 }          $parseaction = 'parse';
       }
 function makeims() {      my $folder=$env{'form.folder'};
     var caller = document.forms.ims.folder.value;      if ($folder eq '') {
     var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one";          $folder='default';
     newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes");      }
     newWindow.location.href = newlocation;      if ( ($folder=~/^$uploadcmd/) || ($uploadcmd eq 'default') ) {
 }          my $errtext='';
           my $fatal=0;
           my $container='sequence';
 function finishpick() {          if ($env{'form.folderpath'} =~ /:1$/) {
     var title=this.document.forms.extimport.title.value;              $container='page';
     var url=this.document.forms.extimport.url.value;          }
     var form=this.document.forms.extimport.useform.value;          ($errtext,$fatal)=
     var residx=this.document.forms.extimport.residx.value;              &mapread($coursenum,$coursedom,$folder.'.'.$container);
     eval('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+'='+residx+'";this.document.forms.'+form+'.submit();');          if ($#LONCAPA::map::order<1) {
 }              $LONCAPA::map::order[0]=1;
               $LONCAPA::map::resources[1]='';
 function changename(folderpath,index,oldtitle,container,pagesymb) {          }
     var title=prompt('$lt{"p_chn"}',oldtitle);          my $destination = 'docs/';
     if (title) {          if ($folder =~ /^supplemental/) {
  this.document.forms.renameform.markcopy.value=-1;              $destination = 'supplemental/';
  this.document.forms.renameform.title.value=title;          }
  this.document.forms.renameform.cmd.value='rename_'+index;          if (($folder eq 'default') || ($folder eq 'supplemental')) {
         if (container == 'sequence') {              $destination .= 'default/';
     this.document.forms.renameform.folderpath.value=folderpath;          } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {
         }              $destination .=  $2.'/';
         if (container == 'page') {          }
             this.document.forms.renameform.pagepath.value=folderpath;          if ($fatal) {
             this.document.forms.renameform.pagesymb.value=pagesymb;              $$upload_output = '<div class="LC_error" id="uploadfileresult">'.&mt('The uploaded file has not been stored as an error occurred reading the contents of the current folder.').'</div>';
         }              return;
         this.document.forms.renameform.submit();          }
     }  # this is for a course, not a user, so set context to coursedoc.
 }          my $newidx=&LONCAPA::map::getresidx();
           $destination .= $newidx;
 function removeres(folderpath,index,oldtitle,container,pagesymb,skip_confirm) {          my $url=&Apache::lonnet::userfileupload('uploaddoc','coursedoc',$destination,
     if (skip_confirm || confirm('$lt{"p_rmr1"}\\n\\n$lt{"p_rmr2a"} "'+oldtitle+'" $lt{"p_rmr2b"}')) {   $parseaction,$allfiles,
  this.document.forms.renameform.markcopy.value=-1;   $codebase,undef,undef,undef,undef,
  this.document.forms.renameform.cmd.value='del_'+index;                                                  undef,undef,\$mimetype);
         if (container == 'sequence') {          if ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E.*/([^/]+)$}) {
             this.document.forms.renameform.folderpath.value=folderpath;              my $stored = $1;
         }              $showupload = '<p>'.&mt('Uploaded [_1]','<span class="LC_filename">'.
         if (container == 'page') {                            $stored.'</span>').'</p>';
             this.document.forms.renameform.pagepath.value=folderpath;          } else {
             this.document.forms.renameform.pagesymb.value=pagesymb;              my ($filename) = ($env{'form.uploaddoc.filename'} =~ m{([^/]+)$});
         }              
         this.document.forms.renameform.submit();              $$upload_output = '<div class="LC_error" id="uploadfileresult">'.&mt('Unable to save file [_1].','<span class="LC_filename">'.$filename.'</span>').'</div>';
     }              return;
 }          }
           my $ext='false';
 function cutres(folderpath,index,oldtitle,container,pagesymb,folder,skip_confirm) {          if ($url=~m{^http://}) { $ext='true'; }
     if (skip_confirm || confirm('$lt{"p_ctr1a"}\\n$lt{"p_ctr1b"}\\n\\n$lt{"p_ctr2a"} "'+oldtitle+'" $lt{"p_ctr2b"}')) {   $url     = &LONCAPA::map::qtunescape($url);
  this.document.forms.renameform.cmd.value='cut_'+index;          my $comment=$env{'form.comment'};
  this.document.forms.renameform.markcopy.value=index;   $comment = &LONCAPA::map::qtunescape($comment);
  this.document.forms.renameform.copyfolder.value=folder+'.'+container;          if ($folder=~/^supplemental/) {
         if (container == 'sequence') {                $comment=time.'___&&&___'.$env{'user.name'}.'___&&&___'.
             this.document.forms.renameform.folderpath.value=folderpath;                    $env{'user.domain'}.'___&&&___'.$comment;
         }          }
         if (container == 'page') {  
             this.document.forms.renameform.pagepath.value=folderpath;          $LONCAPA::map::resources[$newidx]=
             this.document.forms.renameform.pagesymb.value=pagesymb;      $comment.':'.$url.':'.$ext.':normal:res';
         }          $LONCAPA::map::order[$#LONCAPA::map::order+1]= $newidx;
         this.document.forms.renameform.submit();          ($errtext,$fatal)=&storemap($coursenum,$coursedom,
     }      $folder.'.'.$container,1);
 }          if ($fatal) {
               $$upload_output = '<div class="LC_error" id="uploadfileresult">'.$errtext.'</div>';
 function markcopy(folderpath,index,oldtitle,container,pagesymb,folder) {              return;
     this.document.forms.renameform.markcopy.value=index;          } else {
     this.document.forms.renameform.copyfolder.value=folder+'.'+container;              if ($parseaction eq 'parse' && $mimetype eq 'text/html') {
     if (container == 'sequence') {                  $$upload_output = $showupload;
  this.document.forms.renameform.folderpath.value=folderpath;                  my $total_embedded = scalar(keys(%{$allfiles}));
     }                  if ($total_embedded > 0) {
     if (container == 'page') {                      my $uploadphase = 'upload_embedded';
  this.document.forms.renameform.pagepath.value=folderpath;                      my $primaryurl = &HTML::Entities::encode($url,'<>&"');
  this.document.forms.renameform.pagesymb.value=pagesymb;      my $state = &embedded_form_elems($uploadphase,$primaryurl,$newidx); 
     }                      my ($embedded,$num) = 
     this.document.forms.renameform.submit();                          &Apache::loncommon::ask_for_embedded_content(
 }                              '/adm/coursedocs',$state,$allfiles,$codebase,{'docs_url' => $url});
                       if ($embedded) {
                           if ($num) {
 ENDNEWSCRIPT                              $$upload_output .=
 }           '<p>'.&mt('This file contains embedded multimedia objects, which need to be uploaded.').'</p>'.$embedded;
 1;                              $nextphase = $uploadphase;
 __END__                          } else {
                               $$upload_output .= $embedded;
                           }
 =head1 NAME                      } else {
                           $$upload_output .= &mt('Embedded item(s) already present, so no additional upload(s) required').'<br />';
 Apache::londocs.pm                      }
                   } else {
 =head1 SYNOPSIS                      $$upload_output .= &mt('No embedded items identified').'<br />';
                   }
 This is part of the LearningOnline Network with CAPA project                  $$upload_output = '<div id="uploadfileresult">'.$$upload_output.'</div>';
 described at http://www.lon-capa.org.              } elsif ((&Apache::loncommon::is_archive_file($mimetype)) &&
                        ($env{'form.uploaddoc.filename'} =~ /\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/i)) {
 =head1 SUBROUTINES                  $nextphase = 'decompress_uploaded';
                   my $position = scalar(@LONCAPA::map::order)-1;
 =over                  my $noextract = &return_to_editor();
                   my $archiveurl = &HTML::Entities::encode($url,'<>&"');
 =item %help=()                  my %archiveitems = (
                       folderpath => $env{'form.folderpath'},
 Available help topics                      cmd        => $nextphase,
                       newidx     => $newidx,
 =item mapread()                      position   => $position,
                       phase      => $nextphase,
 Mapread read maps into LONCAPA::map:: global arrays                      comment    => $comment,
 @order and @resources, determines status                  );
 sets @order - pointer to resources in right order                  my ($destination,$dir_root) = &embedded_destination($coursenum,$coursedom);
 sets @resources - array with the resources with correct idx                  my @current = &get_dir_list($url,$coursenum,$coursedom,$newidx); 
                   $$upload_output = $showupload.
 =item authorhosts()                                    &Apache::loncommon::decompress_form($mimetype,
                                         $archiveurl,'/adm/coursedocs',$noextract,
 Return hash with valid author names                                        \%archiveitems,\@current);
               }
 =item dumpbutton()          }
       }
 Generate "dump" button      return $nextphase;
   }
 =item clean()  
   sub get_dir_list {
 =item dumpcourse()      my ($url,$coursenum,$coursedom,$newidx) = @_;
       my ($destination,$dir_root) = &embedded_destination();
     Actually dump course      my ($dirlistref,$listerror) =  
           &Apache::lonnet::dirlist("$dir_root/$destination/$newidx",$coursedom,$coursenum,1);
       my @dir_lines;
 =item exportbutton()      my $dirptr=16384;
       if (ref($dirlistref) eq 'ARRAY') {
     Generate "export" button          foreach my $dir_line (sort
                             {
 =item exportcourse()                                my ($afile)=split('&',$a,2);
                                 my ($bfile)=split('&',$b,2);
 =item create_ims_store()                                return (lc($afile) cmp lc($bfile));
                             } (@{$dirlistref})) {
 =item build_package()              my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_line,16);
               $filename =~ s/\s+$//;
 =item get_dependencies()              next if ($filename =~ /^\.\.?$/); 
               my $isdir = 0;
 =item process_content()              if ($dirptr&$testdir) {
                   $isdir = 1;
 =item replicate_content()              }
               push(@dir_lines, [$filename,$dom,$isdir,$size,$mtime,$obs]);
 =item extract_media()          }
       }
 =item store_template()      return @dir_lines;
   }
 =item group_import()  
   sub is_supplemental_title {
     Imports the given (name, url) resources into the course      my ($title) = @_;
     coursenum, coursedom, and folder must precede the list      return scalar($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/);
   }
 =item breadcrumbs()  
   # --------------------------------------------------------------- An entry line
 =item log_docs()  
   sub entryline {
 =item docs_change_log()      my ($index,$title,$url,$folder,$allowed,$residx,$coursenum,$coursedom,
           $crstype,$pathitem,$supplementalflag,$container,$filtersref,$currgroups,
 =item update_paste_buffer()          $ltitoolsref)=@_;
       my ($foldertitle,$renametitle,$oldtitle);
 =item print_paste_buffer()      if (&is_supplemental_title($title)) {
    ($title,$foldertitle,$renametitle) = &Apache::loncommon::parse_supplemental_title($title);
 =item do_paste_from_buffer()      } else {
    $title=&HTML::Entities::encode($title,'"<>&\'');
 =item update_parameter()   $renametitle=$title;
    $foldertitle=$title;
 =item handle_edit_cmd()      }
   
 =item editor()      my $orderidx=$LONCAPA::map::order[$index];
   
 =item process_file_upload()      $renametitle=~s/\\/\\\\/g;
       $renametitle=~s/\&quot\;/\\\"/g;
 =item process_secondary_uploads()      $renametitle=~s/"/%22/g;
       $renametitle=~s/ /%20/g;
 =item is_supplemental_title()      $oldtitle = $renametitle;
       $renametitle=~s/\&#39;/\\\'/g;
 =item parse_supplemental_title()      my $line=&Apache::loncommon::start_data_table_row();
       my ($form_start,$form_end,$form_common,$form_param);
 =item entryline()  # Edit commands
       my ($esc_path, $path, $symb);
 =item tiehash()      if ($env{'form.folderpath'}) {
    $esc_path=&escape($env{'form.folderpath'});
 =item untiehash()   $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
    # $htmlfoldername=&HTML::Entities::encode($env{'form.foldername'},'<>&"');
 =item checkonthis()      }
       my $isexternal;
 check on this      if ($residx) {
           my $currurl = $url;
 =item verifycontent()          $currurl =~ s{^http(|s)(&colon;|:)//}{/adm/wrapper/ext/};
           if ($currurl =~ m{^/adm/wrapper/ext/}) {
 Verify Content              $isexternal = 1;
           }
 =item devalidateversioncache() & checkversions()          if (!$supplementalflag) {
               my $path = 'uploaded/'.
 Check Versions                         $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.
                          $env{'course.'.$env{'request.course.id'}.'.num'}.'/';
 =item mark_hash_old()              $symb = &Apache::lonnet::encode_symb($path.$folder.".$container",
                                                    $residx,
 =item is_hash_old()                                                   &Apache::lonnet::declutter($currurl));
           }
 =item changewarning()      }
       my ($renamelink,%lt,$ishash);
 =item init_breadcrumbs()      if (ref($filtersref) eq 'HASH') {
           $ishash = 1;
 Breadcrumbs for special functions      }
   
 =back      if ($allowed) {
           $form_start = '
 =cut     <form action="/adm/coursedocs" method="post">
   ';
           $form_common=(<<END);
      <input type="hidden" name="folderpath" value="$path" />
      <input type="hidden" name="symb" value="$symb" />
   END
           $form_param=(<<END);
      <input type="hidden" name="setparms" value="$orderidx" />
      <input type="hidden" name="changeparms" value="0" />
   END
           $form_end = '</form>';
   
    my $incindex=$index+1;
    my $selectbox='';
    if (($#LONCAPA::map::order>0) &&
       ((split(/\:/,
        $LONCAPA::map::resources[$LONCAPA::map::order[0]]))[1]
        ne '') &&
       ((split(/\:/,
        $LONCAPA::map::resources[$LONCAPA::map::order[1]]))[1]
        ne '')) {
       $selectbox=
    '<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
    '<select name="newpos" onchange="this.form.submit()">';
       for (my $i=1;$i<=$#LONCAPA::map::order+1;$i++) {
    if ($i==$incindex) {
       $selectbox.='<option value="" selected="selected">('.$i.')</option>';
    } else {
       $selectbox.='<option value="'.$i.'">'.$i.'</option>';
    }
       }
       $selectbox.='</select>';
    }
    %lt=&Apache::lonlocal::texthash(
                   'up' => 'Move Up',
    'dw' => 'Move Down',
    'rm' => 'Remove',
                   'ct' => 'Cut',
    'rn' => 'Rename',
    'cp' => 'Copy',
                   'ex' => 'External Resource',
                   'et' => 'External Tool',
                   'ed' => 'Edit',
                   'pr' => 'Preview',
                   'sv' => 'Save',
                   'ul' => 'URL',
                   'ti' => 'Title', 
                   );
    my %denied = &action_restrictions($coursenum,$coursedom,$url,
                                             $env{'form.folderpath'},
                                             $currgroups);
           my ($copylink,$cutlink,$removelink);
    my $skip_confirm = 0;
           my $confirm_removal = 0;
    if ( $folder =~ /^supplemental/
        || ($url =~ m{( /smppg$
       |/syllabus$
       |/aboutme$
       |/navmaps$
       |/bulletinboard$
                               |/exttools?$
       |\.html$)}x)
                || $isexternal) {
       $skip_confirm = 1;
    }
           if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) &&
               ($url!~/$LONCAPA::assess_page_seq_re/)) {
               $confirm_removal = 1;
           }
   
    if ($denied{'copy'}) {
               $copylink=(<<ENDCOPY)
   <span style="visibility: hidden;">$lt{'cp'}</span>
   ENDCOPY
           } else {
               my $formname = 'edit_copy_'.$orderidx;
               my $js = "javascript:checkForSubmit(document.forms.renameform,'copy','actions','$orderidx','$esc_path','$index','$renametitle',$skip_confirm,'$container','$folder');";
       $copylink=(<<ENDCOPY);
   <form name="$formname" method="post" action="/adm/coursedocs">
   $form_common
   <input type="checkbox" name="copy" id="copy_$orderidx" value="$orderidx" onclick="javascript:singleCheck(this,'$orderidx','copy');" class="LC_hidden" /><a href="$js" class="LC_docs_copy">$lt{'cp'}</a>
   $form_end
   ENDCOPY
               if (($ishash) && (ref($filtersref->{'cancopy'}) eq 'ARRAY')) {
                   push(@{$filtersref->{'cancopy'}},$orderidx);
               }
           }
    if ($denied{'cut'}) {
               $cutlink=(<<ENDCUT);
   <span style="visibility: hidden;">$lt{'ct'}</span>
   ENDCUT
           } else {
               my $formname = 'edit_cut_'.$orderidx;
               my $js = "javascript:checkForSubmit(document.forms.renameform,'cut','actions','$orderidx','$esc_path','$index','$renametitle',$skip_confirm,'$container','$folder');";
       $cutlink=(<<ENDCUT);
   <form name="$formname" method="post" action="/adm/coursedocs">
   $form_common
   <input type="hidden" name="skip_$orderidx" id="skip_cut_$orderidx" value="$skip_confirm" />
   <input type="checkbox" name="cut" id="cut_$orderidx" value="$orderidx" onclick="javascript:singleCheck(this,'$orderidx','cut');" class="LC_hidden" /><a href="$js" class="LC_docs_cut">$lt{'ct'}</a>
   $form_end
   ENDCUT
               if (($ishash) && (ref($filtersref->{'cancut'}) eq 'ARRAY')) {
                   push(@{$filtersref->{'cancut'}},$orderidx);
               }
           }
           if ($denied{'remove'}) {
               $removelink=(<<ENDREM);
   <span style="visibility: hidden;">$lt{'rm'}</a>
   ENDREM
           } else {
               my $formname = 'edit_remove_'.$orderidx;
               my $js = "javascript:checkForSubmit(document.forms.renameform,'remove','actions','$orderidx','$esc_path','$index','$renametitle',$skip_confirm,'$container','$folder',$confirm_removal);";
               $removelink=(<<ENDREM);
   <form name="$formname" method="post" action="/adm/coursedocs">
   $form_common
   <input type="hidden" name="skip_$orderidx" id="skip_remove_$orderidx" value="$skip_confirm" />
   <input type="hidden" name="confirm_rem_$orderidx" id="confirm_removal_$orderidx" value="$confirm_removal" />
   <input type="checkbox" name="remove" id="remove_$orderidx" value="$orderidx" onclick="javascript:singleCheck(this,'$orderidx','remove');" class="LC_hidden" /><a href="$js" class="LC_docs_remove">$lt{'rm'}</a>
   $form_end
   ENDREM
               if (($ishash) && (ref($filtersref->{'canremove'}) eq 'ARRAY')) {
                   push(@{$filtersref->{'canremove'}},$orderidx);
               }
           }
           $renamelink=(<<ENDREN);
   <a href='javascript:changename("$esc_path","$index","$oldtitle");' class="LC_docs_rename">$lt{'rn'}</a>
   ENDREN
    $line.=(<<END);
   <td>
   <div class="LC_docs_entry_move">
     <a href='/adm/coursedocs?cmd=up_$index&amp;folderpath=$esc_path&amp;symb=$symb'>
       <img src="${iconpath}move_up.gif" alt="$lt{'up'}" class="LC_icon" />
     </a>
   </div>
   <div class="LC_docs_entry_move">
     <a href='/adm/coursedocs?cmd=down_$index&amp;folderpath=$esc_path&amp;symb=$symb'>
       <img src="${iconpath}move_down.gif" alt="$lt{'dw'}" class="LC_icon" />
     </a>
   </div>
   </td>
   <td>
      $form_start
      $form_param
      $form_common
      $selectbox
      $form_end
   </td>
   <td class="LC_docs_entry_commands LC_nobreak">
   $removelink
   $cutlink
   $copylink
   </td>
   END
       }
   # Figure out what kind of a resource this is
       my ($extension)=($url=~/\.(\w+)$/);
       my $uploaded=($url=~/^\/*uploaded\//);
       my $icon=&Apache::loncommon::icon($url);
       my $isfolder;
       my $ispage;
       my $containerarg;
       if ($uploaded) {
           if (($extension eq 'sequence') || ($extension eq 'page')) {
               $url=~/\Q$coursenum\E\/([\/\w]+)\.\Q$extension\E$/;
               $containerarg = $1;
       if ($extension eq 'sequence') {
           $icon=$iconpath.'navmap.folder.closed.gif';
                   $isfolder=1;
               } else {
                   $icon=$iconpath.'page.gif';
                   $ispage=1;
               }
               if ($allowed) {
                   $url='/adm/coursedocs?';
               } else {
                   $url='/adm/supplemental?';
               }
    } else {
       &Apache::lonnet::allowuploaded('/adm/coursedoc',$url);
    }
       }
   
       my ($editlink,$extresform);
       my $orig_url = $url;
       $orig_url=~s{http(&colon;|:)//https(&colon;|:)//}{https$2//};
       $url=~s{^http(|s)(&colon;|:)//}{/adm/wrapper/ext/};
       if (!$supplementalflag && $residx && $symb) {
           if ((!$isfolder) && (!$ispage)) {
       (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
       $url=&Apache::lonnet::clutter($url);
       if ($url=~/^\/*uploaded\//) {
           $url=~/\.(\w+)$/;
           my $embstyle=&Apache::loncommon::fileembstyle($1);
           if (($embstyle eq 'img') || ($embstyle eq 'emb')) {
       $url='/adm/wrapper'.$url;
           } elsif ($embstyle eq 'ssi') {
       #do nothing with these
           } elsif ($url!~/\.(sequence|page)$/) {
       $url='/adm/coursedocs/showdoc'.$url;
           }
       } elsif ($url=~m|^/ext/|) {
           $url='/adm/wrapper'.$url;
       } elsif ($url=~m{^/adm/$coursedom/$coursenum/\d+/exttools?$}) {
    $url='/adm/wrapper'.$url;
               }
               if (&Apache::lonnet::symbverify($symb,$url)) {
           $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
               } else {
                   $url='';
               }
    }
       }
       my ($rand_pick_text,$rand_order_text);
       if ($isfolder || $ispage || $extension eq 'sequence' || $extension eq 'page') {
    my $foldername=&escape($foldertitle);
    my $folderpath=$env{'form.folderpath'};
    if ($folderpath) { $folderpath.='&' };
           if (!$allowed && $supplementalflag) {
               $folderpath.=$containerarg.'&'.$foldername;
               $url.='folderpath='.&escape($folderpath);
           } else {
   # Append randompick number, hidden, and encrypted with ":" to foldername,
   # so it gets transferred between levels
       $folderpath.=$containerarg.'&'.$foldername.
                                                 ':'.(&LONCAPA::map::getparameter($orderidx,
                                                 'parameter_randompick'))[0]
                                                  .':'.((&LONCAPA::map::getparameter($orderidx,
                                                 'parameter_hiddenresource'))[0]=~/^yes$/i)
                                                  .':'.((&LONCAPA::map::getparameter($orderidx,
                                                 'parameter_encrypturl'))[0]=~/^yes$/i)
                                                  .':'.((&LONCAPA::map::getparameter($orderidx,
                                                 'parameter_randomorder'))[0]=~/^yes$/i)
                                                  .':'.$ispage;
       $url.='folderpath='.&escape($folderpath);
               my $rpicknum = (&LONCAPA::map::getparameter($orderidx,
                                                           'parameter_randompick'))[0];
               my $rpckchk;
               if ($rpicknum) {
                   $rpckchk = ' checked="checked"';
                   if (($ishash) && (ref($filtersref->{'randompick'}) eq 'ARRAY')) {
                       push(@{$filtersref->{'randompick'}},$orderidx.':'.$rpicknum);
                   }
               }
               my $formname = 'edit_randompick_'.$orderidx;
       $rand_pick_text = 
   '<form action="/adm/coursedocs" method="post" name="'.$formname.'">'."\n".
   $form_param."\n".
   $form_common."\n".
   '<span class="LC_nobreak"><label><input type="checkbox" name="randompick_'.$orderidx.'" id="randompick_'.$orderidx.'" onclick="'."updatePick(this.form,'$orderidx','check');".'"'.$rpckchk.' /> '.&mt('Randomly Pick').'</label><input type="hidden" name="rpicknum_'.$orderidx.'" id="rpicknum_'.$orderidx.'" value="'.$rpicknum.'" /><span id="randompicknum_'.$orderidx.'">';
               if ($rpicknum ne '') {
                   $rand_pick_text .= ':&nbsp;<a href="javascript:updatePick('."document.$formname,'$orderidx','link'".')">'.$rpicknum.'</a>';
               }
               $rand_pick_text .= '</span></span>'.
                                  $form_end;
               my $ro_set;
               if ((&LONCAPA::map::getparameter($orderidx,'parameter_randomorder'))[0]=~/^yes$/i) {
                   $ro_set = 'checked="checked"';
                   if (($ishash) && (ref($filtersref->{'randomorder'}) eq 'ARRAY')) {
                       push(@{$filtersref->{'randomorder'}},$orderidx);
                   }
               }
               $formname = 'edit_rorder_'.$orderidx;
       $rand_order_text = 
   '<form action="/adm/coursedocs" method="post" name="'.$formname.'">'."\n".
   $form_param."\n".
   $form_common."\n".
   '<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" id="randomorder_'.$orderidx.'" onclick="checkForSubmit(this.form,'."'randomorder','settings'".');" '.$ro_set.' /> '.&mt('Random Order').' </label></span>'.
   $form_end; 
           }
       } elsif ($supplementalflag && !$allowed) {
           my $isexttool;
           if ($url=~m{^/adm/$coursedom/$coursenum/\d+/exttools?$}) {
               $url='/adm/wrapper'.$url;
               $isexttool = 1;
           }
           $url .= ($url =~ /\?/) ? '&amp;':'?';
           $url .= 'folderpath='.&HTML::Entities::encode($esc_path,'<>&"');
           if ($title) {
               $url .= '&amp;title='.&HTML::Entities::encode($renametitle,'<>&"');
           }
           if ((($isexternal) || ($isexttool)) && $orderidx) {
               $url .= '&amp;idx='.$orderidx;
           }
       }
       my ($tdalign,$tdwidth);
       if ($allowed) {
           my $fileloc = 
               &Apache::lonnet::declutter(&Apache::lonnet::filelocation('',$orig_url));
           if ($isexternal) {
               ($editlink,$extresform) = 
                   &Apache::lonextresedit::extedit_form(0,$residx,$orig_url,$title,$pathitem);
           } elsif ($orig_url =~ m{^/adm/$coursedom/$coursenum/\d+/exttools?$}) {
               ($editlink,$extresform) =
                   &Apache::lonextresedit::extedit_form(0,$residx,$orig_url,$title,$pathitem,
                                                        undef,undef,undef,'tool',$coursedom,
                                                        $coursenum,$ltitoolsref);
           } elsif (!$isfolder && !$ispage) {
               my ($cfile,$home,$switchserver,$forceedit,$forceview) = 
                   &Apache::lonnet::can_edit_resource($fileloc,$coursenum,$coursedom,$orig_url);
               if (($cfile ne '') && ($symb ne '' || $supplementalflag)) {
                   my $jscall = 
                       &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,
                                                               $switchserver,
                                                               $forceedit,
                                                               undef,$symb,
                                                               &escape($env{'form.folderpath'}),
                                                               $renametitle,'','',1);
                   if ($jscall) {
                       $editlink = '<a class="LC_docs_ext_edit" href="javascript:'.
                                   $jscall.'" >'.&mt('Edit').'</a>&nbsp;'."\n";
                   }
               }
           }
           $tdalign = ' align="right" valign="top"';
           $tdwidth = ' width="80%"';
       }
       my $reinit;
       if ($crstype eq 'Community') {
           $reinit = &mt('(re-initialize community to access)');
       } else {
           $reinit = &mt('(re-initialize course to access)');
       }
       $line.='<td class="LC_docs_entry_commands"'.$tdalign.'><span class="LC_nobreak">'.$editlink.$renamelink;
       if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {
          $line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';
       } elsif ($url) {
          $line.=&Apache::loncommon::modal_link($url.(($url=~/\?/)?'&amp;':'?').'inhibitmenu=yes',
                                                '<img src="'.$icon.'" alt="" class="LC_icon" />',600,500);
       } else {
          $line.='<img src="'.$icon.'" alt="" class="LC_icon" />';
       }
       $line.='</span></td><td'.$tdwidth.'>';
       if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {
          $line.='<a href="'.$url.'">'.$title.'</a>';
       } elsif ($url) {
          $line.=&Apache::loncommon::modal_link($url.(($url=~/\?/)?'&amp;':'?').'inhibitmenu=yes',
                                                $title,600,500);
       } else {
          $line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';
       }
       $line.="$extresform</td>";
       $rand_pick_text = '&nbsp;' if ($rand_pick_text eq '');
       $rand_order_text = '&nbsp;' if ($rand_order_text eq '');
       if (($allowed) && ($folder!~/^supplemental/)) {
     my %lt=&Apache::lonlocal::texthash(
          'hd' => 'Hidden',
          'ec' => 'URL hidden');
           my ($enctext,$hidtext);
           if ((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) {
               $enctext = ' checked="checked"';
               if (($ishash) && (ref($filtersref->{'encrypturl'}) eq 'ARRAY')) {
                   push(@{$filtersref->{'encrypturl'}},$orderidx);
               }
           }
           if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
               $hidtext = ' checked="checked"';
               if (($ishash) && (ref($filtersref->{'randomorder'}) eq 'ARRAY')) {
                   push(@{$filtersref->{'hiddenresource'}},$orderidx);
               }
           }
           my $formhidden = 'edit_hiddenresource_'.$orderidx;
           my $formurlhidden = 'edit_encrypturl_'.$orderidx;
    $line.=(<<ENDPARMS);
     <td class="LC_docs_entry_parameter">
       <form action="/adm/coursedocs" method="post" name="$formhidden">
       $form_param
       $form_common
       <label><input type="checkbox" name="hiddenresource_$orderidx" id="hiddenresource_$orderidx" onclick="checkForSubmit(this.form,'hiddenresource','settings');" $hidtext /> $lt{'hd'}</label>
       $form_end
       <br />
       <form action="/adm/coursedocs" method="post" name="$formurlhidden">
       $form_param
       $form_common
       <label><input type="checkbox" name="encrypturl_$orderidx" id="encrypturl_$orderidx" onclick="checkForSubmit(this.form,'encrypturl','settings');" $enctext /> $lt{'ec'}</label>
       $form_end
     </td>
     <td class="LC_docs_entry_parameter">$rand_pick_text<br />
                                         $rand_order_text</td>
   ENDPARMS
       }
       $line.=&Apache::loncommon::end_data_table_row();
       return $line;
   }
   
   sub action_restrictions {
       my ($cnum,$cdom,$url,$folderpath,$currgroups) = @_;
       my %denied = (
                      cut    => 0,
                      copy   => 0,
                      remove => 0,
                    );
       if ($url=~ m{^/res/.+\.(page|sequence)$}) {
           # no copy for published maps
           $denied{'copy'} = 1;
       } elsif ($url=~m{^/res/lib/templates/([^/]+)\.problem$}) {
           unless ($1 eq 'simpleproblem') {
               $denied{'copy'} = 1;
           }
           $denied{'cut'} = 1;
       } elsif ($url eq "/uploaded/$cdom/$cnum/group_allfolders.sequence") {
           if ($folderpath =~ /^default&[^\&]+$/) {
               if ((ref($currgroups) eq 'HASH') && (keys(%{$currgroups}) > 0)) {
                   $denied{'remove'} = 1;
               }
               $denied{'cut'} = 1;
               $denied{'copy'} = 1;
           }
       } elsif ($url =~ m{^\Q/uploaded/$cdom/$cnum/group_folder_\E(\w+)\.sequence$}) {
           my $group = $1;
           if ($folderpath =~ /^default&[^\&]+\&group_allfolders\&[^\&]+$/) {
               if ((ref($currgroups) eq 'HASH') && (exists($currgroups->{$group}))) {
                   $denied{'remove'} = 1;
               }
           }
           $denied{'cut'} = 1;
           $denied{'copy'} = 1;
       } elsif ($url =~ m{^\Q/adm/$cdom/$cnum/\E(\w+)/smppg$}) {
           my $group = $1;
           if ($folderpath =~ /^default&[^\&]+\&group_allfolders\&[^\&]+\&\Qgroup_folder_$group\E\&[^\&]+$/) {
               if ((ref($currgroups) eq 'HASH') && (exists($currgroups->{$group}))) {
                   my %groupsettings = &Apache::longroup::get_group_settings($currgroups->{$group});
                   if (keys(%groupsettings) > 0) {
                       $denied{'remove'} = 1;
                   }
                   $denied{'cut'} = 1;
                   $denied{'copy'} = 1;
               }
           }
       } elsif ($folderpath =~ /^default&[^\&]+\&group_allfolders\&[^\&]+\&group_folder_(\w+)\&/) {
           my $group = $1;
           if ($url =~ /group_boards_\Q$group\E/) {
               if ((ref($currgroups) eq 'HASH') && (exists($currgroups->{$group}))) {
                   my %groupsettings = &Apache::longroup::get_group_settings($currgroups->{$group});
                   if (keys(%groupsettings) > 0) {
                       if (ref($groupsettings{'functions'}) eq 'HASH') {
                           if ($groupsettings{'functions'}{'discussion'} eq 'on') {
                               $denied{'remove'} = 1;
                           }
                       }
                   }
                   $denied{'cut'} = 1;
                   $denied{'copy'} = 1;
               }
           }
       }
       return %denied;
   }
   
   sub new_timebased_suffix {
       my ($dom,$num,$type,$area,$container) = @_;
       my ($prefix,$namespace,$idtype,$errtext,$locknotfreed);
       if ($type eq 'paste') {
           $prefix = $type;
           $namespace = 'courseeditor';
           $idtype = 'addcode';
       } elsif ($type eq 'map') {
           $prefix = 'docs';
           if ($area eq 'supplemental') {
               $prefix = 'supp';
           }
           $prefix .= $container;
           $namespace = 'uploadedmaps';
       } else {
           $prefix = $type;
           $namespace = 'templated';
       }
       my ($suffix,$freedlock,$error) =
           &Apache::lonnet::get_timebased_id($prefix,'num',$namespace,$dom,$num,$idtype);
       if (!$suffix) {
           if ($type eq 'paste') {
               $errtext = &mt('Failed to acquire a unique timestamp-based suffix when adding to the paste buffer.');
           } elsif ($type eq 'map') {
               $errtext = &mt('Failed to acquire a unique timestamp-based suffix for the new folder/page.');
           } elsif ($type eq 'smppg') {
               $errtext = &mt('Failed to acquire a unique timestamp-based suffix for the new simple page.');
           } else {
               $errtext = &mt('Failed to acquire a unique timestamp-based suffix for the new discussion board.');
           }
           if ($error) {
               $errtext .= '<br />'.$error;
           }
       }
       if ($freedlock ne 'ok') {
           $locknotfreed = 
               '<div class="LC_error">'.
               &mt('There was a problem removing a lockfile.').' ';
           if ($type eq 'paste') {
               if ($freedlock eq 'nolock') {
                   $locknotfreed =
                       '<div class="LC_error">'.
                       &mt('A lockfile was not released when you added content to the clipboard earlier in this session.').' '.
    
                       &mt('As a result addition of items to the clipboard will be unavailable until your next log-in.');
               } else { 
                   $locknotfreed .=
                       &mt('This will prevent addition of items to the clipboard until your next log-in.');
               }
           } elsif ($type eq 'map') {
               $locknotfreed .=
                   &mt('This will prevent creation of additional folders or composite pages in this course.');
           } elsif ($type eq 'smppg') {
               $locknotfreed .=
                   &mt('This will prevent creation of additional simple pages in this course.');
           } else {
               $locknotfreed .=
                   &mt('This will prevent creation of additional discussion boards in this course.');
           }
           unless ($type eq 'paste') {
               $locknotfreed .=
                   ' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.',
                           '<a href="/adm/helpdesk" target="_helpdesk">','</a>');
           }
           $locknotfreed .= '</div>';
       }
       return ($suffix,$errtext,$locknotfreed);
   }
   
   =pod
   
   =item tiehash()
   
   tie the hash
   
   =cut
   
   sub tiehash {
       my ($mode)=@_;
       $hashtied=0;
       if ($env{'request.course.fn'}) {
    if ($mode eq 'write') {
       if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.".db",
       &GDBM_WRCREAT(),0640)) {
                   $hashtied=2;
       }
    } else {
       if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.".db",
       &GDBM_READER(),0640)) {
                   $hashtied=1;
       }
    }
       }
   }
   
   sub untiehash {
       if ($hashtied) { untie %hash; }
       $hashtied=0;
       return OK;
   }
   
   
   
   
   sub checkonthis {
       my ($r,$url,$level,$title)=@_;
       $url=&unescape($url);
       $alreadyseen{$url}=1;
       $r->rflush();
       if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {
          $r->print("\n<br />");
          if ($level==0) {
              $r->print("<br />");
          }
          for (my $i=0;$i<=$level*5;$i++) {
              $r->print('&nbsp;');
          }
          $r->print('<a href="'.$url.'" target="cat">'.
    ($title?$title:$url).'</a> ');
          if ($url=~/^\/res\//) {
     my $result=&Apache::lonnet::repcopy(
                                 &Apache::lonnet::filelocation('',$url));
             if ($result eq 'ok') {
                $r->print('<span class="LC_success">'.&mt('ok').'</span>');
                $r->rflush();
                &Apache::lonnet::countacc($url);
                $url=~/\.(\w+)$/;
                if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
    $r->print('<br />');
                    $r->rflush();
                    for (my $i=0;$i<=$level*5;$i++) {
                        $r->print('&nbsp;');
                    }
                    $r->print('- '.&mt('Rendering:').' ');
    my ($errorcount,$warningcount)=split(/:/,
          &Apache::lonnet::ssi_body($url,
          ('grade_target'=>'web',
    'return_only_error_and_warning_counts' => 1)));
                    if (($errorcount) ||
                        ($warningcount)) {
        if ($errorcount) {
                           $r->print('<img src="/adm/lonMisc/bomb.gif" alt="'.&mt('bomb').'" /><span class="LC_error">'.
                             &mt('[quant,_1,error]',$errorcount).'</span>');
                        }
        if ($warningcount) {
                           $r->print('<span class="LC_warning">'.
                             &mt('[quant,_1,warning]',$warningcount).'</span>');
                        }
                    } else {
                        $r->print('<span class="LC_success">'.&mt('ok').'</span>');
                    }
                    $r->rflush();
                }
        my $dependencies=
                   &Apache::lonnet::metadata($url,'dependencies');
                foreach my $dep (split(/\,/,$dependencies)) {
    if (($dep=~/^\/res\//) && (!$alreadyseen{$dep})) {
                       &checkonthis($r,$dep,$level+1);
                    }
                }
             } elsif ($result eq 'unavailable') {
                $r->print('<span class="LC_error">'.&mt('connection down').'</span>');
             } elsif ($result eq 'not_found') {
         unless ($url=~/\$/) {
     $r->print('<span class="LC_error">'.&mt('not found').'</span>');
         } else {
     $r->print('<span class="LC_error">'.&mt('unable to verify variable URL').'</span>');
         }
             } else {
                $r->print('<span class="LC_error">'.&mt('access denied').'</span>');
             }
          }
       }
   }
   
   
   
   =pod
   
   =item list_symbs()
   
   List Content Identifiers
   
   =cut
   
   sub list_symbs {
       my ($r) = @_;
   
       my $crstype = &Apache::loncommon::course_type();
       $r->print(&Apache::loncommon::start_page('List of Content Identifiers'));
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Content Identifiers'));
       $r->print(&startContentScreen('tools'));
       my $navmap = Apache::lonnavmaps::navmap->new();
       if (!defined($navmap)) {
           $r->print('<h2>'.&mt('Retrieval of List Failed').'</h2>'.
                     '<div class="LC_error">'.
                     &mt('Unable to retrieve information about course contents').
                     '</div>');
           &Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($crstype).':'.$env{'request.course.id'});
       } else {
           $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()) {
               $r->print(&Apache::loncommon::start_data_table_row().
                         '<td>'.$res->compTitle().'</td>'.
                         '<td>'.$res->symb().'</td>'.
                         &Apache::loncommon::end_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(&Apache::loncommon::end_data_table());
       }
       $r->print(&endContentScreen());
   }
   
   
   sub verifycontent {
       my ($r) = @_;
       my $crstype = &Apache::loncommon::course_type();
       $r->print(&Apache::loncommon::start_page('Verify '.$crstype.' Content'));
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$crstype.' Content'));
       $r->print(&startContentScreen('tools'));
       $r->print('<h4 class="LC_info">'.&mt($crstype.' content verification').'</h4>'); 
      $hashtied=0;
      undef %alreadyseen;
      %alreadyseen=();
      &tiehash();
      
      foreach my $key (keys(%hash)) {
          if ($hash{$key}=~/\.(page|sequence)$/) {
      if (($key=~/^src_/) && ($alreadyseen{&unescape($hash{$key})})) {
          $r->print('<hr /><span class="LC_error">'.
    &mt('The following sequence or page is included more than once in your '.$crstype.':').' '.
    &unescape($hash{$key}).'</span><br />'.
    &mt('Note that grading records for problems included in this sequence or folder will overlap.').'<hr />');
      }
          }
          if (($key=~/^src\_(.+)$/) && (!$alreadyseen{&unescape($hash{$key})})) {
              &checkonthis($r,$hash{$key},0,$hash{'title_'.$1});
          }
      }
      &untiehash();
      $r->print('<p class="LC_success">'.&mt('Done').'</p>');
       $r->print(&endContentScreen());
   }
   
   
   sub devalidateversioncache {
       my $src=shift;
       &Apache::lonnet::devalidate_cache_new('courseresversion',$env{'request.course.id'}.'_'.
     &Apache::lonnet::clutter($src));
   }
   
   sub checkversions {
       my ($r) = @_;
       my $crstype = &Apache::loncommon::course_type();
       $r->print(&Apache::loncommon::start_page("Check $crstype Resource Versions"));
       $r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $crstype Resource Versions"));
       $r->print(&startContentScreen('tools'));
   
       my $header='';
       my $startsel='';
       my $monthsel='';
       my $weeksel='';
       my $daysel='';
       my $allsel='';
       my %changes=();
       my $starttime=0;
       my $haschanged=0;
       my %setversions=&Apache::lonnet::dump('resourceversions',
     $env{'course.'.$env{'request.course.id'}.'.domain'},
     $env{'course.'.$env{'request.course.id'}.'.num'});
   
       $hashtied=0;
       &tiehash();
       my %newsetversions=();
       if ($env{'form.setmostrecent'}) {
    $haschanged=1;
    foreach my $key (keys(%hash)) {
       if ($key=~/^ids\_(\/res\/.+)$/) {
    $newsetversions{$1}='mostrecent';
                   &devalidateversioncache($1);
       }
    }
       } elsif ($env{'form.setcurrent'}) {
    $haschanged=1;
    foreach my $key (keys(%hash)) {
       if ($key=~/^ids\_(\/res\/.+)$/) {
    my $getvers=&Apache::lonnet::getversion($1);
    if ($getvers>0) {
       $newsetversions{$1}=$getvers;
       &devalidateversioncache($1);
    }
       }
    }
       } elsif ($env{'form.setversions'}) {
    $haschanged=1;
    foreach my $key (keys(%env)) {
       if ($key=~/^form\.set_version_(.+)$/) {
    my $src=$1;
    if (($env{$key}) && ($env{$key} ne $setversions{$src})) {
       $newsetversions{$src}=$env{$key};
       &devalidateversioncache($src);
    }
       }
    }
       }
       if ($haschanged) {
           if (&Apache::lonnet::put('resourceversions',\%newsetversions,
     $env{'course.'.$env{'request.course.id'}.'.domain'},
     $env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {
       $r->print(&Apache::loncommon::confirmwrapper(
                   &Apache::lonhtmlcommon::confirm_success(&mt('Your Version Settings have been Saved'))));
    } else {
       $r->print(&Apache::loncommon::confirmwrapper(
                   &Apache::lonhtmlcommon::confirm_success(&mt('An Error Occured while Attempting to Save your Version Settings'),1)));
    }
    &mark_hash_old();
       }
       &changewarning($r,'');
       if ($env{'form.timerange'} eq 'all') {
   # show all documents
    $header=&mt('All content in '.$crstype);
    $allsel=' selected="selected"';
    foreach my $key (keys(%hash)) {
       if ($key=~/^ids\_(\/res\/.+)$/) {
    my $src=$1;
    $changes{$src}=1;
       }
    }
       } else {
   # show documents which changed
    %changes=&Apache::lonnet::dump
    ('versionupdate',$env{'course.'.$env{'request.course.id'}.'.domain'},
                        $env{'course.'.$env{'request.course.id'}.'.num'});
    my $firstkey=(keys(%changes))[0];
    unless ($firstkey=~/^error\:/) {
       unless ($env{'form.timerange'}) {
    $env{'form.timerange'}=604800;
       }
       my $seltext=&mt('during the last').' '.$env{'form.timerange'}.' '
    .&mt('seconds');
       if ($env{'form.timerange'}==-1) {
    $seltext='since start of course';
    $startsel=' selected="selected"';
    $env{'form.timerange'}=time;
       }
       $starttime=time-$env{'form.timerange'};
       if ($env{'form.timerange'}==2592000) {
    $seltext=&mt('during the last month').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
    $monthsel=' selected="selected"';
       } elsif ($env{'form.timerange'}==604800) {
    $seltext=&mt('during the last week').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
    $weeksel=' selected="selected"';
       } elsif ($env{'form.timerange'}==86400) {
    $seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
    $daysel=' selected="selected"';
       }
       $header=&mt('Content changed').' '.$seltext;
    } else {
       $header=&mt('No content modifications yet.');
    }
       }
       %setversions=&Apache::lonnet::dump('resourceversions',
     $env{'course.'.$env{'request.course.id'}.'.domain'},
     $env{'course.'.$env{'request.course.id'}.'.num'});
       my %lt=&Apache::lonlocal::texthash
         ('st' => 'Version changes since start of '.$crstype,
          'lm' => 'Version changes since last Month',
          'lw' => 'Version changes since last Week',
          'sy' => 'Version changes since Yesterday',
                  'al' => 'All Resources (possibly large output)',
                  'cd' => 'Change display', 
          'sd' => 'Display',
          'fi' => 'File',
          'md' => 'Modification Date',
                  'mr' => 'Most recently published Version',
          've' => 'Version used in '.$crstype,
                  'vu' => 'Set Version to be used in '.$crstype,
   'sv' => 'Set Versions to be used in '.$crstype.' according to Selections below',
   'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',
   'sc' => 'Set all Resource Versions to current Version (Fix Versions)',
          'di' => 'Differences',
          'save' => 'Save changes',
                  'vers' => 'Version choice(s) for specific resources', 
          'act' => 'Actions');
       $r->print(<<ENDHEADERS);
   <h4 class="LC_info">$header</h4>
   <form action="/adm/coursedocs" method="post">
   <input type="hidden" name="versions" value="1" />
   <div class="LC_left_float">
   <fieldset>
   <legend>$lt{'cd'}</legend>
   <select name="timerange">
   <option value='all'$allsel>$lt{'al'}</option>
   <option value="-1"$startsel>$lt{'st'}</option>
   <option value="2592000"$monthsel>$lt{'lm'}</option>
   <option value="604800"$weeksel>$lt{'lw'}</option>
   <option value="86400"$daysel>$lt{'sy'}</option>
   </select>
   <input type="submit" name="display" value="$lt{'sd'}" />
   </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>
   ENDHEADERS
       #number of columns for version history
       my %changedbytime;
       foreach my $key (keys(%changes)) {
           #excludes not versionable problems from resource version history:
           next if ($key =~ /^\/res\/lib\/templates/);
           my $chg;
           if ($env{'form.timerange'} eq 'all') {
               my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);
               $chg = &Apache::lonnet::metadata($root.'.'.$extension,'lastrevisiondate');
           } else {
               $chg = $changes{$key};
               next if ($chg < $starttime);
           }
           push(@{$changedbytime{$chg}},$key);
       }
       if (keys(%changedbytime) == 0) {
           &untiehash();
           $r->print(&mt('No content changes in imported content in specified time frame').
                     &endContentScreen());
           return;
       }
       $r->print(
          '<input type="submit" name="setversions" value="'.$lt{'save'}.'" />'.
           &Apache::loncommon::start_data_table().
           &Apache::loncommon::start_data_table_header_row().
           '<th>'.&mt('Resources').'</th>'.
           "<th>$lt{'mr'}</th>".
           "<th>$lt{'ve'}</th>".
           "<th>$lt{'vu'}</th>".
           '<th>'.&mt('History').'</th>'.
           &Apache::loncommon::end_data_table_header_row()
       );
       foreach my $chg (sort {$b <=> $a } keys(%changedbytime)) {
           foreach my $key (sort(@{$changedbytime{$chg}})) {
               my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);
               my $currentversion=&Apache::lonnet::getversion($key);
               if ($currentversion<0) {
                   $currentversion='<span class="LC_error">'.&mt('Could not be determined.').'</span>';
               }
               my $linkurl=&Apache::lonnet::clutter($key);
               $r->print(
                   &Apache::loncommon::start_data_table_row().
                   '<td><b>'.&Apache::lonnet::gettitle($linkurl).'</b><br />'.
                   '<a href="'.$linkurl.'" target="cat">'.$linkurl.'</a></td>'.
                   '<td align="right">'.$currentversion.'<span class="LC_fontsize_medium"><br />('.
                   &Apache::lonlocal::locallocaltime($chg).')</span></td>'.
                   '<td align="right">'
               );
               # Used in course
               my $usedversion=$hash{'version_'.$linkurl};
               if (($usedversion) && ($usedversion ne 'mostrecent')) {
                   if ($usedversion != $currentversion) {
                       $r->print('<span class="LC_warning">'.$usedversion.'</span>');
                   } else {
                       $r->print($usedversion);
                   }
               } else {
                   $r->print($currentversion);
               }
               $r->print('</td><td title="'.$lt{'vu'}.'">');
               # Set version
               $r->print(&Apache::loncommon::select_form(
                         $setversions{$linkurl},
                         'set_version_'.$linkurl,
                         {'select_form_order' => ['',1..$currentversion,'mostrecent'],
                         '' => '',
                         'mostrecent' => &mt('most recent'),
                         map {$_,$_} (1..$currentversion)}));
               my $lastold=1;
               for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
                   my $url=$root.'.'.$prevvers.'.'.$extension;
                   if (&Apache::lonnet::metadata($url,'lastrevisiondate')<$starttime) {
                       $lastold=$prevvers;
                   }
               }
               $r->print('</td>');
               # List all available versions
               $r->print('<td valign="top"><span class="LC_fontsize_medium">');
               for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
                   my $url=$root.'.'.$prevvers.'.'.$extension;
                   $r->print(
                       '<span class="LC_nobreak">'
                      .'<a href="'.&Apache::lonnet::clutter($url).'">'
                      .&mt('Version [_1]',$prevvers).'</a>'
                      .' ('.&Apache::lonlocal::locallocaltime(
                            &Apache::lonnet::metadata($url,'lastrevisiondate'))
                      .')');
                   if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
                       $r->print(
                           ' <a href="/adm/diff?filename='.
                           &Apache::lonnet::clutter($root.'.'.$extension).
                           &HTML::Entities::encode('&versionone='.$prevvers,'"<>&').
                           '" target="diffs">'.&mt('Diffs').'</a>');
                   }
                   $r->print('</span><br />');
               }
               $r->print('</span></td>'.&Apache::loncommon::end_data_table_row());
           }
       }
       $r->print(
           &Apache::loncommon::end_data_table().
           '<input type="submit" name="setversions" value="'.$lt{'save'}.'" />'.
           '</form>'
       );
   
       &untiehash();
       $r->print(&endContentScreen());
       return;
   }
   
   sub mark_hash_old {
       my $retie_hash=0;
       if ($hashtied) {
    $retie_hash=1;
    &untiehash();
       }
       &tiehash('write');
       $hash{'old'}=1;
       &untiehash();
       if ($retie_hash) { &tiehash(); }
   }
   
   sub is_hash_old {
       my $untie_hash=0;
       if (!$hashtied) {
    $untie_hash=1;
    &tiehash();
       }
       my $return=$hash{'old'};
       if ($untie_hash) { &untiehash(); }
       return $return;
   }
   
   sub changewarning {
       my ($r,$postexec,$message,$url)=@_;
       if (!&is_hash_old()) { return; }
       my $pathvar='folderpath';
       my $path=&escape($env{'form.folderpath'});
       if (!defined($url)) {
    $url='/adm/coursedocs?'.$pathvar.'='.$path;
       }
       my $course_type = &Apache::loncommon::course_type();
       if (!defined($message)) {
    $message='Changes will become active for your current session after [_1], or the next time you log in.';
       }
       $r->print("\n\n".
   '<script type="text/javascript">'."\n".
   '// <![CDATA['."\n".
   'function reinit(tf) { tf.submit();'.$postexec.' }'."\n".
   '// ]]>'."\n".
   '</script>'."\n".
   '<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.
   '<input type="hidden" name="orgurl" value="'.$url.
   '" /><input type="hidden" name="selectrole" value="1" /><p class="LC_warning">'.
   &mt($message,' <input type="hidden" name="'.
       $env{'request.role'}.'" value="1" /><input type="button" value="'.
       &mt('re-initializing '.$course_type).'" onclick="reinit(this.form)" />').
   $help{'Caching'}.'</p></form>'."\n\n");
   }
   
   
   sub init_breadcrumbs {
       my ($form,$text,$help)=@_;
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?tools=1",
       text=>&Apache::loncommon::course_type().' Editor',
       faq=>273,
       bug=>'Instructor Interface',
                                               help => $help});
       &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?".$form.'=1',
       text=>$text,
       faq=>273,
       bug=>'Instructor Interface'});
   }
   
   # subroutine to list form elements
   sub create_list_elements {
      my @formarr = @_;
      my $list = '';
      foreach my $button (@formarr){
           foreach my $picture (keys(%{$button})) {
               $list .= &Apache::lonhtmlcommon::htmltag('li', $picture.' '.$button->{$picture}, {class => 'LC_menubuttons_inline_text', id => ''});
           }
      }
      return $list;
   }
   
   # subroutine to create ul from list elements
   sub create_form_ul {
      my $list = shift;
      my $ul = &Apache::lonhtmlcommon::htmltag('ul',$list, {class => 'LC_ListStyleNormal'});
      return $ul;
   }
   
   #
   # Start tabs
   #
   
   sub startContentScreen {
       my ($mode) = @_;
       my $output = '<ul class="LC_TabContentBigger" id="mainnav">';
       if (($mode eq 'navmaps') || ($mode eq 'supplemental')) {
           $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";
           $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";
           $output .= '<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>';
       } else {
           $output .= '<li '.(($mode eq 'docs')?' class="active"':'').' id="tabbededitor"><a href="/adm/coursedocs?forcestandard=1"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Main Content Editor').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n";
           $output .= '<li '.(($mode eq 'suppdocs')?' class="active"':'').'><a href="/adm/coursedocs?forcesupplement=1"><b>'.&mt('Supplemental Content Editor').'</b></a></li>'."\n";
           $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";
                      '><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>';
       }
       $output .= "\n".'</ul>'."\n";
       $output .= '<div class="LC_DocsBox" style="clear:both;margin:0;" id="contenteditor">'.
                  '<div id="maincoursedoc" style="margin:0 0;padding:0 0;">'.
                  '<div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">';
       return $output;
   }
   
   #
   # End tabs
   #
   
   sub endContentScreen {
       return '</div></div></div>';
   }
   
   sub supplemental_base {
       return 'supplemental&'.&escape(&mt('Supplemental Content'));
   }
   
   sub handler {
       my $r = shift;
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
       return OK if $r->header_only;
   
   # get course data
       my $crstype = &Apache::loncommon::course_type();
       my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};
       my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};
   
   # get docroot
       my $londocroot = $r->dir_config('lonDocRoot');
   
   # graphics settings
       $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL').'/');
   
   #
   # --------------------------------------------- Initialize help topics for this
       foreach my $topic ('Adding_Course_Doc','Main_Course_Documents',
                  'Adding_External_Resource','Navigate_Content',
                  'Adding_Folders','Docs_Overview', 'Load_Map',
                  'Supplemental','Score_Upload_Form','Adding_Pages',
                  'Importing_LON-CAPA_Resource','Importing_IMS_Course',
                          'Uploading_From_Harddrive','Course_Roster','Web_Page',
                          'Dropbox','Simple_Problem') {
    $help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);
       }
       # Composite help files
       $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
       'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
       $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
       'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
       $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
       'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
       $help{'My Personal Information Page'} = &Apache::loncommon::help_open_topic(
     'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
       $help{'Group Portfolio'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');
       $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
    
       my ($allowed,$noendpage);
   # URI is /adm/supplemental when viewing supplemental docs in non-edit mode.
       unless ($r->uri eq '/adm/supplemental') {
           # does this user have privileges to modify content.  
           $allowed = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
       }
   
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['inhibitmenu']);
     if ($allowed && $env{'form.verify'}) {
         &init_breadcrumbs('verify','Verify Content','Docs_Verify_Content');
         &verifycontent($r);
     } elsif ($allowed && $env{'form.listsymbs'}) {
         &init_breadcrumbs('listsymbs','List Content IDs');
         &list_symbs($r);
     } elsif ($allowed && $env{'form.docslog'}) {
         &init_breadcrumbs('docslog','Show Log');
         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'}) {
         &init_breadcrumbs('versions','Check/Set Resource Versions','Docs_Check_Resource_Versions');
         &checkversions($r);
     } elsif ($allowed && $env{'form.dumpcourse'}) {
         &init_breadcrumbs('dumpcourse','Copy '.&Apache::loncommon::course_type().' Content to Authoring Space');
         &dumpcourse($r);
     } elsif ($allowed && $env{'form.exportcourse'}) {
         &init_breadcrumbs('exportcourse','IMS Export');
         &Apache::imsexport::exportcourse($r);
     } else {
         if ($allowed && $env{'form.authorrole'}) {
             $noendpage = 1;
             my ($redirect,$error) = &makenewproblem($r,$coursedom,$coursenum);
             if ($redirect) {
                 if (($env{'form.newresourceadd'}) && ($env{'form.folderpath'})) {
                     my $container = 'sequence'; 
                     my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,
                         $is_random_order,$container) =
                         &Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
                     my (@folders)=split('&',$env{'form.folderpath'});
                     $env{'form.foldername'}=&unescape(pop(@folders));
                     my $folder=pop(@folders);
                     my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
                                                     $folder.'.'.$container);
                     my $warning;
                     if ($fatal) {
                         if ($container eq 'page') {
                             $warning = &mt('An error occurred retrieving the contents of the current page.');
                         } else {
                             $warning = &mt('An error occurred retrieving the contents of the current folder.');
                         }
                     } else {
                         my $url = $redirect;
                         my $srcfile = $londocroot.$url;
                         $url =~ s{^/priv/}{/res/};
                         my $targetfile = $londocroot.$url;
                         my $nokeyref = &Apache::lonpublisher::getnokey($r->dir_config('lonIncludes'));
                         my $output = &Apache::lonpublisher::batchpublish($r,$srcfile,$targetfile,$nokeyref,1);
                         $env{'form.folder'} = $folder;
                         &snapshotbefore();
                         my $title = &LONCAPA::map::qtunescape($env{'form.newresourcetitle'});
                         my $ext = 'false';
                         my $newidx = &LONCAPA::map::getresidx(&LONCAPA::map::qtunescape($url));
                         $LONCAPA::map::resources[$newidx]=$title.':'.&LONCAPA::map::qtunescape($url).
                                                           ':'.$ext.':normal:res';
                         push(@LONCAPA::map::order,$newidx);
                         &LONCAPA::map::storeparameter($newidx,'parameter_hiddenresource','yes',
                                                      'string_yesno');
                         &remember_parms($newidx,'hiddenresource','set','yes');
                         ($errtext,$fatal) =
                             &storemap($coursenum, $coursedom, $folder.'.'.$container,1);
                         &log_differences($plain);
                         &mark_hash_old();
                         $r->internal_redirect($redirect);
                         return OK;
                     }
                 }
             }
         }
   #
   # Done catching special calls
   # The whole rest is for course and supplemental documents and utilities menu
   # Get the parameters that may be needed
   #
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['folderpath',
                                                'forcesupplement','forcestandard',
                                                'tools','symb','command','supppath']);
   
   # 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
   
       my $standard=($env{'request.course.uri'}=~/^\/uploaded\//);
   
   # Decide whether this should display supplemental or main content or utilities
   # supplementalflag=1: show supplemental documents
   # supplementalflag=0: show standard documents
   # toolsflag=1: show utilities
   
       my $unesc_folderpath = &unescape($env{'form.folderpath'});
       my $supplementalflag=($unesc_folderpath=~/^supplemental/);
       if (($unesc_folderpath=~/^default/) || ($unesc_folderpath eq "")) {
          $supplementalflag=0;
       }
       if ($env{'form.forcesupplement'}) { $supplementalflag=1; }
       if ($env{'form.forcestandard'})   { $supplementalflag=0; }
       unless ($allowed) { $supplementalflag=1; }
       unless ($standard) { $supplementalflag=1; }
       my $toolsflag=0;
       if ($env{'form.tools'}) { $toolsflag=1; }
   
       my $script='';
       my $showdoc=0;
       my $addentries = {};
       my $container;
       my $containertag;
       my $pathitem;
       my %ltitools;
   
   # Do we directly jump somewhere?
   
      if (($env{'form.command'} eq 'direct') || ($env{'form.command'} eq 'directnav')) {
          if ($env{'form.symb'} ne '') {
              $env{'form.folderpath'}=
                  &Apache::loncommon::symb_to_docspath($env{'form.symb'});
              &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>
                  $env{'form.command'}.'_'.$env{'form.symb'}});
          } elsif ($env{'form.supppath'} ne '') {
              $env{'form.folderpath'}=$env{'form.supppath'};
              &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>
                  $env{'form.command'}.'_'.$env{'form.supppath'}});
          }
      } elsif ($env{'form.command'} eq 'editdocs') {
          $env{'form.folderpath'} = 'default&'.
                                    &escape(&mt('Main Content').':::::');
          &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} => $env{'form.command'}});
      } elsif ($env{'form.command'} eq 'editsupp') {
          $env{'form.folderpath'} = 'supplemental&'.
                                     &escape('Supplemental Content');
          &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} => '/adm/supplemental'});
      } elsif ($env{'form.command'} eq 'contents') {
          &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} => '/adm/navmaps'});
      } elsif ($env{'form.command'} eq 'home') {
          &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} => '/adm/menu'});
      }
   
   
   # Where do we store these for when we come back?
       my $stored_folderpath='docs_folderpath';
       if ($supplementalflag) {
          $stored_folderpath='docs_sup_folderpath';
       }
   
   # No folderpath, and in edit mode, see if we have something stored
       if ((!$env{'form.folderpath'}) && $allowed) {
           &Apache::loncommon::restore_course_settings($stored_folderpath,
                                             {'folderpath' => 'scalar'});
           unless (&unescape($env{'form.folderpath'}) =~ m{^(default|supplemental)&}) {
               undef($env{'form.folderpath'});
           }
       }
      
   # If we are not allowed to make changes, all we can see are supplemental docs
       if (!$allowed) {
           unless ($env{'form.folderpath'} =~ /^supplemental/) {
               $env{'form.folderpath'} = &supplemental_base();
           }
       }
   # Make the zeroth entry in supplemental docs page paths, so we can get to top level
       if ($env{'form.folderpath'} =~ /^supplemental_\d+/) {
           $env{'form.folderpath'} = &supplemental_base()
                                     .'&'.
                                     $env{'form.folderpath'};
       }
   # If after all of this, we still don't have any paths, make them
       unless ($env{'form.folderpath'}) {
          if ($supplementalflag) {
             $env{'form.folderpath'}=&supplemental_base();
          } else {
             $env{'form.folderpath'}='default&'.&escape(&mt('Main Content').
                                     ':::::');
          }
       }
   
   # Store this
       unless ($toolsflag) {
           if ($allowed) {
               &Apache::loncommon::store_course_settings($stored_folderpath,
                                                         {'folderpath' => 'scalar'});
           }
           my $folderpath;
           if ($env{'form.folderpath'}) {
               $folderpath = $env{'form.folderpath'};
       my (@folders)=split('&',$env{'form.folderpath'});
       $env{'form.foldername'}=&unescape(pop(@folders));
               if ($env{'form.foldername'} =~ /\:1$/) {
                   $container = 'page';
               } else {
                   $container = 'sequence';
               }
       $env{'form.folder'}=pop(@folders);
           } else {
               if ($env{'form.folder'} eq '' ||
                   $env{'form.folder'} eq 'supplemental') {
                   $folderpath='default&'.
                               &escape(&mt('Main Content').':::::');
               }
           }
           $containertag = '<input type="hidden" name="folderpath" value="" />';
           $pathitem = '<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 personal data
       my $uname=$env{'user.name'};
       my $udom=$env{'user.domain'};
       my $plainname=&escape(&Apache::loncommon::plainname($uname,$udom));
   
       if ($allowed) {
           if ($toolsflag) {
               $script .= &inject_data_js();
               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 {
               my $tid = 1;
               my @tabids;
               if ($supplementalflag) {
                   @tabids = ('002','ee2','ff2');
                   $tid = 2;
               } else {
                   @tabids = ('aa1','bb1','cc1','ff1');
                   unless ($env{'form.folderpath'} =~ /\:1$/) {
                       unshift(@tabids,'001');
                       push(@tabids,('dd1','ee1'));
                   }
               }
               my $tabidstr = join("','",@tabids);
               %ltitools = &Apache::lonnet::get_domain_ltitools($coursedom);
               my $posslti = keys(%ltitools);
       $script .= &editing_js($udom,$uname,$supplementalflag,$coursedom,$coursenum,$posslti,
                                      $londocroot).
                          &history_tab_js().
                          &inject_data_js().
                          &Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr,$tid).
                          &Apache::lonextresedit::extedit_javascript(\%ltitools);
               $addentries = {
                               onload   => "javascript:resize_scrollbox('contentscroll','1','1');",
                             };
           }
           $script .= &paste_popup_js(); 
           my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
                                &mt('Switch server?');
           
   
       }
   # -------------------------------------------------------------------- Body tag
       $script = '<script type="text/javascript">'."\n"
                 .'// <![CDATA['."\n"
                 .$script."\n"
                 .'// ]]>'."\n"
                 .'</script>'."\n"
                 .'<script type="text/javascript" 
                   src="/res/adm/includes/file_upload.js"></script>'."\n";
   
       # Breadcrumbs
       &Apache::lonhtmlcommon::clear_breadcrumbs();
   
       if ($showdoc) {
           $r->print(&Apache::loncommon::start_page("$crstype documents",undef,
                                                   {'force_register' => $showdoc,}));
       } elsif ($toolsflag) {
           &Apache::lonhtmlcommon::add_breadcrumb({
               href=>"/adm/coursedocs",text=>"$crstype Contents"});
           $r->print(&Apache::loncommon::start_page("$crstype Contents", $script)
                    .&Apache::loncommon::help_open_menu('','',273,'RAT')
                    .&Apache::lonhtmlcommon::breadcrumbs(
                        'Editing Course Contents')
                    );
       } elsif ($r->uri eq '/adm/supplemental') {
           my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);
           $r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,
                                                   {'bread_crumbs' => $brcrum,}));
       } else {
           &Apache::lonhtmlcommon::add_breadcrumb({
               href=>"/adm/coursedocs",text=>"$crstype Contents"});
           $r->print(&Apache::loncommon::start_page("$crstype Contents", $script,
                                                    {'add_entries'    => $addentries}
                                                   )
                    .&Apache::loncommon::help_open_menu('','',273,'RAT')
                    .&Apache::lonhtmlcommon::breadcrumbs(
                        'Editing '.$crstype.' Contents',
                        'Docs_Adding_Course_Doc')
           );
       }
   
     my %allfiles = ();
     my %codebase = ();
     my ($upload_result,$upload_output,$uploadphase);
     if ($allowed) {
         if (($env{'form.uploaddoc.filename'}) &&
     ($env{'form.cmd'}=~/^upload_(\w+)/)) {
             my $context = $1; 
             # Process file upload - phase one - upload and parse primary file.
     undef($hadchanges);
             $uploadphase = &process_file_upload(\$upload_output,$coursenum,$coursedom,
                                                 \%allfiles,\%codebase,$context,$crstype);
     if ($hadchanges) {
         &mark_hash_old();
     }
             $r->print($upload_output);
         } elsif ($env{'form.phase'} eq 'upload_embedded') {
             # Process file upload - phase two - upload embedded objects 
             $uploadphase = 'check_embedded';
             my $primaryurl = &HTML::Entities::encode($env{'form.primaryurl'},'<>&"');   
             my $state = &embedded_form_elems($uploadphase,$primaryurl,
                                              $env{'form.newidx'});
             my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
             my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
             my ($destination,$dir_root) = &embedded_destination();
             my $url_root = '/uploaded/'.$docudom.'/'.$docuname;
             my $actionurl = '/adm/coursedocs';
             my ($result,$flag) = 
                 &Apache::loncommon::upload_embedded('coursedoc',$destination,
                     $docuname,$docudom,$dir_root,$url_root,undef,undef,undef,$state,
                     $actionurl);
             $r->print($result.&return_to_editor());
         } elsif ($env{'form.phase'} eq 'check_embedded') {
             # Process file upload - phase three - modify references in HTML file
             $uploadphase = 'modified_orightml';
             my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
             my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
             my ($destination,$dir_root) = &embedded_destination();
             my $result = 
                 &Apache::loncommon::modify_html_refs('coursedoc',$destination,
                                                      $docuname,$docudom,undef,
                                                      $dir_root);
             $r->print($result.&return_to_editor());   
         } elsif ($env{'form.phase'} eq 'decompress_uploaded') {
             $uploadphase = 'decompress_phase_one';
             $r->print(&decompression_phase_one().
                       &return_to_editor());
         } elsif ($env{'form.phase'} eq 'decompress_cleanup') {
             $uploadphase = 'decompress_phase_two';
             $r->print(&decompression_phase_two().
                       &return_to_editor());
         }
     }
   
     if ($allowed && $toolsflag) {
         $r->print(&startContentScreen('tools'));
         $r->print(&generate_admin_menu($crstype));
         $r->print(&endContentScreen());
     } elsif ((!$showdoc) && (!$uploadphase)) {
   # -----------------------------------------------------------------------------
          my %lt=&Apache::lonlocal::texthash(
    'copm' => 'All documents out of a published map into this folder',
                   'upfi' => 'Upload File',
                   'upld' => 'Upload Content',
                   'srch' => 'Search',
                   'impo' => 'Import',
    'lnks' => 'Import from Stored Links',
                   'impm' => 'Import from Assembled Map',
                   'imcr' => 'Import from Course Resources',   
                   'extr' => 'External Resource',
                   'extt' => 'External Tool',
                   'selm' => 'Select Map',
                   'load' => 'Load Map',
                   'newf' => 'New Folder',
                   'newp' => 'New Composite Page',
                   'syll' => 'Syllabus',
                   'navc' => 'Table of Contents',
                   'sipa' => 'Simple Course Page',
                   'sipr' => 'Simple Problem',
                   'webp' => 'Blank Web Page (editable)', 
                   'stpr' => 'Standard Problem',
                   'news' => 'New sub-directory',
                   'crpr' => 'Create Problem',
                   'drbx' => 'Drop Box',
                   'scuf' => 'External Scores (handgrade, upload, clicker)',
                   'bull' => 'Discussion Board',
                   'mypi' => 'My Personal Information Page',
                   'grpo' => 'Group Portfolio',
                   'rost' => 'Course Roster',
                   'abou' => 'Personal Information Page for a User',
                   'imsf' => 'IMS Upload',
                   'imsl' => 'Upload IMS package',
                   'cms'  => 'Origin of IMS package',
                   'se'   => 'Select',
                   'file' =>  'File',
                   'title' => 'Title',
                   'addp' => 'Add Placeholder to course?',
                   'uste' => 'Use Template?',
                   'fnam' => 'File Name:',
                   'loca' => 'Location:',
                   'dire' => 'Directory:',
                   'cate' => 'Category:',
                   'tmpl' => 'Template:',
                   'comment' => 'Comment',
                   'parse' => 'Upload embedded images/multimedia files if HTML file',
                   'bb5'      => 'Blackboard 5',
                   'bb6'      => 'Blackboard 6',
                   'angel5'   => 'ANGEL 5.5',
                   'webctce4' => 'WebCT 4 Campus Edition',
                   'yes'      => 'Yes',
                   'no'       => 'No',
           );
   # -----------------------------------------------------------------------------
   
       # Calculate free quota space for a user or course. A javascript function checks
       # file size to determine if upload should be allowed.
       my $quotatype = 'unofficial';
       if ($crstype eq 'Community') {
           $quotatype = 'community';
       } elsif ($crstype eq 'Placement') {
           $quotatype = 'placement';
       } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {
           $quotatype = 'official';
       } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {
           $quotatype = 'textbook';
       }
       my $disk_quota = &Apache::loncommon::get_user_quota($coursenum,$coursedom,
                        'course',$quotatype); # expressed in MB
       my $current_disk_usage = 0;
       foreach my $subdir ('docs','supplemental') {
           $current_disk_usage += &Apache::lonnet::diskusage($coursedom,$coursenum,
                                  "userfiles/$subdir",1); # expressed in kB
       }
       my $free_space = 1024 * ((1024 * $disk_quota) - $current_disk_usage);
       my $usage = $current_disk_usage/1024; # in MB
       my $quota = $disk_quota;
       my $percent;
       if ($disk_quota == 0) {
           $percent = 100.0;
       } else {
           $percent = 100*($current_disk_usage/$disk_quota);
       }
       $usage = sprintf("%.2f",$usage);
       $quota = sprintf("%.2f",$quota);
       $percent = sprintf("%.0f",$percent);
       my $quotainfo = '<p>'.&mt('Currently using [_1] of the [_2] available.',
                                 $percent.'%',$quota.' MB').'</p>';
   
    my $fileupload=(<<FIUP);
           $quotainfo
    $lt{'file'}:<br />
    <input type="file" name="uploaddoc" class="flUpload" size="40" />
           <input type="hidden" id="free_space" value="$free_space" />
   FIUP
   
    my $checkbox=(<<CHBO);
    <!-- <label>$lt{'parse'}?
    <input type="checkbox" name="parserflag" />
    </label> -->
    <label>
    <input type="checkbox" name="parserflag" checked="checked" /> $lt{'parse'}
    </label>
   CHBO
           my $imsfolder = $env{'form.folder'};
           if ($imsfolder eq '') {
               $imsfolder = 'default';  
           }
           my $imspform=(<<IMSFORM);
           <a class="LC_menubuttons_link" href="javascript:toggleUpload('ims');">
           $lt{'imsf'}</a> $help{'Importing_IMS_Course'}
           <form name="uploadims" action="/adm/imsimportdocs" method="post" enctype="multipart/form-data" target="IMSimport">
           <fieldset id="uploadimsform" style="display: none;">
           <legend>$lt{'imsf'}</legend>
           $fileupload
           <br />
           <p>
           $lt{'cms'}:&nbsp; 
           <select name="source">
           <option value="-1" selected="selected">$lt{'se'}</option>
           <option value="bb5">$lt{'bb5'}</option>
           <option value="bb6">$lt{'bb6'}</option>
           <option value="angel5">$lt{'angel5'}</option>
           <option value="webctce4">$lt{'webctce4'}</option>
           </select>
           <input type="hidden" name="folder" value="$imsfolder" />
           </p>
           <input type="hidden" name="phase" value="one" />
           <input type="button" value="$lt{'imsl'}" onclick="makeims(this.form);" />
           </fieldset>
           </form>
   IMSFORM
   
    my $fileuploadform=(<<FUFORM);
           <a class="LC_menubuttons_link" href="javascript:toggleUpload('doc');">
           $lt{'upfi'}</a> $help{'Uploading_From_Harddrive'}
           <form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">
           <fieldset id="uploaddocform" style="display: none;">
           <legend>$lt{'upfi'}</legend>
    <input type="hidden" name="active" value="aa" />
       $fileupload
    <br />
    $lt{'title'}:<br />
    <input type="text" size="60" name="comment" />
    $pathitem
    <input type="hidden" name="cmd" value="upload_default" />
    <br />
    <span class="LC_nobreak" style="float:left">
    $checkbox
    </span>
           <br clear="all" />
           <input type="submit" value="$lt{'upld'}" />
           </fieldset>
           </form>
   FUFORM
   
    my $importpubform=(<<SEDFFORM);
           <a class="LC_menubuttons_link" href="javascript:toggleMap('map');">
           $lt{'impm'}</a>$help{'Load_Map'}
    <form action="/adm/coursedocs" method="post" name="mapimportform">
           <fieldset id="importmapform" style="display: none;">
           <legend>$lt{'impm'}</legend>
    <input type="hidden" name="active" value="bb" />
           $lt{'copm'}<br />
           <span class="LC_nobreak">
           <input type="text" name="importmap" size="40" value="" 
           onfocus="this.blur();openbrowser('mapimportform','importmap','sequence,page','');" />
           &nbsp;<a href="javascript:openbrowser('mapimportform','importmap','sequence,page','');">$lt{'selm'}</a></span><br />
           <input type="submit" name="loadmap" value="$lt{'load'}" />
           </fieldset>
           </form>
   
   SEDFFORM
           my $importcrsresform;
           my ($numdirs,$pickfile) = 
               &Apache::loncommon::import_crsauthor_form('crsresimportform','coursepath','coursefile',
                                                         "resize_scrollbox('contentscroll','1','0');",
                                                         undef,'res');
           if ($pickfile) {
               $importcrsresform=(<<CRSFORM);
           <a class="LC_menubuttons_link" href="javascript:toggleImportCrsres('res','$numdirs');">
           $lt{'imcr'}</a>$help{'Course_Resources'}
           <form action="/adm/coursedocs" method="post" name="crsresimportform" onsubmit="return validImportCrsRes();">
           <fieldset id="importcrsresform" style="display: none;">
           <legend>$lt{'imcr'}</legend>
           <input type="hidden" name="active" value="bb" />
           $pickfile
           <p>
           $lt{'title'}: <input type="textbox" name="crsrestitle" value="" />
           </p>
           <input type="hidden" name="importdetail" value="" />
           <input type="submit" name="crsres" value="$lt{'impo'}" />
           </fieldset>
           </form>
   CRSFORM
           }
   
    my @importpubforma = (
    { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'"  onclick="javascript:groupsearch()" />' => $pathitem."<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/wishlist.png" alt="'.$lt{lnks}.'" onclick="javascript:open_StoredLinks_Import();" />' => "<a class='LC_menubuttons_link' href='javascript:open_StoredLinks_Import();'>$lt{'lnks'}</a>" },
           { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/sequence.png" alt="'.$lt{impm}.'" onclick="javascript:toggleMap(\'map\');" />' => $importpubform },
           );
           if ($pickfile) {
               push(@importpubforma,{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{imcr}.'"  onclick="javascript:toggleImportCrsres(\'res\','."'$numdirs'".');"/>' => $importcrsresform});
    }
    $importpubform = &create_form_ul(&create_list_elements(@importpubforma));
           my $extresourcesform =
               &Apache::lonextresedit::extedit_form(0,0,undef,undef,$pathitem,
                                                    $help{'Adding_External_Resource'});
           my $exttoolform =
               &Apache::lonextresedit::extedit_form(0,0,undef,undef,$pathitem,
                                                    $help{'Adding_External_Tool'},undef,
                                                    undef,'tool',$coursedom,$coursenum,
                                                    \%ltitools);
       if ($allowed) {
           my $folder = $env{'form.folder'};
           if ($folder eq '') {
               $folder='default';
           }
    my $output = &update_paste_buffer($coursenum,$coursedom,$folder);
           if ($output) {
               $r->print($output);
           }
    $r->print(<<HIDDENFORM);
    <form name="renameform" method="post" action="/adm/coursedocs">
      <input type="hidden" name="title" />
      <input type="hidden" name="cmd" />
      <input type="hidden" name="markcopy" />
      <input type="hidden" name="copyfolder" />
      $containertag
    </form>
   
   HIDDENFORM
           $r->print(&makesimpleeditform($pathitem)."\n".
                     &makedocslogform($pathitem."\n".
                                      '<input type="hidden" name="folder" value="'.
                                      $env{'form.folder'}.'" />'."\n"));
       }
   
   # Generate the tabs
       my ($mode,$needs_end);
       if (($supplementalflag) && (!$allowed)) {
           my @folders = split('&',$env{'form.folderpath'});
           unless (@folders > 2) {
               &Apache::lonnavdisplay::startContentScreen($r,'supplemental');
               $needs_end = 1;
           }
       } else {
           $r->print(&startContentScreen(($supplementalflag?'suppdocs':'docs')));
           $needs_end = 1;
       }
   
   #
   
       my $savefolderpath;
   
       if ($allowed) {
          my $folder=$env{'form.folder'};
          if ($folder eq '' || $supplementalflag) {
              $folder='default';
      $savefolderpath = $env{'form.folderpath'};
      $env{'form.folderpath'}='default&'.&escape(&mt('Main Content'));
              $pathitem = '<input type="hidden" name="folderpath" value="'.
          &HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
          }
          my $postexec='';
          if ($folder eq 'default') {
              $r->print('<script type="text/javascript">'."\n"
                       .'// <![CDATA['."\n"
                       .'this.window.name="loncapaclient";'."\n"
                       .'// ]]>'."\n"
                       .'</script>'."\n"
          );
          } else {
              #$postexec='self.close();';
          }
          my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_new.sequence';
          my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_new.page';
    my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;
   
    my $newnavform=(<<NNFORM);
    <form action="/adm/coursedocs" method="post" name="newnav">
    <input type="hidden" name="active" value="ee" />
    $pathitem
    <input type="hidden" name="importdetail" 
    value="$lt{'navc'}=/adm/navmaps" />
    <a class="LC_menubuttons_link" href="javascript:document.newnav.submit()">$lt{'navc'}</a>
    $help{'Navigate_Content'}
    </form>
   NNFORM
    my $newsmppageform=(<<NSPFORM);
    <form action="/adm/coursedocs" method="post" name="newsmppg">
    <input type="hidden" name="active" value="ee" />
    $pathitem
    <input type="hidden" name="importdetail" value="" />
    <a class="LC_menubuttons_link" href="javascript:makesmppage();"> $lt{'sipa'}</a>
    $help{'Simple Page'}
    </form>
   NSPFORM
   
    my $newsmpproblemform=(<<NSPROBFORM);
    <form action="/adm/coursedocs" method="post" name="newsmpproblem">
    <input type="hidden" name="active" value="cc" />
    $pathitem
    <input type="hidden" name="importdetail" value="" />
    <a class="LC_menubuttons_link" href="javascript:makesmpproblem();">$lt{'sipr'}</a>
    $help{'Simple_Problem'}
    </form>
   
   NSPROBFORM
   
    my $newdropboxform=(<<NDBFORM);
    <form action="/adm/coursedocs" method="post" name="newdropbox">
    <input type="hidden" name="active" value="cc" />
    $pathitem
    <input type="hidden" name="importdetail" value="" />
    <a class="LC_menubuttons_link" href="javascript:makedropbox();">$lt{'drbx'}</a>
           $help{'Dropbox'}
    </form>
   NDBFORM
   
    my $newexuploadform=(<<NEXUFORM);
    <form action="/adm/coursedocs" method="post" name="newexamupload">
    <input type="hidden" name="active" value="cc" />
    $pathitem
    <input type="hidden" name="importdetail" value="" />
    <a class="LC_menubuttons_link" href="javascript:makeexamupload();">$lt{'scuf'}</a>
    $help{'Score_Upload_Form'}
    </form>
   NEXUFORM
   
    my $newbulform=(<<NBFORM);
    <form action="/adm/coursedocs" method="post" name="newbul">
    <input type="hidden" name="active" value="dd" />
    $pathitem
    <input type="hidden" name="importdetail" value="" />
    <a class="LC_menubuttons_link" href="javascript:makebulboard();" >$lt{'bull'}</a>
    $help{'Bulletin Board'}
    </form>
   NBFORM
   
    my $newaboutmeform=(<<NAMFORM);
    <form action="/adm/coursedocs" method="post" name="newaboutme">
    <input type="hidden" name="active" value="dd" />
    $pathitem
    <input type="hidden" name="importdetail" 
    value="$plainname=/adm/$udom/$uname/aboutme" />
    <a class="LC_menubuttons_link" href="javascript:document.newaboutme.submit()">$lt{'mypi'}</a>
    $help{'My Personal Information Page'}
    </form>
   NAMFORM
   
    my $newaboutsomeoneform=(<<NASOFORM);
    <form action="/adm/coursedocs" method="post" name="newaboutsomeone">
    <input type="hidden" name="active" value="dd" />
    $pathitem
    <input type="hidden" name="importdetail" value="" />
    <a class="LC_menubuttons_link" href="javascript:makeabout();">$lt{'abou'}</a>
    </form>
   NASOFORM
   
    my $newrosterform=(<<NROSTFORM);
    <form action="/adm/coursedocs" method="post" name="newroster">
    <input type="hidden" name="active" value="dd" />
    $pathitem
    <input type="hidden" name="importdetail" 
    value="$lt{'rost'}=/adm/viewclasslist" />
    <a class="LC_menubuttons_link" href="javascript:document.newroster.submit()">$lt{'rost'}</a>
    $help{'Course_Roster'}
    </form>
   NROSTFORM
   
           my $newwebpage;
           if ($folder =~ /^default_?(\d*)$/) {
               $newwebpage = "/uploaded/$coursedom/$coursenum/docs/";
               if ($1) {
                   $newwebpage .= $1;
               } else {
                   $newwebpage .= 'default';
               }
               $newwebpage .= '/new.html';
           }
           my $newwebpageform =(<<NWEBFORM);
           <form action="/adm/coursedocs" method="post" name="newwebpage">
           <input type="hidden" name="active" value="ee" />
           $pathitem
           <input type="hidden" name="importdetail" value="$newwebpage" />
           <a class="LC_menubuttons_link" href="javascript:makewebpage();">$lt{'webp'}</a>
           $help{'Web_Page'}
           </form>
   NWEBFORM
   
           my @ids=&Apache::lonnet::current_machine_ids();
           my %select_menus;
           my $numauthor = 0;
           my $numcrsdirs = 0;
           my $toppath = "/priv/$env{'user.domain'}/$env{'user.name'}"; 
           if ($env{'user.author'}) {
               $numauthor ++;
               $select_menus{'author'}->{'text'} = &Apache::lonnet::plaintext('au');
               if (grep(/^\Q$env{'user.home'}\E$/,@ids)) {
                   my $is_home = 1;
                   my %subdirs;
                   &Apache::lonnet::recursedirs($is_home,'priv',$londocroot,$toppath,'',\%subdirs);
                   $select_menus{'author'}->{'default'} = '/'; 
                   $select_menus{'author'}->{'select2'}->{'/'} = '/';
                   my @ordered = ('/');
                   foreach my $relpath (sort { lc($a) cmp lc($b) } (keys(%subdirs))) {
                       $select_menus{'author'}->{'select2'}->{$relpath} = $relpath;
                       push(@ordered,$relpath);
                   }
                   $select_menus{'author'}->{'order'} = \@ordered;
               } else {
                   $select_menus{'author'}->{'select2'}->{'switch'} = &mt('Switch server required');
                   $select_menus{'author'}->{'default'} = 'switch';
                   $select_menus{'author'}->{'order'} = ['switch'];
               }
           }
           my %roleshash = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles',
                                                         ['active'],['ca','aa']);
           my $crshome = $env{'course.'.$env{'request.course.id'}.'.home'};
           my %by_roletype;
           if (keys(%roleshash)) {
               foreach my $entry (keys(%roleshash)) {
                   my ($auname,$audom,$roletype) = split(/:/,$entry);
                   my $key = $entry;
                   $key =~ s/:/___/g;
                   $by_roletype{$roletype}{$auname.'___'.$audom} = 1;
                   $select_menus{$key}->{'text'} = &Apache::lonnet::plaintext($roletype)." ($audom/$auname)";
                   my $rolehome = &Apache::lonnet::homeserver($auname,$audom);
                   if (grep(/^\Q$rolehome\E$/,@ids)) {    
                       my $is_home = 1;
                       my (%subdirs,@ordered);
                       my $toppath="/priv/$audom/$auname";
                       &Apache::lonnet::recursedirs($is_home,'priv',$londocroot,$toppath,'',\%subdirs);
                       $select_menus{$key}->{'default'} = '/';
                       $select_menus{$key}->{'select2'}->{'/'} = '/';
                       my @ordered = ('/');
                       foreach my $relpath (sort { lc($a) cmp lc($b) } (keys(%subdirs))) {
                           $select_menus{$key}->{'select2'}->{$relpath} = $relpath;
                           push(@ordered,$relpath);
                       }
                       $select_menus{$key}->{'order'} = \@ordered;
                   } else {
                       $select_menus{$key}->{'select2'}->{'switch'} = &mt('Switch server required');
                       $select_menus{$key}->{'default'} = 'switch';
                       $select_menus{$key}->{'order'} = ['switch'];
                   }
                   $numauthor ++;
               }
           }
           my ($pickdir,$showtitle);;
           if ($numauthor) {
               my @order;
               my $defrole;
               if ($env{'user.author'}) {
                   push(@order,'author');
                   $defrole = 'author';
               }
               if (keys(%by_roletype)) {
                   foreach my $possrole ('ca','aa') {
                       if (ref($by_roletype{$possrole}) eq 'HASH') {
                           foreach my $author (sort { lc($a) cmp lc($b) } (keys(%{$by_roletype{$possrole}}))) {
                               unless ($defrole) {
                                   $defrole = $author;
                               }
                               push(@order,$author.'___'.$possrole);
                           }
                       }
                   }
               }
               $select_menus{'course'}->{'text'} = &mt('Course Resource');
               if (grep(/^\Q$crshome\E$/,@ids)) {
                   my $is_home = 1;
                   my %subdirs;
                   my $toppath="/priv/$coursedom/$coursenum";
                   &Apache::lonnet::recursedirs($is_home,'priv',$londocroot,$toppath,'',\%subdirs);
                   $numcrsdirs = keys(%subdirs);
                   $select_menus{'course'}->{'default'} = '/';
                   $select_menus{'course'}->{'select2'}->{'/'} = '/';
                   my @ordered = ('/');
                   foreach my $relpath (sort { lc($a) cmp lc($b) } (keys(%subdirs))) {
                       $select_menus{'course'}->{'select2'}->{$relpath} = $relpath;
                       push(@ordered,$relpath);
                   }
                   $select_menus{'course'}->{'order'} = \@ordered;
               } else {
                   $select_menus{'course'}->{'select2'}->{'switch'} = &mt('Switch server required');
                   $select_menus{'course'}->{'default'} = 'switch';
                   $select_menus{'course'}->{'order'} = ['switch'];
               }
               push(@order,'course');
               $pickdir = $lt{'loca'}.
                          &Apache::loncommon::linked_select_forms('courseresform','<br />'.$lt{'dire'},
                                                                  $defrole,'authorrole','authorpath',
                                                                  \%select_menus,\@order,'toggleCrsResTitle();',
                                                                  '','priv').'<br />';
               $showtitle = 'none';
           } else {
               my $is_home;
               $showtitle = 'inline';
               if (grep(/^\Q$crshome\E$/,@ids)) {
                   $is_home = 1;
                   $pickdir .= '<input type="hidden" name="authorrole" value="course" />'; 
                   my $toppath="/priv/$coursedom/$coursenum'}";
                   my %subdirs;
                   &Apache::lonnet::recursedirs($is_home,'priv',$londocroot,$toppath,'',\%subdirs);
                   $numcrsdirs = keys(%subdirs); 
                   if ($numcrsdirs) {
                       $pickdir .= &mt('Directory: ').'<select name="authorpath">'."\n".
                                    '<option value="/">/</option>'."\n";
                       foreach my $key (sort { lc($a) cmp lc($b) } (keys(%subdirs))) {
                           $pickdir .= '<option value="'.$key.'">'.$key.'</option>'."\n";
                       }
                       $pickdir .= '</select>';
                   } else {
                       $pickdir .= '<input type="hidden" name="authorpath" value="/" />'."\n";   
                   }
               }
           }
   
           my %seltemplate_menus;
           my @files = &Apache::lonhomework::get_template_list('problem');
           my @noexamplelink = ('blank.problem','blank.library','script.library');
           my $currentcategory = '';
           my @ordered = ('');
           my %templatehelp;
           my $defcategory = '';
           my @catorder = ($defcategory);
           $seltemplate_menus{$defcategory}->{'order'} = [''];
           $seltemplate_menus{$defcategory}->{'text'} = '';
           foreach my $file (@files) {
               if (ref($file) eq 'ARRAY') {
                   my ($path,$title,$category,$help) = @{$file};
                   next if ($title !~ /\S/);
                   if (&js_escape($category) ne $currentcategory) {
                       $currentcategory = &js_escape($category);
                       push(@catorder,&js_escape($currentcategory));
                       $seltemplate_menus{$currentcategory}->{'text'} = $category;
                       $seltemplate_menus{$currentcategory}->{'default'} = '';
                       $seltemplate_menus{$currentcategory}->{'select2'}->{''} = '';
                       push(@{$seltemplate_menus{$currentcategory}->{'order'}},'');
                   }
                   if ($path) {
                       $seltemplate_menus{$currentcategory}->{'select2'}->{&js_escape($path)} = $title;
                       push(@{$seltemplate_menus{$currentcategory}->{'order'}},&js_escape($path));
                       if ($help) {
                           $templatehelp{$path} = $help;
                       }
                   }
               }
           }
   
           my $templates = $lt{'cate'}.' '.
                           &Apache::loncommon::linked_select_forms('courseresform','<br />'.$lt{'tmpl'}.' ',
                                                                   $defcategory,'tempcategory','template',
                                                                   \%seltemplate_menus,\@catorder,
                                                                   "resize_scrollbox('contentscroll','1','0');",
                                                                   "toggleExampleText();",'template').'<br />';
           my $templatepreview =  '<a href="#" target="sample" onclick="javascript:getExample(600,420,\'yes\',true);  return false;">'.
                                  '<span id="newresexample">'.&mt('Example').'<span></a>';
           my $crsresform=(<<RESFORM);
           <a class="LC_menubuttons_link" href="javascript:toggleCrsRes('res','$numauthor','$numcrsdirs');">
           $lt{'stpr'}</a>$help{'Course_Resource'}
           <form action="/adm/coursedocs" method="post" name="courseresform">
           <fieldset id="crsresform" style="display:none;">
           <legend>$lt{'stpr'}</legend>
           <input type="hidden" name="active" value="ee" />
           <p>
           $pickdir
           <span class="LC_nobreak">$lt{'news'}?&nbsp;
           <label><input type="radio" name="newsubdir" value="0" onclick="toggleNewsubdir(this.form);" checked="checked" />No</label>
           &nbsp;
           <label><input type="radio" name="newsubdir" value="1" onclick="toggleNewsubdir(this.form);" />Yes</label>
           </span><span id="newsubdir"></span>
           <input type="hidden" name="newsubdirname" id="newsubdirname" value="" autocomplete="off" />
           </p>
           $lt{'fnam'}
           <input type="text" size="20" name="newresourcename" autocomplete="off" />
           <p>
           <div id="newresource" style="display:$showtitle">
           $lt{'addp'}
           <label><input type="radio" name="newresourceadd" value="0" checked="checked" onclick="toggleNewInCourse(this.form);" />
           $lt{'no'}</label>&nbsp;&nbsp;
           <label><input type="radio" name="newresourceadd" value="1" onclick="toggleNewInCourse(this.form);" />
           $lt{'yes'}</label>
           <span id="newrestitle"></span>
           <input type="hidden" size="20" name="newresourcetitle" id="newresourcetitle" autocomplete="off" />
           </div>
           </p>
           <p>
           $lt{'uste'}
           <label><input type="radio" name="newresusetemp" value="0" checked="checked" onclick="toggleWithTemplate(this.form);" />
           $lt{'no'}</label>&nbsp;&nbsp;
           <label><input type="radio" name="newresusetemp" value="1" onclick="toggleWithTemplate(this.form);" />
           $lt{'yes'}</label>
           <div id="newrestemplate" style="display:none">
           $templates
           $templatepreview
           </div>
           </p>
           <span class="LC_nobreak">
           <input type="hidden" name="folderpath" value="$env{'form.folderpath'}" />
           <input type="submit" name="newcrs" value="$lt{'crpr'}" />
           </span>
           </fieldset>
           </form>
   
   RESFORM
   
   my $specialdocumentsform;
   my @specialdocumentsforma;
   my $gradingform;
   my @gradingforma;
   my $communityform;
   my @communityforma;
   my $newfolderform;
   my $newfolderb;
   
    my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
   
    my $newpageform=(<<NPFORM);
    <form action="/adm/coursedocs" method="post" name="newpage">
    <input type="hidden" name="folderpath" value="$path" />
    <input type="hidden" name="importdetail" value="" />
    <input type="hidden" name="active" value="ee" />
    <a class="LC_menubuttons_link" href="javascript:makenewpage(document.newpage,'$pageseq');">$lt{'newp'}</a>
    $help{'Adding_Pages'}
    </form>
   NPFORM
   
   
    $newfolderform=(<<NFFORM);
    <form action="/adm/coursedocs" method="post" name="newfolder">
    $pathitem
    <input type="hidden" name="importdetail" value="" />
    <input type="hidden" name="active" value="" />
    <a href="javascript:makenewfolder(document.newfolder,'$folderseq');">$lt{'newf'}</a>$help{'Adding_Folders'}
    </form>
   NFFORM
   
    my $newsylform=(<<NSYLFORM);
    <form action="/adm/coursedocs" method="post" name="newsyl">
    <input type="hidden" name="active" value="ee" />
    $pathitem
    <input type="hidden" name="importdetail" 
    value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />
    <a class="LC_menubuttons_link" href="javascript:document.newsyl.submit()">$lt{'syll'}</a>
    $help{'Syllabus'}
   
    </form>
   NSYLFORM
   
    my $newgroupfileform=(<<NGFFORM);
    <form action="/adm/coursedocs" method="post" name="newgroupfiles">
    <input type="hidden" name="active" value="dd" />
    $pathitem
    <input type="hidden" name="importdetail"
    value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />
    <a class="LC_menubuttons_link" href="javascript:document.newgroupfiles.submit()">$lt{'grpo'}</a>
    $help{'Group Portfolio'}
    </form>
   NGFFORM
    @specialdocumentsforma=(
    {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/page.png" alt="'.$lt{newp}.'"  onclick="javascript:makenewpage(document.newpage,\''.$pageseq.'\');" />'=>$newpageform},
    {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/syllabus.png" alt="'.$lt{syll}.'" onclick="document.newsyl.submit()" />'=>$newsylform},
    {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/navigation.png" alt="'.$lt{navc}.'" onclick="document.newnav.submit()" />'=>$newnavform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simple.png" alt="'.$lt{sipa}.'" onclick="javascript:makesmppage();" />'=>$newsmppageform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/webpage.png" alt="'.$lt{webp}.'" onclick="javascript:makewebpage();" />'=>$newwebpageform},
           );
           $specialdocumentsform = &create_form_ul(&create_list_elements(@specialdocumentsforma));
   
   
           my @importdoc = (
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="toggleUpload(\'ext\');" />'=>$extresourcesform}
           );
           if (keys(%ltitools)) {
               push(@importdoc,
                   {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extt}.'" onclick="toggleUpload(\'tool\');" />'=>$exttoolform},
           );
           }
           unless ($container eq 'page') {
               push(@importdoc,
                   {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/ims.png" alt="'.$lt{imsf}.'" onclick="javascript:toggleUpload(\'ims\');" />'=>$imspform}
               );
           }
           push(@importdoc,
               {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/pdfupload.png" alt="'.$lt{upl}.'" onclick="javascript:toggleUpload(\'doc\');" />'=>$fileuploadform}
           );
           $fileuploadform =  &create_form_ul(&create_list_elements(@importdoc));
   
           @gradingforma=(
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{sipr}.'" onclick="javascript:makesmpproblem();" />'=>$newsmpproblemform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/dropbox.png" alt="'.$lt{drbx}.'" onclick="javascript:makedropbox();" />'=>$newdropboxform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/scoreupfrm.png" alt="'.$lt{scuf}.'" onclick="javascript:makeexamupload();" />'=>$newexuploadform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{stpr}.'" onclick="javascript:toggleCrsRes(\'res\','."'$numauthor','$numcrsdirs'".');" />'=>$crsresform},
           );
           $gradingform = &create_form_ul(&create_list_elements(@gradingforma));
   
           @communityforma=(
          {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/bchat.png" alt="'.$lt{bull}.'" onclick="javascript:makebulboard();" />'=>$newbulform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/myaboutme.png" alt="'.$lt{mypi}.'" onclick="javascript:makebulboard();" />'=>$newaboutmeform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/aboutme.png" alt="'.$lt{abou}.'" onclick="javascript:makeabout();" />'=>$newaboutsomeoneform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/clst.png" alt="'.$lt{rost}.'" onclick="document.newroster.submit()" />'=>$newrosterform},
           {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/groupportfolio.png" alt="'.$lt{grpo}.'" onclick="document.newgroupfiles.submit()" />'=>$newgroupfileform},
           );
           $communityform = &create_form_ul(&create_list_elements(@communityforma));
   
   my %orderhash = (
                   'aa' => ['Upload',$fileuploadform],
                   'bb' => ['Import',$importpubform],
                   'cc' => ['Grading',$gradingform],
                   );
   unless ($container eq 'page') {
       $orderhash{'00'} = ['Newfolder',$newfolderform];
       $orderhash{'dd'} = ['Collaboration',$communityform];
       $orderhash{'ee'} = ['Other',$specialdocumentsform];
   }
   
    $hadchanges=0;
          unless (($supplementalflag || $toolsflag)) {
             my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
                                 $supplementalflag,\%orderhash,$iconpath,$pathitem,\%ltitools);
             if ($error) {
                $r->print('<p><span class="LC_error">'.$error.'</span></p>');
             }
             if ($hadchanges) {
                &mark_hash_old();
             }
   
             &changewarning($r,'');
           }
       }
   
   # Supplemental documents start here
   
          my $folder=$env{'form.folder'};
          unless ($supplementalflag) {
      $folder='supplemental';
          }
          if ($folder =~ /^supplemental$/ &&
      (($env{'form.folderpath'} =~ /^default\&/) || ($env{'form.folderpath'} eq ''))) {
             $env{'form.folderpath'} = &supplemental_base();
          } elsif ($allowed) {
     $env{'form.folderpath'} = $savefolderpath;
          }
          $pathitem = '<input type="hidden" name="folderpath" value="'.
                       &HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
          if ($allowed) {
      my $folderseq=
          '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_new.sequence';
   
    my $supupdocform=(<<SUPDOCFORM);
           <a class="LC_menubuttons_link" href="javascript:toggleUpload('suppdoc');">
           $lt{'upfi'}</a> $help{'Uploading_From_Harddrive'}
    <form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">
           <fieldset id="uploadsuppdocform" style="display: none;">
           <legend>$lt{'upfi'}</legend>
    <input type="hidden" name="active" value="ee" />
    $fileupload
    <br />
    <br />
    <span class="LC_nobreak">
    $checkbox
    </span>
    <br /><br />
    $lt{'comment'}:<br />
    <textarea cols="50" rows="4" name="comment"></textarea>
    <br />
    $pathitem
    <input type="hidden" name="cmd" value="upload_supplemental" />
           <input type='submit' value="$lt{'upld'}" />
           </form>
   SUPDOCFORM
   
    my $supnewfolderform=(<<SNFFORM);
    <form action="/adm/coursedocs" method="post" name="supnewfolder">
    <input type="hidden" name="active" value="" />
           $pathitem
    <input type="hidden" name="importdetail" value="" />
    <a class="LC_menubuttons_link" href="javascript:makenewfolder(document.supnewfolder,'$folderseq');">$lt{'newf'}</a> 
    $help{'Adding_Folders'}
    </form>
   SNFFORM
   
           my $supextform =
               &Apache::lonextresedit::extedit_form(1,0,undef,undef,$pathitem,
                                                    $help{'Adding_External_Resource'});
   
           my $supexttoolform =
               &Apache::lonextresedit::extedit_form(1,0,undef,undef,$pathitem,
                                                    $help{'Adding_External_Tool'},
                                                    undef,undef,'tool',$coursedom,
                                                    $coursenum,\%ltitools);
   
    my $supnewsylform=(<<SNSFORM);
    <form action="/adm/coursedocs" method="post" name="supnewsyl">
    <input type="hidden" name="active" value="ff" />
           $pathitem
    <input type="hidden" name="importdetail" 
    value="Syllabus=/public/$coursedom/$coursenum/syllabus" />
    <a class="LC_menubuttons_link" href="javascript:document.supnewsyl.submit()">$lt{'syll'}</a>
    $help{'Syllabus'}
    </form>
   SNSFORM
   
    my $supnewaboutmeform=(<<SNAMFORM);
    <form action="/adm/coursedocs" method="post" name="supnewaboutme">
    <input type="hidden" name="active" value="ff" />
           $pathitem
    <input type="hidden" name="importdetail" 
    value="$plainname=/adm/$udom/$uname/aboutme" />
    <a class="LC_menubuttons_link" href="javascript:document.supnewaboutme.submit()">$lt{'mypi'}</a>
    $help{'My Personal Information Page'}
    </form>
   SNAMFORM
   
           my $supwebpage;
           if ($folder =~ /^supplemental_?(\d*)$/) {
               $supwebpage = "/uploaded/$coursedom/$coursenum/supplemental/";
               if ($1) {
                   $supwebpage .= $1;
               } else {
                   $supwebpage .= 'default';
               }
               $supwebpage .= '/new.html';
           }
           my $supwebpageform =(<<SWEBFORM);
           <form action="/adm/coursedocs" method="post" name="supwebpage">
           <input type="hidden" name="active" value="cc" />
           $pathitem
           <input type="hidden" name="importdetail" value="$supwebpage" />
           <a class="LC_menubuttons_link" href="javascript:makewebpage('supp');">$lt{'webp'}</a>
           $help{'Web_Page'}
           </form>
   SWEBFORM
   
   
   my @specialdocs = (
    {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/syllabus.png" alt="'.$lt{syll}.'" onclick="document.supnewsyl.submit()" />'
               =>$supnewsylform},
    {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/myaboutme.png" alt="'.$lt{mypi}.'" onclick="document.supnewaboutme.submit()" />'
               =>$supnewaboutmeform},
                   {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/webpage.png" alt="'.$lt{webp}.'" onclick="javascript:makewebpage('."'supp'".');" />'=>$supwebpageform},
   
    );
   my @supimportdoc = (
    {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="javascript:toggleUpload(\'suppext\')" />'
               =>$supextform});
           if (keys(%ltitools)) {
               push(@supimportdoc,
                   {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extt}.'" onclick="javascript:toggleUpload(\'supptool\')" />'
               =>$supexttoolform});
           }
           push(@supimportdoc, 
               {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/pdfupload.png" alt="'.$lt{upl}.'" onclick="javascript:toggleUpload(\'suppdoc\');" />'
               =>$supupdocform},
           );
   
   $supupdocform =  &create_form_ul(&create_list_elements(@supimportdoc));
   my %suporderhash = (
    '00' => ['Supnewfolder', $supnewfolderform],
                   'ee' => ['Upload',$supupdocform],
                   'ff' => ['Other',&create_form_ul(&create_list_elements(@specialdocs))]
                   );
           if ($supplementalflag) {
              my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
                                  $supplementalflag,\%suporderhash,$iconpath,$pathitem,\%ltitools);
              if ($error) {
                 $r->print('<p><span class="LC_error">'.$error.'</span></p>');
              } else {
                  if ($suppchanges) {
                      my %servers = &Apache::lonnet::internet_dom_servers($coursedom);
                      my @ids=&Apache::lonnet::current_machine_ids();
                      foreach my $server (keys(%servers)) {
                          next if (grep(/^\Q$server\E$/,@ids));
                          my $hashid=$coursenum.':'.$coursedom;
                          my $cachekey = &escape('suppcount').':'.&escape($hashid);
                          &Apache::lonnet::remote_devalidate_cache($server,[$cachekey]);
                      }
                      &Apache::lonnet::get_numsuppfiles($coursenum,$coursedom,1);
                      undef($suppchanges);
                  }  
              } 
           }
       } elsif ($supplementalflag) {
           my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
                               $supplementalflag,'',$iconpath,$pathitem);
           if ($error) {
               $r->print('<p><span class="LC_error">'.$error.'</span></p>');
           }
       }
   
       if ($needs_end) {
           $r->print(&endContentScreen());
       }
   
       if ($allowed) {
    $r->print('
   <form method="post" name="extimport" action="/adm/coursedocs">
     <input type="hidden" name="title" />
     <input type="hidden" name="url" />
     <input type="hidden" name="useform" />
     <input type="hidden" name="residx" />
   </form>');
       }
     } elsif ($showdoc) {
   # -------------------------------------------------------- This is showdoc mode
         $r->print("<h1>".&mt('Uploaded Document').' - '.
    &Apache::lonnet::gettitle($r->uri).'</h1><p class="LC_warning">'.
   &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>');
     }
    }
    unless ($noendpage) { 
        $r->print(&Apache::loncommon::end_page());
    }
    return OK;
   }
   
   sub embedded_form_elems {
       my ($phase,$primaryurl,$newidx) = @_;
       my $folderpath = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
       return <<STATE;
       <input type="hidden" name="folderpath" value="$folderpath" />
       <input type="hidden" name="cmd" value="upload_embedded" />
       <input type="hidden" name="newidx" value="$newidx" />
       <input type="hidden" name="phase" value="$phase" />
       <input type="hidden" name="primaryurl" value="$primaryurl" />
   STATE
   }
   
   sub embedded_destination {
       my $folder=$env{'form.folder'};
       my $destination = 'docs/';
       if ($folder =~ /^supplemental/) {
           $destination = 'supplemental/';
       }
       if (($folder eq 'default') || ($folder eq 'supplemental')) {
           $destination .= 'default/';
       } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {
           $destination .=  $2.'/';
       }
       $destination .= $env{'form.newidx'};
       my $dir_root = '/userfiles';
       return ($destination,$dir_root);
   }
   
   sub return_to_editor {
       my $actionurl = '/adm/coursedocs';
       return '<p><form name="backtoeditor" method="post" action="'.$actionurl.'" />'."\n". 
              '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" /></form>'."\n".
              '<a href="javascript:document.backtoeditor.submit();">'.&mt('Return to Editor').
              '</a></p>';
   }
   
   sub decompression_info {
       my ($destination,$dir_root) = &embedded_destination();
       my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
       my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
       my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
       my $container='sequence';
       my ($pathitem,$hiddenelem);
       my @hiddens = ('newidx','comment','position','folderpath','archiveurl');
       if ($env{'form.folderpath'} =~ /\:1$/) {
           $container='page';
       }
       unshift(@hiddens,$pathitem);
       foreach my $item (@hiddens) {
           if ($env{'form.'.$item}) {
               $hiddenelem .= '<input type="hidden" name="'.$item.'" value="'.
                              &HTML::Entities::encode($env{'form.'.$item},'<>&"').'" />'."\n";
           }
       }
       return ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,
               $hiddenelem);
   }
   
   sub decompression_phase_one {
       my ($dir,$file,$warning,$error,$output);
       my ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,$hiddenelem)=
           &decompression_info();
       if ($env{'form.archiveurl'} !~ m{^/uploaded/\Q$docudom/$docuname/\E(?:docs|supplemental)/(?:default|\d+).*/([^/]+)$}) {
           $error = &mt('Archive file "[_1]" not in the expected location.',$env{'form.archiveurl'});
       } else {
           my $file = $1;
           $output = 
               &Apache::loncommon::process_decompression($docudom,$docuname,$file,
                                                         $destination,$dir_root,
                                                         $hiddenelem);
           if ($env{'form.autoextract_camtasia'}) {
               $output .= &remove_archive($docudom,$docuname,$container);
           }
       }
       if ($error) {
           $output .= '<p class="LC_error">'.&mt('Not extracted.').'<br />'.
                      $error.'</p>'."\n";
       }
       if ($warning) {
           $output .= '<p class="LC_warning">'.$warning.'</p>'."\n";
       }
       return $output;
   }
   
   sub decompression_phase_two {
       my ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,$hiddenelem)=
           &decompression_info();
       my $output;
       if ($env{'form.archivedelete'}) {
           $output = &remove_archive($docudom,$docuname,$container);
       }
       $output .= 
           &Apache::loncommon::process_extracted_files('coursedocs',$docudom,$docuname,
                                                       $destination,$dir_root,$hiddenelem);
       return $output;
   }
   
   sub remove_archive {
       my ($docudom,$docuname,$container) = @_;
       my $map = $env{'form.folder'}.'.'.$container;
       my ($output,$delwarning,$delresult,$url);
       my ($errtext,$fatal) = &mapread($docuname,$docudom,$map);
       if ($fatal) {
           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'};
           my $position = $env{'form.position'};
           my $archiveidx = $position;
           if ($position > 0) {
               if (($env{'form.autoextract_camtasia'}) && (scalar(@LONCAPA::map::order) == 2)) {
                   $archiveidx = $position-1;
               }
               $env{'form.cmd'} = 'remove_'.$archiveidx;
               my ($title,$url,@rrest) =
                   split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$archiveidx]]);
               if ($url eq $env{'form.archiveurl'}) {
                   if (&handle_edit_cmd($docuname,$docudom)) {
                       ($errtext,$fatal) = &storemap($docuname,$docudom,$map,1);
                       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.');
                           }
                       } else {
                           $delresult = &mt('Archive file removed.');
                       }
                   }
               } else {
                   $delwarning .=  &mt('Archive file had unexpected item number in folder.').
                                   ' '.&mt('As a result the archive file has not been removed.');
               }
           }
           $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= ( # do not translate here
                                            'vc'   => 'Verify Content',
                                            'cv'   => 'Check/Set Resource Versions',
                                            'ls'   => 'List Resource Identifiers',
                                            'imse' => 'Export contents to IMS Archive',
                                            'dcd'  => "Copy $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       => 'Docs_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       => 'Docs_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       => 'Docs_Dump_Course_Docs',
                       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 {
       my ($tid,$orderhash_ref,$to_show,$iconpath,$jumpto,$readfile,
           $need_save,$copyfolder) = @_;
       return unless(ref($orderhash_ref) eq 'HASH');
       my %orderhash = %{$orderhash_ref};
       my $form;
       my $activetab;
       my $active;
       if (($env{'form.active'} ne '') && ($env{'form.active'} ne '00')) {
           $activetab = $env{'form.active'};
       }
       my $backicon = $iconpath.'clickhere.gif';
       my $backtext = &mt('Exit Editor');
       $form = '<div class="LC_Box" style="margin:0;">'.
               '<ul id="navigation'.$tid.'" class="LC_TabContent">'."\n".
               '<li class="goback">'.
               '<a href="javascript:toContents('."'$jumpto'".');">'.
               '<img src="'.$backicon.'" class="LC_icon" style="border: none; vertical-align: top;"'.
               '  alt="'.$backtext.'" />'.$backtext.'</a></li>'."\n".
               '<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)))) {
           if($name ne '00'){
               if($activetab eq '' || $activetab ne $name){
                  $active = '';
               }elsif($activetab eq $name){
                  $active = 'class="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";
           } else {
       $form .= '<li style="float:right">'.${$orderhash{$name}}[1].'</li>'."\n";
   
    }
       }
       $form .= '</ul>'."\n";
       $form .= '<div id="content'.$tid.'" style="padding: 0 0; margin: 0 0; overflow: hidden; clear:right">'."\n";
   
       if ($to_show ne '') {
           my $saveform;
           if ($need_save) {
               my $button = &mt('Make changes');
               my $path;
               if ($env{'form.folderpath'}) {
                   $path =
                       &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
               }
               $saveform = <<"END";
   <div id="multisave" style="display:none; clear:both;" >
   <form name="saveactions" method="post" action="/adm/coursedocs" onsubmit="return checkSubmits();">
   <input type="hidden" name="folderpath" value="$path" />
   <input type="hidden" name="symb" value="$env{'form.symb'}" />
   <input type="hidden" name="allhiddenresource" value="" />
   <input type="hidden" name="allencrypturl" value="" />
   <input type="hidden" name="allrandompick" value="" />
   <input type="hidden" name="allrandomorder" value="" />
   <input type="hidden" name="changeparms" value="" />
   <input type="hidden" name="multiremove" value="" />
   <input type="hidden" name="multicut" value="" />
   <input type="hidden" name="multicopy" value="" />
   <input type="hidden" name="multichange" value="" />
   <input type="hidden" name="copyfolder" value="$copyfolder" />
   <input type="submit" name="savemultiples" value="$button" />
   </form>
   </div>
   END
           }
           $form .= '<div style="padding:0;margin:0;float:left">'.$to_show.'</div>'.$saveform."\n";
       }
       foreach my $field (keys(%orderhash)){
    if($field ne '00'){
               if($activetab eq '' || $activetab ne $field){
                   $active = 'style="display: none;float:left"';
               }elsif($activetab eq $field){
                   $active = 'style="display:block;float:left"';
               }
               $form .= '<div id="'.$field.$tid.'"'
                       .' class="LC_ContentBox" '.$active.'>'.${$orderhash{$field}}[1]
                       .'</div>'."\n";
           }
       }
       unless ($env{'form.docslog'}) {
           $form .= '</div></div>'."\n";
       }
       return $form;
   }
   
   sub editing_js {
       my ($udom,$uname,$supplementalflag,$coursedom,$coursenum,$posslti,$londocroot) = @_;
       my %js_lt = &Apache::lonlocal::texthash(
                                             p_mnf => 'Name of New Folder',
                                             t_mnf => 'New Folder',
                                             p_mnp => 'Name of New Page',
                                             t_mnp => 'New Page',
                                             p_mxu => 'Title for the External Score',
                                             p_msp => 'Name of Simple Course Page',
                                             p_msb => 'Title for the Problem',
                                             p_mdb => 'Title for the Drop Box',
                                             p_mbb => 'Title for the Discussion Board',
                                             p_mwp => 'Title for Web Page',
                                             p_mnr => 'Title for the Resource',
                                             p_mab => "Enter user:domain for User's Personal Information Page",
                                             p_mab2 => 'Personal Information Page of ',
                                             p_mab_alrt1 => 'Not a valid user:domain',
                                             p_mab_alrt2 => 'Please enter both user and domain in the format user:domain',
                                             p_chn => 'New Title',
                                             p_rmr1 => 'WARNING: Removing a resource makes associated grades and scores inaccessible!',
                                             p_rmr2a => 'Remove',
                                             p_rmr2b => '?',
                                             p_rmr3a => 'Remove those',
                                             p_rmr3b => 'items?',
                                             p_rmr4  => 'WARNING: Removing a resource uploaded to a course cannot be undone via "Undo Delete".',
                                             p_rmr5  => 'Push "Cancel" and then use "Cut" instead if you might need to undo this change.',
                                             p_ctr1a => 'WARNING: Cutting a resource makes associated grades and scores inaccessible!',
                                             p_ctr1b => 'Grades remain inaccessible if resource is pasted into another folder.',
                                             p_ctr2a => 'Cut',
                                             p_ctr2b => '?',
                                             p_ctr3a => 'Cut those',
                                             p_ctr3b => 'items?',
                                             rpck    => 'Enter number to pick (e.g., 3)',
                                             imsfile => 'You must choose an IMS package for import',
                                             imscms  => 'You must select which Course Management System was the source of the IMS package',
                                             invurl  => 'Invalid URL',
                                             titbl   => 'Title is blank',
                                             more    => '(More ...)',
                                             less    => '(Less ...)',
                                             noor    => 'No actions selected or changes to settings specified.',
                                             noch    => 'No changes to settings specified.',
                                             noac    => 'No actions selected.',
                                             nofi    => 'No file selected',
                                             tinc    => 'Title in course',
                                             sunm    => 'Sub-directory name',
                                           );
       &js_escape(\%js_lt);
       my $crstype = &Apache::loncommon::course_type();
       my $docs_folderpath = &HTML::Entities::encode($env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.folderpath'},'<>&"');
       my $main_container_page;
       if (&HTML::Entities::decode($env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.folderpath'}) =~ /\:1$/) {
           $main_container_page = 1;
       }
       my $toplevelmain = 
           &escape(&mt('Main Content').':::::');
       my $toplevelsupp = &supplemental_base();
   
       my $backtourl;
       if ($env{'docs.exit.'.$env{'request.course.id'}} =~ /^direct_(.+)$/) {
           my $caller = $1;
           if ($caller =~ /^supplemental/) {
               $backtourl = '/adm/supplemental?folderpath='.&escape($caller);
           } else {
               my ($map,$id,$res)=&Apache::lonnet::decode_symb($caller);
               $res = &Apache::lonnet::clutter($res);
               if (&Apache::lonnet::is_on_map($res)) {
                   $backtourl = &HTML::Entities::encode(&Apache::lonnet::clutter($res),'<>&"').'?symb='.
                                &HTML::Entities::encode($caller,'<>&"');
                   $backtourl = &Apache::loncommon::escape_single($backtourl);
               } else {
                   $backtourl = '/adm/navmaps';
               }
           }
       } elsif ($env{'docs.exit.'.$env{'request.course.id'}} eq '/adm/menu') {
           $backtourl = '/adm/menu';
       } elsif ($supplementalflag) {
           $backtourl = '/adm/supplemental';
       } else {
           $backtourl = '/adm/navmaps';
       }
   
       my $fieldsets = "'ext','doc'";
       if ($posslti) {
           $fieldsets .= ",'tool'";
       }
       unless ($main_container_page) {
           $fieldsets .=",'ims'";
       }
       if ($supplementalflag) {
           $fieldsets = "'suppext','suppdoc'";
           if ($posslti) {
               $fieldsets .= ",'supptool'";
           }
       }
   
       return <<ENDNEWSCRIPT;
   function makenewfolder(targetform,folderseq) {
       var foldername=prompt('$js_lt{"p_mnf"}','$js_lt{"t_mnf"}');
       if (foldername) {
          targetform.importdetail.value=escape(foldername)+"="+folderseq;
           targetform.submit();
       }
   }
   
   function makenewpage(targetform,folderseq) {
       var pagename=prompt('$js_lt{"p_mnp"}','$js_lt{"t_mnp"}');
       if (pagename) {
           targetform.importdetail.value=escape(pagename)+"="+folderseq;
           targetform.submit();
       }
   }
   
   function makeexamupload() {
      var title=prompt('$js_lt{"p_mxu"}');
      if (title) {
       this.document.forms.newexamupload.importdetail.value=
    escape(title)+'=/res/lib/templates/examupload.problem';
       this.document.forms.newexamupload.submit();
      }
   }
   
   function makesmppage() {
      var title=prompt('$js_lt{"p_msp"}');
      if (title) {
       this.document.forms.newsmppg.importdetail.value=
    escape(title)+'=/adm/$udom/$uname/new/smppg';
       this.document.forms.newsmppg.submit();
      }
   }
   
   function makewebpage(type) {
      var title=prompt('$js_lt{"p_mwp"}');
      var formname;
      if (type == 'supp') {
          formname = this.document.forms.supwebpage;
      } else {
          formname = this.document.forms.newwebpage;
      }
      if (title) {
          var webpage = formname.importdetail.value; 
          formname.importdetail.value = escape(title)+'='+webpage;
          formname.submit();
      }
   }
   
   function makesmpproblem() {
      var title=prompt('$js_lt{"p_msb"}');
      if (title) {
       this.document.forms.newsmpproblem.importdetail.value=
    escape(title)+'=/res/lib/templates/simpleproblem.problem';
       this.document.forms.newsmpproblem.submit();
      }
   }
   
   function makedropbox() {
      var title=prompt('$js_lt{"p_mdb"}');
      if (title) {
       this.document.forms.newdropbox.importdetail.value=
           escape(title)+'=/res/lib/templates/DropBox.problem';
       this.document.forms.newdropbox.submit();
      }
   }
   
   function makebulboard() {
      var title=prompt('$js_lt{"p_mbb"}');
      if (title) {
       this.document.forms.newbul.importdetail.value=
    escape(title)+'=/adm/$udom/$uname/new/bulletinboard';
       this.document.forms.newbul.submit();
      }
   }
   
   function makeabout() {
      var user=prompt("$js_lt{'p_mab'}");
      if (user) {
          var comp=new Array();
          comp=user.split(':');
          if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) {
      if ((comp[0]) && (comp[1])) {
          this.document.forms.newaboutsomeone.importdetail.value=
      '$js_lt{"p_mab2"}'+escape(user)+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';
          this.document.forms.newaboutsomeone.submit();
      } else {
          alert("$js_lt{'p_mab_alrt1'}");
      }
   } else {
      alert("$js_lt{'p_mab_alrt2'}");
   }
   }
   }
   
   function toggleUpload(caller) {
       var blocks = Array($fieldsets);
       for (var i=0; i<blocks.length; i++) {
           var disp = 'none';
           if (caller == blocks[i]) {
               var curr = document.getElementById('upload'+caller+'form').style.display;
               if (curr == 'none') {
                   disp='block';
               }
           }
           document.getElementById('upload'+blocks[i]+'form').style.display=disp;
           if ((caller == 'tool') || (caller == 'supptool')) {
               if (disp == 'block') {
                   if (document.getElementById('LC_exttoolid')) { 
                       var toolselector = document.getElementById('LC_exttoolid'); 
                       var suppflag = 0;
                       if (caller == 'supptool') {
                           suppflag = 1;
                       }
                       currForm = document.getElementById('new'+caller);
                       updateExttool(toolselector,currForm,suppflag); 
                   }
               }
           }
       }
       resize_scrollbox('contentscroll','1','1');
       return;
   }
   
   function toggleMap(caller) {
       var disp = 'none';
       if (document.getElementById('importmapform')) {
           if (caller == 'map') {
               var curr = document.getElementById('importmapform').style.display;
               if (curr == 'none') {
                   disp='block';
               }
           }
           document.getElementById('importmapform').style.display=disp;
           resize_scrollbox('contentscroll','1','1');
       }
       return;
   }
   
   function toggleCrsRes(caller,numauthorrole,numcrsdirs) {
       var disp = 'none';
       if (document.getElementById('crsresform')) {
           if (caller == 'res') {
               var curr = document.getElementById('crsresform').style.display;
               if (curr == 'none') {
                   disp='block';
                   numauthor = parseInt(numauthorrole);
                   if (numauthor > 0) {
                       document.courseresform.authorrole.selectedIndex = 0;
                       select1priv_changed();
                       document.courseresform.authorpath.selectedIndex = 0;
                       document.courseresform.newresourceadd.selectedIndex = 0;
                       toggleNewInCourse(document.courseresform);
                       if (document.getElementById('newresource')) {
                           document.getElementById('newresource').style.display = 'none';
                       }
                   } else {
                       if (numcrsdirs) {
                           document.courseresform.authorpath.selectedIndex = 0;
                       }
                   }
                   if (document.courseresform.newresusetemp.length) {
                       document.courseresform.newresusetemp[0].checked = true;
                       toggleWithTemplate(document.courseresform);
                   }
                   document.courseresform.newresourcename.value = ''; 
               }
           }
           if (document.courseresform.newsubdir.length) {
               for (var j=0; j<document.courseresform.newsubdir.length; j++) {
                   if (document.courseresform.newsubdir[j].value == 0) {
                       document.courseresform.newsubdir[j].checked = true;
                   }
                   break;
               }
               if (document.getElementById('newsubdirname')) {
                   document.getElementById('newsubdirname').type = "hidden";
                   document.getElementById('newsubdirname').value = "";
               }
               if (document.getElementById('newsubdir')) {
                   document.getElementById('newsubdir').innerHTML = "";
               }
           }
           document.getElementById('crsresform').style.display=disp;
           resize_scrollbox('contentscroll','1','0');
       }
       return;
   }
   
   function toggleNewsubdir(form) {
       if (form.newsubdir.length) {
           for (var j=0; j<form.newsubdir.length; j++) {
               if (form.newsubdir[j].checked) {
                   if (document.getElementById('newsubdirname')) {
                       if (form.newsubdir[j].value == '1') {
                           document.getElementById('newsubdirname').type = "text"; 
                           if (document.getElementById('newsubdir')) {
                               document.getElementById('newsubdir').innerHTML = '<br />$js_lt{'sunm'}';
                           }
                       } else {
                           document.getElementById('newsubdirname').type = "hidden";
                           document.getElementById('newsubdirname').value = "";
                           document.getElementById('newsubdir').innerHTML = "";
                       }
                   }
                   break;
               }
           }
       }
   }
   
   function toggleCrsResTitle() {
       if (document.getElementById('newresource')) {
           if (document.courseresform.authorrole.options[document.courseresform.authorrole.selectedIndex].value == 'course') {
               document.getElementById('newresource').style.display = 'inline';
               document.courseresform.newresourceadd[0].checked = true;
               toggleNewInCourse(document.courseresform);
           } else {
               document.getElementById('newresource').style.display = 'none';
           }
       } 
   }
   
   function toggleNewInCourse(form) {
       if (form.newresourceadd.length) {
           for (var i=0; i<form.newresourceadd.length; i++) {
               if (form.newresourceadd[i].checked) {
                   if (document.getElementById('newresourcetitle')) {
                       if (form.newresourceadd[i].value == '1') {
                           document.getElementById('newresourcetitle').type = 'text';
                           if (document.getElementById('newrestitle')) {
                               document.getElementById('newrestitle').innerHTML = "<br />$js_lt{'tinc'}";
                           }
                       } else {
                           document.getElementById('newresourcetitle').type = 'hidden';
                           document.getElementById('newresourcetitle').value = '';
                           if (document.getElementById('newrestitle')) { 
                               document.getElementById('newrestitle').innerHTML = '';
                           }
                       }
                   }
                   break;
               }
           }
       }
   }
   
   function toggleWithTemplate(form) {
       if (form.newresusetemp.length) {
           for (var i=0; i<form.newresusetemp.length; i++) {
               if (form.newresusetemp[i].checked) {
                   if (document.getElementById('newrestemplate')) { 
                       if (form.newresusetemp[i].value == '1') {
                           document.getElementById('newrestemplate').style.display = 'inline';
                           toggleExampleText();
                       } else {
                           form.tempcategory.selectedIndex = 0;
                           select1template_changed();
                           document.getElementById('newrestemplate').style.display = 'none';
                       }
                   }
               }
           }
       }
   }
   
   function toggleExampleText() {
       if (document.getElementById('newresexample')) {
           var url = document.courseresform.template.options[document.courseresform.template.selectedIndex].value;
           if (url == '') {
               document.getElementById('newresexample').style.fontWeight = 'normal';
           } else {
               document.getElementById('newresexample').style.fontWeight = 'bold';
           }
       }
   }
   
   function getExample(width,height,scrolling,transparency) {
       var url;
       if (document.courseresform.newresusetemp.length) {
           for (var i=0; i<document.courseresform.newresusetemp.length; i++) {
               if (document.courseresform.newresusetemp[i].checked) {
                   if (document.courseresform.newresusetemp[i].value == '1') {
                       var url = document.courseresform.template.options[document.courseresform.template.selectedIndex].value;
                       if (url == '') {
                           alert('Pick a category and template');
                       } else {
                           url = url.replace("$londocroot",""); 
                           url += '?inhibitmenu=yes';
                       }
                   }
                   break;
               }
           }
       }
       if (url != '') {
           openMyModal(url,width,height,scrolling,transparency,'');
       }
   }
   
   function toggleImportCrsres(caller,dircount) {
       var disp = 'none';
       if (document.getElementById('importcrsresform')) {
           if (caller == 'res') {
               var numdirs = parseInt(dircount);
               var curr = document.getElementById('importcrsresform').style.display;
               if (curr == 'none') {
                   disp='block';
                   if (numdirs > 1) {
                       select1res_changed();
                   }
               }
           }
           document.getElementById('importcrsresform').style.display=disp;
           resize_scrollbox('contentscroll','1','0');
       }
       return;
   }
   
   function makeims(imsform) {
       if ((imsform.uploaddoc.value == '')  || (!imsform.uploaddoc.value)) {
           alert("$js_lt{'imsfile'}");
           return;
       }
       if (imsform.source.selectedIndex == 0) {
           alert("$js_lt{'imscms'}");
           return;
       }
       newWindow = window.open('', 'IMSimport',"HEIGHT=700,WIDTH=750,scrollbars=yes");
       imsform.submit();
   }
   
   function changename(folderpath,index,oldtitle) {
   var title=prompt('$js_lt{"p_chn"}',oldtitle);
   if (title) {
   this.document.forms.renameform.markcopy.value='';
   this.document.forms.renameform.title.value=title;
   this.document.forms.renameform.cmd.value='rename_'+index;
   this.document.forms.renameform.folderpath.value=folderpath;
   this.document.forms.renameform.submit();
   }
   }
   
   function updatePick(targetform,index,caller) {
       var pickitem;
       var picknumitem;
       var picknumtext;
       if (index == 'all') {
           pickitem = document.getElementById('randompickall');
           picknumitem = document.getElementById('rpicknumall');
           picknumtext = document.getElementById('rpicktextall');
       } else {
           pickitem = document.getElementById('randompick_'+index);
           picknumitem = document.getElementById('rpicknum_'+index);
           picknumtext = document.getElementById('randompicknum_'+index);
       }
       if (pickitem.checked) {
           var picknum=prompt('$js_lt{"rpck"}',picknumitem.value);
           if (picknum == '' || picknum == null) {
               if (caller == 'check') {
                   pickitem.checked=false;
                   if (index == 'all') {
                       picknumtext.innerHTML = '';
                       if (caller == 'link') {
                           propagateState(targetform,'rpicknum');
                       }
                   } else {
                       checkForSubmit(targetform,'randompick','settings');
                   }
               }
           } else {
               picknum.toString();
               var regexdigit=/^\\d+\$/;
               if (regexdigit.test(picknum)) {
                   picknumitem.value = picknum;
                   if (index == 'all') {
                       picknumtext.innerHTML = '&nbsp;<a href="javascript:updatePick(document.cumulativesettings,\\'all\\',\\'link\\');">'+picknum+'</a>';
                       if (caller == 'link') {
                           propagateState(targetform,'rpicknum');
                       }
                   } else {
                       picknumtext.innerHTML = '&nbsp;<a href="javascript:updatePick(document.edit_randompick_'+index+',\\''+index+'\\',\\'link\\');">'+picknum+'</a>';
                       checkForSubmit(targetform,'randompick','settings');
                   }
               } else {
                   if (caller == 'check') {
                       if (index == 'all') {
                           picknumtext.innerHTML = '';
                           if (caller == 'link') {
                               propagateState(targetform,'rpicknum');
                           }
                       } else {
                           pickitem.checked=false;
                           checkForSubmit(targetform,'randompick','settings');
                       }
                   }
                   return;
               }
           }
       } else {
           picknumitem.value = '';
           picknumtext.innerHTML = '';
           if (index == 'all') {
               if (caller == 'link') {
                   propagateState(targetform,'rpicknum');
               }
           } else {
               checkForSubmit(targetform,'randompick','settings');
           }
       }
   }
   
   function propagateState(form,param) {
       if (document.getElementById(param+'all')) {
           var setcheck = 0;
           var rpick = 0;
           if (param == 'rpicknum') {
               if (document.getElementById('randompickall')) {
                   if (document.getElementById('randompickall').checked) {
                       if (document.getElementById('rpicknumall')) {
                           rpick = document.getElementById('rpicknumall').value;
                       }
                   }
               }
           } else {
               if (document.getElementById(param+'all').checked) {
                   setcheck = 1;
               }
           }
           var allidxlist;
           if ((param == 'remove') || (param == 'cut') || (param == 'copy')) {
               if (document.getElementById('all'+param+'idx')) {
                   allidxlist = document.getElementById('all'+param+'idx').value;
               }
               var actions = new Array ('remove','cut','copy');
               for (var i=0; i<actions.length; i++) {
                   if (actions[i] != param) {
                       if (document.getElementById(actions[i]+'all')) {
                           document.getElementById(actions[i]+'all').checked = false; 
                       }
                   }
               }
           }
           if ((param == 'encrypturl') || (param == 'hiddenresource')) {
               allidxlist = form.allidx.value;
           }
           if ((param == 'randompick') || (param == 'rpicknum') || (param == 'randomorder')) {
               allidxlist = form.allmapidx.value;
           }
           if ((allidxlist != '') && (allidxlist != null)) {
               var allidxs = allidxlist.split(',');
               if (allidxs.length > 1) {
                   for (var i=0; i<allidxs.length; i++) {
                       if (document.getElementById(param+'_'+allidxs[i])) {
                           if (param == 'rpicknum') {
                               if (document.getElementById('randompick_'+allidxs[i])) {
                                   if (document.getElementById('randompick_'+allidxs[i]).checked) {
                                       document.getElementById(param+'_'+allidxs[i]).value = rpick;
                                       if (rpick > 0) {
                                           document.getElementById('randompicknum_'+allidxs[i]).innerHTML = ':&nbsp;<a href="javascript:updatePick(document.edit_randompick_'+allidxs[i]+',\\''+allidxs[i]+'\\',\\'link\\')">'+rpick+'</a>';
                                       } else {
                                           document.getElementById('randompicknum_'+allidxs[i]).innerHTML =  '';
                                       }
                                   }
                               }
                           } else {
                               if (setcheck == 1) {
                                   document.getElementById(param+'_'+allidxs[i]).checked = true;
                               } else {
                                   document.getElementById(param+'_'+allidxs[i]).checked = false;
                                   if (param == 'randompick') {
                                       document.getElementById('randompicknum_'+allidxs[i]).innerHTML =  '';
                                   }
                               }
                           }
                       }
                   }
                   if (setcheck == 1) {
                       if ((param == 'remove') || (param == 'cut') || (param == 'copy')) {
                           var actions = new Array('copy','cut','remove');
                           for (var i=0; i<actions.length; i++) {
                               var otheractions;
                               var otheridxs;
                               if (actions[i] === param) {
                                   continue;
                               } else {
                                   if (document.getElementById('all'+actions[i]+'idx')) {
                                       otheractions = document.getElementById('all'+actions[i]+'idx').value;
                                       otheridxs = otheractions.split(',');
                                       if (otheridxs.length > 1) {
                                           for (var j=0; j<otheridxs.length; j++) {
                                               if (document.getElementById(actions[i]+'_'+otheridxs[j])) {
                                                   document.getElementById(actions[i]+'_'+otheridxs[j]).checked = false;
                                               }
                                           }
                                       }
                                   }
                               }
                           } 
                       }
                   }
               }
           }
       }
       return;
   }
   
   function checkForSubmit(targetform,param,context,idx,folderpath,index,oldtitle,skip_confirm,container,folder,confirm_removal) {
       var dosettings;
       var doaction;
       var control = document.togglemultsettings;
       if (context == 'actions') {
           control = document.togglemultactions;
           doaction = 1; 
       } else {
           dosettings = 1;
       }
       if (control) {
           if (control.showmultpick.length) {
               for (var i=0; i<control.showmultpick.length; i++) {
                   if (control.showmultpick[i].checked) {
                       if (control.showmultpick[i].value == 1) {
                           if (context == 'settings') {
                               dosettings = 0;
                           } else {
                               doaction = 0;
                           }
                       }
                   }
               }
           }
       }
       if (context == 'settings') {
           if (dosettings == 1) {
               targetform.changeparms.value=param;
               targetform.submit();
           }
       }
       if (context == 'actions') {
           if (doaction == 1) {
               targetform.cmd.value=param+'_'+index;
               targetform.folderpath.value=folderpath;
               targetform.markcopy.value=idx+':'+param;
               targetform.copyfolder.value=folder+'.'+container;
               if (param == 'remove') {
                   var doremove = 0;
                   if (skip_confirm) {
                       if (confirm_removal) {
                           if (confirm('$js_lt{"p_rmr4"}\\n$js_lt{"p_rmr5"}\\n\\n$js_lt{"p_rmr2a"} "'+oldtitle+'"$js_lt{"p_rmr2b"}')) {
                               doremove = 1;
                           }
                       } else {
                           doremove = 1;
                       }
                   } else {
                       if (confirm('$js_lt{"p_rmr1"}\\n\\n$js_lt{"p_rmr2a"} "'+oldtitle+'" $js_lt{"p_rmr2b"}')) {
                           doremove = 1;
                       }
                   }
                   if (doremove) {
                       targetform.markcopy.value='';
                       targetform.copyfolder.value='';
                       targetform.submit();
                   }
               }
               if (param == 'cut') {
                   if (skip_confirm || confirm('$js_lt{"p_ctr1a"}\\n$js_lt{"p_ctr1b"}\\n\\n$js_lt{"p_ctr2a"} "'+oldtitle+'" $js_lt{"p_ctr2b"}')) {
                       targetform.submit();
                       return;
                   }
               }
               if (param == 'copy') {
                   targetform.submit();
                   return;
               }
               targetform.markcopy.value='';
               targetform.copyfolder.value='';
               targetform.cmd.value='';
               targetform.folderpath.value='';
               return;
           } else {
               if (document.getElementById(param+'_'+idx)) {
                   item = document.getElementById(param+'_'+idx);
                   if (item.type == 'checkbox') {
                       if (item.checked) {
                           item.checked = false;
                       } else {
                           item.checked = true;
                           singleCheck(item,idx,param);
                       }
                   }
               }
           }
       }
       return;
   }
   
   function singleCheck(caller,idx,action) {
       actions = new Array('cut','copy','remove');
       if (caller.checked) {
           for (var i=0; i<actions.length; i++) {
               if (actions[i] != action) {
                   if (document.getElementById(actions[i]+'_'+idx)) {
                       if (document.getElementById(actions[i]+'_'+idx).checked) {
                           document.getElementById(actions[i]+'_'+idx).checked = false;
                       }
                   }
               }
           }
       }
       return;
   }
   
   function unselectInactive(nav) {
   currentNav = document.getElementById(nav);
   currentLis = currentNav.getElementsByTagName('LI');
   for (i = 0; i < currentLis.length; i++) {
           if (currentLis[i].className == 'goback') {
               currentLis[i].className = 'goback';
           } else {
       if (currentLis[i].className == 'right active' || currentLis[i].className == 'right') {
    currentLis[i].className = 'right';
       } else {
    currentLis[i].className = 'i';
       }
           }
   }
   }
   
   function hideAll(current, nav, data) {
   unselectInactive(nav);
   if (current) { 
       if (current.className == 'right'){
           current.className = 'right active'
       } else {
           current.className = 'active';
       }
   }
   currentData = document.getElementById(data);
   currentDivs = currentData.getElementsByTagName('DIV');
   for (i = 0; i < currentDivs.length; i++) {
    if(currentDivs[i].className == 'LC_ContentBox'){
    currentDivs[i].style.display = 'none';
    }
   }
   }
   
   function openTabs(pageId) {
    tabnav = document.getElementById(pageId).getElementsByTagName('UL');
    if(tabnav.length > 2 ){
    currentNav = document.getElementById(tabnav[1].id);
    currentLis = currentNav.getElementsByTagName('LI');
    for(i = 0; i< currentLis.length; i++){
    if(currentLis[i].className == 'active') {
    funcString = currentLis[i].onclick.toString();
    tab = funcString.split('"');
                                   if(tab.length < 2) {
                                      tab = funcString.split("'");
                                   }
    currentData = document.getElementById(tab[1]);
           currentData.style.display = 'block';
    }
    }
    }
   }
   
   function showPage(current, pageId, nav, data) {
           currstate = current.className;
    hideAll(current, nav, data);
    openTabs(pageId);
    unselectInactive(nav);
           if ((currstate == 'active') || (currstate == 'right active')) {
               if (currstate == 'active') {
           current.className = '';
               } else {
                   current.className = 'right';
               }
               activeTab = ''; 
               toggleUpload();
               toggleMap();
               toggleCrsRes();
               toggleImportCrsres();
               resize_scrollbox('contentscroll','1','0');
               return;
           } else {
               current.className = 'active';
           }
    currentData = document.getElementById(pageId);
    currentData.style.display = 'block';
           activeTab = pageId;
           toggleUpload();
           toggleMap();
           toggleCrsRes();
           toggleImportCrsres();
           if (nav == 'mainnav') {
               var storedpath = "$docs_folderpath";
               var storedpage = "$main_container_page";
               var reg = new RegExp("^supplemental");
               if (pageId == 'mainCourseDocuments') {
                   if (storedpage == 1) {
                       document.simpleedit.folderpath.value = '';
                       document.uploaddocument.folderpath.value = '';
                   } else {
                       if (reg.test(storedpath)) {
                           document.simpleedit.folderpath.value = '$toplevelmain';
                           document.uploaddocument.folderpath.value = '$toplevelmain';
                           document.newext.folderpath.value = '$toplevelmain';
                       } else {
                           document.simpleedit.folderpath.value = storedpath;
                           document.uploaddocument.folderpath.value = storedpath;
                           document.newext.folderpath.value = storedpath;
                       }
                   }
               } else {
                   if (reg.test(storedpath)) {
                       document.simpleedit.folderpath.value = storedpath;
                       document.supuploaddocument.folderpath.value = storedpath;
                       document.supnewext.folderpath.value = storedpath;
                   } else {
                       document.simpleedit.folderpath.value = '$toplevelsupp';
                       document.supuploaddocument.folderpath.value = '$toplevelsupp';
                       document.supnewext.folderpath.value = '$toplevelsupp';
                   }
               }
           }
           resize_scrollbox('contentscroll','1','0');
    return false;
   }
   
   function toContents(jumpto) {
       var newurl = '$backtourl';
       if ((newurl == '/adm/navmaps') && (jumpto != '')) {
           newurl = newurl+'?postdata='+jumpto;
       }
       location.href=newurl;
   }
   
   function togglePick(caller,value) {
       var disp = 'none';
       if (document.getElementById('multi'+caller)) {
           var curr = document.getElementById('multi'+caller).style.display;
           if (value == 1) {
               disp='block';
           }
           if (curr == disp) {
               return; 
           }
           document.getElementById('multi'+caller).style.display=disp;
           if (value == 1) {
               document.getElementById('more'+caller).innerHTML = '&nbsp;&nbsp;<a href="javascript:toggleCheckUncheck(\\''+caller+'\\',1);" style="text-decoration:none;">$js_lt{'more'}</a>'; 
           } else {
               document.getElementById('more'+caller).innerHTML = '';
           }
           if (caller == 'actions') { 
               setClass(value);
               setBoxes(value);
           }
       }
       var showButton = multiSettings();
       if (showButton != 1) {
           showButton = multiActions();
       }
       if (document.getElementById('multisave')) {
           if (showButton == 1) {
               document.getElementById('multisave').style.display='block';
           } else {
               document.getElementById('multisave').style.display='none';
           }
       }
       resize_scrollbox('contentscroll','1','1');
       return;
   }
   
   function toggleCheckUncheck(caller,more) {
       if (more == 1) {
           document.getElementById('more'+caller).innerHTML = '&nbsp;&nbsp;<a href="javascript:toggleCheckUncheck(\\''+caller+'\\',0);" style="text-decoration:none;">$js_lt{'less'}</a>';
           document.getElementById('allfields'+caller).style.display='block';
       } else {
           document.getElementById('more'+caller).innerHTML = '&nbsp;&nbsp;<a href="javascript:toggleCheckUncheck(\\''+caller+'\\',1);" style="text-decoration:none;">$js_lt{'more'}</a>';
           document.getElementById('allfields'+caller).style.display='none';
       }
       resize_scrollbox('contentscroll','1','1');
   }
   
   function multiSettings() {
       var inuse = 0;
       var settingsform = document.togglemultsettings;
       if (settingsform.showmultpick.length > 1) {
           for (var i=0; i<settingsform.showmultpick.length; i++) {
               if (settingsform.showmultpick[i].checked) {
                   if (settingsform.showmultpick[i].value == 1) {
                       inuse = 1;  
                   }
               }
           }
       }
       return inuse;
   }
   
   function multiActions() {
       var inuse = 0;
       var actionsform = document.togglemultactions;
       if (actionsform.showmultpick.length > 1) {
           for (var i=0; i<actionsform.showmultpick.length; i++) {
               if (actionsform.showmultpick[i].checked) {
                   if (actionsform.showmultpick[i].value == 1) {
                       inuse = 1;
                   }
               }
           }
       }
       return inuse;
   } 
   
   function checkSubmits() {
       var numchanges = 0;
       var form = document.saveactions;
       var doactions = multiActions();
       var cutwarnings = 0;
       var remwarnings = 0;
       var removalinfo = 0;
       if (doactions == 1) {
           var remidxlist = document.cumulativeactions.allremoveidx.value;
           if ((remidxlist != '') && (remidxlist != null)) {
               var remidxs = remidxlist.split(',');
               for (var i=0; i<remidxs.length; i++) {
                   if (document.getElementById('remove_'+remidxs[i])) {
                       if (document.getElementById('remove_'+remidxs[i]).checked) {
                           form.multiremove.value += remidxs[i]+',';
                           numchanges ++;
                           if (document.getElementById('skip_remove_'+remidxs[i])) {
                               if (document.getElementById('skip_remove_'+remidxs[i]).value == 0) {
                                   remwarnings ++;
                               }
                           }
                           if (document.getElementById('confirm_removal_'+remidxs[i])) {
                               if (document.getElementById('confirm_removal_'+remidxs[i]).value == 1) {
                                   removalinfo ++;
                               }
                           }
                       }
                   }
               }
           }
           var cutidxlist = document.cumulativeactions.allcutidx.value;
           if ((cutidxlist != '') && (cutidxlist != null)) {
               var cutidxs = cutidxlist.split(',');
               for (var i=0; i<cutidxs.length; i++) {
                   if (document.getElementById('cut_'+cutidxs[i])) {
                       if (document.getElementById('cut_'+cutidxs[i]).checked == true) {
                           form.multicut.value += cutidxs[i]+',';
                           numchanges ++;
                           if (document.getElementById('skip_cut_'+cutidxs[i])) {
                               if (document.getElementById('skip_cut_'+cutidxs[i]).value == 0) {
                                   cutwarnings ++;
                               }
                           }
                       }
                   }
               }
           }
           var copyidxlist = document.cumulativeactions.allcopyidx.value;
           if ((copyidxlist != '') && (copyidxlist != null)) {
               var copyidxs = copyidxlist.split(',');
               for (var i=0; i<copyidxs.length; i++) {
                   if (document.getElementById('copy_'+copyidxs[i])) {
                       if (document.getElementById('copy_'+copyidxs[i]).checked) {
                           form.multicopy.value += copyidxs[i]+',';
                           numchanges ++;
                       }
                   }
               }
           }
           if (numchanges > 0) {
               form.multichange.value = numchanges;
           }
       }
       var dosettings = multiSettings();
       var haschanges = 0;
       if (dosettings == 1) {
           form.allencrypturl.value = '';
           form.allhiddenresource.value = '';
           form.changeparms.value = 'all';
           var patt=new RegExp(",\$");
           var allidxlist = document.cumulativesettings.allidx.value;
           if ((allidxlist != '') && (allidxlist != null)) {
               var allidxs = allidxlist.split(',');
               if (allidxs.length > 1) {
                   for (var i=0; i<allidxs.length; i++) {
                       if (document.getElementById('hiddenresource_'+allidxs[i])) {
                           if (document.getElementById('hiddenresource_'+allidxs[i]).checked) {
                               form.allhiddenresource.value += allidxs[i]+',';
                           }
                       }
                       if (document.getElementById('encrypturl_'+allidxs[i])) {
                           if (document.getElementById('encrypturl_'+allidxs[i]).checked) {
                               form.allencrypturl.value += allidxs[i]+',';
                           }
                       }
                   }
                   form.allhiddenresource.value = form.allhiddenresource.value.replace(patt,"");
                   form.allencrypturl.value = form.allencrypturl.value.replace(patt,"");
               }
           }
           form.allrandompick.value = '';
           form.allrandomorder.value = '';
           var allmapidxlist = document.cumulativesettings.allmapidx.value;
           if ((allmapidxlist != '') && (allmapidxlist != null)) {
               var allmapidxs = allmapidxlist.split(',');
               for (var i=0; i<allmapidxs.length; i++) {
                   var randompick = document.getElementById('randompick_'+allmapidxs[i]);
                   var rpicknum = document.getElementById('rpicknum_'+allmapidxs[i]);
                   var randorder = document.getElementById('randomorder_'+allmapidxs[i]);
                   if ((randompick.checked) && (rpicknum.value != '')) {
                       form.allrandompick.value += allmapidxs[i]+':'+rpicknum.value+',';
                   }
                   if (randorder.checked) {
                       form.allrandomorder.value += allmapidxs[i]+',';
                   }
               }
               form.allrandompick.value = form.allrandompick.value.replace(patt,"");
               form.allrandomorder.value = form.allrandomorder.value.replace(patt,"");
           }
           if (document.cumulativesettings.currhiddenresource.value != form.allhiddenresource.value) {
               haschanges = 1;
           }
           if (document.cumulativesettings.currencrypturl.value != form.allencrypturl.value) {
               haschanges = 1;
           }
           if (document.cumulativesettings.currrandomorder.value != form.allrandomorder.value) {
               haschanges = 1;
           }
           if (document.cumulativesettings.currrandompick.value != form.allrandompick.value) {
               haschanges = 1;
           }
       }
       if (doactions == 1) {
           if (numchanges > 0) {
               if ((cutwarnings > 0) || (remwarnings > 0) || (removalinfo > 0)) {
                   if (remwarnings > 0) {
                       if (!confirm('$js_lt{"p_rmr1"}\\n\\n$js_lt{"p_rmr3a"} '+remwarnings+' $js_lt{"p_rmr3b"}')) {
                           return false;
                       }
                   }
                   if (removalinfo > 0) {
                       if (!confirm('$js_lt{"p_rmr4"}\\n$js_lt{"p_rmr5"}\\n\\n$js_lt{"p_rmr3a"} '+removalinfo+' $js_lt{"p_rmr3b"}')) {
                           return false;
                       }
                   }
                   if (cutwarnings > 0) {
                       if (!confirm('$js_lt{"p_ctr1a"}\\n$js_lt{"p_ctr1b"}\\n\\n$js_lt{"p_ctr3a"} '+cutwarnings+' $js_lt{"p_ctr3b"}')) {
                           return false;
                       }
                   }
               }
               form.submit();
               return true;
           }
       }
       if (dosettings == 1) {
           if (haschanges == 1) {
               form.submit();
               return true;
           }
       }
       if ((dosettings == 1) && (doactions == 1)) {
           alert("$js_lt{'noor'}");
       } else {
           if (dosettings == 1) {
               alert("$js_lt{'noch'}");
           } else {
               alert("$js_lt{'noac'}");
           }
       }
       return false;
   }
   
   function setClass(value) {
       var cutclass = 'LC_docs_cut';
       var copyclass = 'LC_docs_copy';
       var removeclass = 'LC_docs_remove';
       var cutreg = new RegExp("\\\\b"+cutclass+"\\\\b");
       var copyreg = new RegExp("\\\\b"+copyclass+"\\\\b");
       var removereg = new RegExp("\\\\"+removeclass+"\\\\b");
       var links = document.getElementsByTagName('a');
       for (var i=0; i<links.length; i++) {
           var classes = links[i].className;
           if (cutreg.test(classes)) {
               links[i].className = cutclass;
               if (value == 1) {
                   links[i].className += " LC_menubuttons_link";
               }
           } else {
               if (copyreg.test(classes)) {
                   links[i].className = copyclass;
                   if (value == 1) {
                       links[i].className += " LC_menubuttons_link";
                   } 
               } else {
                   if (removereg.test(classes)) {
                       links[i].className = removeclass;
                       if (value == 1) {
                           links[i].className += " LC_menubuttons_link";
                       }
                   }
               }
           }
       }
       return;
   }
   
   function setBoxes(value) {
       var remidxlist = document.cumulativeactions.allremoveidx.value;
       if ((remidxlist != '') && (remidxlist != null)) {
           var remidxs = remidxlist.split(',');
           for (var i=0; i<remidxs.length; i++) {
               if (document.getElementById('remove_'+remidxs[i])) {
                   var item = document.getElementById('remove_'+remidxs[i]);
                   if (value == 1) {
                       item.className = 'LC_docs_remove';
                   } else {
                       item.className = 'LC_hidden';
                   }
               }
           }
       }
       var cutidxlist = document.cumulativeactions.allcutidx.value;
       if ((cutidxlist != '') && (cutidxlist != null)) {
           var cutidxs = cutidxlist.split(',');
           for (var i=0; i<cutidxs.length; i++) {
               if (document.getElementById('cut_'+cutidxs[i])) {
                   var item = document.getElementById('cut_'+cutidxs[i]);
                   if (value == 1) {
                       item.className = 'LC_docs_cut';
                   } else {
                       item.className = 'LC_hidden';
                   }
               }
           }
       }
       var copyidxlist = document.cumulativeactions.allcopyidx.value;
       if ((copyidxlist != '') && (copyidxlist != null)) {
           var copyidxs = copyidxlist.split(',');
           for (var i=0; i<copyidxs.length; i++) {
               if (document.getElementById('copy_'+copyidxs[i])) {
                   var item = document.getElementById('copy_'+copyidxs[i]);
                   if (value == 1) {
                       item.className = 'LC_docs_copy';
                   } else {
                       item.className = 'LC_hidden';
                   }
               }
           }
       }
       return;
   }
   
   function validImportCrsRes() {
       var path =  document.crsresimportform.coursepath.options[document.crsresimportform.coursepath.selectedIndex].value;
       var fname = document.crsresimportform.coursefile.options[document.crsresimportform.coursefile.selectedIndex].value;
       if ((fname == '') || (fname == null)) {
           alert("$js_lt{'nofi'}");
           return false;
       }
       var url = '/res/$coursedom/$coursenum/';
       if (path && path != '/') {
           url += path+'/';
       }
       if (fname != '') {
           url += fname;
       }
       var title = document.crsresimportform.crsrestitle.value;
       document.crsresimportform.importdetail.value=escape(title)+'='+escape(url);
       return true;
   }
   
   function validateNewRes(caller) {
       if (caller == 'single') {
           var role = document.courseresform.authorrole.options[document.courseresform.authorrole.selectedIndex].value; 
           var authorpath = document.courseresform.authorpath.options[document.courseresform.authorpath.selectedIndex].value;
           var resname = document.courseresform.newresourcename.value;
       }
   }
   
   ENDNEWSCRIPT
   }
   
   sub history_tab_js {
       return <<"ENDHIST";
   function toggleHistoryDisp(choice) {
       document.docslogform.docslog.value = choice;
       document.docslogform.submit();
       return;
   }
   
   ENDHIST
   }
   
   sub inject_data_js {
       return <<ENDINJECT;
   
   function injectData(current, hiddenField, name, value) {
           currentElement = document.getElementById(hiddenField);
           currentElement.name = name;
           currentElement.value = value;
           current.submit();
   }
   
   ENDINJECT
   }
   
   sub dump_switchserver_js {
       my @hosts = @_;
       my %js_lt = &Apache::lonlocal::texthash(
           dump => 'Copying content to Authoring Space requires switching server.',
           swit => 'Switch server?',
       );
       my %html_js_lt = &Apache::lonlocal::texthash(
           swit => 'Switch server?',
           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.',
           chos => 'Choose server',
       );
       &js_escape(\%js_lt);
       &html_escape(\%html_js_lt);
       &js_escape(\%html_js_lt);
       my $role = $env{'request.role'};
       my $js = <<"ENDSWJS";
   <script type="text/javascript">
   function write_switchserver() {
       var server;
       if (document.setserver.posshosts.length > 0) {
           for (var i=0; i<document.setserver.posshosts.length; i++) {
               if (document.setserver.posshosts[i].checked) {
                   server = document.setserver.posshosts[i].value;
               }
          }
          opener.document.location.href="/adm/switchserver?otherserver="+server+"&role=$role&origurl=/adm/coursedocs";
       }
       window.close();
   }
   </script>
   
   ENDSWJS
   
       my $startpage = &Apache::loncommon::start_page('Choose server',$js,
                                                      {'only_body' => 1,
                                                       'js_ready'  => 1,});
       my $endpage = &Apache::loncommon::end_page({'js_ready'  => 1});
   
       my $hostpicker;
       my $count = 0;
       foreach my $host (sort(@hosts)) {
           my $checked;
           if ($count == 0) {
               $checked = ' checked="checked"';
           }
           $hostpicker .= '<label><input type="radio" name="posshosts" value="'.
                          $host.'"'.$checked.' />'.$host.'</label>&nbsp;&nbsp;';
           $count++;
       }
       
       return <<"ENDSWITCHJS";
   
   function dump_needs_switchserver(url) {
       if (url!='' && url!= null) {
           if (confirm("$js_lt{'dump'}\\n$js_lt{'swit'}")) {
               go(url);
           }
       }
       return;
   }
   
   function choose_switchserver_window() {
       newWindow = window.open('','ChooseServer','height=400,width=500,scrollbars=yes')
       newWindow.document.open();
       newWindow.document.writeln('$startpage');
       newWindow.document.write('<h3>$html_js_lt{'duco'}<\\/h3>\\n'+
          '<p>$html_js_lt{'yone'}<\\/p>\\n'+
          '<div class="LC_left_float"><fieldset><legend>$html_js_lt{'chos'}<\\/legend>\\n'+
          '<form name="setserver" method="post" action="" \\/>\\n'+
          '$hostpicker\\n'+
          '<br \\/><br \\/>\\n'+
          '<input type="button" name="makeswitch" value="$html_js_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
   }
   
   sub makesimpleeditform {
       my ($formelems) = @_;
       return <<"SIMPFORM";
    <form name="simpleedit" method="post" action="/adm/coursedocs">
      <input type="hidden" name="importdetail" value="" />
      $formelems
    </form>
   SIMPFORM
   }
   
   sub makenewproblem {
       my ($r,$coursedom,$coursenum) = @_;
   # Creating a new problem
       my ($redirect,$error);
       if ($env{'form.authorrole'}) {
           my ($newsubdir,$filename);
           if ($env{'form.newsubdir'}) {
               if ($env{'form.newsubdirname'} ne '') {
                   $newsubdir = $env{'form.newsubdirname'};
               }    
           }
           if ($env{'form.newresourcename'}) {
               $filename = $env{'form.newresourcename'};
               $filename =~ s/\.(\d+)(\.\w+)$/$2/;
               $filename =~ s/`//g;
               $filename =~ s{/\.\./}{_}g;
               $filename =~ s/\.+/./g;
               $filename =~ s{/+}{_}g;
               if ($filename ne '') {
                   my ($name,$ext) = ($filename =~ /(.+)\.([^.]+)$/);
                   if (($ext) && ($ext ne '.problem')) {
                       $filename = $name.'.problem';
                   } elsif ($ext eq '') {
                       $filename .= '.problem';
                   }
                   my $docroot = $r->dir_config('lonDocRoot');
                   my @ids=&Apache::lonnet::current_machine_ids();
                   if ($env{'form.authorrole'} eq 'author') {
                       if ($env{'user.author'}) {
                           if ($env{'user.home'} && grep(/^\Q$env{'user.home'}\E$/,@ids)) {
                               my $url = "/priv/$env{'user.domain'}/$env{'user.name'}";
                               my $path = $docroot.$url;
                               my $subdir = $env{'form.authorpath'};
                               $redirect = &finishnewprob($url,$path,$subdir,$newsubdir,$filename);
                           }
                       }
                   } elsif ($env{'form.authorrole'} eq 'course') {
                       my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
                       if ($chome && grep(/^\Q$chome\E$/,@ids)) {
                           my $url = "/priv/$coursedom/$coursenum";
                           my $path=$docroot.$url;
                           my $subdir = $env{'form.authorpath'};
                           $redirect = &finishnewprob($url,$path,$subdir,$newsubdir,$filename);
                           if ($redirect) {
                               my $rightsfile = 'default.rights';
                               my $sourcerights = "$path/$rightsfile";
                               my $targetrights = $docroot."/res/$coursedom/$coursenum/$rightsfile";
                               my $now = time;
                               if (!-e $sourcerights) {
                                   my $cid = $coursedom.'_'.$coursenum;
                                   if (open(my $fh,">$sourcerights")) {
                                       print $fh <<END;
   <accessrule effect="deny" realm="" type="course" role="" />
   <accessrule effect="allow" realm="$cid" type="course" role="" />
   END
                                       close($fh);
                                   }
                               }
                               if (!-e "$sourcerights.meta") {
                                   if (open(my $fh,">$sourcerights.meta")) {
                                       my $author=$env{'environment.firstname'}.' '.
                                                  $env{'environment.middlename'}.' '.
                                                  $env{'environment.lastname'}.' '.
                                                  $env{'environment.generation'};
                                       $author =~ s/\s+$//;
                                       print $fh <<"END";
   
   <abstract></abstract>
   <author>$author</author>
   <authorspace>$coursenum:$coursedom</authorspace>
   <copyright>private</copyright>
   <creationdate>$now</creationdate>
   <customdistributionfile></customdistributionfile>
   <dependencies></dependencies>
   <domain>$coursedom</domain>
   <highestgradelevel>0</highestgradelevel>
   <keywords></keywords>
   <language>notset </language>
   <lastrevisiondate>$now</lastrevisiondate>
   <lowestgradelevel>0</lowestgradelevel>
   <mime>rights</mime>
   <modifyinguser>$env{'user.name'}:$env{'user.domain'}</modifyinguser>
   <notes></notes>
   <obsolete></obsolete>
   <obsoletereplacement></obsoletereplacement>
   <owner>$coursenum:$coursedom</owner>
   <rule>deny:::course,allow:$cid::course</rule>
   <sourceavail></sourceavail>
   <standards></standards>
   <subject></subject>
   <title></title>
   END
                                           close($fh);
                                   }
                                   if ((-e $sourcerights) && (-e "$sourcerights.meta")) {
                                       if (!-e "$docroot/res/$coursedom") {
                                           mkdir("$docroot/res/$coursedom",0755);
                                       }
                                       if (!-e "$docroot/res/$coursedom/$coursenum") {
                                           mkdir("$docroot/res/$coursedom/$coursenum",0755);
                                       }
                                       if ((-e "$docroot/res/$coursedom/$coursenum") && (!-e $targetrights)) {
                                           my $nokeyref = &Apache::lonpublisher::getnokey($r->dir_config('lonIncludes'));
                                           my $output = &Apache::lonpublisher::batchpublish($r,$sourcerights,$targetrights,$nokeyref,1);
                                       }
                                   }
                               }
                               if ($env{'form.newresourceadd'}) {
                                   my $template = $env{'form.template'};
                                   my $source = $docroot.$redirect;
                                   my $target = $redirect;
                                   $target =~ s{^/priv/}{/res/};
                                   $target = $docroot.$target;
                                   if (!-e $source) {
                                       my $copyfrom; 
                                       if ($template) {
                                           my %templates;
                                           my @files = &Apache::lonhomework::get_template_list('problem');
                                           foreach my $poss (@files) {
                                               if (ref($poss) eq 'ARRAY') {
                                                   if ($template eq $poss->[0]) {
                                                       $templates{$template} = 1;
                                                       last;
                                                   }
                                               }
                                           }
                                           if ($templates{$template}) {
                                               $copyfrom = $template;
                                           }
                                       }
                                       unless ($copyfrom) {
                                           $copyfrom = $r->dir_config('lonIncludes').'/templates/blank.problem';
                                       }
                                       &File::Copy::copy($copyfrom,$source);
                                   }
                                   if (!-e "$source.meta") {
                                       my $cid = $coursedom.'_'.$coursenum;
                                       my $now = time;
                                       if (open(my $fh,">$source.meta")) {
                                           my $author=$env{'environment.firstname'}.' '.
                                                      $env{'environment.middlename'}.' '.
                                                      $env{'environment.lastname'}.' '.
                                                      $env{'environment.generation'};
                                           $author =~ s/\s+$//;
                                           my $title = $env{'form.newresourcetitle'};
                                           $title =~ s/^\s+|\s+$//g;
                                           print $fh <<END;
   
   <abstract></abstract>
   <author>$author</author>
   <authorspace>$coursenum:$coursedom</authorspace>
   <copyright>custom</copyright>
   <creationdate>$now</creationdate>
   <customdistributionfile>/res/$coursedom/$coursenum/default.rights</customdistributionfile>
   <dependencies></dependencies>
   <domain>$coursedom</domain>
   <highestgradelevel>0</highestgradelevel>
   <keywords></keywords>
   <language>notset </language>
   <lastrevisiondate>$now</lastrevisiondate>
   <lowestgradelevel>0</lowestgradelevel>
   <mime>problem</mime>
   <modifyinguser>$coursenum:$coursedom</modifyinguser>
   <notes></notes>
   <obsolete></obsolete>
   <obsoletereplacement></obsoletereplacement>
   <owner>$coursenum:$coursedom</owner>
   <sourceavail></sourceavail>
   <standards></standards>
   <subject></subject>
   <title>$title</title>
   END
                                           close($fh);
                                       }
                                   }
                               }
                           }
                       }
                   } else {
                       my ($auname,$audom,$role) = split('___',$env{'form.authorrole'});
                       my $rolehome = &Apache::lonnet::homeserver($auname,$audom);
                       if (grep(/^\Q$rolehome\E$/,@ids)) {
                           my $now = time;
                           if (exists($env{'user.role.'.$role.'./'.$audom.'/'.$auname})) {
                               my ($start,$end) = split(/\./,$env{'user.role.'.$role.'./'.$audom.'/'.$auname});
                               if (($start <= $now) && (($end == 0) || ($end >= $now))) { 
                                   my $url = "/priv/$audom/$auname";  
                                   my $path = $r->dir_config('lonDocRoot').$url;
                                   my $subdir = $env{'form.authorpath'};
                                   $redirect = &finishnewprob($url,$path,$subdir,$newsubdir,$filename);
                               }
                           }
                       }
                   }
               }
           }
       }
       return ($redirect,$error);
   }
   
   sub finishnewprob {
       my ($url,$path,$subdir,$newsubdir,$filename) = @_;
       unless (-d $path) {
           unless (mkdir($path,02770)) {
               return;
           }
       }
       my $redirect;
       if ($subdir ne '/') {
           $subdir = &cleandir($subdir);
           if (($subdir ne '') && (-d "$path/$subdir")) {
               $path .= "/$subdir";
               $url .= "/$subdir";
           }
       }
       my $dest;
       if ($newsubdir ne '') {
           $newsubdir = &cleandir($newsubdir);
       }
       if ($newsubdir ne '') {
           if (-d "$path/$newsubdir") {
               $dest = "$path/$newsubdir/$filename";
           } else {
               my $dirok;
               unless (-e "$path/$newsubdir") {
                   if (mkdir("$path/$newsubdir",02770)) {
                       if (chmod(02770,"$path/$newsubdir")) {
                           $dirok = 1;
                       }
                   }
               }
               if ($dirok) {
                   $dest = "$path/$newsubdir/$filename";
               }
           }
           if (($dest ne '') && (!-e $dest)) {
               $redirect = "$url/$newsubdir/$filename";
           }
       } else {
           $dest = "$path/$filename";
           if (($dest ne '') && (!-e $dest)) {
               $redirect = "$url/$filename";
           }
       }
       return $redirect;
   }
   
   sub cleandir {
       my ($dir) = @_;
       $dir =~ s/^\s+//;
       $dir =~ s/\s+$//;
       $dir =~ s/\.+//g;
       $dir =~ s/[\#\?&%\":]//g;
       return $dir;
   }
   
   1;
   __END__
   
   
   =head1 NAME
   
   Apache::londocs.pm
   
   =head1 SYNOPSIS
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 SUBROUTINES
   
   =over
   
   =item %help=()
   
   Available help topics
   
   =item mapread()
   
   Mapread read maps into LONCAPA::map:: global arrays
   @order and @resources, determines status
   sets @order - pointer to resources in right order
   sets @resources - array with the resources with correct idx
   
   =item authorhosts()
   
   Return hash with valid author names
   
   =item clean()
   
   =item dumpcourse()
   
       Actually dump course
   
   =item group_import()
   
       Imports the given (name, url) resources into the course
       coursenum, coursedom, and folder must precede the list
   
   =item breadcrumbs()
   
   =item log_docs()
   
   =item docs_change_log()
   
   =item update_paste_buffer()
   
   =item print_paste_buffer()
   
   =item do_paste_from_buffer()
   
   =item do_buffer_empty() 
   
   =item clear_from_buffer()
   
   =item get_newmap_url()
   
   =item dbcopy()
   
   =item uniqueness_check()
   
   =item contained_map_check()
   
   =item url_paste_fixups()
   
   =item apply_fixups()
   
   =item copy_dependencies()
   
   =item update_parameter()
   
   =item handle_edit_cmd()
   
   =item editor()
   
   =item process_file_upload()
   
   =item process_secondary_uploads()
   
   =item is_supplemental_title()
   
   =item entryline()
   
   =item tiehash()
   
   =item untiehash()
   
   =item checkonthis()
   
   check on this
   
   =item verifycontent()
   
   Verify Content
   
   =item devalidateversioncache() & checkversions()
   
   Check Versions
   
   =item mark_hash_old()
   
   =item is_hash_old()
   
   =item changewarning()
   
   =item init_breadcrumbs()
   
   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
   
   =cut

Removed from v.1.327  
changed lines
  Added in v.1.608


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