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

Diff for /loncom/interface/lonmenu.pm between versions 1.524 and 1.528

version 1.524, 2022/06/30 21:04:14 version 1.528, 2022/10/27 20:33:31
Line 935  sub innerregister { Line 935  sub innerregister {
                 if ($env{'form.title'}) {                  if ($env{'form.title'}) {
                     $title = $env{'form.title'};                      $title = $env{'form.title'};
                 }                  }
                 my $trail;                  my ($trail,$cnum,$cdom);
                   if ($env{'form.folderpath'}) {
                       $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                       $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                       &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);
                   }
                 if ($env{'form.folderpath'}) {                  if ($env{'form.folderpath'}) {
                     &prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname);                      &prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname);
                     ($trail) =                      ($trail) =
Line 1371  sub get_editbutton { Line 1376  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 3200  sub placement_progress { Line 3209  sub placement_progress {
 }  }
   
 sub linkprot_exit {  sub linkprot_exit {
     if (($env{'request.ciurse.id'}) && ($env{'request.deeplink.login'})) {      if (($env{'request.course.id'}) && ($env{'request.deeplink.login'})) {
         my ($deeplink_symb,$deeplink);          my ($deeplink_symb,$deeplink);
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 3226  sub linkprot_exit { Line 3235  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 3287  sub linkprot_exit {
 </script>  </script>
   
 END  END
                           }
                     }                      }
                 }                  }
             }              }
Removed from v.1.524  
changed lines
  Added in v.1.528

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