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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.172 and 1.173

version 1.172, 2019/08/11 15:15:43 version 1.173, 2019/08/13 16:59:12
Line 67  sub handler { Line 67  sub handler {
             $r->send_http_header;              $r->send_http_header;
   
             &Apache::lonhtmlcommon::clear_breadcrumbs();              &Apache::lonhtmlcommon::clear_breadcrumbs();
             my $js = '<script type="text/javascript"               $r->print(&Apache::loncommon::start_page('Authoring Space').
                         src="/res/adm/includes/file_upload.js"></script>';  
             $r->print(&Apache::loncommon::start_page('Authoring Space', $js).  
                       '<div class="LC_error">'.                        '<div class="LC_error">'.
                       '<br /><p>'.                        '<br /><p>'.
                       &mt('Your Authoring Space is currently in the location used by LON-CAPA version 2.10 and older, but your domain is using a newer LON-CAPA version ([_1]).',$version).'</p>'.                        &mt('Your Authoring Space is currently in the location used by LON-CAPA version 2.10 and older, but your domain is using a newer LON-CAPA version ([_1]).',$version).'</p>'.
Line 108  sub handler { Line 106  sub handler {
                                                  $cstr,$crstype); # expressed in MB                                                   $cstr,$crstype); # expressed in MB
   
     # Put out the start of page.      # Put out the start of page.
     &startpage($r, $uname, $udom, $thisdisfn, $current_disk_usage, $disk_quota, $crsauthor);       &startpage($r, $uname, $udom, $thisdisfn, $current_disk_usage, $disk_quota, $crsauthor);
   
     if (!-d $fn) {      if (!-d $fn) {
         if (-e $fn) {          if (-e $fn) {
Line 586  sub dircontrols { Line 584  sub dircontrols {
       <fieldset>        <fieldset>
         <legend>$lt{'updc'}</legend>          <legend>$lt{'updc'}</legend>
         <input type="hidden" name="filename" value="/priv$thisdisfn/" />          <input type="hidden" name="filename" value="/priv$thisdisfn/" />
         <input type="file" name="upfile" class="LC_flUpload testclass" size="20" />          <input type="file" name="upfile" class="LC_flUpload" size="20" />
         <input type="hidden" id="LC_free_space" value=$free_space />          <input type="hidden" id="LC_free_space" value="$free_space" />
         <input type="button" value="$lt{'uplo'}"  onclick="checkUpload(this.form)" />          <input type="button" value="$lt{'uplo'}"  onclick="checkUpload(this.form)" />
       </fieldset>        </fieldset>
     </form>      </form>
Removed from v.1.172  
changed lines
  Added in v.1.173

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