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

Diff for /loncom/interface/londocs.pm between versions 1.484.2.93.2.15 and 1.484.2.93.2.20

version 1.484.2.93.2.15, 2023/09/06 13:35:14 version 1.484.2.93.2.20, 2025/06/14 18:25:57
Line 716  sub group_import { Line 716  sub group_import {
                 my $marker = $2;                  my $marker = $2;
                 my $info = $3;                  my $info = $3;
                 my ($toolid,$toolprefix,$tooltype,%toolhash,%toolsettings);                  my ($toolid,$toolprefix,$tooltype,%toolhash,%toolsettings);
                 my @extras = ('linktext','explanation','crslabel','crstitle','crsappend');                  my @extras = ('linktext','explanation','crslabel','crstitle','crsappend','returnurl','backtourl','desturl','delay');
                 my @toolinfo = split(/:/,$info);                  my @toolinfo = split(/:/,$info);
                 if ($residx) {                  if ($residx) {
                     %toolsettings=&Apache::lonnet::dump('exttool_'.$marker,$coursedom,$coursenum);                      %toolsettings=&Apache::lonnet::dump('exttool_'.$marker,$coursedom,$coursenum);
Line 733  sub group_import { Line 733  sub group_import {
                 $toolid =~ s/\D//g;                  $toolid =~ s/\D//g;
                 ($toolhash{'target'},$toolhash{'width'},$toolhash{'height'},                  ($toolhash{'target'},$toolhash{'width'},$toolhash{'height'},
                  $toolhash{'linktext'},$toolhash{'explanation'},$toolhash{'crslabel'},                   $toolhash{'linktext'},$toolhash{'explanation'},$toolhash{'crslabel'},
                  $toolhash{'crstitle'},$toolhash{'crsappend'},$toolhash{'gradable'}) = @toolinfo;                   $toolhash{'crstitle'},$toolhash{'crsappend'},$toolhash{'gradable'},
                    $toolhash{'returnurl'},$toolhash{'backtourl'},$toolhash{'desturl'},
                    $toolhash{'delay'}) = @toolinfo;
                 foreach my $item (@extras) {                  foreach my $item (@extras) {
                     $toolhash{$item} = &unescape($toolhash{$item});                      $toolhash{$item} = &unescape($toolhash{$item});
                 }                  }
                   foreach my $item ('crsappend','gradable','returnurl',
                                     'backtourl','desturl','delay') {
                       $toolhash{$item} =~ s/^\s+//;
                       $toolhash{$item} =~ s/\s+$//;
                   }
                 if ($folder =~ /^supplemental/) {                  if ($folder =~ /^supplemental/) {
                     delete($toolhash{'gradable'});                      delete($toolhash{'gradable'});
                 } else {                  } else {
Line 797  sub group_import { Line 804  sub group_import {
                                     }                                      }
                                 }                                  }
                             }                              }
                               my $nocrsdest = 1;
                             if (ref($tools{'crsconf'}) eq 'HASH') {                              if (ref($tools{'crsconf'}) eq 'HASH') {
                                 foreach my $item ('label','title','linktext','explanation') {                                  foreach my $item ('label','title','linktext','explanation') {
                                     my $crsitem;                                      my $crsitem;
Line 820  sub group_import { Line 828  sub group_import {
                                         }                                          }
                                     }                                      }
                                 }                                  }
                                   if ($tools{'crsconf'}{'returnurl'}) {
                                       unless ($toolhash{'returnurl'} eq 'custom') {
                                           delete($toolhash{'backtourl'});
                                       }
                                   } else {
                                       delete($toolhash{'returnurl'});
                                       delete($toolhash{'backtourl'});
                                   }
                                   if ($tools{'crsconf'}{'desturl'}) {
                                       if ($toolhash{'desturl'} =~ m{^(https?\://|/)}) {
                                           undef($nocrsdest);
                                       } else {
                                           delete($toolhash{'desturl'});
                                           delete($toolhash{'delay'});
                                       }
                                   } else {
                                       delete($toolhash{'desturl'});
                                       delete($toolhash{'delay'});
                                   }
                             }                              }
                             if ($toolhash{'passback'}) {                              if ($toolhash{'passback'}) {
                                 my $gradesecret = UUID::Tiny::create_uuid_as_string(UUID_V4);                                  my $gradesecret = UUID::Tiny::create_uuid_as_string(UUID_V4);
Line 831  sub group_import { Line 858  sub group_import {
                                 $toolhash{'rostersecret'} = $rostersecret;                                  $toolhash{'rostersecret'} = $rostersecret;
                                 $toolhash{'rostersecretdate'} = time;                                  $toolhash{'rostersecretdate'} = time;
                             }                              }
                               if ($nocrsdest) {
                                   foreach my $item ('desturl','delay') {
                                       if (exists($toolhash{$item})) {
                                           delete($toolhash{$item});
                                       }
                                   }
                               } elsif (exists($toolhash{'delay'})) {
                                   unless ($toolhash{'delay'} =~ /^(\d+\.?\d*)$/) {
                                       delete($toolhash{'delay'});
                                   }
                               }
                             my $changegradable;                              my $changegradable;
                             if (($residx) && ($folder =~ /^default/)) {                              if (($residx) && ($folder =~ /^default/)) {
                                 if ($toolsettings{'gradable'}) {                                  if ($toolsettings{'gradable'}) {
Line 848  sub group_import { Line 886  sub group_import {
                                     }                                      }
                                 }                                  }
                             }                              }
                               if ($residx) {
                                   if (($toolsettings{'backtourl'} ne '') && (!exists($toolhash{'backtourl'}))) { 
                                       push(@deleted,'backtourl');
                                   }
                                   if (($toolsettings{'returnurl'} ne '') && (!exists($toolhash{'returnurl'}))) {
                                       push(@deleted,'returnurl');
                                   }
                                   if (($toolsettings{'desturl'} ne '') && (!exists($toolhash{'desturl'}))) {
                                       push(@deleted,'desturl');
                                   }
                                   if (($toolsettings{'delay'} ne '') && (!exists($toolhash{'delay'}))) {
                                       push(@deleted,'delay');
                                   }
                               }
                             my $putres = &Apache::lonnet::put('exttool_'.$marker,\%toolhash,$coursedom,$coursenum);                              my $putres = &Apache::lonnet::put('exttool_'.$marker,\%toolhash,$coursedom,$coursenum);
                             if ($putres eq 'ok') {                              if ($putres eq 'ok') {
                                 if (@deleted) {                                  if (@deleted) {
Line 4605  END Line 4657  END
                     $nomodal = 1;                      $nomodal = 1;
                 }                  }
     }      }
             my ($checkencrypt,$shownurl);              my $checkencrypt;
             if (!$env{'request.role.adv'}) {              if (!$env{'request.role.adv'}) {
                 if (((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) ||                  if (((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) ||
                     ($isencrypted) || (&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i)) {                      ($isencrypted) || (&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i)) {
Line 4625  END Line 4677  END
                 my $currenc = $env{'request.enc'};                  my $currenc = $env{'request.enc'};
                 $env{'request.enc'} = 1;                  $env{'request.enc'} = 1;
                 $shownsymb = &Apache::lonenc::encrypted($symb);                  $shownsymb = &Apache::lonenc::encrypted($symb);
                 $shownurl = &Apache::lonenc::encrypted($url);                  my $shownurl = &Apache::lonenc::encrypted($url);
                 if (&Apache::lonnet::symbverify($symb,$url)) {                  if (&Apache::lonnet::symbverify($symb,$url)) {
                     $url = $shownurl;                      $url = $shownurl;
                 } else {                  } else {
Line 4640  END Line 4692  END
                         $url = &Apache::lonnet::clutter($url);                          $url = &Apache::lonnet::clutter($url);
                     }                      }
                 }                  }
                 $shownurl = $url;              } else {
                   $url = '';
             }              }
             unless ($env{'request.role.adv'}) {              unless ($env{'request.role.adv'}) {
                 if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {                  if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
Line 4651  END Line 4704  END
                     $hiddenres = 1;                      $hiddenres = 1;
                 }                  }
             }              }
             if ($url ne '') {              if (($url ne '') && ($shownsymb ne '')) {
                 $url = $shownurl.(($shownurl=~/\?/)?'&':'?').'symb='.&escape($shownsymb);                  $url .= (($url=~/\?/)?'&':'?').'symb='.&escape($shownsymb);
             }              }
  }   }
     } elsif ($supplementalflag) {      } elsif ($supplementalflag) {
Line 4681  END Line 4734  END
                 }                  }
                 $nomodal = 1;                  $nomodal = 1;
             }              }
         } elsif (($uploaded) && (!$allowed) && ($url ne '/adm/supplemental?')) {          } elsif (($uploaded) && ($url ne '/adm/supplemental?') && ($url ne '/adm/coursedocs?')) {
             my $embstyle=&Apache::loncommon::fileembstyle($extension);              my $embstyle=&Apache::loncommon::fileembstyle($extension);
             unless ($embstyle eq 'ssi') {              unless ($embstyle eq 'ssi') {
                 if (($embstyle eq 'img')                  if (($embstyle eq 'img')
Line 4787  $form_common."\n". Line 4840  $form_common."\n".
 '<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" id="randomorder_'.$orderidx.'" onclick="checkForSubmit(this.form,'."'randomorder','settings'".');" '.$ro_set.$disabled.' /> '.&mt('Random Order').' </label></span>'.  '<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" id="randomorder_'.$orderidx.'" onclick="checkForSubmit(this.form,'."'randomorder','settings'".');" '.$ro_set.$disabled.' /> '.&mt('Random Order').' </label></span>'.
 $form_end;  $form_end;
         }          }
     } elsif ($supplementalflag && !$allowed) {      } elsif ($supplementalflag) {
         my $isexttool;          my $isexttool;
         if ($url=~m{^/adm/$coursedom/$coursenum/\d+/ext\.tool$}) {          if ($url=~m{^/adm/$coursedom/$coursenum/\d+/ext\.tool$}) {
             $url='/adm/wrapper'.$url;              $url='/adm/wrapper'.$url;
Line 4871  $form_end; Line 4924  $form_end;
                $anchor = '#'.&HTML::Entities::encode($anchor,'"<>&');                 $anchor = '#'.&HTML::Entities::encode($anchor,'"<>&');
            }             }
        }         }
        if ((!$supplementalflag) && ($nomodal) && ($hostname ne '')) {         if (($nomodal) && ($hostname ne '')) {
            $link = 'http://'.$hostname.$url;             $link = 'http://'.$hostname.$url;
        } else {         } else {
            $link = $url;             $link = $url;
        }         }
        $link = &js_escape($link.(($url=~/\?/)?'&amp;':'?').'inhibitmenu=yes'.$anchor);         my $inhibitmenu;
          if ((($supplementalflag) && ($allowed) && ($url =~ m{^/adm/wrapper/})) ||
              (($allowed) && (($url =~ m{^/adm/(viewclasslist|$match_domain/$match_username/aboutme)(\?|$)}) ||
                              ($url =~ m{^/public/$match_domain/$match_courseid/syllabus(\?|$)})))) {
              $inhibitmenu = 'only_body=1';
          } else {
              $inhibitmenu = 'inhibitmenu=yes';
          }
          $link = &js_escape($link.(($url=~/\?/)?'&amp;':'?').$inhibitmenu.$anchor);
        if ($allowed && !$env{'request.role.adv'} && !$isfolder && !$ispage && !$uploaded) {         if ($allowed && !$env{'request.role.adv'} && !$isfolder && !$ispage && !$uploaded) {
            if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {             if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
                $nolink = 1;                 $nolink = 1;
Line 5325  sub short_urls { Line 5386  sub short_urls {
         }          }
         my %currtiny = &Apache::lonnet::dump('tiny',$cdom,$cnum);          my %currtiny = &Apache::lonnet::dump('tiny',$cdom,$cnum);
         $r->print(&Apache::loncourserespicker::create_picker($navmap,'shorturls',$formname,$crstype,undef,          $r->print(&Apache::loncourserespicker::create_picker($navmap,'shorturls',$formname,$crstype,undef,
                                                              undef,undef,undef,undef,undef,\%currtiny,$readonly));                                                               undef,undef,undef,undef,undef,\%currtiny,undef,$readonly));
     }      }
     $r->print(&endContentScreen());      $r->print(&endContentScreen());
 }  }
