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

Diff for /loncom/interface/londocs.pm between versions 1.509 and 1.518

version 1.509, 2012/11/16 23:37:15 version 1.518, 2012/12/02 22:40:09
Line 41  use Apache::lonclonecourse; Line 41  use Apache::lonclonecourse;
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
 use Apache::lonnavdisplay();  use Apache::lonnavdisplay();
 use Apache::lonuserstate();  use Apache::lonuserstate();
   use Apache::lonextresedit();
 use HTML::Entities;  use HTML::Entities;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
Line 1693  sub editor { Line 1694  sub editor {
         $supplementalflag,$orderhash,$iconpath,$pathitem)=@_;          $supplementalflag,$orderhash,$iconpath,$pathitem)=@_;
     my $container= ($env{'form.pagepath'}) ? 'page'      my $container= ($env{'form.pagepath'}) ? 'page'
                            : 'sequence';                             : 'sequence';
       my ($randompick,$ishidden,$isencrypted,$plain,$is_random_order);
     my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order) =      if ($allowed) {
         &Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);          (my $breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order) =
     $r->print($breadcrumbtrail);              &Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
           $r->print($breadcrumbtrail);
       }
   
     my $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container";      my $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container";
   
Line 1864  sub editor { Line 1867  sub editor {
         $shown++;          $shown++;
     }      }
     &Apache::loncommon::end_data_table_count();      &Apache::loncommon::end_data_table_count();
       
     if ($shown) {      if (($allowed) || ($supplementalflag && $folder eq 'supplemental')) {
         $to_show = &Apache::loncommon::start_scrollbox('900px','880px','400px','contentscroll')          if ($shown) {
                   .&Apache::loncommon::start_data_table(undef,'contentlist');              if ($allowed) {
         if ($allowed) {                  $to_show = &Apache::loncommon::start_scrollbox('900px','880px','400px','contentscroll')
             $to_show .= &Apache::loncommon::start_data_table_header_row()                            .&Apache::loncommon::start_data_table(undef,'contentlist')
                      .'<th colspan="2">'.&mt('Move').'</th>'                            .&Apache::loncommon::start_data_table_header_row()
                      .'<th>'.&mt('Actions').'</th>'                            .'<th colspan="2">'.&mt('Move').'</th>'
                      .'<th colspan="2">'.&mt('Document').'</th>';                            .'<th>'.&mt('Actions').'</th>'
             if ($folder !~ /^supplemental/) {                            .'<th colspan="2">'.&mt('Document').'</th>';
                 $to_show .= '<th colspan="4">'.&mt('Settings').'</th>';                  if ($folder !~ /^supplemental/) {
                       $to_show .= '<th colspan="4">'.&mt('Settings').'</th>';
                   }
                   $to_show .= &Apache::loncommon::end_data_table_header_row()
                              .$output.' '
                              .&Apache::loncommon::end_data_table()
                              .'<br style="line-height:2px;" />'
                              .&Apache::loncommon::end_scrollbox();
               } else {
                   $to_show = '<table><tr><td>'.&Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT')
                              .'</td><td class="LC_middle">'.&mt('Tools:').'</td>'
                              .'<td align="left"><ul id="LC_toolbar">'
                              .'<li><a href="/adm/coursedocs?forcesupplement=1" '
                              .'id="LC_content_toolbar_edittoplevel" '
                              .'class="LC_toolbarItem" '
                              .'title="'.&mt('Supplemental Content Editor').'">'
                              .'</a></li></ul></td></tr></table><br />'
                              .&Apache::loncommon::start_data_table('LC_tableOfContent')
                              .$output.' '
                              .&Apache::loncommon::end_data_table();
             }              }
             $to_show .= &Apache::loncommon::end_data_table_header_row();          } else {
               $to_show .= &Apache::loncommon::start_scrollbox('400px','380px','200px','contentscroll')
                          .'<div class="LC_info" id="contentlist">'
                          .&mt('Currently no documents.')
                          .'</div>'
                          .&Apache::loncommon::end_scrollbox();
         }          }
         $to_show .= $output.' '  
                  .&Apache::loncommon::end_data_table()  
                  .'<br style="line-height:2px;" />'  
                  .&Apache::loncommon::end_scrollbox();  
     } else {      } else {
         $to_show .= &Apache::loncommon::start_scrollbox('400px','380px','200px','contentscroll')          if ($shown) {
                  .'<div class="LC_info" id="contentlist">'              $to_show = '<div>'
                  .&mt('Currently no documents.')                        .&Apache::loncommon::start_data_table('LC_tableOfContent')
                  .'</div>'                        .$output
                  .&Apache::loncommon::end_scrollbox();                        .&Apache::loncommon::end_data_table()
                         .'</div>';
           } else {
               $to_show = '<div class="LC_info" id="contentlist">'
                         .&mt('Currently no documents.')
                         .'</div>'
           }
     }      }
     my $tid = 1;      my $tid = 1;
     if ($supplementalflag) {      if ($supplementalflag) {
Line 1899  sub editor { Line 1928  sub editor {
                                        $readfile));                                         $readfile));
         &print_paste_buffer($r,$container,$folder,$coursedom,$coursenum);          &print_paste_buffer($r,$container,$folder,$coursedom,$coursenum);
     } else {      } else {
         if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {  
             #Function Box for Supplemental Content for users with mdc priv.  
             my $funcname = &mt('Folder Editor');  
             $r->print(  
                 &Apache::loncommon::head_subbox(  
                     &Apache::lonhtmlcommon::start_funclist().  
                     &Apache::lonhtmlcommon::add_item_funclist(  
                         '<a href="/adm/coursedocs?command=direct&forcesupplement=1&'.  
                         'supppath='.&HTML::Entities::encode($env{'form.folderpath'}).'">'.  
                         '<img src="/res/adm/pages/docs-22x22.png" alt="'.$funcname.'" class="LC_icon" />'.  
                         '<span class="LC_menubuttons_inline_text">'.$funcname.'</span></a>').  
                           &Apache::lonhtmlcommon::end_funclist()));  
         }  
         $r->print($to_show);          $r->print($to_show);
     }      }
     return;      return;
