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

Diff for /loncom/interface/lonmenu.pm between versions 1.514 and 1.515

version 1.514, 2021/11/30 15:55:37 version 1.515, 2022/05/06 19:36:09
Line 1056  sub innerregister { Line 1056  sub innerregister {
                 $currdir =~ s|[^/]+$||;                  $currdir =~ s|[^/]+$||;
  my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);   my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
  my $esc_currdir = &Apache::loncommon::escape_single($currdir);   my $esc_currdir = &Apache::loncommon::escape_single($currdir);
                   my $pubfile = "/res/$udom/$uname/$thisdisfn";
                   my $candelete = 1;
                   if (-e $londocroot.$pubfile) {
                       unless (&Apache::lonnet::metadata($pubfile,'obsolete')) {
                           undef($candelete);
                       }
                   }
 #  #
 # Probably should be in mydesk.tab  # Probably should be in mydesk.tab
 #  #
Line 1063  sub innerregister { Line 1070  sub innerregister {
 s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory  s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
 s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version  s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version
 s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource  s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
   s&7&3&copy.png&Copy&resource[_4]&gocstr('/adm/cfile?action=copy','/priv/$udom/$uname/$cleandisfn')&Copy this resource
   ENDMENUITEMS
   #
   # Rename and Delete only available if obsolete or unpublished
   #
                   if ($candelete) {
                       $menuitems .= (<<ENDMENUITEMS);
   s&7&4&rename.png&Rename&resource[_5]&gocstr('/adm/cfile?action=rename','/priv/$udom/$uname/$cleandisfn')&Rename this resource
 s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource  s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource
   ENDMENUITEMS
                   }
                   $menuitems .= (<<ENDMENUITEMS);
 s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document  s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
 ENDMENUITEMS  ENDMENUITEMS
             }              }
Line 1566  sub advtools_crumbs { Line 1584  sub advtools_crumbs {
         &Apache::lonhtmlcommon::add_breadcrumb_tool(          &Apache::lonhtmlcommon::add_breadcrumb_tool(
             'advtools', @funcs[61,64,65,66,67,74]);              'advtools', @funcs[61,64,65,66,67,74]);
     } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {      } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
         &Apache::lonhtmlcommon::add_breadcrumb_tool(          if ($env{'request.state'} eq 'construct') {
             'advtools', @funcs[61,71,72,73,74,92]);              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                   'advtools', @funcs[61,73,74,71,72]);
           } else {
               &Apache::lonhtmlcommon::add_breadcrumb_tool(
                   'advtools', @funcs[61,71,72,73,74,92]);
           }
     } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {      } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {
         &Apache::lonhtmlcommon::add_breadcrumb_tool(          &Apache::lonhtmlcommon::add_breadcrumb_tool(
             'advtools', $funcs[61]);              'advtools', $funcs[61]);
Line 2208  sub utilityfunctions { Line 2231  sub utilityfunctions {
   
     my $esc_url=&escape($currenturl);      my $esc_url=&escape($currenturl);
     my $esc_symb=&escape($currentsymb);      my $esc_symb=&escape($currentsymb);
       my $newname = &mt('New Name');
   
     my $countdown = &countdown_toggle_js();      my $countdown = &countdown_toggle_js();
   
Line 2278  function gocstr(url,filename) { Line 2302  function gocstr(url,filename) {
         this.document.cstrdelete.submit();          this.document.cstrdelete.submit();
         return;          return;
     }      }
       if ((url == '/adm/cfile?action=copy') || (url == '/adm/cfile?action=rename')) {
           this.document.cstrcopy.filename.value = filename;
           var oldname = filename.substring(filename.lastIndexOf("/") + 1);
           var newname=prompt('$newname',oldname);
           if (newname == "" || !newname || newname == oldname)  {
               return;
           }
           if (url == '/adm/cfile?action=rename') {
               this.document.cstrcopy.action.value = 'rename';
           } else {
               this.document.cstrcopy.action.value = 'copy';
           }
           this.document.cstrcopy.newfilename.value = newname;
           this.document.cstrcopy.submit();
           return;
       }
     if (url == '/adm/printout') {      if (url == '/adm/printout') {
         this.document.cstrprint.postdata.value = filename          this.document.cstrprint.postdata.value = filename
         this.document.cstrprint.curseed.value = 0;          this.document.cstrprint.curseed.value = 0;
Line 2444  sub constspaceform { Line 2484  sub constspaceform {
 <input type="hidden" name="curseed" value="" />  <input type="hidden" name="curseed" value="" />
 <input type="hidden" name="problemtype" value="" />  <input type="hidden" name="problemtype" value="" />
 </form>  </form>
   <form name="cstrcopy" action="/adm/cfile" method="post"$target>
   <input type="hidden" name="action" value="copy" />
   <input type="hidden" name="filename" value="" />
   <input type="hidden" name="newfilename" value="" />
   </form>
   
 ENDCONSTSPACEFORM  ENDCONSTSPACEFORM
 }  }
Removed from v.1.514  
changed lines
  Added in v.1.515

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