Line 5936  sub handler { Line 5997  sub handler {
     }      }
     if ($env{'form.forcesupplement'}) { $supplementalflag=1; }      if ($env{'form.forcesupplement'}) { $supplementalflag=1; }
     if ($env{'form.forcestandard'})   { $supplementalflag=0; }      if ($env{'form.forcestandard'})   { $supplementalflag=0; }
     unless ($allowed) { $supplementalflag=1; }      unless (($supplementalflag) ||
     unless ($standard) { $supplementalflag=1; }              ($r->uri =~ m{^/adm/coursedocs/showdoc/uploaded/\Q$coursedom\E/\Q$coursenum\E/docs/})) {
           unless ($allowed) { $supplementalflag=1; }
           unless ($standard) { $supplementalflag=1; }
       }
     my $toolsflag=0;      my $toolsflag=0;
     if ($env{'form.tools'}) { $toolsflag=1; }      if ($env{'form.tools'}) { $toolsflag=1; }
   
Line 6013  sub handler { Line 6077  sub handler {
             &Apache::loncommon::validate_folderpath($supplementalflag,$allowed,$coursenum,$coursedom);              &Apache::loncommon::validate_folderpath($supplementalflag,$allowed,$coursenum,$coursedom);
         }          }
     }      }
      
 # If we are not allowed to make changes, all we can see are supplemental docs  # If we are not allowed to make changes and this is supplemental content set folderpath
     if (!$allowed) {      if ((!$allowed) && ($supplementalflag)) {
         unless ($env{'form.folderpath'} =~ /^supplemental/) {          unless ($env{'form.folderpath'} =~ /^supplemental/) {
             $env{'form.folderpath'} = &supplemental_base();              $env{'form.folderpath'} = &supplemental_base();
         }          }
Line 6245  sub handler { Line 6309  sub handler {
         if ($supplementalflag) {          if ($supplementalflag) {
             my $title = &HTML::Entities::encode($env{'form.title'},'\'"<>&');              my $title = &HTML::Entities::encode($env{'form.title'},'\'"<>&');
             my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);              my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
             $args = {'bread_crumbs' => $brcrum};              $args = {'bread_crumbs' => $brcrum,
                        'bread_crumbs_nomenu' => 1};
         } else {          } else {
             $args = {'force_register' => $showdoc};              $args = {'force_register' => $showdoc};
         }          }
Line 6274  sub handler { Line 6339  sub handler {
             }              }
         }          }
         my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);          my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);
           my $args = {'bread_crumbs' => $brcrum};
           unless (($env{'form.folderpath'} eq '') ||
                   ($env{'form.folder'} eq 'supplemental')) {
               $args->{'bread_crumbs_nomenu'} = 1;
           }
         $r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,          $r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,
                                                 {'bread_crumbs' => $brcrum,}));                                                  $args));
     } else {      } else {
         my ($breadtext,$breadtitle,$helpitem);          my ($breadtext,$breadtitle,$helpitem);
         $breadtext = "$crstype Editor";          $breadtext = "$crstype Editor";
Removed from v.1.484.2.93.2.15  
changed lines
  Added in v.1.484.2.93.2.20

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