Line 2111  sub entryline { Line 2127  sub entryline {
  $path = &HTML::Entities::encode($env{'form.pagepath'},'<>&"');   $path = &HTML::Entities::encode($env{'form.pagepath'},'<>&"');
     }      }
     my $isexternal;      my $isexternal;
     if (!$supplementalflag && $residx) {      if ($residx) {
         my $currurl = $url;          my $currurl = $url;
         $currurl =~ s{^http(|s)(&colon;|:)//}{/adm/wrapper/ext/};          $currurl =~ s{^http(|s)(&colon;|:)//}{/adm/wrapper/ext/};
         if ($currurl =~ m{^/adm/wrapper/ext/}) {          if ($currurl =~ m{^/adm/wrapper/ext/}) {
             $isexternal = 1;              $isexternal = 1;
         }          }
         my $path = 'uploaded/'.          if (!$supplementalflag) {
                    $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.              my $path = 'uploaded/'.
                    $env{'course.'.$env{'request.course.id'}.'.num'}.'/';                         $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.
         $symb = &Apache::lonnet::encode_symb($path.$folder.".$container",                         $env{'course.'.$env{'request.course.id'}.'.num'}.'/';
                                              $residx,              $symb = &Apache::lonnet::encode_symb($path.$folder.".$container",
                                              &Apache::lonnet::declutter($currurl));                                                   $residx,
                                                    &Apache::lonnet::declutter($currurl));
           }
     }      }
     my %lt;      my ($renamelink,%lt);
     if ($allowed) {      if ($allowed) {
  my $incindex=$index+1;   my $incindex=$index+1;
  my $selectbox='';   my $selectbox='';
Line 2221  sub entryline { Line 2239  sub entryline {
                 $nocopy=1;                  $nocopy=1;
             }              }
         }          }
         my ($copylink,$cutlink,$removelink,$renamelink);          my ($copylink,$cutlink,$removelink);
  my $skip_confirm = 0;   my $skip_confirm = 0;
  if ( $folder =~ /^supplemental/   if ( $folder =~ /^supplemental/
      || ($url =~ m{( /smppg$       || ($url =~ m{( /smppg$
Line 2261  ENDREM Line 2279  ENDREM
 <a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>  <a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>
 ENDREM  ENDREM
         }          }
         $renamelink=(<<ENDREN);          unless ($isexternal) {
               $renamelink=(<<ENDREN);
 <a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>  <a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>
 ENDREN  ENDREN
           }
  $form_start = '   $form_start = '
    <form action="/adm/coursedocs" method="post">     <form action="/adm/coursedocs" method="post">
 ';  ';
Line 2295  END Line 2315  END
 </td>  </td>
 <td class="LC_docs_entry_commands"><span class="LC_nobreak">  <td class="LC_docs_entry_commands"><span class="LC_nobreak">
 $removelink  $removelink
 $renamelink  
 $cutlink  $cutlink
 $copylink  $copylink
 </span>  </span>
Line 2335  END Line 2354  END
  }   }
     }      }
   
     my $editlink;      my ($editlink,$extresform);
     my $orig_url = $url;      my $orig_url = $url;
     $orig_url=~s{http(&colon;|:)//https(&colon;|:)//}{https$2//};      $orig_url=~s{http(&colon;|:)//https(&colon;|:)//}{https$2//};
     my $external = ($url=~s{^http(|s)(&colon;|:)//}{/adm/wrapper/ext/});      $url=~s{^http(|s)(&colon;|:)//}{/adm/wrapper/ext/};
     if (!$supplementalflag && $residx && $symb) {      if (!$supplementalflag && $residx && $symb) {
         if ($container eq 'page') {          if ($container eq 'page') {
             $url=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);              $url=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);
Line 2359  END Line 2378  END
         }          }
     } elsif ($url=~m|^/ext/|) {      } elsif ($url=~m|^/ext/|) {
         $url='/adm/wrapper'.$url;          $url='/adm/wrapper'.$url;
         $external = 1;  
     }      }
             if (&Apache::lonnet::symbverify($symb,$url)) {              if (&Apache::lonnet::symbverify($symb,$url)) {
         $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);          $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
Line 2373  END Line 2391  END
  my $foldername=&escape($foldertitle);   my $foldername=&escape($foldertitle);
  my $folderpath=$env{'form.folderpath'};   my $folderpath=$env{'form.folderpath'};
  if ($folderpath) { $folderpath.='&' };   if ($folderpath) { $folderpath.='&' };
           if (!$allowed && $supplementalflag) {
               $folderpath.=$folderarg.'&'.$foldername;
               $url.='folderpath='.&escape($folderpath);
           } else {
 # Append randompick number, hidden, and encrypted with ":" to foldername,  # Append randompick number, hidden, and encrypted with ":" to foldername,
 # so it gets transferred between levels  # so it gets transferred between levels
  $folderpath.=$folderarg.'&'.$foldername.':'.(&LONCAPA::map::getparameter($orderidx,      $folderpath.=$folderarg.'&'.$foldername.
                                                 ':'.(&LONCAPA::map::getparameter($orderidx,
                                               'parameter_randompick'))[0]                                                'parameter_randompick'))[0]
                                                .':'.((&LONCAPA::map::getparameter($orderidx,                                                 .':'.((&LONCAPA::map::getparameter($orderidx,
                                               'parameter_hiddenresource'))[0]=~/^yes$/i)                                                'parameter_hiddenresource'))[0]=~/^yes$/i)
Line 2383  END Line 2406  END
                                               'parameter_encrypturl'))[0]=~/^yes$/i)                                                'parameter_encrypturl'))[0]=~/^yes$/i)
                                                .':'.((&LONCAPA::map::getparameter($orderidx,                                                 .':'.((&LONCAPA::map::getparameter($orderidx,
                                               'parameter_randomorder'))[0]=~/^yes$/i);                                                'parameter_randomorder'))[0]=~/^yes$/i);
  $url.='folderpath='.&escape($folderpath);      $url.='folderpath='.&escape($folderpath);
         my $rpicknum = (&LONCAPA::map::getparameter($orderidx,              my $rpicknum = (&LONCAPA::map::getparameter($orderidx,
                                                    'parameter_randompick'))[0];                                                          'parameter_randompick'))[0];
         my $rpckchk;              my $rpckchk;
         if ($rpicknum) {              if ($rpicknum) {
             $rpckchk = ' checked="checked"';                  $rpckchk = ' checked="checked"';
         }              }
         my $formname = 'edit_rpick_'.$orderidx;              my $formname = 'edit_rpick_'.$orderidx;
  $rand_pick_text =       $rand_pick_text = 
 '<form action="/adm/coursedocs" method="post" name="'.$formname.'">'."\n".  '<form action="/adm/coursedocs" method="post" name="'.$formname.'">'."\n".
 $form_common."\n".  $form_common."\n".
 '<span class="LC_nobreak"><label><input type="checkbox" name="randpickon_'.$orderidx.'" id="rpick_'.$orderidx.'" onclick="'."updatePick(this.form,'$orderidx','check');".'"'.$rpckchk.' /> '.&mt('Randomly Pick').'</label><input type="hidden" name="randompick_'.$orderidx.'" id="rpicknum_'.$orderidx.'" value="'.$rpicknum.'" />';  '<span class="LC_nobreak"><label><input type="checkbox" name="randpickon_'.$orderidx.'" id="rpick_'.$orderidx.'" onclick="'."updatePick(this.form,'$orderidx','check');".'"'.$rpckchk.' /> '.&mt('Randomly Pick').'</label><input type="hidden" name="randompick_'.$orderidx.'" id="rpicknum_'.$orderidx.'" value="'.$rpicknum.'" />';
         if ($rpicknum ne '') {              if ($rpicknum ne '') {
             $rand_pick_text .= ':&nbsp;<a href="javascript:updatePick('."document.$formname,'$orderidx','link'".')">'.$rpicknum.'</a>';                  $rand_pick_text .= ':&nbsp;<a href="javascript:updatePick('."document.$formname,'$orderidx','link'".')">'.$rpicknum.'</a>';
         }              }
         $rand_pick_text .= '</span></form>';              $rand_pick_text .= '</span></form>';
     my $ro_set=         my $ro_set=
     ((&LONCAPA::map::getparameter($orderidx,'parameter_randomorder'))[0]=~/^yes$/i?' checked="checked"':'');          ((&LONCAPA::map::getparameter($orderidx,'parameter_randomorder'))[0]=~/^yes$/i?' checked="checked"':'');
  $rand_order_text =       $rand_order_text = 
 $form_start.  $form_start.
 $form_common.'  $form_common.'
 <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></form>';  <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></form>';
           }
     } elsif ($supplementalflag && !$allowed) {      } elsif ($supplementalflag && !$allowed) {
         $url .= ($url =~ /\?/) ? 'amp;':'?';          $url .= ($url =~ /\?/) ? '&amp;':'?';
         $url .= 'folderpath='.&HTML::Entities::encode($esc_path,'<>&"');          $url .= 'folderpath='.&HTML::Entities::encode($esc_path,'<>&"');
           if ($title) {
               $url .= '&amp;title='.&HTML::Entities::encode($renametitle,'<>&"');
           }
           if ($isexternal && $orderidx) {
               $url .= '&amp;idx='.$orderidx;
           }
     }      }
     if ($ispage) {      if ($ispage) {
         my $pagename=&escape($pagetitle);          my $pagename=&escape($pagetitle);
Line 2421  $form_common.' Line 2451  $form_common.'
     if ($allowed) {      if ($allowed) {
         my $fileloc =           my $fileloc = 
             &Apache::lonnet::declutter(&Apache::lonnet::filelocation('',$orig_url));              &Apache::lonnet::declutter(&Apache::lonnet::filelocation('',$orig_url));
           if ($isexternal) {
         if ($external) {              ($editlink,$extresform) = 
     $editlink = <<"EXTLNK";                  &Apache::lonextresedit::extedit_form(0,$residx,$orig_url,$title,$pathitem);
             &nbsp;          } elsif (!$isfolder && !$ispage) {
             <a class="LC_docs_ext_edit" href="javascript:editext('$residx');">  
             $lt{'ed'}</a>  
             <form action="/adm/coursedocs" method="post" name="editext_$residx">  
             <fieldset id="uploadext$residx" style="display: none;" />  
             <input type="hidden" name="active" value="aa" />  
             <span class="LC_nobreak">  
             <span class="LC_docs_ext_edit">$lt{'ul'}&nbsp;</span>  
             <input type="text" size="40" name="exturl" id="exturl_$residx" value="$orig_url" />&nbsp;  
             <a class="LC_docs_ext_edit" href="javascript:extUrlPreview('exturl_$residx');">$lt{'pr'}</a></span>  
             </span><br />  
             <span class="LC_nobreak">  
             <span class="LC_docs_ext_edit">$lt{'ti'}&nbsp;</span>  
             <input type="text" size="40" name="exttitle" value="$title" />  
             $pathitem  
             <input type="hidden" name="importdetail" value="" />  
             <input type="button" value="$lt{'sv'}" onclick="javascript:setExternal(this.form,'$residx')" />  
             </span>  
             </fieldset>  
             </form>  
 EXTLNK  
         } else {  
             my ($cfile,$home,$switchserver,$forceedit,$forceview) =               my ($cfile,$home,$switchserver,$forceedit,$forceview) = 
                 &Apache::lonnet::can_edit_resource($fileloc,$coursenum,$coursedom,$orig_url);                  &Apache::lonnet::can_edit_resource($fileloc,$coursenum,$coursedom,$orig_url);
             my $geteditlink;              if (($cfile ne '') && ($symb ne '' || $supplementalflag)) {
             if ($supplementalflag) {  
                 if ($orig_url eq "/adm/$env{'user.domain'}/$env{'user.name'}/aboutme") {  
                     $geteditlink = 1;  
                 }  
             } elsif (($cfile ne '') && ($symb ne '')) {  
                 $geteditlink = 1;  
             }  
             if ($geteditlink) {  
                 my $jscall =                   my $jscall = 
                     &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,                      &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,
                                                             $switchserver,                                                              $switchserver,
                                                             $forceedit,                                                              $forceedit,
                                                             undef,$symb);                                                              undef,$symb,
                                                               &escape($env{'form.folderpath'}),
                                                               $renametitle);
                 if ($jscall) {                  if ($jscall) {
                     $editlink = '&nbsp;<a class="LC_docs_ext_edit" href="javascript:'.                      $editlink = '<a class="LC_docs_ext_edit" href="javascript:'.
                                 $jscall.'" >'.&mt('Edit').'</a>';                                  $jscall.'" >'.&mt('Edit').'</a>&nbsp;'."\n";
                 }                  }
             }              }
         }          }
Line 2475  EXTLNK Line 2478  EXTLNK
     } else {      } else {
         $reinit = &mt('(re-initialize course to access)');          $reinit = &mt('(re-initialize course to access)');
     }        }  
     $line.='<td>';      $line.='<td class="LC_docs_entry_commands" align="right" valign="top"><span class="LC_nobreak">'.$editlink.$renamelink;
     if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {      if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {
        $line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';         $line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';
     } elsif ($url) {      } elsif ($url) {
Line 2484  EXTLNK Line 2487  EXTLNK
     } else {      } else {
        $line.='<img src="'.$icon.'" alt="" class="LC_icon" />';         $line.='<img src="'.$icon.'" alt="" class="LC_icon" />';
     }      }
     $line.='</td><td>';      $line.='</span></td><td width="80%">';
     if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {      if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {
        $line.='<a href="'.$url.'">'.$title.'</a>';         $line.='<a href="'.$url.'">'.$title.'</a>';
     } elsif ($url) {      } elsif ($url) {
Line 2493  EXTLNK Line 2496  EXTLNK
     } else {      } else {
        $line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';         $line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';
     }      }
     $line.=$editlink."</td>";      $line.="$extresform</td>";
     $rand_pick_text = '&nbsp;' if ($rand_pick_text eq '');      $rand_pick_text = '&nbsp;' if ($rand_pick_text eq '');
     $rand_order_text = '&nbsp;' if ($rand_order_text eq '');      $rand_order_text = '&nbsp;' if ($rand_order_text eq '');
     if (($allowed) && ($folder!~/^supplemental/)) {      if (($allowed) && ($folder!~/^supplemental/)) {
Line 3215  sub handler { Line 3218  sub handler {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['folderpath','pagepath',                                              ['folderpath','pagepath',
                                              'pagesymb','forcesupplement','forcestandard',                                               'pagesymb','forcesupplement','forcestandard',
                                              'tools','symb','command']);                                               'tools','symb','command','supppath']);
   
 # standard=1: this is a "new-style" course with an uploaded map as top level  # standard=1: this is a "new-style" course with an uploaded map as top level
 # standard=2: this is a "old-style" course, and there is nothing we can do  # standard=2: this is a "old-style" course, and there is nothing we can do
Line 3285  sub handler { Line 3288  sub handler {
                        }                         }
                    }                     }
                }                 }
                $path .= '&'.&Apache::lonhtmlcommon::entity_encode($mapurl).'&'.                 $path =~ s/^\&//;
                     &Apache::lonhtmlcommon::entity_encode($mapresobj->title()).                 my $maptitle = $mapresobj->title();
                  if ($mapurl eq 'default') {
                      $maptitle = 'Main Course Documents';
                  }
                  $path .= (($path ne '')? '&' : '').
                       &Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
                       &Apache::lonhtmlcommon::entity_encode($maptitle).
                     ':'.$mapresobj->randompick().                      ':'.$mapresobj->randompick().
                     ':'.$mapresobj->randomout().                      ':'.$mapresobj->randomout().
                     ':'.$mapresobj->encrypted().                      ':'.$mapresobj->encrypted().
                     ':'.$mapresobj->randomorder();                      ':'.$mapresobj->randomorder();
            } else {             } else {
                my $maptitle = &Apache::lonnet::gettitle($mapurl);                 my $maptitle = &Apache::lonnet::gettitle($mapurl);
                $path = '&default&...::::'.                 if ($mapurl eq 'default') {
                    '&'.&Apache::lonhtmlcommon::entity_encode($mapurl).'&'.                     $maptitle = 'Main Course Documents';
                    &Apache::lonhtmlcommon::entity_encode($maptitle).'::::';                 }
                  $path = &Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
                          &Apache::lonhtmlcommon::entity_encode($maptitle).'::::';
              }
              unless ($mapurl eq 'default') {
                  $path = 'default&'.
                          &Apache::lonhtmlcommon::entity_encode('Main Course Documents').
                          '::::&'.$path;
            }             }
            $path = 'default&'.  
                    &Apache::lonhtmlcommon::entity_encode('Main Course Documents').  
                    $path;  
            if ($type eq 'sequence') {             if ($type eq 'sequence') {
                $env{'form.folderpath'}=$path;                 $env{'form.folderpath'}=$path;
                $env{'form.pagepath'}='';                 $env{'form.pagepath'}='';
Line 3326  sub handler { Line 3339  sub handler {
        $stored_folderpath='docs_sup_folderpath';         $stored_folderpath='docs_sup_folderpath';
     }      }
   
 # No folderpath, no pagepath, see if we have something stored  # No folderpath, no pagepath, and in edit mode, see if we have something stored
     if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'})) {      if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'}) && $allowed) {
         &Apache::loncommon::restore_course_settings($stored_folderpath,          &Apache::loncommon::restore_course_settings($stored_folderpath,
                                               {'folderpath' => 'scalar'});                                            {'folderpath' => 'scalar'});
     }      }
         
 # If we are not allowed to make changes, all we can see are supplemental docs  # If we are not allowed to make changes, all we can see are supplemental docs
