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

Diff for /loncom/interface/lonparmset.pm between versions 1.522.2.28.4.6 and 1.522.2.28.4.9

version 1.522.2.28.4.6, 2022/05/31 14:31:45 version 1.522.2.28.4.9, 2023/02/03 01:23:46
Line 946  function validateParms() { Line 946  function validateParms() {
     var dlMenusRegExp = /^deeplink_menus_/;      var dlMenusRegExp = /^deeplink_menus_/;
     var dlCollsRegExp = /^deeplink_colls_/;      var dlCollsRegExp = /^deeplink_colls_/;
     var dlTargetRegExp = /^deeplink_target_/;      var dlTargetRegExp = /^deeplink_target_/;
       var dlExitRegExp = /^deeplink_exit_/;
       var dlExitTextRegExp = /^deeplink_exittext_/;
     var patternIP = /[\[\]\*\.a-zA-Z\d\-]+/;      var patternIP = /[\[\]\*\.a-zA-Z\d\-]+/;
     if ((document.parmform.elements.length != 'undefined')  && (document.parmform.elements.length) != 'null') {      var numelements = document.parmform.elements.length;
         if (document.parmform.elements.length) {      if ((typeof(numelements) != 'undefined') && (numelements != null)) {
             for (i=0; i<document.parmform.elements.length; i++) {          if (numelements) {
               for (i=0; i<numelements; i++) {
                 var name=document.parmform.elements[i].name;                  var name=document.parmform.elements[i].name;
                 if (ipRegExp.test(name)) {                  if (ipRegExp.test(name)) {
                     if (ipallowRegExp.test(name)) {                      if (ipallowRegExp.test(name)) {
Line 1081  function validateParms() { Line 1084  function validateParms() {
                         var identifier =  name.replace(dlTargetRegExp,'');                          var identifier =  name.replace(dlTargetRegExp,'');
                         var idx = document.parmform.elements[i].selectedIndex;                          var idx = document.parmform.elements[i].selectedIndex;
                         if (idx > 0) {                          if (idx > 0) {
                             var possdeeplink = document.parmform.elements[i].options[idx].value                              var linktarget = document.parmform.elements[i].options[idx].value
                             possdeeplink = possdeeplink.replace(/^\s+|\s+$/g,'');                              linktarget = linktarget.replace(/^\s+|\s+$/g,'');
                             if (document.parmform.elements['set_'+identifier].value) {                              if (document.parmform.elements['set_'+identifier].value) {
                                 possdeeplink = ','+possdeeplink;                                  linktarget = ','+linktarget;
                               }
                               document.parmform.elements['set_'+identifier].value += linktarget;
                           }
                       } else if (dlExitRegExp.test(name)) {
                           if (document.parmform.elements[i].checked) {
                               var identifier =  name.replace(dlExitRegExp,'');
                               var posslinkexit = document.parmform.elements[i].value;
                               posslinkexit = posslinkexit.replace(/^\s+|\s+$/g,'');
                               if (document.parmform.elements['set_'+identifier].value) {
                                   posslinkexit = ','+posslinkexit;
                               }
                               document.parmform.elements['set_'+identifier].value += posslinkexit;
                           }
                       } else if (dlExitTextRegExp.test(name)) {
                           var identifier = name.replace(dlExitTextRegExp,'');
                           if ((isRadioSet('deeplink_exit_'+identifier,'yes')) ||
                               (isRadioSet('deeplink_exit_'+identifier,'url'))) {
                               var posstext = document.parmform.elements[i].value;
                               posstext = posstext.replace(/^\s+|\s+$/g,'');
                               var origlength = posstext.length;
                               posstext = posstext.replace(/[:;'",]/g,'');
                               var newlength = posstext.length;
                               if (newlength > 0) {
                                   var change = origlength - newlength;
                                   if (change) {
                                       alert(change+' disallowed character(s) removed from Exit Button text');
                                   }
                                   if (posstext !== 'Exit Tool') {
                                       posstext = ':'+posstext;
                                       document.parmform.elements['set_'+identifier].value += posstext;
                                   }
                               } else {
                                   document.parmform.elements['set_'+identifier].value = '';
                                   if (newlength < origlength) {
                                       alert("An exit link type of 'In use' was selected but the button text value was blank, after removing disallowed characters.\nDisallowed characters are ,\":;'");
                                   } else {
                                       alert("An exit link type of 'In use' was selected but the button text value was blank.\nPlease enter the text to use.");
                                   }
                                   return false;
                             }                              }
                             document.parmform.elements['set_'+identifier].value += possdeeplink;  
                         }                          }
                     }                      }
                 }                  }
Line 1142  END Line 1183  END
 }  }
   
 sub done_proctor_js {  sub done_proctor_js {
       my $defaultdone = &mt('Done');
       &js_escape(\$defaultdone);
     return <<"END";      return <<"END";
 function toggleSecret(form,radio,key) {  function toggleSecret(form,radio,key) {
     var radios = form[radio+key];      var radios = form[radio+key];
Line 1158  function toggleSecret(form,radio,key) { Line 1201  function toggleSecret(form,radio,key) {
                         document.getElementById('done_'+key+'_proctorkey').value='';                          document.getElementById('done_'+key+'_proctorkey').value='';
                     }                      }
                 }                  }
                   if (document.getElementById('done_'+key+'_buttontext')) {
                       if (radios[i].value == '') {
                           document.getElementById('done_'+key+'_buttontext').value = '';
                       } else {
                           if (document.getElementById('done_'+key+'_buttontext').value == '') {
                               document.getElementById('done_'+key+'_buttontext').value = '$defaultdone';
                           }
                       }
                   }
             }              }
         }          }
     }      }
Line 1220  function toggleDeepLink(form,item,key) { Line 1272  function toggleDeepLink(form,item,key) {
                             keybox.type = 'hidden';                              keybox.type = 'hidden';
                         }                          }
                     }                      }
                   } else if (item == 'exit') {
                       if (document.getElementById('deeplinkdiv_'+item+'_'+key)) {
                           if (radios[i].value == 'no') {
                               document.getElementById('deeplinkdiv_'+item+'_'+key).style.display = 'none';
                               if (document.getElementById('deeplink_exittext_'+key)) {
                                   if (document.getElementById('deeplink_exittext_'+key).value != '') {
                                       document.getElementById('deeplink_exittext_'+key).value = '';
                                   }
                               }
                           } else {
                               document.getElementById('deeplinkdiv_'+item+'_'+key).style.display = 'inline-block';
                               if (document.getElementById('deeplink_exittext_'+key)) {
                                   if (document.getElementById('deeplink_exittext_'+key).value == '') {
                                       document.getElementById('deeplink_exittext_'+key).value = 'Exit Tool';
                                   }
                               }
                           }
                       }
                 }                  }
             }              }
         }          }
