[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.510

version 1.509, 2012/11/16 23:37:15 version 1.510, 2012/11/27 23:34:41
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 %lt;
     if ($allowed) {      if ($allowed) {
Line 2338  END Line 2356  END
     my $editlink;      my $editlink;
     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 2377  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 2390  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 2405  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 ($orderidx) {
               $url .= '&amp;idx='.$orderidx;
           }
     }      }
     if ($ispage) {      if ($ispage) {
         my $pagename=&escape($pagetitle);          my $pagename=&escape($pagetitle);
Line 2421  $form_common.' Line 2450  $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 =
     $editlink = <<"EXTLNK";                  &Apache::lonextresedit::extedit_form(0,$residx,$orig_url,$title,$pathitem);
             &nbsp;  
             <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 {          } 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);
Line 3215  sub handler { Line 3223  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 3293  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 3344  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 3379  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 3459  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 3482  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 3672  SEDFFORM Line 3697  SEDFFORM
         { '<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();" />' => $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 3723  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 4011  SUPDOCFORM Line 4023  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 4087  my %suporderhash = ( Line 4084  my %suporderhash = (
         }          }
     }      }
   
     $r->print(&endContentScreen());      if ($needs_end) {
           $r->print(&endContentScreen());
       }
   
     if ($allowed) {      if ($allowed) {
  $r->print('   $r->print('
Line 4465  sub editing_js { Line 4464  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 4481  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 4582  function toggleUpload(caller) { Line 4563  function toggleUpload(caller) {
   
 function toggleMap() {  function toggleMap() {
     var disp = 'none';      var disp = 'none';
     var curr = document.getElementById('importmapform').style.display;      if (document.getElementById('importmapform')) {
     if (curr == 'none') {          var curr = document.getElementById('importmapform').style.display;
         disp='block';          if (curr == 'none') {
     }              disp='block';
     document.getElementById('importmapform').style.display=disp;  
     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 4587  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.510

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