Line 3361  sub handler { Line 3374  sub handler {
   
 # Store this  # Store this
     unless ($toolsflag) {      unless ($toolsflag) {
         &Apache::loncommon::store_course_settings($stored_folderpath,          if ($allowed) {
                                                   {'pagepath' => 'scalar',              &Apache::loncommon::store_course_settings($stored_folderpath,
                                                    'folderpath' => 'scalar'});                                                        {'pagepath' => 'scalar',
                                                          'folderpath' => 'scalar'});
           }
         if ($env{'form.folderpath'}) {          if ($env{'form.folderpath'}) {
     my (@folderpath)=split('&',$env{'form.folderpath'});      my (@folderpath)=split('&',$env{'form.folderpath'});
     $env{'form.foldername'}=&unescape(pop(@folderpath));      $env{'form.foldername'}=&unescape(pop(@folderpath));
Line 3439  sub handler { Line 3454  sub handler {
     $script .= &editing_js($udom,$uname,$supplementalflag).      $script .= &editing_js($udom,$uname,$supplementalflag).
                        &history_tab_js().                         &history_tab_js().
                        &inject_data_js().                         &inject_data_js().
                        &Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr);                         &Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr).
                          &Apache::lonextresedit::extedit_javascript();
             $addentries = {              $addentries = {
                             onload   => "javascript:resize_scrollbox('contentscroll','1','1');",                              onload   => "javascript:resize_scrollbox('contentscroll','1','1');",
                           };                            };
Line 3461  sub handler { Line 3477  sub handler {
   
     # Breadcrumbs      # Breadcrumbs
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     unless ($showdoc) {  
       if ($showdoc) {
           $r->print(&Apache::loncommon::start_page("$crstype documents",undef,
                                                   {'force_register' => $showdoc,}));
       } 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({          &Apache::lonhtmlcommon::add_breadcrumb({
             href=>"/adm/coursedocs",text=>"$crstype Contents"});              href=>"/adm/coursedocs",text=>"$crstype Contents"});
   
         $r->print(&Apache::loncommon::start_page("$crstype Contents", $script,          $r->print(&Apache::loncommon::start_page("$crstype Contents", $script,
                                                  {'force_register' => $showdoc,                                                   {'add_entries'    => $addentries}
                                                   'add_entries'    => $addentries,                                                  )
                                                  })  
                  .&Apache::loncommon::help_open_menu('','',273,'RAT')                   .&Apache::loncommon::help_open_menu('','',273,'RAT')
                  .&Apache::lonhtmlcommon::breadcrumbs(                   .&Apache::lonhtmlcommon::breadcrumbs(
                      'Editing '.$crstype.' Contents',                       'Editing '.$crstype.' Contents',
                      'Docs_Adding_Course_Doc')                       'Docs_Adding_Course_Doc')
         );          );
     } else {  
         $r->print(&Apache::loncommon::start_page("$crstype documents",undef,  
                                                 {'force_register' => $showdoc,}));  
     }      }
   
   my %allfiles = ();    my %allfiles = ();
Line 3577  sub handler { Line 3597  sub handler {
                 'prev' => 'Preview',                  'prev' => 'Preview',
                 'lnk'  => 'Add Link',                   'lnk'  => 'Add Link', 
                 'parse' => 'Upload embedded images/multimedia files if HTML file',                  'parse' => 'Upload embedded images/multimedia files if HTML file',
  'nd' => 'Upload Document',  
  'pm' => 'Published Map',  
  'sd' => 'Special Document',  
  'mo' => 'More Options',  
   );    );
 # -----------------------------------------------------------------------------  # -----------------------------------------------------------------------------
  my $fileupload=(<<FIUP);   my $fileupload=(<<FIUP);
Line 3604  CHBO Line 3620  CHBO
         <a class="LC_menubuttons_link" href="javascript:toggleUpload('ims');">          <a class="LC_menubuttons_link" href="javascript:toggleUpload('ims');">
         $lt{'imsf'}</a> $help{'Importing_IMS_Course'}          $lt{'imsf'}</a> $help{'Importing_IMS_Course'}
         <form name="uploadims" action="/adm/imsimportdocs" method="post" enctype="multipart/form-data" target="IMSimport">          <form name="uploadims" action="/adm/imsimportdocs" method="post" enctype="multipart/form-data" target="IMSimport">
         <fieldset id="uploadimsform" style="display: none;" />          <fieldset id="uploadimsform" style="display: none;">
         <legend>$lt{'imsf'}</legend>          <legend>$lt{'imsf'}</legend>
         $fileupload          $fileupload
         <br />          <br />
Line 3629  IMSFORM Line 3645  IMSFORM
         <a class="LC_menubuttons_link" href="javascript:toggleUpload('doc');">          <a class="LC_menubuttons_link" href="javascript:toggleUpload('doc');">
         $lt{'upfi'}</a> $help{'Uploading_From_Harddrive'}          $lt{'upfi'}</a> $help{'Uploading_From_Harddrive'}
         <form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">          <form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">
         <fieldset id="uploaddocform" style="display: none;" />          <fieldset id="uploaddocform" style="display: none;">
         <legend>$lt{'upfi'}</legend>          <legend>$lt{'upfi'}</legend>
  <input type="hidden" name="active" value="aa" />   <input type="hidden" name="active" value="aa" />
  $fileupload   $fileupload
Line 3649  IMSFORM Line 3665  IMSFORM
 FUFORM  FUFORM
   
  my $importpubform=(<<SEDFFORM);   my $importpubform=(<<SEDFFORM);
         <a class="LC_menubuttons_link" href="javascript:toggleMap();">          <a class="LC_menubuttons_link" href="javascript:toggleMap('map');">
         $lt{'impm'}</a>$help{'Load_Map'}          $lt{'impm'}</a>$help{'Load_Map'}
  <form action="/adm/coursedocs" method="post" name="mapimportform">   <form action="/adm/coursedocs" method="post" name="mapimportform">
         <fieldset id="importmapform" style="display: none;" />          <fieldset id="importmapform" style="display: none;">
         <legend>$lt{'impm'}</legend>          <legend>$lt{'impm'}</legend>
  <input type="hidden" name="active" value="bb" />   <input type="hidden" name="active" value="bb" />
         $lt{'copm'}<br />          $lt{'copm'}<br />
         <span class="LC_nobreak">          <span class="LC_nobreak">
         <input type="text" name="importmap" size="40" value=""           <input type="text" name="importmap" size="40" value="" 
         onfocus="this.blur();openbrowser('mapimportform','importmap','sequence,page','');" />          onfocus="this.blur();openbrowser('mapimportform','importmap','sequence,page','');" />
         &nbsp;<a href="javascript:openbrowser('mapimportform','importmap','sequence,page','');">$lt{'selm'}</a><br />          &nbsp;<a href="javascript:openbrowser('mapimportform','importmap','sequence,page','');">$lt{'selm'}</a></span><br />
         <input type="submit" name="loadmap" value="$lt{'load'}" />          <input type="submit" name="loadmap" value="$lt{'load'}" />
         </fieldset>          </fieldset>
         </form>          </form>
Line 3669  SEDFFORM Line 3685  SEDFFORM
  { '<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/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/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/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();" />' => $importpubform }          { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/sequence.png" alt="'.$lt{impm}.'" onclick="javascript:toggleMap(\'map\');" />' => $importpubform }
  );   );
  $importpubform = &create_form_ul(&create_list_elements(@importpubforma));   $importpubform = &create_form_ul(&create_list_elements(@importpubforma));
           my $extresourcesform =
       my $extresourcesform=(<<ERFORM);              &Apache::lonextresedit::extedit_form(0,0,undef,undef,$pathitem,
       <a class="LC_menubuttons_link" href="javascript:toggleUpload('ext');">$lt{'extr'}</a>$help{'Adding_External_Resource'}                                                   $help{'Adding_External_Resource'});
       <form action="/adm/coursedocs" method="post" name="newext">  
       <fieldset id="uploadextform" style="display: none;" />  
       <legend>$lt{'extr'}</legend>  
       <input type="hidden" name="active" value="aa" />  
       $lt{'url'}:<br />  
       <input type="text" size="60" name="exturl" id="exturl" value="http://" />  
       <input type="button" name="view" value="$lt{'prev'}" onclick="javascript:extUrlPreview('exturl');" /><br />  
       $lt{'title'}:<br />  
       <input type="text" size="60" name="exttitle" value="$lt{'extr'}" />  
       $pathitem  
       <br />  
       <input type="hidden" name="importdetail" value="" />  
       <input type="button" value="$lt{'lnk'}" onclick="javascript:setExternal(this.form,0)" />  
       </fieldset>  
       </form>  
 ERFORM  
   
   
     if ($allowed) {      if ($allowed) {
         my $folder = $env{'form.folder'};          my $folder = $env{'form.folder'};
         if ($folder eq '') {          if ($folder eq '') {
Line 3716  HIDDENFORM Line 3714  HIDDENFORM
     }      }
   
 # Generate the tabs  # Generate the tabs
     my $mode;      my ($mode,$needs_end);
     if (($supplementalflag) && (!$allowed)) {      if (($supplementalflag) && (!$allowed)) {
         &Apache::lonnavdisplay::startContentScreen($r,'supplemental');          my @folders = split('&',$env{'form.folderpath'});
           unless (@folders > 2) {
               &Apache::lonnavdisplay::startContentScreen($r,'supplemental');
               $needs_end = 1;
           }
     } else {      } else {
         $r->print(&startContentScreen(($supplementalflag?'suppdocs':'docs')));          $r->print(&startContentScreen(($supplementalflag?'suppdocs':'docs')));
           $needs_end = 1;
     }      }
   
 #  #
Line 3941  my %orderhash = ( Line 3944  my %orderhash = (
 unless ($env{'form.pagepath'}) {  unless ($env{'form.pagepath'}) {
     $orderhash{'00'} = ['Newfolder',$newfolderform];      $orderhash{'00'} = ['Newfolder',$newfolderform];
     $orderhash{'dd'} = ['Collaboration',$communityform];      $orderhash{'dd'} = ['Collaboration',$communityform];
     $orderhash{'ee'} = ['Special Documents',$specialdocumentsform];      $orderhash{'ee'} = ['Special Pages',$specialdocumentsform];
 }  }
   
  $hadchanges=0;   $hadchanges=0;
Line 3982  unless ($env{'form.pagepath'}) { Line 3985  unless ($env{'form.pagepath'}) {
         <a class="LC_menubuttons_link" href="javascript:toggleUpload('suppdoc');">          <a class="LC_menubuttons_link" href="javascript:toggleUpload('suppdoc');">
         $lt{'upfi'}</a> $help{'Uploading_From_Harddrive'}          $lt{'upfi'}</a> $help{'Uploading_From_Harddrive'}
  <form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">   <form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">
         <fieldset id="uploadsuppdocform" style="display: none;" />          <fieldset id="uploadsuppdocform" style="display: none;">
         <legend>$lt{'upfi'}</legend>          <legend>$lt{'upfi'}</legend>
  <input type="hidden" name="active" value="ee" />   <input type="hidden" name="active" value="ee" />
  $fileupload   $fileupload
Line 4011  SUPDOCFORM Line 4014  SUPDOCFORM
  </form>   </form>
 SNFFORM  SNFFORM
   
         my $supextform=(<<ERFORM);          my $supextform =
         <a class="LC_menubuttons_link" href="javascript:toggleUpload('suppext');">$lt{'extr'}</a>$help{'Adding_External_Resource'}              &Apache::lonextresedit::extedit_form(1,0,undef,undef,$pathitem,
         <form action="/adm/coursedocs" method="post" name="newsuppext">                                                   $help{'Adding_External_Resource'});
         <fieldset id="uploadsuppextform" style="display: none;" />  
         <legend>$lt{'extr'}</legend>  
         <input type="hidden" name="active" value="ee" />  
         $lt{'url'}:<br />  
         <input type="text" size="60" name="exturl" id="exturl" value="http://" />  
         <input type="button" name="view" value="$lt{'prev'}" onclick="javascript:extUrlPreview('exturl');" /><br />  
         $lt{'title'}:<br />  
         <input type="text" size="60" name="exttitle" value="$lt{'extr'}" />  
         <br />  
         $pathitem  
         <input type="hidden" name="importdetail" value="" />  
         <input type="button" value="$lt{'lnk'}" onclick="javascript:setExternal(this.form,0)" />  
         </fieldset>  
         </form>  
 ERFORM  
   
  my $supnewsylform=(<<SNSFORM);   my $supnewsylform=(<<SNSFORM);
  <form action="/adm/coursedocs" method="post" name="supnewsyl">   <form action="/adm/coursedocs" method="post" name="supnewsyl">
Line 4060  my @specialdocs = ( Line 4048  my @specialdocs = (
             =>$supnewaboutmeform},              =>$supnewaboutmeform},
  );   );
 my @supimportdoc = (  my @supimportdoc = (
  {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="toggleUpload(\'suppext\')" />'   {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="javascript:toggleUpload(\'suppext\')" />'
             =>$supextform},              =>$supextform},
                 {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/pdfupload.png" alt="'.$lt{upl}.'" onclick="javascript:toggleUpload(\'suppdoc\');" />'                  {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/pdfupload.png" alt="'.$lt{upl}.'" onclick="javascript:toggleUpload(\'suppdoc\');" />'
             =>$supupdocform},              =>$supupdocform},
Line 4070  $supupdocform =  &create_form_ul(&create Line 4058  $supupdocform =  &create_form_ul(&create
 my %suporderhash = (  my %suporderhash = (
  '00' => ['Supnewfolder', $supnewfolderform],   '00' => ['Supnewfolder', $supnewfolderform],
                 'ee' => ['Import Content',$supupdocform],                  'ee' => ['Import Content',$supupdocform],
                 'ff' => ['Special Documents',&create_form_ul(&create_list_elements(@specialdocs))]                  'ff' => ['Special Pages',&create_form_ul(&create_list_elements(@specialdocs))]
                 );                  );
         if ($supplementalflag) {          if ($supplementalflag) {
            my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,             my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
Line 4087  my %suporderhash = ( Line 4075  my %suporderhash = (
         }          }
     }      }
   
     $r->print(&endContentScreen());      if ($needs_end) {
           $r->print(&endContentScreen());
       }
   
     if ($allowed) {      if ($allowed) {
  $r->print('   $r->print('
Line 4352  sub generate_edit_table { Line 4342  sub generate_edit_table {
         $activetab = $env{'form.active'};          $activetab = $env{'form.active'};
     }      }
     my $backicon = $iconpath.'clickhere.gif';      my $backicon = $iconpath.'clickhere.gif';
     my $backtext = &mt('To Overview');      my $backtext = &mt('Exit');
     $form = '<div class="LC_Box" style="margin:0;">'.      $form = '<div class="LC_Box" style="margin:0;">'.
             '<ul id="navigation'.$tid.'" class="LC_TabContent">'."\n".              '<ul id="navigation'.$tid.'" class="LC_TabContent">'."\n".
             '<li class="goback">'.              '<li class="goback">'.
Line 4465  sub editing_js { Line 4455  sub editing_js {
         $fieldsets = "'suppext','suppdoc'";          $fieldsets = "'suppext','suppdoc'";
     }      }
   
     my $urlregexp = <<'ENDREGEXP';  
 /^([a-z]([a-z]|\d|\+|-|\.)*):(\/\/(((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:)*@)?((\[(|(v[\da-f]{1,}\.(([a-z]|\d|-|\.|_|~)|[!\$&'\(\)\*\+,;=]|:)+))\])|((\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5]))|(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=])*)(:\d*)?)(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*|(\/((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)+(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*)?)|((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)+(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*)|((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)){0})(\?((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)|[\uE000-\uF8FF]|\/|\?)*)?(\#((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)|\/|\?)*)?$/i  
 ENDREGEXP  
   
     return <<ENDNEWSCRIPT;      return <<ENDNEWSCRIPT;
 function makenewfolder(targetform,folderseq) {  function makenewfolder(targetform,folderseq) {
     var foldername=prompt('$lt{"p_mnf"}','$lt{"t_mnf"}');      var foldername=prompt('$lt{"p_mnf"}','$lt{"t_mnf"}');
Line 4486  function makenewpage(targetform,folderse Line 4472  function makenewpage(targetform,folderse
     }      }
 }  }
   
 function editext(residx) {  
     if (document.getElementById('uploadext'+residx)) {  
         var curr = document.getElementById('uploadext'+residx).style.display;  
         if (curr == 'none') {  
             disp = 'block';  
         } else {  
             disp = 'none';  
         }  
         document.getElementById('uploadext'+residx).style.display=disp;  
     }  
     resize_scrollbox('contentscroll','1','1');  
     return;  
 }  
   
 function makeexamupload() {  function makeexamupload() {
    var title=prompt('$lt{"p_mxu"}');     var title=prompt('$lt{"p_mxu"}');
    if (title) {     if (title) {
Line 4580  function toggleUpload(caller) { Line 4552  function toggleUpload(caller) {
     return;      return;
 }  }
   
 function toggleMap() {  function toggleMap(caller) {
     var disp = 'none';      var disp = 'none';
     var curr = document.getElementById('importmapform').style.display;      if (document.getElementById('importmapform')) {
     if (curr == 'none') {          if (caller == 'map') {
         disp='block';              var curr = document.getElementById('importmapform').style.display;
     }              if (curr == 'none') {
     document.getElementById('importmapform').style.display=disp;                  disp='block';
     resize_scrollbox('contentscroll','1','1');              }
     return;  
 }  
   
   
 function extUrlPreview(caller) {  
     if (document.getElementById(caller)) {  
         var url = document.getElementById(caller).value;  
         var regexp = $urlregexp;  
         if (regexp.test(url)) {  
             openMyModal(url,500,400,'yes');  
         } else {  
             alert("$lt{'invurl'}");  
         }          }
           document.getElementById('importmapform').style.display=disp;
           resize_scrollbox('contentscroll','1','1');
     }      }
       return;
 }  }
   
 function makeims(imsform) {  function makeims(imsform) {
Line 4617  function makeims(imsform) { Line 4580  function makeims(imsform) {
     imsform.submit();      imsform.submit();
 }  }
   
 function setExternal(extform,residx) {  
     var title=extform.exttitle.value;  
     if (!String.trim) {  
         String.prototype.trim = function() {return this.replace(\/^\\s+|\\s+$\/g, "");};    }  
     var url=extform.exturl.value;  
     var regexp = $urlregexp;  
     if (title == null || title.trim()=="") {  
         alert("$lt{'titbl'}");  
         extform.exttitle.focus();  
         return;  
     }  
     if (regexp.test(url)) {  
         url = escape(url);  
         if (residx > 0) {  
             eval("extform.importdetail.value=title+'='+url+'='+residx;extform.submit();");  
         } else {  
             eval("extform.importdetail.value=title+'='+url;extform.submit();");  
         }  
     } else {  
         alert("$lt{'invurl'}");  
         extform.exturl.focus();  
         return;  
     }  
 }  
   
 function changename(folderpath,index,oldtitle,container,pagesymb) {  function changename(folderpath,index,oldtitle,container,pagesymb) {
 var title=prompt('$lt{"p_chn"}',oldtitle);  var title=prompt('$lt{"p_chn"}',oldtitle);
 if (title) {  if (title) {
Removed from v.1.509  
changed lines
  Added in v.1.518

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