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

Diff for /loncom/interface/lonmenu.pm between versions 1.525 and 1.527

version 1.525, 2022/07/01 03:14:31 version 1.527, 2022/09/13 12:22:14
Line 1371  sub get_editbutton { Line 1371  sub get_editbutton {
         if ($env{'form.folderpath'}) {          if ($env{'form.folderpath'}) {
             $suppanchor = $env{'form.anchor'};              $suppanchor = $env{'form.anchor'};
         }          }
           my $shownsymb;
           if ($env{'request.symb'}) {
               $shownsymb = &Apache::lonenc::check_encrypt($env{'request.symb'});
           }
         $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,          $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
                                                 $forceedit,$forcereg,$env{'request.symb'},                                                  $forceedit,$forcereg,$env{'request.symb'},$shownsymb,
                                                 &escape($env{'form.folderpath'}),                                                  &escape($env{'form.folderpath'}),
                                                 &escape($env{'form.title'}),$hostname,                                                  &escape($env{'form.title'}),$hostname,
                                                 $env{'form.idx'},&escape($env{'form.suppurl'}),                                                  $env{'form.idx'},&escape($env{'form.suppurl'}),
Line 3226  sub linkprot_exit { Line 3230  sub linkprot_exit {
                         exit     => 'Cancel',                          exit     => 'Cancel',
                     );                      );
                     if ($exit) {                      if ($exit) {
                         my $height = 250;                          my ($show,$text) = split(/:/,$exit);
                         my $width = 300;                          unless ($show eq 'no') { 
                         my $exitbuttontext = &mt('Exit Tool');                              my $height = 250;
                         return <<END;                              my $width = 300;
                               my $exitbuttontext;
                               if ($text eq '') { 
                                   $exitbuttontext = &mt('Exit Tool');
                               } else {
                                   $exitbuttontext = $text;
                               }
                               return <<END;
 <form method="post" name="LCexitButton" action="/adm/linkexit">  <form method="post" name="LCexitButton" action="/adm/linkexit">
     <input type="hidden" name="LC_deeplink_exit" value="" />      <input type="hidden" name="LC_deeplink_exit" value="" />
     <button id="LC_exit-confirm-opener" type="button">$exitbuttontext</button>      <button id="LC_exit-confirm-opener" type="button">$exitbuttontext</button>
Line 3271  sub linkprot_exit { Line 3282  sub linkprot_exit {
 </script>  </script>
   
 END  END
                           }
                     }                      }
                 }                  }
             }              }
Removed from v.1.525  
changed lines
  Added in v.1.527

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