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

Diff for /loncom/xml/londefdef.pm between versions 1.440 and 1.441

version 1.440, 2012/07/06 22:46:12 version 1.441, 2012/11/29 20:37:13
Line 599  sub start_body { Line 599  sub start_body {
             $header=&Apache::lonmenu::constspaceform();              $header=&Apache::lonmenu::constspaceform();
         }          }
         if ($env{'request.state'} ne 'published') {          if ($env{'request.state'} ne 'published') {
             $header.=&Apache::londefdef::edit_controls();              $header.=&edit_controls();
         }          }
         if ($env{'request.state'} eq 'construct') {          if ($env{'request.state'} eq 'construct') {
             $currentstring.=&Apache::loncommon::head_subbox(              $currentstring.=&Apache::loncommon::head_subbox(
Line 633  sub edit_controls { Line 633  sub edit_controls {
     if (($env{'request.course.id'}) && ($env{'form.forceedit'})) {      if (($env{'request.course.id'}) && ($env{'form.forceedit'})) {
         my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'});          my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'});
         if ($url =~ /\.html?$/i) {          if ($url =~ /\.html?$/i) {
               if ($env{'request.course.id'}) {
                   if ($env{'request.filename'} =~ m{/userfiles/supplemental/default|\d+/}) {
                       if (&Apache::lonnet::is_course_upload($env{'request.filename'},
                           $env{'course.'.$env{'request.course.id'}.'.num'},
                           $env{'course.'.$env{'request.course.id'}.'.domain'})) {
                           &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                                   ['folderpath','title']);
                       }
                   }
               }
             my ($symb,$itemtitle,$displayfile) =               my ($symb,$itemtitle,$displayfile) = 
                 &Apache::lonxml::get_courseupload_hierarchy($url);                  &Apache::lonxml::get_courseupload_hierarchy($url,
                                                               $env{'form.folderpath'},
                                                               $env{'form.title'});
             if (($symb ne '') || ($env{'httpref.'.$url} ne '')) {              if (($symb ne '') || ($env{'httpref.'.$url} ne '')) {
                   $result .= (' ' x 3).                    $result .= (' ' x 3).
                              &Apache::lonhtmlcommon::dependencies_button()."\n".                               &Apache::lonhtmlcommon::dependencies_button()."\n".
                              &Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,$url)."\n";                               &Apache::lonhtmlcommon::dependencycheck_js($symb,
                                    $itemtitle,$url,$env{'form.folderpath'},$url)."\n";
             }              }
         }          }
         my $viewtext = &mt('Course View');  
         if (&Apache::loncommon::course_type() eq 'Community') {  
             $viewtext = &mt('Community View');  
         }  
         $result .= ('&nbsp;' x 3).'<input type="button" value="'.  
                    $viewtext.'" onclick="javascript:location.href=currentURL" />';  
     }      }
     $result .= '</div>      $result .= '</div>
 </div>  </div>
Removed from v.1.440  
changed lines
  Added in v.1.441

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