Line 2123  sub displaymenu { Line 2193  sub displaymenu {
 }  }
   
 sub mapmenu {  sub mapmenu {
     my ($r,$allmaps,$pschp,$maptitles,$symbp)=@_;      my ($r,$allmaps,$pschp,$maptitles,$symbp,$parmlev)=@_;
     my %allmaps_inverted = reverse %$allmaps;      my %allmaps_inverted = reverse %$allmaps;
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     my $tree=[];      my $tree=[];
Line 2171  sub mapmenu { Line 2241  sub mapmenu {
         }          }
     }      }
 # Show it ...      # Show it ...    
     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));      my $rowattr = ' id="mapmenu"';
       if ($parmlev eq 'general') {
           $rowattr .= ' style="display:none"';
       }
       $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',$rowattr));
     if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {      if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {
         my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';          my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
         my $whitespace =          my $whitespace =
Line 2859  ENDPARMSELSCRIPT Line 2933  ENDPARMSELSCRIPT
         $r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));          $r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
         &levelmenu($r,\%alllevs,$parmlev);          &levelmenu($r,\%alllevs,$parmlev);
         $r->print(&Apache::lonhtmlcommon::row_closure());          $r->print(&Apache::lonhtmlcommon::row_closure());
         &mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);          &mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp,$parmlev);
         $r->print(&Apache::lonhtmlcommon::row_closure());          $r->print(&Apache::lonhtmlcommon::row_closure());
         $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));          $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
         &partmenu($r,\%allparts,\@psprt);          &partmenu($r,\%allparts,\@psprt);
Line 3155  ENDTABLEHEADFOUR Line 3229  ENDTABLEHEADFOUR
   
 #-------------------------------------------- for each map, gather information  #-------------------------------------------- for each map, gather information
             my $mapid;              my $mapid;
                foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {                 foreach $mapid (sort { $a <=> $b } keys(%maplist)) {
                 my $maptitle = $maplist{$mapid};                  my $maptitle = $maplist{$mapid};
   
 #-----------------------  loop through ids and get all parameter types for map  #-----------------------  loop through ids and get all parameter types for map
Line 3613  sub parse_listdata_key { Line 3687  sub parse_listdata_key {
 }  }
   
 sub listdata {  sub listdata {
     my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly)=@_;      my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly,$parmlev)=@_;
 # Start list output  # Start list output
   
     my $oldsection='';      my $oldsection='';
Line 3725  sub listdata { Line 3799  sub listdata {
         $realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><span class="LC_parm_folder">('.$1.')</span></span>';          $realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><span class="LC_parm_folder">('.$1.')</span></span>';
         } elsif ($middle) {          } elsif ($middle) {
         my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);          my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
           next if (($url =~ /\.(page|sequence)$/) && ($parmlev eq 'full') && ($caller eq 'newoverview'));
         $realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';          $realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';
         }          }
         if ($sortorder eq 'realmstudent') {          if ($sortorder eq 'realmstudent') {
Line 3830  sub date_interval_selector { Line 3905  sub date_interval_selector {
     $showval  %= $factor;      $showval  %= $factor;
     my %select = ((map {$_ => $_} (0..$max)),      my %select = ((map {$_ => $_} (0..$max)),
               'select_form_order' => [0..$max]);                'select_form_order' => [0..$max]);
       if ($currval eq '') {
           unshift(@{$select{'select_form_order'}},'');
           $select{''} = '';
           $amount = '';
       }
     $result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,      $result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
                            \%select,'',$readonly);                             \%select,'',$readonly);
     $result .= ' '.&mt($name);      $result .= ' '.&mt($name);
Line 3837  sub date_interval_selector { Line 3917  sub date_interval_selector {
     if ($pname eq 'interval') {      if ($pname eq 'interval') {
         unless ($skipval{'done'}) {          unless ($skipval{'done'}) {
             my $checkedon = '';              my $checkedon = '';
               my $checkedoff = '';
             my $checkedproc = '';              my $checkedproc = '';
             my $currproctorkey = '';              my $currproctorkey = '';
             my $currprocdisplay = 'hidden';              my $currprocdisplay = 'hidden';
Line 3844  sub date_interval_selector { Line 3925  sub date_interval_selector {
             my $checkedoff = ' checked="checked"';              my $checkedoff = ' checked="checked"';
             if ($currval =~ /^(?:\d+)_done$/) {              if ($currval =~ /^(?:\d+)_done$/) {
                 $checkedon = ' checked="checked"';                  $checkedon = ' checked="checked"';
                 $checkedoff = '';  
             } elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:$/) {              } elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:$/) {
                 $currdonetext = $1;                  $currdonetext = $1;
                 $checkedon = ' checked="checked"';                  $checkedon = ' checked="checked"';
                 $checkedoff = '';  
             } elsif ($currval =~ /^(?:\d+)_done_proctor_(.+)$/) {              } elsif ($currval =~ /^(?:\d+)_done_proctor_(.+)$/) {
                 $currproctorkey = $1;                  $currproctorkey = $1;
                 $checkedproc = ' checked="checked"';                  $checkedproc = ' checked="checked"';
                 $checkedoff = '';  
                 $currprocdisplay = 'text';                  $currprocdisplay = 'text';
             } elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:_proctor_(.+)$/) {              } elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:_proctor_(.+)$/) {
                 $currdonetext = $1;                  $currdonetext = $1;
                 $currproctorkey = $2;                  $currproctorkey = $2;
                 $checkedproc = ' checked="checked"';                  $checkedproc = ' checked="checked"';
                 $checkedoff = '';  
                 $currprocdisplay = 'text';                  $currprocdisplay = 'text';
               } elsif ($currval ne '') {
                   $checkedoff = ' checked="checked"';
               } else {
                   $currdonetext = '';
             }              }
             my $onclick = ' onclick="toggleSecret(this.form,'."'done_','$thiskey'".');"';              my $onclick = ' onclick="toggleSecret(this.form,'."'done_','$thiskey'".');"';
             my $disabled;              my $disabled;
Line 3876  sub date_interval_selector { Line 3957  sub date_interval_selector {
                        '<input type="'.$currprocdisplay.'" id="done_'.$thiskey.'_proctorkey" '.                         '<input type="'.$currprocdisplay.'" id="done_'.$thiskey.'_proctorkey" '.
                        'name="done_'.$thiskey.'_proctorkey" value="'.&HTML::Entities::encode($currproctorkey,'"<>&').'"'.$disabled.' /></span><br />'.                         'name="done_'.$thiskey.'_proctorkey" value="'.&HTML::Entities::encode($currproctorkey,'"<>&').'"'.$disabled.' /></span><br />'.
                        '<span class="LC_nobreak">'.&mt('Button text').': '.                         '<span class="LC_nobreak">'.&mt('Button text').': '.
                        '<input type="text" name="done_'.$thiskey.'_buttontext" value="'.&HTML::Entities::encode($currdonetext,'"<>&').'"'.$disabled.' /></span>';                         '<input type="text" name="done_'.$thiskey.'_buttontext" value="'.
                          &HTML::Entities::encode($currdonetext,'"<>&').'"'.$disabled.' /></span>';
         }          }
     }      }
     unless ($readonly) {      unless ($readonly) {
Line 3889  sub date_interval_selector { Line 3971  sub date_interval_selector {
 sub get_date_interval_from_form {  sub get_date_interval_from_form {
     my ($key) = @_;      my ($key) = @_;
     my $seconds = 0;      my $seconds = 0;
       my $numnotnull = 0;
     foreach my $which (['days', 86400],      foreach my $which (['days', 86400],
                ['hours', 3600],                 ['hours', 3600],
                ['minutes', 60],                 ['minutes', 60],
                ['seconds',  1]) {                 ['seconds',  1]) {
     my ($name, $factor) = @{ $which };      my ($name, $factor) = @{ $which };
     if (defined($env{'form.'.$name.'_'.$key})) {      if (defined($env{'form.'.$name.'_'.$key})) {
         $seconds += $env{'form.'.$name.'_'.$key} * $factor;          unless ($env{'form.'.$name.'_'.$key} eq '') {
               $numnotnull ++;
               $seconds += $env{'form.'.$name.'_'.$key} * $factor;
           }
     }      }
     }      }
       if (($key =~ /\.interval$/) &&
               (($env{'form.done_'.$key} eq '_done') || ($env{'form.done_'.$key} eq '_done_proctor'))) {
           if ($env{'form.done_'.$key.'_buttontext'}) {
               $env{'form.done_'.$key.'_buttontext'} =~ s/\://g;
               $seconds .= '_done:'.$env{'form.done_'.$key.'_buttontext'}.':';
               if ($env{'form.done_'.$key} eq '_done_proctor') {
                   $seconds .= '_proctor';
               }
           } else {
               $seconds .= $env{'form.done_'.$key};
           }
           if (($env{'form.done_'.$key} eq '_done_proctor') &&
                   ($env{'form.done_'.$key.'_proctorkey'})) {
               $seconds .= '_'.$env{'form.done_'.$key.'_proctorkey'};
           }
       }
       return if (!$numnotnull);
     return $seconds;      return $seconds;
 }  }
   
Line 3973  sub string_ip_selector { Line 4076  sub string_ip_selector {
   
 sub string_deeplink_selector {  sub string_deeplink_selector {
     my ($thiskey, $showval, $readonly) = @_;      my ($thiskey, $showval, $readonly) = @_;
     my (@components,%values,@current,%titles,%options,%optiontext,%defaults,      my (@tables,%values,@current,%titles,%options,%optiontext,%defaults,
         %selectnull,%domlti,%crslti,@possmenus);          %selectnull,%domlti,%crslti,@possmenus,%components);
     @components = ('state','others','listing','scope','protect','menus','target');      @tables = ('upper','lower');
       %components = (
                       upper => ['state','others','listing','scope'],
                       lower => ['protect','menus','target','exit'],
                     );
     %titles = &Apache::lonlocal::texthash (      %titles = &Apache::lonlocal::texthash (
                   state   => 'Access status',                    state   => 'Access status',
                   others  => 'Hide other resources',                    others  => 'Hide other resources',
Line 3984  sub string_deeplink_selector { Line 4091  sub string_deeplink_selector {
                   protect => 'Link protection',                    protect => 'Link protection',
                   menus   => 'Menu Items Displayed',                    menus   => 'Menu Items Displayed',
                   target  => 'Embedded?',                    target  => 'Embedded?',
                     exit    => 'Exit Tool Button?',
               );                );
     %options = (      %options = (
                    state   => ['only','off','both'],                     state   => ['only','off','both'],
Line 3993  sub string_deeplink_selector { Line 4101  sub string_deeplink_selector {
                    protect => ['none','key','ltid','ltic'],                     protect => ['none','key','ltid','ltic'],
                    menus   => ['std','colls'],                     menus   => ['std','colls'],
                    target  => ['_self','_top'],                     target  => ['_self','_top'],
                      exit    => ['no','yes','url'],
                );                 );
     %optiontext = &Apache::lonlocal::texthash (      %optiontext = &Apache::lonlocal::texthash (
                     only       => 'deep only',                      only       => 'deep only',
Line 4016  sub string_deeplink_selector { Line 4125  sub string_deeplink_selector {
                     colls      => 'Numbered collection',                      colls      => 'Numbered collection',
                     _self      => 'Embedded',                      _self      => 'Embedded',
                     _top       => 'Not embedded',                      _top       => 'Not embedded',
                       no         => 'Not in use',
                       yes        => 'In use, no URL redirect',
                       url        => 'In use, redirect to URL',
                   );                    );
     %selectnull = &Apache::lonlocal::texthash (      %selectnull = &Apache::lonlocal::texthash (
                     ltic => 'Select Launcher',                      ltic => 'Select Launcher',
Line 4032  sub string_deeplink_selector { Line 4144  sub string_deeplink_selector {
         ($values{'protect'}) = ($current[4] =~ /^(key:[a-zA-Z\d_.!\@#\$%^&*()+=-]+|ltic:\d+|ltid:\d+)$/);          ($values{'protect'}) = ($current[4] =~ /^(key:[a-zA-Z\d_.!\@#\$%^&*()+=-]+|ltic:\d+|ltid:\d+)$/);
         ($values{'menus'}) = ($current[5] =~ /^(\d+)$/);          ($values{'menus'}) = ($current[5] =~ /^(\d+)$/);
         ($values{'target'}) = ($current[6] =~ /^(_self|_top)$/);          ($values{'target'}) = ($current[6] =~ /^(_self|_top)$/);
           ($values{'exit'}) = ($current[7] =~ /^((?:(?:yes|url)(?:|\:[^:;"',]+))|no)$/);
     } else {      } else {
         $defaults{'state'} = 'off',          $defaults{'state'} = 'off',
         $defaults{'others'} = 'unhide',          $defaults{'others'} = 'unhide',
Line 4040  sub string_deeplink_selector { Line 4153  sub string_deeplink_selector {
         $defaults{'protect'} = 'none';          $defaults{'protect'} = 'none';
         $defaults{'menus'} = '0';          $defaults{'menus'} = '0';
         $defaults{'target'} = '_top';          $defaults{'target'} = '_top';
           $defaults{'exit'} = 'yes';
     }      }
     my $disabled;      my $disabled;
     if ($readonly) {      if ($readonly) {
Line 4070  sub string_deeplink_selector { Line 4184  sub string_deeplink_selector {
         }          }
     }      }
   
     my $output = '<input type="hidden" name="set_'.$thiskey.'" /><table><tr>';      my $output = '<input type="hidden" name="set_'.$thiskey.'" />';
     foreach my $item (@components) {      foreach my $table ('upper','lower') {
         $output .= '<th>'.$titles{$item}.'</th>';          next unless (ref($components{$table}) eq 'ARRAY');
     }          $output .= '<table width="100%"><tr>';
     $output .= '</tr><tr>';          foreach my $item (@{$components{$table}}) {
     foreach my $item (@components) {              $output .= '<th>'.$titles{$item}.'</th>';
         $output .= '<td>';          }
         if (($item eq 'protect') || ($item eq 'menus')) {          $output .= '</tr><tr>';
             my $selected = $values{$item};          foreach my $item (@{$components{$table}}) {
             foreach my $option (@{$options{$item}}) {              $output .= '<td>';
                 if ($item eq 'protect') {              if (($item eq 'protect') || ($item eq 'menus') || ($item eq 'exit')) {
                     if ($option eq 'ltid') {                  my $selected = $values{$item};
                         next unless (keys(%domlti));                  foreach my $option (@{$options{$item}}) {
                     } elsif ($option eq 'ltic') {                      if ($item eq 'protect') {
                         next unless (keys(%crslti));                          if ($option eq 'ltid') {
                     }                              next unless (keys(%domlti));
                 } elsif (($item eq 'menus') && ($option eq 'colls')) {                          } elsif ($option eq 'ltic') {
                     next unless (@possmenus);                              next unless (keys(%crslti));
                 }                          }
                 my $checked;                      } elsif (($item eq 'menus') && ($option eq 'colls')) {
                 if ($item eq 'menus') {                          next unless (@possmenus);
                     if (($selected =~ /^\d+$/) && (@possmenus) &&                      }
                         (grep(/^\Q$selected\E$/,@possmenus))) {                      my $checked;
                         if ($option eq 'colls') {                      if ($item eq 'menus') {
                           if (($selected =~ /^\d+$/) && (@possmenus) &&
                               (grep(/^\Q$selected\E$/,@possmenus))) {
                               if ($option eq 'colls') {
                                   $checked = ' checked="checked"';
                               }
                           } elsif (($option eq 'std') && ($selected == 0) && ($selected ne '')) {
                             $checked = ' checked="checked"';                              $checked = ' checked="checked"';
                         }                          }
                     } elsif (($option eq 'std') && ($selected == 0) && ($selected ne '')) {                      } elsif ($selected =~ /^\Q$option\E/) {
                         $checked = ' checked="checked"';                          $checked = ' checked="checked"';
                     }                      }
                 } elsif ($selected =~ /^\Q$option\E/) {                      my $onclick;
                     $checked = ' checked="checked"';                      unless ($readonly) {
                 }                          my $esc_key = &js_escape($thiskey);
                 my $onclick;                          $onclick = ' onclick="toggleDeepLink(this.form,'."'$item','$esc_key'".');"';
                 unless ($readonly) {                      }
                     my $esc_key = &js_escape($thiskey);                      $output .= '<span class="LC_nobreak"><label>'.
                     $onclick = ' onclick="toggleDeepLink(this.form,'."'$item','$esc_key'".');"';                                 '<input type="radio" name="deeplink_'.$item.'_'.$thiskey.'" value="'.$option.'"'.$onclick.$disabled.$checked.' />'."\n".
                 }                                 $optiontext{$option}.'</label>';
                 $output .= '<span class="LC_nobreak"><label>'.                      if (($item eq 'protect') && ($option eq 'key')) {
                            '<input type="radio" name="deeplink_'.$item.'_'.$thiskey.'" value="'.$option.'"'.$onclick.$disabled.$checked.' />'."\n".                          my $visibility="hidden";
                            $optiontext{$option}.'</label>';                          my $currkey;
                 if (($item eq 'protect') && ($option eq 'key')) {                          if ($checked) {
                     my $visibility="hidden";                              $visibility = "text";
                     my $currkey;                              $currkey = (split(/\:/,$values{$item}))[1];
                     if ($checked) {                          }
                         $visibility = "text";                          $output .= '&nbsp;'.
                         $currkey = (split(/\:/,$values{$item}))[1];                                     '<input type="'.$visibility.'" name="deeplink_'.$option.'_'.$thiskey.'" id="deeplink_'.$option.'_'.$item.'_'.$thiskey.'" value="'.$currkey.'" size="10"'.$disabled.' />';
                     }                      } elsif (($option eq 'ltic') || ($option eq 'ltid') || ($option eq 'colls')) {
                     $output .= '&nbsp;'.                          my $display="none";
                         '<input type="'.$visibility.'" name="deeplink_'.$option.'_'.$thiskey.'" id="deeplink_'.$option.'_'.$item.'_'.$thiskey.'" value="'.$currkey.'" size="10"'.$disabled.' />';                          my ($current,$blankcheck,@possibles);
                 } elsif (($option eq 'ltic') || ($option eq 'ltid') || ($option eq 'colls')) {                          if ($checked) {
                     my $display="none";                              $display = 'inline-block';
                     my ($current,$blankcheck,@possibles);                              if (($option eq 'ltic') || ($option eq 'ltid'))  {
                     if ($checked) {                                  $current = (split(/\:/,$selected))[1];
                         $display = 'inline-block';                              } else {
                         if (($option eq 'ltic') || ($option eq 'ltid'))  {                                  $current = $selected;
                             $current = (split(/\:/,$selected))[1];                              }
                         } else {                          } else {
                             $current = $selected;                              $blankcheck = ' selected="selected"';
                         }                          }
                     } else {  
                         $blankcheck = ' selected="selected"';  
                     }  
                     if ($option eq 'ltid') {  
                         @possibles = keys(%domlti);  
                     } elsif ($option eq 'ltic') {  
                         @possibles = keys(%crslti);  
                     } else {  
                         @possibles = @possmenus;  
                     }  
                     $output .= '<div id="deeplinkdiv_'.$option.'_'.$item.'_'.$thiskey.'"'.  
                                ' style="display: '.$display.'">&nbsp;<select name="'.  
                                'deeplink_'.$option.'_'.$thiskey.'"'.$disabled.'>';  
                     if (@possibles > 1) {  
                         $output .= '<option value=""'.$blankcheck.'>'.$selectnull{$option}.  
                                    '</option>'."\n";  
                     }  
                     foreach my $poss (sort { $a <=> $b } @possibles) {  
                         my $selected;  
                         if (($poss == $current) || (scalar(@possibles) ==1)) {  
                             $selected = ' selected="selected"';  
                         }  
                         my $shown = $poss;  
                         if ($option eq 'ltid') {                          if ($option eq 'ltid') {
                             $shown = $domlti{$poss};                              @possibles = keys(%domlti);
                         } elsif ($option eq 'ltic') {                          } elsif ($option eq 'ltic') {
                             $shown = $crslti{$poss};                              @possibles = keys(%crslti);
                           } else {
                               @possibles = @possmenus;
                           }
                           $output .= '<div id="deeplinkdiv_'.$option.'_'.$item.'_'.$thiskey.'"'.
                                      ' style="display: '.$display.'">&nbsp;<select name="'.
                                      'deeplink_'.$option.'_'.$thiskey.'"'.$disabled.'>';
                           if (@possibles > 1) {
                               $output .= '<option value=""'.$blankcheck.'>'.$selectnull{$option}.
                                          '</option>'."\n";
                           }
                           foreach my $poss (sort { $a <=> $b } @possibles) {
                               my $selected;
                               if (($poss == $current) || (scalar(@possibles) ==1)) {
                                   $selected = ' selected="selected"';
                               }
                               my $shown = $poss;
                               if ($option eq 'ltid') {
                                   $shown = $domlti{$poss};
                               } elsif ($option eq 'ltic') {
                                   $shown = $crslti{$poss};
                               }
                               $output .= '<option value="'.$poss.'"'.$selected.'>'.$shown.'</option>';
                           }
                           $output .= '</select></div>';
                       }
                       $output .= '</span> ';
                   }
                   if ($item eq 'exit') {
                       my $exitsty = 'none';
                       my $displayval;
                       if ($values{$item} =~ /^(yes|url)/) {
                           $exitsty = 'inline-block';
                           my $currval = (split(/\:/,$values{$item}))[1];
                           if ($currval eq '') {
                               $displayval = 'Exit Tool';
                           } else {
                               $displayval = $currval;
                         }                          }
                         $output .= '<option value="'.$poss.'"'.$selected.'>'.$shown.'</option>';  
                     }                      }
                     $output .= '</select></div>';                      $output .= '<div id="deeplinkdiv_'.$item.'_'.$thiskey.'"'.
                                  ' style="display: '.$exitsty.'"><br />'.&mt('Button text').': '.
                                  '<input type="text" name="deeplink_exittext_'.$thiskey.'"'.
                                  ' id="deeplink_exittext_'.$thiskey.'" value="'.$displayval.'"'.
                                  ' size="10"'.$disabled.' /></div>';
                 }                  }
                 $output .= '</span> ';              } else {
             }                  my $selected = $values{$item};
         } else {                  my $defsel;
             my $selected = $values{$item};                  if ($selected eq '') {
             my $defsel;                      $defsel = ' selected="selected"';
             if ($selected eq '') {                  }
                 $defsel = ' selected="selected"';                  $output .= '<select name="deeplink_'.$item.'_'.$thiskey.'"'.$disabled.'>'."\n".
             }                             '<option value=""'.$defsel.'>'.&mt('Please select').'</option>'."\n";
             $output .= '<select name="deeplink_'.$item.'_'.$thiskey.'"'.$disabled.'>'."\n".                  foreach my $option (@{$options{$item}}) {
                        '<option value=""'.$defsel.'>'.&mt('Please select').'</option>'."\n";                      $output .= '<option value="'.$option.'"';
             foreach my $option (@{$options{$item}}) {                      if ($option eq $selected) {
                 $output .= '<option value="'.$option.'"';                          $output .= ' selected="selected"';
                 if ($option eq $selected) {                      }
                     $output .= ' selected="selected"';                      $output .= '>'.$optiontext{$option}.'</option>';
                 }                  }
                 $output .= '>'.$optiontext{$option}.'</option>';                  $output .= '</select>';
             }              }
             $output .= '</select>';              $output .= '</td>';
           }
           $output .= '</tr></table>'."\n";
           if ($table eq 'upper') {
               $output .= '<br />';
         }          }
         $output .= '</td>';  
     }      }
     $output .= '</tr></table>'."\n";  
     return $output;      return $output;
 }  }
   
Line 4219  my %strings = Line 4358  my %strings =
              => [['_allowfrom_','Hostname(s), or IP(s) from which access is allowed'],               => [['_allowfrom_','Hostname(s), or IP(s) from which access is allowed'],
                  ['_denyfrom_','Hostname(s) or IP(s) from which access is disallowed']],                   ['_denyfrom_','Hostname(s) or IP(s) from which access is disallowed']],
      'string_deeplink'       'string_deeplink'
              => [['on','Set choices for link protection, resource listing, access scope, shown menu items, and embedding']],               => [['on','Set choices for link protection, resource listing, access scope, shown menu items, embedding, and exit link']],
      );       );
   
 my %stringmatches = (  my %stringmatches = (
Line 4227  my %stringmatches = ( Line 4366  my %stringmatches = (
               => [['_allowfrom_','[^\!]+'],                => [['_allowfrom_','[^\!]+'],
                   ['_denyfrom_','\!']],                    ['_denyfrom_','\!']],
          'string_deeplink'           'string_deeplink'
               => [['on','^(only|off|both)\,(hide|unhide)\,(full|absent|grades|details|datestatus)\,(res|map|rec)\,(none|key\:\w+|ltic\:\d+|ltid\:\d+)\,(\d+|)\,_(self|top)$']],                => [['on','^(only|off|both)\,(hide|unhide)\,(full|absent|grades|details|datestatus)\,(res|map|rec)\,(none|key\:\w+|ltic\:\d+|ltid\:\d+)\,(\d+|)\,_(self|top),(yes|url|no)(|:[^:;\'",]+)$']],
     );      );
   
 my %stringtypes = (  my %stringtypes = (
Line 4546  ENDOVER Line 4685  ENDOVER
     $r->print('<div>');      $r->print('<div>');
     $r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));      $r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
     &levelmenu($r,\%alllevs,$parmlev);      &levelmenu($r,\%alllevs,$parmlev);
     if ($parmlev ne 'general') {      $r->print(&Apache::lonhtmlcommon::row_closure());
         $r->print(&Apache::lonhtmlcommon::row_closure());      &mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp,$parmlev);
         &mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp);  
     }  
     $r->print(&Apache::lonhtmlcommon::row_closure(1));      $r->print(&Apache::lonhtmlcommon::row_closure(1));
     $r->print(&Apache::lonhtmlcommon::end_pick_box());      $r->print(&Apache::lonhtmlcommon::end_pick_box());
     $r->print('</div></div>');      $r->print('</div></div>');
Line 4612  ENDOVER Line 4749  ENDOVER
   
 # List data  # List data
   
         &listdata($r,$resourcedata,$listdata,$sortorder,'newoverview',undef,$readonly);          &listdata($r,$resourcedata,$listdata,$sortorder,'newoverview',undef,$readonly,$parmlev);
     }      }
     $r->print(&tableend());      $r->print(&tableend());
     unless ($readonly) {      unless ($readonly) {
Removed from v.1.522.2.28.4.6  
changed lines
  Added in v.1.522.2.28.4.9

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