loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.1075.2.67 and 1.1219

-version 1.1075.2.67, 2014/02/22 00:02:13
+version 1.1219, 2015/04/28 12:59:08
  Line 69  use Apache::lontexconvert();
  use Apache::lonclonecourse();
  use Apache::lonuserutils();
  use Apache::lonuserstate();
+ use Apache::courseclassifier();
  use LONCAPA qw(:DEFAULT :match);
  use DateTime::TimeZone;
  use DateTime::Locale::Catalog;
+ use Text::Aspell;
  use Authen::Captcha;
  use Captcha::reCAPTCHA;
  use Crypt::DES;
- Line 160  sub ssi_with_retries {
+ Line 162  sub ssi_with_retries {
  # ----------------------------------------------- Filetypes/Languages/Copyright
  my %language;
  my %supported_language;
+ my %supported_codes;
  my %latex_language;		# For choosing hyphenation in <transl..>
  my %latex_language_bykey;	# for choosing hyphenation from metadata
  my %cprtag;
- Line 194  BEGIN {
+ Line 197  BEGIN {
              while (my $line = <$fh>) {
                  next if ($line=~/^\#/);
                  chomp($line);
-                 my ($key,$two,$country,$three,$enc,$val,$sup,$latex)=(split(/\t/,$line));
+                 my ($key,$code,$country,$three,$enc,$val,$sup,$latex)=(split(/\t/,$line));
                  $language{$key}=$val.' - '.$enc;
                  if ($sup) {
                      $supported_language{$key}=$sup;
+ 		    $supported_codes{$key}   = $code;
                  }
  		if ($latex) {
  		    $latex_language_bykey{$key} = $latex;
- 		    $latex_language{$two} = $latex;
+ 		    $latex_language{$code} = $latex;
  		}
              }
              close($fh);
- Line 665  if (!Array.prototype.indexOf) {
+ Line 669  if (!Array.prototype.indexOf) {
          var n = 0;
          if (arguments.length > 0) {
              n = Number(arguments[1]);
-             if (n !== n) { // shortcut for verifying if it's NaN
+             if (n !== n) { // shortcut for verifying if it is NaN
                  n = 0;
              } else if (n !== 0 && n !== (1 / 0) && n !== -(1 / 0)) {
                  n = (n > 0 || -1) * Math.floor(Math.abs(n));
- Line 901  sub check_uncheck_jscript {
+ Line 905  sub check_uncheck_jscript {
  function checkAll(field) {
      if (field.length > 0) {
          for (i = 0; i < field.length; i++) {
              if (!field[i].disabled) {
                  field[i].checked = true;
              }
          }
      } else {
          if (!field.disabled) {
              field.checked = true;
          }
      }
- Line 1016  sub select_language {
+ Line 1020  sub select_language {
  =pod
+ =item * &list_languages()
+ Returns an array reference that is suitable for use in language prompters.
+ Each array element is itself a two element array.  The first element
+ is the language code.  The second element a descsriptiuon of the
+ language itself.  This is suitable for use in e.g.
+ &Apache::edit::select_arg (once dereferenced that is).
+ =cut
+ sub list_languages {
+     my @lang_choices;
+     foreach my $id (&languageids()) {
+ 	my $code = &supportedlanguagecode($id);
+ 	if ($code) {
+ 	    my $selector    = $supported_codes{$id};
+ 	    my $description = &plainlanguagedescription($id);
+ 	    push (@lang_choices, [$selector, $description]);
+ 	}
+     }
+     return \@lang_choices;
+ }
+ =pod
  =item * &linked_select_forms(...)
  linked_select_forms returns a string containing a <script></script> block
- Line 1236  sub help_open_topic {
+ Line 1267  sub help_open_topic {
      $topic=~s/\W/\_/g;
      if (!$stayOnPage) {
-         if ($env{'browser.mobile'}) {
+ 	$link = "javascript:openMyModal('/adm/help/${filename}.hlp',$width,$height,'yes');";
- 	    $link = "javascript:openMyModal('/adm/help/${filename}.hlp',$width,$height,'yes');";
-         } else {
-             $link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))";
-         }
      } elsif ($stayOnPage eq 'popup') {
          $link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))";
      } else {
- Line 1289  sub helpLatexCheatsheet {
+ Line 1316  sub helpLatexCheatsheet {
  	  .&help_open_topic('Other_Symbols',&mt('Other Symbols'),$stayOnPage,undef,600)
  	  .'</span>';
      unless ($not_author) {
-         $out .= ' <span>'
+         $out .= '<span>'
- 	       .&help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),$stayOnPage,undef,600)
+                .&help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),$stayOnPage,undef,600)
+                .'</span> <span>'
+                .&help_open_topic('Authoring_Multilingual_Problems',&mt('How to create problems in different languages'),$stayOnPage,undef,600)
  	       .'</span>';
      }
      $out .= '</span>'; # End cheatsheet
- Line 1354  sub help_open_menu {
+ Line 1383  sub help_open_menu {
  sub top_nav_help {
      my ($text) = @_;
      $text = &mt($text);
-     my $stay_on_page;
+     my $stay_on_page = 1;
-     unless ($env{'environment.remote'} eq 'on') {
-         $stay_on_page = 1;
-     }
      my ($link,$banner_link);
      unless ($env{'request.noversionuri'} =~ m{^/adm/helpmenu}) {
          $link = ($stay_on_page) ? "javascript:helpMenu('display')"
- Line 1387  sub help_menu_js {
+ Line 1414  sub help_menu_js {
          &Apache::loncommon::start_page('Help Menu', undef,
  				       {'frameset'    => 1,
  					'js_ready'    => 1,
                                          'use_absolute' => $httphost,
  					'add_entries' => {
  					    'border' => '0',
  					    'rows'   => "110,*",},});
      my $end_page =
          &Apache::loncommon::end_page({'frameset' => 1,
- Line 1730  RESIZE
+ Line 1757  RESIZE
  }
+ sub colorfuleditor_js {
+     return <<"COLORFULEDIT"
+ <script type="text/javascript">
+ // <![CDATA[>
+     function fold_box(curDepth, lastresource){
+     // we need a list because there can be several blocks you need to fold in one tag
+         var block = document.getElementsByName('foldblock_'+curDepth);
+     // but there is only one folding button per tag
+         var foldbutton = document.getElementById('folding_btn_'+curDepth);
+         if(block.item(0).style.display == 'none'){
+             foldbutton.value = '@{[&mt("Hide")]}';
+             for (i = 0; i < block.length; i++){
+                 block.item(i).style.display = '';
+             }
+         }else{
+             foldbutton.value = '@{[&mt("Show")]}';
+             for (i = 0; i < block.length; i++){
+                 // block.item(i).style.visibility = 'collapse';
+                 block.item(i).style.display = 'none';
+             }
+         };
+         saveState(lastresource);
+     }
+     function saveState (lastresource) {
+         var tag_list = getTagList();
+         if(tag_list != null){
+             var timestamp = new Date().getTime();
+             var key = lastresource;
+             // the value pattern is: 'time;key1,value1;key2,value2; ... '
+             // starting with timestamp
+             var value = timestamp+';';
+             // building the list of key-value pairs
+             for(var i = 0; i < tag_list.length; i++){
+                 value += tag_list[i]+',';
+                 value += document.getElementsByName(tag_list[i])[0].style.display+';';
+             }
+             // only iterate whole storage if nothing to override
+             if(localStorage.getItem(key) == null){
+                 // prevent storage from growing large
+                 if(localStorage.length > 50){
+                     var regex_getTimestamp = /^(?:\d)+;/;
+                     var oldest_timestamp = regex_getTimestamp.exec(localStorage.key(0));
+                     var oldest_key;
+                     for(var i = 1; i < localStorage.length; i++){
+                         if (regex_getTimestamp.exec(localStorage.key(i)) < oldest_timestamp) {
+                             oldest_key = localStorage.key(i);
+                             oldest_timestamp = regex_getTimestamp.exec(oldest_key);
+                         }
+                     }
+                     localStorage.removeItem(oldest_key);
+                 }
+             }
+             localStorage.setItem(key,value);
+         }
+     }
+     // restore folding status of blocks (on page load)
+     function restoreState (lastresource) {
+         if(localStorage.getItem(lastresource) != null){
+             var key = lastresource;
+             var value = localStorage.getItem(key);
+             var regex_delTimestamp = /^\d+;/;
+             value.replace(regex_delTimestamp, '');
+             var valueArr = value.split(';');
+             var pairs;
+             var elements;
+             for (var i = 0; i < valueArr.length; i++){
+                 pairs = valueArr[i].split(',');
+                 elements = document.getElementsByName(pairs[0]);
+                 for (var j = 0; j < elements.length; j++){
+                     elements[j].style.display = pairs[1];
+                     if (pairs[1] == "none"){
+                         var regex_id = /([_\\d]+)\$/;
+                         regex_id.exec(pairs[0]);
+                         document.getElementById("folding_btn"+RegExp.\$1).value = "Show";
+                     }
+                 }
+             }
+         }
+     }
+     function getTagList () {
+         var stringToSearch = document.lonhomework.innerHTML;
+         var ret = new Array();
+         var regex_findBlock = /(foldblock_.*?)"/g;
+         var tag_list = stringToSearch.match(regex_findBlock);
+         if(tag_list != null){
+             for(var i = 0; i < tag_list.length; i++){
+                 ret.push(tag_list[i].replace(/"/, ''));
+             }
+         }
+         return ret;
+     }
+     function saveScrollPosition (resource) {
+         var tag_list = getTagList();
+         // we dont always want to jump to the first block
+         // 170 is roughly above the "Problem Editing" header. we just want to save if the user scrolled down further than this
+         if(\$(window).scrollTop() > 170){
+             if(tag_list != null){
+                 var result;
+                 for(var i = 0; i < tag_list.length; i++){
+                     if(isElementInViewport(tag_list[i])){
+                         result += tag_list[i]+';';
+                     }
+                 }
+                 sessionStorage.setItem('anchor_'+resource, result);
+             }
+         } else {
+             // we dont need to save zero, just delete the item to leave everything tidy
+             sessionStorage.removeItem('anchor_'+resource);
+         }
+     }
+     function restoreScrollPosition(resource){
+         var elem = sessionStorage.getItem('anchor_'+resource);
+         if(elem != null){
+             var tag_list = elem.split(';');
+             var elem_list;
+             for(var i = 0; i < tag_list.length; i++){
+                 elem_list = document.getElementsByName(tag_list[i]);
+                 if(elem_list.length > 0){
+                     elem = elem_list[0];
+                     break;
+                 }
+             }
+             elem.scrollIntoView();
+         }
+     }
+     function isElementInViewport(el) {
+         // change to last element instead of first
+         var elem = document.getElementsByName(el);
+         var rect = elem[0].getBoundingClientRect();
+         return (
+             rect.top >= 0 &&
+             rect.left >= 0 &&
+             rect.bottom <= (window.innerHeight || document.documentElement.clientHeight) && /*or $(window).height() */
+             rect.right <= (window.innerWidth || document.documentElement.clientWidth) /*or $(window).width() */
+         );
+     }
+     function autosize(depth){
+         var cmInst = window['cm'+depth];
+         var fitsizeButton = document.getElementById('fitsize'+depth);
+         // is fixed size, switching to dynamic
+         if (sessionStorage.getItem("autosized_"+depth) == null) {
+             cmInst.setSize("","auto");
+             fitsizeButton.value = "@{[&mt('Fixed size')]}";
+             sessionStorage.setItem("autosized_"+depth, "yes");
+         // is dynamic size, switching to fixed
+         } else {
+             cmInst.setSize("","300px");
+             fitsizeButton.value = "@{[&mt('Dynamic size')]}";
+             sessionStorage.removeItem("autosized_"+depth);
+         }
+     }
+ // ]]>
+ </script>
+ COLORFULEDIT
+ }
+ sub xmleditor_js {
+     return <<XMLEDIT
+ <script type="text/javascript" src="/adm/jQuery/addons/jquery-scrolltofixed.js"></script>
+ <script type="text/javascript">
+ // <![CDATA[>
+     function saveScrollPosition (resource) {
+         var scrollPos = \$(window).scrollTop();
+         sessionStorage.setItem(resource,scrollPos);
+     }
+     function restoreScrollPosition(resource){
+         var scrollPos = sessionStorage.getItem(resource);
+         \$(window).scrollTop(scrollPos);
+     }
+     // unless internet explorer
+     if (!(window.navigator.appName == "Microsoft Internet Explorer" && (document.documentMode || document.compatMode))){
+         \$(document).ready(function() {
+              \$(".LC_edit_actionbar").scrollToFixed(\{zIndex: 100\});
+         });
+     }
+     // inserts text at cursor position into codemirror (xml editor only)
+     function insertText(text){
+         cm.focus();
+         var curPos = cm.getCursor();
+         cm.replaceRange(text.replace(/ESCAPEDSCRIPT/g,'script'), {line: curPos.line,ch: curPos.ch});
+     }
+ // ]]>
+ </script>
+ XMLEDIT
+ }
+ sub insert_folding_button {
+     my $curDepth = $Apache::lonxml::curdepth;
+     my $lastresource = $env{'request.ambiguous'};
+     return "<input type=\"button\" id=\"folding_btn_$curDepth\"
+             value=\"".&mt('Hide')."\" onclick=\"fold_box('$curDepth','$lastresource')\">";
+ }
  =pod
  =head1 Excel and CSV file utility routines
- Line 2191  The optional $onchange argument specifie
+ Line 2453  The optional $onchange argument specifie
  The optional $incdoms is a reference to an array of domains which will be the only available options.
  The optional $excdoms is a reference to an array of domains which will be excluded from the available options.
  =cut
- Line 2209  sub select_dom_form {
+ Line 2471  sub select_dom_form {
      }
      if ($includeempty) { @domains=('',@domains); }
      if (ref($excdoms) eq 'ARRAY') {
          map { $exclude{$_} = 1; } @{$excdoms};
      }
      my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n";
      foreach my $dom (@domains) {
- Line 2338  Outputs:
+ Line 2600  Outputs:
  =item * $clientinfo
+ =item * $clientosversion
  =back
  =back
- Line 2357  sub decode_user_agent {
+ Line 2621  sub decode_user_agent {
      my $clientmathml='';
      my $clientunicode='0';
      my $clientmobile=0;
+     my $clientosversion='';
      for (my $i=0;$i<=$#browsertype;$i++) {
-         my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\:/,$browsertype[$i]);
+         my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\%/,$browsertype[$i]);
  	if (($httpbrowser=~/$match/i)  && ($httpbrowser!~/$notmatch/i)) {
  	    $clientbrowser=$bname;
              $httpbrowser=~/$vreg/i;
- Line 2378  sub decode_user_agent {
+ Line 2643  sub decode_user_agent {
      if ($httpbrowser=~/next/i) { $clientos='next'; }
      if (($httpbrowser=~/mac/i) ||
          ($httpbrowser=~/powerpc/i)) { $clientos='mac'; }
-     if ($httpbrowser=~/win/i) { $clientos='win'; }
+     if ($httpbrowser=~/win/i) {
+         $clientos='win';
+         if ($httpbrowser =~/Windows\s+NT\s+(\d+\.\d+)/i) {
+             $clientosversion = $1;
+         }
+     }
      if ($httpbrowser=~/embed/i) { $clientos='pda'; }
      if ($httpbrowser=~/(Android|iPod|iPad|iPhone|webOS|Blackberry|Windows Phone|Opera m(?:ob|in)|Fennec)/i) {
          $clientmobile=lc($1);
- Line 2389  sub decode_user_agent {
+ Line 2659  sub decode_user_agent {
          $clientinfo = 'chromeframe-'.$1;
      }
      return ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
-             $clientunicode,$clientos,$clientmobile,$clientinfo);
+             $clientunicode,$clientos,$clientmobile,$clientinfo,
+             $clientosversion);
  }
  ###############################################################
- Line 2556  sub authform_nochange {
+ Line 2827  sub authform_nochange {
                kerb_def_dom => 'MSU.EDU',
                @_,
            );
      my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
      my $result;
      if (!$authnum) {
          $result = &mt('Under your current role you are not permitted to change login settings for this user');
- Line 3052  sub get_related_words {
+ Line 3323  sub get_related_words {
      untie %thesaurus_db;
      return @Words;
  }
+ ###############################################################
+ #
+ #  Spell checking
+ #
  =pod
  =back
+ =head1 Spell checking
+ =over 4
+ =item * &check_spelling($wordlist $language)
+ Takes a string containing words and feeds it to an external
+ spellcheck program via a pipeline. Returns a string containing
+ them mis-spelled words.
+ Parameters:
+ =over 4
+ =item - $wordlist
+ String that will be fed into the spellcheck program.
+ =item - $language
+ Language string that specifies the language for which the spell
+ check will be performed.
+ =back
+ =back
+ Note: This sub assumes that aspell is installed.
  =cut
+ sub check_spelling {
+     my ($wordlist, $language) = @_;
+     my @misspellings;
+     # Generate the speller and set the langauge.
+     # if explicitly selected:
+     my $speller = Text::Aspell->new;
+     if ($language) {
+ 	$speller->set_option('lang', $language);
+     }
+     # Turn the word list into an array of words by splittingon whitespace
+     my @words = split(/\s+/, $wordlist);
+     foreach my $word (@words) {
+ 	if(! $speller->check($word)) {
+ 	    push(@misspellings, $word);
+ 	}
+     }
+     return join(' ', @misspellings);
+ }
  # -------------------------------------------------------------- Plaintext name
  =pod
- Line 3665  sub user_lang {
+ Line 3996  sub user_lang {
  =over 4
  =item * &get_previous_attempt($symb, $username, $domain, $course,
-     $getattempt, $regexp, $gradesub)
+     $getattempt, $regexp, $gradesub, $usec, $identifier)
  Return string with previous attempt on problem. Arguments:
- Line 3687  Return string with previous attempt on p
+ Line 4018  Return string with previous attempt on p
  =item * $gradesub: routine that processes the string if it matches $regexp
+ =item * $usec: section of the desired student
+ =item * $identifier: counter for student (multiple students one problem) or
+     problem (one student; whole sequence).
  =back
  The output string is a table containing all desired attempts, if any.
- Line 3694  The output string is a table containing
+ Line 4030  The output string is a table containing
  =cut
  sub get_previous_attempt {
-   my ($symb,$username,$domain,$course,$getattempt,$regexp,$gradesub)=@_;
+   my ($symb,$username,$domain,$course,$getattempt,$regexp,$gradesub,$usec,$identifier)=@_;
    my $prevattempts='';
    no strict 'refs';
    if ($symb) {
- Line 3704  sub get_previous_attempt {
+ Line 4040  sub get_previous_attempt {
        my %lasthash=();
        my $version;
        for ($version=1;$version<=$returnhash{'version'};$version++) {
-         foreach my $key (sort(split(/\:/,$returnhash{$version.':keys'}))) {
+         foreach my $key (reverse(sort(split(/\:/,$returnhash{$version.':keys'})))) {
- 	  $lasthash{$key}=$returnhash{$version.':'.$key};
+             if ($key =~ /\.rawrndseed$/) {
+                 my ($id) = ($key =~ /^(.+)\.rawrndseed$/);
+                 $lasthash{$id.'.rndseed'} = $returnhash{$version.':'.$key};
+             } else {
+                 $lasthash{$key}=$returnhash{$version.':'.$key};
+             }
          }
        }
        $prevattempts=&start_data_table().&start_data_table_header_row();
        $prevattempts.='<th>'.&mt('History').'</th>';
-       my (%typeparts,%lasthidden);
+       my (%typeparts,%lasthidden,%regraded,%hidestatus);
        my $showsurv=&Apache::lonnet::allowed('vas',$env{'request.course.id'});
        foreach my $key (sort(keys(%lasthash))) {
  	my ($ign,@parts) = split(/\./,$key);
- Line 3727  sub get_previous_attempt {
+ Line 4068  sub get_previous_attempt {
                        $lasthidden{$ign.'.'.$id} = 1;
                    }
                }
+               if ($identifier ne '') {
+                   my $id = join(',',@parts);
+                   if (&Apache::lonnet::EXT("resource.$id.problemstatus",$symb,
+                                                $domain,$username,$usec,undef,$course) =~ /^no/) {
+                       $hidestatus{$ign.'.'.$id} = 1;
+                   }
+               }
+           } elsif ($data eq 'regrader') {
+               if (($identifier ne '') && (@parts)) {
+                   my $id = join(',',@parts);
+                   $regraded{$ign.'.'.$id} = 1;
+               }
            }
  	} else {
  	  if ($#parts == 0) {
- Line 3738  sub get_previous_attempt {
+ Line 4091  sub get_previous_attempt {
        }
        $prevattempts.=&end_data_table_header_row();
        if ($getattempt eq '') {
+         my (%solved,%resets,%probstatus);
+         if (($identifier ne '') && (keys(%regraded) > 0)) {
+             for ($version=1;$version<=$returnhash{'version'};$version++) {
+                 foreach my $id (keys(%regraded)) {
+                     if (($returnhash{$version.':'.$id.'.regrader'}) &&
+                         ($returnhash{$version.':'.$id.'.tries'} eq '') &&
+                         ($returnhash{$version.':'.$id.'.award'} eq '')) {
+                         push(@{$resets{$id}},$version);
+                     }
+                 }
+             }
+         }
  	for ($version=1;$version<=$returnhash{'version'};$version++) {
-             my @hidden;
+             my (@hidden,@unsolved);
              if (%typeparts) {
                  foreach my $id (keys(%typeparts)) {
-                     if (($returnhash{$version.':'.$id.'.type'} eq 'anonsurvey') || ($returnhash{$version.':'.$id.'.type'} eq 'anonsurveycred')) {
+                     if (($returnhash{$version.':'.$id.'.type'} eq 'anonsurvey') ||
+                         ($returnhash{$version.':'.$id.'.type'} eq 'anonsurveycred')) {
                          push(@hidden,$id);
+                     } elsif ($identifier ne '') {
+                         unless (($returnhash{$version.':'.$id.'.type'} eq 'survey') ||
+                                 ($returnhash{$version.':'.$id.'.type'} eq 'surveycred') ||
+                                 ($hidestatus{$id})) {
+                             next if ((ref($resets{$id}) eq 'ARRAY') && grep(/^\Q$version\E$/,@{$resets{$id}}));
+                             if ($returnhash{$version.':'.$id.'.solved'} eq 'correct_by_student') {
+                                 push(@{$solved{$id}},$version);
+                             } elsif (($returnhash{$version.':'.$id.'.solved'} ne '') &&
+                                      (ref($solved{$id}) eq 'ARRAY')) {
+                                 my $skip;
+                                 if (ref($resets{$id}) eq 'ARRAY') {
+                                     foreach my $reset (@{$resets{$id}}) {
+                                         if ($reset > $solved{$id}[-1]) {
+                                             $skip=1;
+                                             last;
+                                         }
+                                     }
+                                 }
+                                 unless ($skip) {
+                                     my ($ign,$partslist) = split(/\./,$id,2);
+                                     push(@unsolved,$partslist);
+                                 }
+                             }
+                         }
                      }
                  }
              }
              $prevattempts.=&start_data_table_row().
-                            '<td>'.&mt('Transaction [_1]',$version).'</td>';
+                            '<td>'.&mt('Transaction [_1]',$version);
+             if (@unsolved) {
+                 $prevattempts .= '<span class="LC_nobreak"><label>'.
+                                  '<input type="checkbox" name="HIDE'.$identifier.'" value="'.$version.':'.join('_',@unsolved).'" />'.
+                                  &mt('Hide').'</label></span>';
+             }
+             $prevattempts .= '</td>';
              if (@hidden) {
                  foreach my $key (sort(keys(%lasthash))) {
                      next if ($key =~ /\.foilorder$/);
- Line 3770  sub get_previous_attempt {
+ Line 4166  sub get_previous_attempt {
                          }
                      } else {
                          if ($key =~ /\./) {
-                             my $value = &format_previous_attempt_value($key,
+                             my $value = $returnhash{$version.':'.$key};
-                                               $returnhash{$version.':'.$key});
+                             if ($key =~ /\.rndseed$/) {
-                             $prevattempts.='<td>'.$value.'&nbsp;</td>';
+                                 my ($id) = ($key =~ /^(.+)\.[^.]+$/);
+                                 if (exists($returnhash{$version.':'.$id.'.rawrndseed'})) {
+                                     $value = $returnhash{$version.':'.$id.'.rawrndseed'};
+                                 }
+                             }
+                             $prevattempts.='<td>'.&format_previous_attempt_value($key,$value).
+                                            '&nbsp;</td>';
                          } else {
                              $prevattempts.='<td>&nbsp;</td>';
                          }
- Line 3781  sub get_previous_attempt {
+ Line 4183  sub get_previous_attempt {
              } else {
  	        foreach my $key (sort(keys(%lasthash))) {
                      next if ($key =~ /\.foilorder$/);
- 		    my $value = &format_previous_attempt_value($key,
+                     my $value = $returnhash{$version.':'.$key};
- 			            $returnhash{$version.':'.$key});
+                     if ($key =~ /\.rndseed$/) {
- 		    $prevattempts.='<td>'.$value.'&nbsp;</td>';
+                         my ($id) = ($key =~ /^(.+)\.[^.]+$/);
+                         if (exists($returnhash{$version.':'.$id.'.rawrndseed'})) {
+                             $value = $returnhash{$version.':'.$id.'.rawrndseed'};
+                         }
+                     }
+                     $prevattempts.='<td>'.&format_previous_attempt_value($key,$value).
+                                    '&nbsp;</td>';
  	        }
              }
  	    $prevattempts.=&end_data_table_row();
- Line 3808  sub get_previous_attempt {
+ Line 4216  sub get_previous_attempt {
                        if ($key =~/$regexp$/ && (defined &$gradesub)) {
                            $value = &$gradesub($value);
                        }
-                       $prevattempts.='<td>'.$value.'&nbsp;</td>';
+                       $prevattempts.='<td>'. $value.'&nbsp;</td>';
                    } else {
                        $prevattempts.='<td>&nbsp;</td>';
                    }
- Line 3824  sub get_previous_attempt {
+ Line 4232  sub get_previous_attempt {
  	      if ($key =~/$regexp$/ && (defined &$gradesub)) {
                    $value = &$gradesub($value);
                }
- 	      $prevattempts.='<td>'.$value.'&nbsp;</td>';
+ 	     $prevattempts.='<td>'.$value.'&nbsp;</td>';
            }
        }
        $prevattempts.= &end_data_table_row().&end_data_table();
- Line 3845  sub get_previous_attempt {
+ Line 4253  sub get_previous_attempt {
  sub format_previous_attempt_value {
      my ($key,$value) = @_;
      if (($key =~ /timestamp/) || ($key=~/duedate/)) {
- 	$value = &Apache::lonlocal::locallocaltime($value);
+         $value = &Apache::lonlocal::locallocaltime($value);
      } elsif (ref($value) eq 'ARRAY') {
- 	$value = '('.join(', ', @{ $value }).')';
+         $value = &HTML::Entities::encode('('.join(', ', @{ $value }).')','"<>&');
      } elsif ($key =~ /answerstring$/) {
          my %answers = &Apache::lonnet::str2hash($value);
+         my @answer = %answers;
+         %answers = map {&HTML::Entities::encode($_, '"<>&')} @answer;
          my @anskeys = sort(keys(%answers));
          if (@anskeys == 1) {
              my $answer = $answers{$anskeys[0]};
- Line 3872  sub format_previous_attempt_value {
+ Line 4282  sub format_previous_attempt_value {
              }
          }
      } else {
- 	$value = &unescape($value);
+         $value = &HTML::Entities::encode(&unescape($value), '"<>&');
      }
      return $value;
  }
- Line 4233  sub findallcourses {
+ Line 4643  sub findallcourses {
  ###############################################
  sub blockcheck {
-     my ($setters,$activity,$uname,$udom,$url) = @_;
+     my ($setters,$activity,$uname,$udom,$url,$is_course) = @_;
-     if (!defined($udom)) {
+     if (defined($udom) && defined($uname)) {
+         # If uname and udom are for a course, check for blocks in the course.
+         if (($is_course) || (&Apache::lonnet::is_course($udom,$uname))) {
+             my ($startblock,$endblock,$triggerblock) =
+                 &get_blocks($setters,$activity,$udom,$uname,$url);
+             return ($startblock,$endblock,$triggerblock);
+         }
+     } else {
          $udom = $env{'user.domain'};
-     }
-     if (!defined($uname)) {
          $uname = $env{'user.name'};
      }
-     # If uname and udom are for a course, check for blocks in the course.
-     if (&Apache::lonnet::is_course($udom,$uname)) {
-         my ($startblock,$endblock,$triggerblock) =
-             &get_blocks($setters,$activity,$udom,$uname,$url);
-         return ($startblock,$endblock,$triggerblock);
-     }
      my $startblock = 0;
      my $endblock = 0;
      my $triggerblock = '';
- Line 4259  sub blockcheck {
+ Line 4666  sub blockcheck {
      # boards, chat or groups, check for blocking in current course only.
      if (($activity eq 'boards' || $activity eq 'chat' ||
-          $activity eq 'groups') && ($env{'request.course.id'})) {
+          $activity eq 'groups' || $activity eq 'printout') &&
+         ($env{'request.course.id'})) {
          foreach my $key (keys(%live_courses)) {
              if ($key ne $env{'request.course.id'}) {
                  delete($live_courses{$key});
- Line 4523  sub parse_block_record {
+ Line 4931  sub parse_block_record {
  }
  sub blocking_status {
-     my ($activity,$uname,$udom,$url) = @_;
+     my ($activity,$uname,$udom,$url,$is_course) = @_;
      my %setters;
  # check for active blocking
      my ($startblock,$endblock,$triggerblock) =
-         &blockcheck(\%setters,$activity,$uname,$udom,$url);
+         &blockcheck(\%setters,$activity,$uname,$udom,$url,$is_course);
      my $blocked = 0;
      if ($startblock && $endblock) {
          $blocked = 1;
- Line 4561  END_MYBLOCK
+ Line 4969  END_MYBLOCK
      my $popupUrl = "/adm/blockingstatus/$querystring";
      my $text = &mt('Communication Blocked');
+     my $class = 'LC_comblock';
      if ($activity eq 'docs') {
          $text = &mt('Content Access Blocked');
+         $class = '';
      } elsif ($activity eq 'printout') {
          $text = &mt('Printing Blocked');
      }
      $output .= <<"END_BLOCK";
- <div class='LC_comblock'>
+ <div class='$class'>
    <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'
    title='$text'>
    <img class='LC_noBorder LC_middle' title='$text' src='/res/adm/pages/comblock.png' alt='$text'/></a>
- Line 4583  END_BLOCK
+ Line 4993  END_BLOCK
  ###############################################
  sub check_ip_acc {
-     my ($acc)=@_;
+     my ($acc,$clientip)=@_;
      &Apache::lonxml::debug("acc is $acc");
      if (!defined($acc) || $acc =~ /^\s*$/ || $acc =~/^\s*no\s*$/i) {
          return 1;
      }
-     my $allowed=0;
+     my $allowed;
-     my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'};
+     my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'} || $clientip;
      my $name;
-     foreach my $pattern (split(',',$acc)) {
+     my %access = (
-         $pattern =~ s/^\s*//;
+                      allowfrom => 1,
-         $pattern =~ s/\s*$//;
+                      denyfrom  => 0,
+                  );
+     my @allows;
+     my @denies;
+     foreach my $item (split(',',$acc)) {
+         $item =~ s/^\s*//;
+         $item =~ s/\s*$//;
+         my $pattern;
+         if ($item =~ /^\!(.+)$/) {
+             push(@denies,$1);
+         } else {
+             push(@allows,$item);
+         }
+    }
+    my $numdenies = scalar(@denies);
+    my $numallows = scalar(@allows);
+    my $count = 0;
+    foreach my $pattern (@denies,@allows) {
+         $count ++;
+         my $acctype = 'allowfrom';
+         if ($count <= $numdenies) {
+             $acctype = 'denyfrom';
+         }
          if ($pattern =~ /\*$/) {
              #35.8.*
              $pattern=~s/\*//;
-             if ($ip =~ /^\Q$pattern\E/) { $allowed=1; }
+             if ($ip =~ /^\Q$pattern\E/) { $allowed=$access{$acctype}; }
          } elsif ($pattern =~ /(\d+\.\d+\.\d+)\.\[(\d+)-(\d+)\]$/) {
              #35.8.3.[34-56]
              my $low=$2;
- Line 4606  sub check_ip_acc {
+ Line 5038  sub check_ip_acc {
              $pattern=$1;
              if ($ip =~ /^\Q$pattern\E/) {
                  my $last=(split(/\./,$ip))[3];
-                 if ($last <=$high && $last >=$low) { $allowed=1; }
+                 if ($last <=$high && $last >=$low) { $allowed=$access{$acctype}; }
              }
          } elsif ($pattern =~ /^\*/) {
              #*.msu.edu
- Line 4616  sub check_ip_acc {
+ Line 5048  sub check_ip_acc {
                  my $netaddr=inet_aton($ip);
                  ($name)=gethostbyaddr($netaddr,AF_INET);
              }
-             if ($name =~ /\Q$pattern\E$/i) { $allowed=1; }
+             if ($name =~ /\Q$pattern\E$/i) { $allowed=$access{$acctype}; }
          } elsif ($pattern =~ /\d+\.\d+\.\d+\.\d+/) {
              #127.0.0.1
-             if ($ip =~ /^\Q$pattern\E/) { $allowed=1; }
+             if ($ip =~ /^\Q$pattern\E/) { $allowed=$access{$acctype}; }
          } else {
              #some.name.com
              if (!defined($name)) {
- Line 4627  sub check_ip_acc {
+ Line 5059  sub check_ip_acc {
                  my $netaddr=inet_aton($ip);
                  ($name)=gethostbyaddr($netaddr,AF_INET);
              }
-             if ($name =~ /\Q$pattern\E$/i) { $allowed=1; }
+             if ($name =~ /\Q$pattern\E$/i) { $allowed=$access{$acctype}; }
+         }
+         if ($allowed =~ /^(0|1)$/) { last; }
+     }
+     if ($allowed eq '') {
+         if ($numdenies && !$numallows) {
+             $allowed = 1;
+         } else {
+             $allowed = 0;
          }
-         if ($allowed) { last; }
      }
      return $allowed;
  }
- Line 4685  sub get_domainconf {
+ Line 5124  sub get_domainconf {
              if (keys(%{$domconfig{'login'}})) {
                  foreach my $key (keys(%{$domconfig{'login'}})) {
                      if (ref($domconfig{'login'}{$key}) eq 'HASH') {
-                         if ($key eq 'loginvia') {
+                         if (($key eq 'loginvia') || ($key eq 'headtag')) {
-                             if (ref($domconfig{'login'}{'loginvia'}) eq 'HASH') {
+                             if (ref($domconfig{'login'}{$key}) eq 'HASH') {
-                                 foreach my $hostname (keys(%{$domconfig{'login'}{'loginvia'}})) {
+                                 foreach my $hostname (keys(%{$domconfig{'login'}{$key}})) {
-                                     if (ref($domconfig{'login'}{'loginvia'}{$hostname}) eq 'HASH') {
+                                     if (ref($domconfig{'login'}{$key}{$hostname}) eq 'HASH') {
-                                         if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) {
+                                         if ($key eq 'loginvia') {
-                                             my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'};
+                                             if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) {
-                                             $designhash{$udom.'.login.loginvia'} = $server;
+                                                 my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'};
-                                             if ($domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'} eq 'custom') {
+                                                 $designhash{$udom.'.login.loginvia'} = $server;
+                                                 if ($domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'} eq 'custom') {
-                                                 $designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'custompath'};
-                                             } else {
+                                                     $designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'custompath'};
-                                                 $designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'};
+                                                 } else {
+                                                     $designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'};
+                                                 }
                                              }
-                                             if ($domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}) {
+                                         } elsif ($key eq 'headtag') {
-                                                 $designhash{$udom.'.login.loginvia_exempt_'.$hostname} = $domconfig{'login'}{'loginvia'}{$hostname}{'exempt'};
+                                             if ($domconfig{'login'}{'headtag'}{$hostname}{'url'}) {
+                                                 $designhash{$udom.'.login.headtag_'.$hostname} = $domconfig{'login'}{'headtag'}{$hostname}{'url'};
                                              }
                                          }
+                                         if ($domconfig{'login'}{$key}{$hostname}{'exempt'}) {
+                                             $designhash{$udom.'.login.'.$key.'_exempt_'.$hostname} = $domconfig{'login'}{$key}{$hostname}{'exempt'};
+                                         }
                                      }
                                  }
                              }
- Line 5020  Inputs:
+ Line 5465  Inputs:
  =item * $bgcolor, used to override the bgcolor on a webpage to a specific value
- =item * $no_inline_link, if true and in remote mode, don't show the
-          'Switch To Inline Menu' link
  =item * $args, optional argument valid values are
              no_auto_mt_title -> prevents &mt()ing the title arg
              inherit_jsmath -> when creating popup window in a page,
- Line 5044  other decorations will be returned.
+ Line 5486  other decorations will be returned.
  sub bodytag {
      my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,
-         $no_nav_bar,$bgcolor,$no_inline_link,$args,$advtoolsref)=@_;
+         $no_nav_bar,$bgcolor,$args,$advtoolsref)=@_;
      my $public;
      if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
- Line 5068  sub bodytag {
+ Line 5510  sub bodytag {
      @design{keys(%$addentries)} = @$addentries{keys(%$addentries)};
   # role and realm
-     my ($role,$realm) = split(/\./,$env{'request.role'},2);
+     my ($role,$realm) = split(m{\./},$env{'request.role'},2);
+     if ($realm) {
+         $realm = '/'.$realm;
+     }
      if ($role  eq 'ca') {
          my ($rdom,$rname) = ($realm =~ m{^/($match_domain)/($match_username)$});
          $realm = &plainname($rname,$rdom);
- Line 5118  sub bodytag {
+ Line 5563  sub bodytag {
      $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
-     if ($env{'request.state'} eq 'construct') { $forcereg=1; }
+         if ($env{'request.state'} eq 'construct') { $forcereg=1; }
-     my $funclist;
-     if (($env{'environment.remote'} eq 'on') && ($env{'request.state'} ne 'construct')) {
-         $bodytag .= Apache::lonhtmlcommon::scripttag(Apache::lonmenu::utilityfunctions($httphost), 'start')."\n".
-                     Apache::lonmenu::serverform();
-         my $forbodytag;
-         &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
-                                             $forcereg,$args->{'group'},
-                                             $args->{'bread_crumbs'},
-                                             $advtoolsref,'',\$forbodytag);
-         unless (ref($args->{'bread_crumbs'}) eq 'ARRAY') {
-             $funclist = $forbodytag;
-         }
-     } else {
          #    if ($env{'request.state'} eq 'construct') {
          #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
- Line 5146  sub bodytag {
+ Line 5575  sub bodytag {
          my ($left,$right) = Apache::lonmenu::primary_menu();
          if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
-             if ($dc_info) {
+              if ($dc_info) {
                   $dc_info = qq|<span class="LC_cusr_subheading">$dc_info</span>|;
-             }
+              }
-             $bodytag .= qq|<div id="LC_nav_bar">$left $role<br />
+              $bodytag .= qq|<div id="LC_nav_bar">$left $role<br />
-                            <em>$realm</em> $dc_info</div>|;
+                 <em>$realm</em> $dc_info</div>|;
              return $bodytag;
          }
- Line 5165  sub bodytag {
+ Line 5594  sub bodytag {
          }
          $bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|;
          #if directed to not display the secondary menu, don't.
          if ($args->{'no_secondary_menu'}) {
              return $bodytag;
          }
- Line 5177  sub bodytag {
+ Line 5606  sub bodytag {
              if ($env{'request.state'} eq 'construct') {
                  $bodytag .= &Apache::lonmenu::innerregister($forcereg,
                                  $args->{'bread_crumbs'});
              } elsif ($forcereg) {
                  $bodytag .= &Apache::lonmenu::innerregister($forcereg,undef,
                                                              $args->{'group'});
              } else {
-                 my $forbodytag;
+                 $bodytag .=
-                 &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
+                     &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
-                                                     $forcereg,$args->{'group'},
+                                                         $forcereg,$args->{'group'},
-                                                     $args->{'bread_crumbs'},
+                                                         $args->{'bread_crumbs'},
-                                                     $advtoolsref,'',\$forbodytag);
+                                                         $advtoolsref);
-                 unless (ref($args->{'bread_crumbs'}) eq 'ARRAY') {
-                     $bodytag .= $forbodytag;
-                 }
              }
          }else{
              # this is to seperate menu from content when there's no secondary
- Line 5198  sub bodytag {
+ Line 5624  sub bodytag {
          }
          return $bodytag;
-     }
- #
- # Top frame rendering, Remote is up
- #
-     my $imgsrc = $img;
-     if ($img =~ /^\/adm/) {
-         $imgsrc = &lonhttpdurl($img);
-     }
-     my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';
-     my $help=($no_inline_link?''
-               :&Apache::loncommon::top_nav_help('Help'));
-     # Explicit link to get inline menu
-     my $menu= ($no_inline_link?''
-                :'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
-     if ($dc_info) {
-         $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;
-     }
-     my $name = &plainname($env{'user.name'},$env{'user.domain'});
-     unless ($public) {
-         $name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'},
-                                 undef,'LC_menubuttons_link');
-     }
-     unless ($env{'form.inhibitmenu'}) {
-         $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>
-                        <ol class="LC_primary_menu LC_floatright LC_right">
-                        <li>$help</li>
-                        <li>$menu</li>
-                        </ol><div id="LC_realm"> $realm $dc_info</div>|;
-     }
-     if ($env{'request.state'} eq 'construct') {
-         if (!$public){
-             if ($env{'request.state'} eq 'construct') {
-                 $funclist = &Apache::lonhtmlcommon::scripttag(
-                                 &Apache::lonmenu::utilityfunctions($httphost), 'start').
-                             &Apache::lonhtmlcommon::scripttag('','end').
-                             &Apache::lonmenu::innerregister($forcereg,
-                                                             $args->{'bread_crumbs'});
-             }
-         }
-     }
-     return $bodytag."\n".$funclist;
  }
  sub dc_courseid_toggle {
- Line 5277  sub make_attr_string {
+ Line 5655  sub make_attr_string {
  		delete($attr_ref->{$key});
  	    }
  	}
-         if ($env{'environment.remote'} eq 'on') {
+ 	$attr_ref->{'onload'}  = $on_load;
-             $attr_ref->{'onload'}  =
+ 	$attr_ref->{'onunload'}= $on_unload;
-                 &Apache::lonmenu::loadevents().  $on_load;
-             $attr_ref->{'onunload'}=
-                 &Apache::lonmenu::unloadevents().$on_unload;
-         } else {
- 	    $attr_ref->{'onload'}  = $on_load;
- 	    $attr_ref->{'onunload'}= $on_unload;
-         }
      }
      my $attr_string;
- Line 6472  div.LC_edit_problem_footer,
+ Line 6843  div.LC_edit_problem_footer,
  div.LC_edit_problem_footer div,
  div.LC_edit_problem_editxml_header,
  div.LC_edit_problem_editxml_header div {
-   margin-top: 5px;
+   z-index: 100;
  }
  div.LC_edit_problem_header_title {
- Line 6488  table.LC_edit_problem_header_title {
+ Line 6859  table.LC_edit_problem_header_title {
    background: $tabbg;
  }
- div.LC_edit_problem_discards {
+ div.LC_edit_actionbar {
-   float: left;
+     background-color: $sidebg;
-   padding-bottom: 5px;
+     margin: 0;
+     padding: 0;
+     line-height: 200%;
  }
- div.LC_edit_problem_saves {
+ div.LC_edit_actionbar div{
-   float: right;
+     padding: 0;
-   padding-bottom: 5px;
+     margin: 0;
+     display: inline-block;
  }
  .LC_edit_opt {
- Line 6511  div.LC_edit_problem_saves {
+ Line 6885  div.LC_edit_problem_saves {
      margin-left: 40px;
  }
+ #LC_edit_problem_codemirror div{
+     margin-left: 0px;
+ }
  img.stift {
    border-width: 0;
    vertical-align: middle;
- Line 6598  fieldset {
+ Line 6976  fieldset {
    /* overflow: hidden; */
  }
+ article.geogebraweb div {
+     margin: 0;
+ }
  fieldset > legend {
    font-weight: bold;
    padding: 0 5px 0 5px;
- Line 6625  fieldset > legend {
+ Line 7007  fieldset > legend {
  ol.LC_primary_menu {
    margin: 0;
    padding: 0;
-   background-color: $pgbg_or_bgcolor;
  }
  ol#LC_PathBreadcrumbs {
- Line 6637  ol.LC_primary_menu li {
+ Line 7018  ol.LC_primary_menu li {
    vertical-align: middle;
    text-align: left;
    list-style: none;
+   position: relative;
    float: left;
+   z-index: 100; /* will be displayed above codemirror and underneath the help-layer */
+   line-height: 1.5em;
  }
- ol.LC_primary_menu li a {
+ ol.LC_primary_menu li a,
+ ol.LC_primary_menu li p {
    display: block;
    margin: 0;
    padding: 0 5px 0 10px;
    text-decoration: none;
  }
- ol.LC_primary_menu li ul {
+ ol.LC_primary_menu li p span.LC_primary_menu_innertitle {
+   display: inline-block;
+   width: 95%;
+   text-align: left;
+ }
+ ol.LC_primary_menu li p span.LC_primary_menu_innerarrow {
+   display: inline-block;
+   width: 5%;
+   float: right;
+   text-align: right;
+   font-size: 70%;
+ }
+ ol.LC_primary_menu ul {
    display: none;
-   width: 10em;
+   width: 15em;
    background-color: $data_table_light;
+   position: absolute;
+   top: 100%;
+ }
+ ol.LC_primary_menu ul ul {
+   left: 100%;
+   top: 0;
  }
- ol.LC_primary_menu li:hover ul, ol.LC_primary_menu li.hover ul {
+ ol.LC_primary_menu li:hover > ul, ol.LC_primary_menu li.hover > ul {
    display: block;
    position: absolute;
    margin: 0;
- Line 6662  ol.LC_primary_menu li:hover ul, ol.LC_pr
+ Line 7068  ol.LC_primary_menu li:hover ul, ol.LC_pr
  }
  ol.LC_primary_menu li:hover li, ol.LC_primary_menu li.hover li {
+ /* First Submenu -> size should be smaller than the menu title of the whole menu */
    font-size: 90%;
    vertical-align: top;
    float: none;
    border-left: 1px solid black;
    border-right: 1px solid black;
+ /* A dark bottom border to visualize different menu options;
+ overwritten in the create_submenu routine for the last border-bottom of the menu */
+   border-bottom: 1px solid $data_table_dark;
  }
- ol.LC_primary_menu li:hover li a, ol.LC_primary_menu li.hover li a {
+ ol.LC_primary_menu li li p:hover {
-   background-color:$data_table_light;
+   color:$button_hover;
+   text-decoration:none;
+   background-color:$data_table_dark;
  }
  ol.LC_primary_menu li li a:hover {
- Line 6678  ol.LC_primary_menu li li a:hover {
+ Line 7090  ol.LC_primary_menu li li a:hover {
     background-color:$data_table_dark;
  }
+ /* Font-size equal to the size of the predecessors*/
+ ol.LC_primary_menu li:hover li li {
+   font-size: 100%;
+ }
  ol.LC_primary_menu li img {
    vertical-align: bottom;
    height: 1.1em;
- Line 6734  ul#LC_secondary_menu li {
+ Line 7151  ul#LC_secondary_menu li {
    font-weight: bold;
    line-height: 1.8em;
    border-right: 1px solid black;
-   vertical-align: middle;
    float: left;
  }
- Line 7290  sub headtag {
+ Line 7706  sub headtag {
  	'<head>'.
  	&font_settings($args);
-     my $inhibitprint = &print_suppression();
+     my $inhibitprint;
+     if ($args->{'print_suppress'}) {
+         $inhibitprint = &print_suppression();
+     }
      if (!$args->{'frameset'}) {
  	$result .= &Apache::lonhtmlcommon::htmlareaheaders();
      }
-     if ($args->{'force_register'}) {
+     if ($args->{'force_register'} && $env{'request.noversionuri'} !~ m{^/res/adm/pages/}) {
-         $result .= &Apache::lonmenu::registerurl(1);
+         $result .= Apache::lonxml::display_title();
      }
      if (!$args->{'no_nav_bar'}
  	&& !$args->{'only_body'}
- Line 7330  sub headtag {
+ Line 7749  sub headtag {
  <meta http-equiv="pragma" content="no-cache" />
  <meta http-equiv="Refresh" content="$time; url=$url" />
  ADDMETA
+     } else {
+         unless (($args->{'frameset'}) || ($args->{'js_ready'}) || ($args->{'only_body'}) || ($args->{'no_nav_bar'})) {
+             my $requrl = $env{'request.uri'};
+             if ($requrl eq '') {
+                 $requrl = $ENV{'REQUEST_URI'};
+                 $requrl =~ s/\?.+$//;
+             }
+             unless (($requrl =~ m{^/adm/(?:switchserver|login|authenticate|logout|groupsort|cleanup|helper|slotrequest|grades)(\?|$)}) ||
+                     (($requrl =~ m{^/res/}) && (($env{'form.submitted'} eq 'scantron') ||
+                      ($env{'form.grade_symb'}) || ($Apache::lonhomework::scantronmode)))) {
+                 my $dom_in_use = $Apache::lonnet::perlvar{'lonDefDomain'};
+                 unless (&Apache::lonnet::allowed('mau',$dom_in_use)) {
+                     my %domdefs = &Apache::lonnet::get_domain_defaults($dom_in_use);
+                     if (ref($domdefs{'offloadnow'}) eq 'HASH') {
+                         my $lonhost = $Apache::lonnet::perlvar{'lonHostID'};
+                         if ($domdefs{'offloadnow'}{$lonhost}) {
+                             my $newserver = &Apache::lonnet::spareserver(30000,undef,1,$dom_in_use);
+                             if (($newserver) && ($newserver ne $lonhost)) {
+                                 my $numsec = 5;
+                                 my $timeout = $numsec * 1000;
+                                 my ($newurl,$locknum,%locks,$msg);
+                                 if ($env{'request.role.adv'}) {
+                                     ($locknum,%locks) = &Apache::lonnet::get_locks();
+                                 }
+                                 my $disable_submit = 0;
+                                 if ($requrl =~ /$LONCAPA::assess_re/) {
+                                     $disable_submit = 1;
+                                 }
+                                 if ($locknum) {
+                                     my @lockinfo = sort(values(%locks));
+                                     $msg = &mt('Once the following tasks are complete: ')."\\n".
+                                            join(", ",sort(values(%locks)))."\\n".
+                                            &mt('your session will be transferred to a different server, after you click "Roles".');
+                                 } else {
+                                     if (($requrl =~ m{^/res/}) && ($env{'form.submitted'} =~ /^part_/)) {
+                                         $msg = &mt('Your LON-CAPA submission has been recorded')."\\n";
+                                     }
+                                     $msg .= &mt('Your current LON-CAPA session will be transferred to a different server in [quant,_1,second].',$numsec);
+                                     $newurl = '/adm/switchserver?otherserver='.$newserver;
+                                     if (($env{'request.role'}) && ($env{'request.role'} ne 'cm')) {
+                                         $newurl .= '&role='.$env{'request.role'};
+                                     }
+                                     if ($env{'request.symb'}) {
+                                         $newurl .= '&symb='.$env{'request.symb'};
+                                     } else {
+                                         $newurl .= '&origurl='.$requrl;
+                                     }
+                                 }
+                                 $result.=<<OFFLOAD
+ <meta http-equiv="pragma" content="no-cache" />
+ <script type="text/javascript">
+ // <![CDATA[
+ function LC_Offload_Now() {
+     var dest = "$newurl";
+     if (dest != '') {
+         window.location.href="$newurl";
+     }
+ }
+ \$(document).ready(function () {
+     window.alert('$msg');
+     if ($disable_submit) {
+         \$(".LC_hwk_submit").prop("disabled", true);
+         \$( ".LC_textline" ).prop( "readonly", "readonly");
+     }
+     setTimeout('LC_Offload_Now()', $timeout);
+ });
+ // ]]>
+ </script>
+ OFFLOAD
+                             }
+                         }
+                     }
+                 }
+             }
+         }
      }
      if (!defined($title)) {
  	$title = 'The LearningOnline Network with CAPA';
- Line 7340  ADDMETA
+ Line 7834  ADDMETA
      if (!$args->{'frameset'}) {
          $result .= ' /';
      }
      $result .= '>'
          .$inhibitprint
  	.$head_extra;
      if ($env{'browser.mobile'}) {
- Line 7366  sub font_settings {
+ Line 7860  sub font_settings {
      my $headerstring='';
      if ((!$env{'browser.mathml'} && $env{'browser.unicode'}) ||
          ((ref($args) eq 'HASH') && ($args->{'browser.unicode'}))) {
- 	$headerstring.=
+         $headerstring.=
- 	    '<meta http-equiv="Content-Type" content="text/html; charset=utf-8"';
+             '<meta http-equiv="Content-Type" content="text/html; charset=utf-8"';
          if (!$args->{'frameset'}) {
-             $headerstring.= ' /';
+ 	    $headerstring.= ' /';
          }
-         $headerstring .= '>'."\n";
+ 	$headerstring .= '>'."\n";
      }
      return $headerstring;
  }
- Line 7416  sub print_suppression {
+ Line 7910  sub print_suppression {
          }
          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
-         my $blocked = &blocking_status('printout',$cnum,$cdom);
+         my $blocked = &blocking_status('printout',$cnum,$cdom,undef,1);
          if ($blocked) {
              my $checkrole = "cm./$cdom/$cnum";
              if ($env{'request.course.sec'} ne '') {
- Line 7524  $args - additional optional args support
+ Line 8018  $args - additional optional args support
               skip_phases    -> hash ref of
                                      head -> skip the <html><head> generation
                                      body -> skip all <body> generation
-              no_inline_link -> if true and in remote mode, don't show the
-                                     'Switch To Inline Menu' link
               no_auto_mt_title -> prevent &mt()ing the title arg
               inherit_jsmath -> when creating popup window in a page,
                                      should it have jsmath forced on by the
                                      current page
               bread_crumbs ->             Array containing breadcrumbs
               bread_crumbs_component ->  if exists show it as headline else show only the breadcrumbs
               group          -> includes the current group, if page is for a
                                 specific group
  =back
- Line 7563  sub start_page {
+ Line 8055  sub start_page {
                           $args->{'function'},       $args->{'add_entries'},
                           $args->{'only_body'},      $args->{'domain'},
                           $args->{'force_register'}, $args->{'no_nav_bar'},
-                          $args->{'bgcolor'},        $args->{'no_inline_link'},
+                          $args->{'bgcolor'},        $args,
-                          $args,                     \@advtools);
+                          \@advtools);
          }
      }
- Line 7604  sub start_page {
+ Line 8096  sub start_page {
  		}else{
  			$result .= &Apache::lonhtmlcommon::breadcrumbs();
  		}
-     } elsif (($env{'environment.remote'} eq 'on') &&
-              ($env{'form.inhibitmenu'} ne 'yes') &&
-              ($env{'request.noversionuri'} =~ m{^/res/}) &&
-              ($env{'request.noversionuri'} !~ m{^/res/adm/pages/})) {
-         $result .= '<div style="padding:0;margin:0;clear:both"><hr /></div>';
      }
      return $result;
  }
- Line 7656  function set_wishlistlink(title, path) {
+ Line 8143  function set_wishlistlink(title, path) {
          title = title.replace(/^LON-CAPA /,'');
      }
      title = encodeURIComponent(title);
+     title = title.replace("'","\\\'");
      if (!path) {
          path = location.pathname;
      }
      path = encodeURIComponent(path);
+     path = path.replace("'","\\\'");
      Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path,
                        'wishlistNewLink','width=560,height=350,scrollbars=0');
  }
- Line 7702  var modalWindow = {
+ Line 8191  var modalWindow = {
  };
  	var openMyModal = function(source,width,height,scrolling,transparency,style)
  	{
+                 source = source.replace("'","&#39;");
  		modalWindow.windowId = "myModal";
  		modalWindow.width = width;
  		modalWindow.height = height;
- 		modalWindow.content = "<iframe width='"+width+"' height='"+height+"' frameborder='0' scrolling='"+scrolling+"' allowtransparency='"+transparency+"' src='" + source + "' style='"+style+"'>&lt/iframe>";
+ 		modalWindow.content = "<iframe width='"+width+"' height='"+height+"' frameborder='0' scrolling='"+scrolling+"' allowtransparency='"+transparency+"' src='" + source + "' style='"+style+"'></iframe>";
  		modalWindow.open();
  	};
  // END LON-CAPA Internal -->
  // ]]>
  </script>
- Line 7753  sub modal_adhoc_inner {
+ Line 8243  sub modal_adhoc_inner {
      my ($funcname,$width,$height,$content)=@_;
      my $innerwidth=$width-20;
      $content=&js_ready(
-                &start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).
+                  &start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).
                   &start_scrollbox($width.'px',$innerwidth.'px',$height.'px','myModal','#FFFFFF',undef,1).
                   $content.
                   &end_scrollbox().
- Line 8309  role status: active, previous or future.
+ Line 8799  role status: active, previous or future.
  sub check_user_status {
      my ($udom,$uname,$cdom,$crs,$role,$sec) = @_;
      my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname);
-     my @uroles = keys %userinfo;
+     my @uroles = keys(%userinfo);
      my $srchstr;
      my $active_chk = 'none';
      my $now = time;
- Line 8398  sub get_sections {
+ Line 8888  sub get_sections {
          }
      }
      if ($check_students) {
  	my ($classlist) = &Apache::loncoursedata::get_classlist($cdom,$cnum);
  	my $sec_index = &Apache::loncoursedata::CL_SECTION();
  	my $status_index = &Apache::loncoursedata::CL_STATUS();
- Line 8794  sub get_user_quota {
+ Line 9284  sub get_user_quota {
          if ($quota eq '' || wantarray) {
              if ($quotaname eq 'course') {
                  my %domdefs = &Apache::lonnet::get_domain_defaults($udom);
                  if (($crstype eq 'official') || ($crstype eq 'unofficial') ||
                      ($crstype eq 'community') || ($crstype eq 'textbook')) {
                      $defquota = $domdefs{$crstype.'quota'};
                  }
                  if ($defquota eq '') {
- Line 8966  sub excess_filesize_warning {
+ Line 9456  sub excess_filesize_warning {
      }
      $disk_quota = int($disk_quota * 1000);
      if (($current_disk_usage + $filesize) > $disk_quota) {
-         return '<p><span class="LC_warning">'.
+         return '<p class="LC_warning">'.
                  &mt("Unable to $action [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.",
-                     '<span class="LC_filename">'.$filename.'</span>',$filesize).'</span>'.
+                     '<span class="LC_filename">'.$filename.'</span>',$filesize).'</p>'.
-                '<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',
+                '<p>'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',
                              $disk_quota,$current_disk_usage).
                 '</p>';
      }
- Line 8979  sub excess_filesize_warning {
+ Line 9469  sub excess_filesize_warning {
  ###############################################
  sub get_secgrprole_info {
      my ($cdom,$cnum,$needroles,$type)  = @_;
      my %sections_count = &get_sections($cdom,$cnum);
- Line 9420  sub personal_data_fieldtitles {
+ Line 9912  sub personal_data_fieldtitles {
  sub sorted_inst_types {
      my ($dom) = @_;
-     my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+     my ($usertypes,$order);
+     my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
+     if (ref($domdefaults{'inststatus'}) eq 'HASH') {
+         $usertypes = $domdefaults{'inststatus'}{'inststatustypes'};
+         $order = $domdefaults{'inststatus'}{'inststatusorder'};
+     } else {
+         ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+     }
      my $othertitle = &mt('All users');
      if ($env{'request.course.id'}) {
          $othertitle  = &mt('Any users');
- Line 9829  sub ask_for_embedded_content {
+ Line 10328  sub ask_for_embedded_content {
          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
      }
      if (($actionurl eq '/adm/portfolio') ||
          ($actionurl eq '/adm/coursegrp_portfolio')) {
          my $current_path='/';
          if ($env{'form.currentpath'}) {
- Line 9861  sub ask_for_embedded_content {
+ Line 10360  sub ask_for_embedded_content {
              $toplevel = $url;
              if ($args->{'context'} eq 'paste') {
                  ($cdom,$cnum) = ($url =~ m{^\Q/uploaded/\E($match_domain)/($match_courseid)/});
                  ($path) =
                      ($toplevel =~ m{^(\Q/uploaded/$cdom/$cnum/\E(?:docs|supplemental)/(?:default|\d+)/\d+)/});
                  $fileloc = &Apache::lonnet::filelocation('',$toplevel);
                  $fileloc =~ s{^/}{};
              }
          }
-     } elsif ($actionurl eq '/adm/dependencies') {
+     } elsif ($actionurl eq '/adm/dependencies')  {
          if ($env{'request.course.id'} ne '') {
              if (ref($args) eq 'HASH') {
                  $url = $args->{'docs_url'};
                  $title = $args->{'docs_title'};
                  $toplevel = $url;
                  unless ($toplevel =~ m{^/}) {
                      $toplevel = "/$url";
                  }
- Line 9883  sub ask_for_embedded_content {
+ Line 10382  sub ask_for_embedded_content {
                      ($path) =
                          ($toplevel =~ m{^(\Q/uploaded/$cdom/$cnum/\E(?:docs|supplemental)/(?:default|\d+)/\d+)/});
                  }
-                 $fileloc = &Apache::lonnet::filelocation('',$toplevel);
+                 if ($toplevel=~/^\/*(uploaded|editupload)/) {
+                     $fileloc = $toplevel;
+                     $fileloc=~ s/^\s*(\S+)\s*$/$1/;
+                     my ($udom,$uname,$fname) =
+                         ($fileloc=~ m{^/+(?:uploaded|editupload)/+($match_domain)/+($match_name)/+(.*)$});
+                     $fileloc = propath($udom,$uname).'/userfiles/'.$fname;
+                 } else {
+                     $fileloc = &Apache::lonnet::filelocation('',$toplevel);
+                 }
                  $fileloc =~ s{^/}{};
                  ($filename) = ($fileloc =~ m{.+/([^/]+)$});
                  $heading = &mt('Status of dependencies in [_1]',"$title ($filename)");
- Line 9943  sub ask_for_embedded_content {
+ Line 10450  sub ask_for_embedded_content {
      my $dirptr = 16384;
      foreach my $path (keys(%subdependencies)) {
          $currsubfile{$path} = {};
          if (($actionurl eq '/adm/portfolio') ||
              ($actionurl eq '/adm/coursegrp_portfolio')) {
              my ($sublistref,$listerror) =
                  &Apache::lonnet::dirlist($url.$path,$udom,$uname,$getpropath);
              if (ref($sublistref) eq 'ARRAY') {
- Line 10086  sub ask_for_embedded_content {
+ Line 10593  sub ask_for_embedded_content {
          $counter = scalar(keys(%existing));
          $numpathchg = scalar(keys(%pathchanges));
          return ($output,$counter,$numpathchg,\%existing);
      } elsif (($actionurl eq "/public/$cdom/$cnum/syllabus") &&
               (ref($args) eq 'HASH') && ($args->{'context'} eq 'rewrites')) {
          $counter = scalar(keys(%existing));
          $numpathchg = scalar(keys(%pathchanges));
- Line 10315  sub ask_for_embedded_content {
+ Line 10822  sub ask_for_embedded_content {
  Performs clean-up of directories, subdirectories and filename in an
  embedded object, referenced in an HTML file which is being uploaded
  to a course or portfolio, where
  "Upload embedded images/multimedia files if HTML file" checkbox was
  checked.
- Line 10334  sub clean_path {
+ Line 10841  sub clean_path {
          @contents = ($embed_file);
      }
      my $lastidx = scalar(@contents)-1;
      for (my $i=0; $i<=$lastidx; $i++) {
          $contents[$i]=~s{\\}{/}g;
          $contents[$i]=~s/\s+/\_/g;
          $contents[$i]=~s{[^/\w\.\-]}{}g;
- Line 10673  sub modify_html_refs {
+ Line 11180  sub modify_html_refs {
      }
      my (%allfiles,%codebase,$output,$content);
      my @changes = &get_env_multiple('form.namechange');
-     unless ((@changes > 0)  || ($context eq 'syllabus')) {
+     unless ((@changes > 0) || ($context eq 'syllabus')) {
          if (wantarray) {
              return ('',0,0);
          } else {
- Line 10808  sub modify_html_refs {
+ Line 11315  sub modify_html_refs {
                          }
                      }
                      if ($rewrites) {
                          my $saveresult;
                          my $url = &Apache::lonnet::store_edited_file($container,$content,$udom,$uname,\$saveresult);
                          if ($url eq $container) {
                              my ($fname) = ($container =~ m{/([^/]+)$});
- Line 10914  sub check_for_upload {
+ Line 11421  sub check_for_upload {
                      if ($currsize < $filesize) {
                          my $extra = $filesize - $currsize;
                          if (($current_disk_usage + $extra) > $disk_quota) {
-                             my $msg = '<span class="LC_error">'.
+                             my $msg = '<p class="LC_warning">'.
                                        &mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded if existing (smaller) file with same name (size = [_3] kilobytes) is replaced.',
-                                           '<span class="LC_filename">'.$fname.'</span>',$filesize,$currsize).'</span>'.
+                                           '<span class="LC_filename">'.$fname.'</span>',$filesize,$currsize).'</p>'.
-                                       '<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',
+                                       '<p>'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',
-                                                    $disk_quota,$current_disk_usage);
+                                                    $disk_quota,$current_disk_usage).'</p>';
                              return ('will_exceed_quota',$msg);
                          }
                      }
- Line 10927  sub check_for_upload {
+ Line 11434  sub check_for_upload {
          }
      }
      if (($current_disk_usage + $filesize) > $disk_quota){
-         my $msg = '<span class="LC_error">'.
+         my $msg = '<p class="LC_warning">'.
-                 &mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.','<span class="LC_filename">'.$fname.'</span>',$filesize).'</span>'.
+                 &mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.','<span class="LC_filename">'.$fname.'</span>',$filesize).'</p>'.
-                   '<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',$disk_quota,$current_disk_usage);
+                   '<p>'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',$disk_quota,$current_disk_usage).'</p>';
          return ('will_exceed_quota',$msg);
      } elsif ($found_file) {
          if ($locked_file) {
-             my $msg = '<span class="LC_error">';
+             my $msg = '<p class="LC_warning">';
              $msg .= &mt('Unable to upload [_1]. A locked file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>','<span class="LC_filename">'.$port_path.$env{'form.currentpath'}.'</span>');
-             $msg .= '</span><br />';
+             $msg .= '</p>';
              $msg .= &mt('You will be able to rename or delete existing [_1] after a grade has been assigned.','<span class="LC_filename">'.$fname.'</span>');
              return ('file_locked',$msg);
          } else {
-             my $msg = '<span class="LC_error">';
+             my $msg = '<p class="LC_error">';
              $msg .= &mt(' A file by that name: [_1] was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$port_path.$env{'form.currentpath'});
-             $msg .= '</span>';
+             $msg .= '</p>';
              return ('existingfile',$msg);
          }
      }
- Line 11039  sub decompress_form {
+ Line 11546  sub decompress_form {
                          "$topdir/media/player.swf",
                          "$topdir/media/swfobject.js",
                          "$topdir/media/expressInstall.swf");
-         my @camtasia8 = ("$topdir/","$topdir/$topdir.html",
+         my @camtasia8_1 = ("$topdir/","$topdir/$topdir.html",
                           "$topdir/$topdir.mp4",
                           "$topdir/$topdir\_config.xml",
                           "$topdir/$topdir\_controller.swf",
- Line 11061  sub decompress_form {
+ Line 11568  sub decompress_form {
                           "$topdir/skins/express_show/",
                           "$topdir/skins/express_show/player-min.css",
                           "$topdir/skins/express_show/spritesheet.png");
+         my @camtasia8_4 = ("$topdir/","$topdir/$topdir.html",
+                          "$topdir/$topdir.mp4",
+                          "$topdir/$topdir\_config.xml",
+                          "$topdir/$topdir\_controller.swf",
+                          "$topdir/$topdir\_embed.css",
+                          "$topdir/$topdir\_First_Frame.png",
+                          "$topdir/$topdir\_player.html",
+                          "$topdir/$topdir\_Thumbnails.png",
+                          "$topdir/playerProductInstall.swf",
+                          "$topdir/scripts/",
+                          "$topdir/scripts/config_xml.js",
+                          "$topdir/scripts/techsmith-smart-player.min.js",
+                          "$topdir/skins/",
+                          "$topdir/skins/configuration_express.xml",
+                          "$topdir/skins/express_show/",
+                          "$topdir/skins/express_show/spritesheet.min.css",
+                          "$topdir/skins/express_show/spritesheet.png",
+                          "$topdir/skins/express_show/techsmith-smart-player.min.css");
          my @diffs = &compare_arrays(\@paths,\@camtasia6);
          if (@diffs == 0) {
              $is_camtasia = 6;
          } else {
-             @diffs = &compare_arrays(\@paths,\@camtasia8);
+             @diffs = &compare_arrays(\@paths,\@camtasia8_1);
              if (@diffs == 0) {
                  $is_camtasia = 8;
+             } else {
+                 @diffs = &compare_arrays(\@paths,\@camtasia8_4);
+                 if (@diffs == 0) {
+                     $is_camtasia = 8;
+                 }
              }
          }
      }
- Line 11265  sub decompress_uploaded_file {
+ Line 11795  sub decompress_uploaded_file {
  sub process_decompression {
      my ($docudom,$docuname,$file,$destination,$dir_root,$hiddenelem) = @_;
      my ($dir,$error,$warning,$output);
-     if ($file !~ /\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {
+     if ($file !~ /\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/i) {
          $error = &mt('Filename not a supported archive file type.').
                   '<br />'.&mt('Filename should end with one of: [_1].',
                                '.zip, .tar, .bz2, .gz, .tar.gz, .tar.bz2, .tgz');
- Line 11395  sub process_decompression {
+ Line 11925  sub process_decompression {
                                      $env{'form.archive_title_'.$i} = $env{'form.camtasia_foldername'};
                                      $displayed{'folder'} = $i;
                                  } elsif ((($item eq "$contents[0]/index.html") && ($version == 6)) ||
                                           (($item eq "$contents[0]/$contents[0]".'.html') && ($version == 8))) {
                                      $env{'form.archive_'.$i} = 'display';
                                      $env{'form.archive_title_'.$i} = $env{'form.camtasia_moviename'};
                                      $displayed{'web'} = $i;
- Line 11847  sub process_extracted_files {
+ Line 12377  sub process_extracted_files {
          $folders{'0'} = $items[-2];
          if ($env{'form.folderpath'} =~ /\:1$/) {
              $containers{'0'}='page';
          } else {
              $containers{'0'}='sequence';
          }
      }
- Line 11967  sub process_extracted_files {
+ Line 12497  sub process_extracted_files {
                      }
                  }
              } else {
                  $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',$path).'<br />';
              }
          }
          for (my $i=1; $i<=$numitems; $i++) {
- Line 11989  sub process_extracted_files {
+ Line 12519  sub process_extracted_files {
                          }
                          if ($itemidx eq '') {
                              $itemidx =  0;
                          }
                          if (grep(/^\Q$referrer{$i}\E$/,@archdirs)) {
                              if ($mapinner{$referrer{$i}}) {
                                  $fullpath = "$prefix$dir/$docstype/$mapinner{$referrer{$i}}";
- Line 12036  sub process_extracted_files {
+ Line 12566  sub process_extracted_files {
                                      $showpath = "$relpath/$title";
                                  } else {
                                      $showpath = "/$title";
                                  }
                                  $result .= '<li>'.&mt('[_1] included as a dependency',$showpath).'</li>'."\n";
                              }
                              unless ($ishome) {
                                  my $fetch = "$fullpath/$title";
                                  $fetch =~ s/^\Q$prefix$dir\E//;
                                  $prompttofetch{$fetch} = 1;
                              }
                          }
- Line 12051  sub process_extracted_files {
+ Line 12581  sub process_extracted_files {
                                      $path,$env{'form.archive_content_'.$referrer{$i}}).'<br />';
                  }
              } else {
                  $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',$path).'<br />';
              }
          }
          if (keys(%todelete)) {
- Line 13241  generated by lonerrorhandler.pm, CHECKRP
+ Line 13771  generated by lonerrorhandler.pm, CHECKRP
  lonsupportreq.pm, loncoursequeueadmin.pm, searchcat.pl respectively.
  Inputs:
  defmail (scalar - email address of default recipient),
  mailing type (scalar: errormail, packagesmail, helpdeskmail,
  requestsmail, updatesmail, or idconflictsmail).
  defdom (domain for which to retrieve configuration settings),
  origmail (scalar - email address of recipient from loncapa.conf,
  i.e., predates configuration by DC via domainprefs.pm
  Returns: comma separated list of addresses to which to send e-mail.
- Line 13656  sub assign_category_rows {
+ Line 14186  sub assign_category_rows {
      return $text;
  }
+ =pod
+ =back
+ =cut
  ############################################################
  ############################################################
- Line 13786  sub commit_studentrole {
+ Line 14322  sub commit_studentrole {
                      }
                  }
              } else {
                  if ($secchange) {
                      $$logmsg .= &mt('Error when attempting section change for [_1] from old section "[_2]" to new section: "[_3]" in course [_4] -error:',$uname,$oldsec,$sec,$cid).' '.$modify_section_result.$linefeed;
                  } else {
                      $$logmsg .= &mt('Error when attempting to modify role for [_1] for section: "[_2]" in course [_3] -error:',$uname,$sec,$cid).' '.$modify_section_result.$linefeed;
- Line 14206  sub construct_course {
+ Line 14742  sub construct_course {
              if (ref($crsinfo{$$crsudom.'_'.$$crsunum}) eq 'HASH') {
                  $crsinfo{$$crsudom.'_'.$$crsunum}{'uniquecode'} = $code;
                  my $putres = &Apache::lonnet::courseidput($$crsudom,\%crsinfo,$crsuhome,'notime');
              }
              if (ref($coderef)) {
                  $$coderef = $code;
              }
- Line 14291  sub make_unique_code {
+ Line 14827  sub make_unique_code {
      my $tries = 0;
      my $gotlock = &Apache::lonnet::newput_dom('uniquecodes',$lockhash,$cdom);
      my ($code,$error);
      while (($gotlock ne 'ok') && ($tries<3)) {
          $tries ++;
          sleep 1;
- Line 14428  sub escape_url {
+ Line 14964  sub escape_url {
      my ($url)   = @_;
      my @urlslices = split(/\//, $url,-1);
      my $lastitem = &escape(pop(@urlslices));
-     return join('/',@urlslices).'/'.$lastitem;
+     return &HTML::Entities::encode(join('/',@urlslices),"'").'/'.$lastitem;
  }
  sub compare_arrays {
- Line 14486  sub init_user_environment {
+ Line 15022  sub init_user_environment {
  		}
  	    }
  	    closedir(DIR);
+ # If there is a undeleted lockfile for the user's paste buffer remove it.
+             my $namespace = 'nohist_courseeditor';
+             my $lockingkey = 'paste'."\0".'locked_num';
+             my %lockhash = &Apache::lonnet::get($namespace,[$lockingkey],
+                                                 $domain,$username);
+             if (exists($lockhash{$lockingkey})) {
+                 my $delresult = &Apache::lonnet::del($namespace,[$lockingkey],$domain,$username);
+                 unless ($delresult eq 'ok') {
+                     &Apache::lonnet::logthis("Failed to delete paste buffer locking key in $namespace for ".$username.":".$domain." Result was: $delresult");
+                 }
+             }
  	}
  # Give them a new cookie
  	my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'}
- Line 14499  sub init_user_environment {
+ Line 15046  sub init_user_environment {
      }
  # ------------------------------------ Check browser type and MathML capability
-     my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
+     my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,$clientunicode,
-         $clientunicode,$clientos,$clientmobile,$clientinfo) = &decode_user_agent($r);
+         $clientos,$clientmobile,$clientinfo,$clientosversion) = &decode_user_agent($r);
  # ------------------------------------------------------------- Get environment
- Line 14533  sub init_user_environment {
+ Line 15080  sub init_user_environment {
  	     "browser.os"         => $clientos,
               "browser.mobile"     => $clientmobile,
               "browser.info"       => $clientinfo,
+              "browser.osversion"  => $clientosversion,
  	     "server.domain"      => $Apache::lonnet::perlvar{'lonDefDomain'},
  	     "request.course.fn"  => '',
  	     "request.course.uri" => '',
- Line 14584  sub init_user_environment {
+ Line 15132  sub init_user_environment {
          my %reqauthor = &Apache::lonnet::get('requestauthor',['author_status','author'],
                                               $domain,$username);
          my $reqstatus = $reqauthor{'author_status'};
          if ($reqstatus eq 'approval' || $reqstatus eq 'approved') {
              if (ref($reqauthor{'author'}) eq 'HASH') {
                  $userenv{'requestauthorqueued'} = $reqstatus.':'.
                                                    $reqauthor{'author'}{'timestamp'};
- Line 14675  sub clean_symb {
+ Line 15223  sub clean_symb {
      return ($symb,$enc);
  }
- sub build_release_hashes {
+ ############################################################
-     my ($checkparms,$checkresponsetypes,$checkcrstypes,$anonsurvey,$randomizetry) = @_;
+ ############################################################
-     return unless((ref($checkparms) eq 'HASH') && (ref($checkresponsetypes) eq 'HASH') &&
-                   (ref($checkcrstypes) eq 'HASH') && (ref($anonsurvey) eq 'HASH') &&
+ =pod
-                   (ref($randomizetry) eq 'HASH'));
-     foreach my $key (keys(%Apache::lonnet::needsrelease)) {
+ =head1 Routines for building display used to search for courses
-         my ($item,$name,$value) = split(/:/,$key);
-         if ($item eq 'parameter') {
-             if (ref($checkparms->{$name}) eq 'ARRAY') {
+ =over 4
-                 unless(grep(/^\Q$name\E$/,@{$checkparms->{$name}})) {
-                     push(@{$checkparms->{$name}},$value);
+ =item * &build_filters()
-                 }
+ Create markup for a table used to set filters to use when selecting
+ courses in a domain.  Used by lonpickcourse.pm, lonmodifycourse.pm
+ and quotacheck.pl
+ Inputs:
+ filterlist - anonymous array of fields to include as potential filters
+ crstype - course type
+ roleelement - fifth arg in selectcourse_link() populates fifth arg in javascript: opencrsbrowser() function, used
+               to pop-open a course selector (will contain "extra element").
+ multelement - if multiple course selections will be allowed, this will be a hidden form element: name: multiple; value: 1
+ filter - anonymous hash of criteria and their values
+ action - form action
+ numfiltersref - ref to scalar (count of number of elements in institutional codes -- e.g., 4 for year, semester, department, and number)
+ caller - caller context (e.g., set to 'modifycourse' when routine is called from lonmodifycourse.pm)
+ cloneruname - username of owner of new course who wants to clone
+ clonerudom - domain of owner of new course who wants to clone
+ typeelem - text to use for left column in row containing course type (i.e., Course, Community or Course/Community)
+ codetitlesref - reference to array of titles of components in institutional codes (official courses)
+ codedom - domain
+ formname - value of form element named "form".
+ fixeddom - domain, if fixed.
+ prevphase - value to assign to form element named "phase" when going back to the previous screen
+ cnameelement - name of form element in form on opener page which will receive title of selected course
+ cnumelement - name of form element in form on opener page which will receive courseID  of selected course
+ cdomelement - name of form element in form on opener page which will receive domain of selected course
+ setroles - includes access constraint identifier when setting a roles-based condition for acces to a portfolio file
+ clonetext - hidden form elements containing list of courses cloneable by intended course owner when DC creates a course
+ clonewarning - warning message about missing information for intended course owner when DC creates a course
+ Returns: $output - HTML for display of search criteria, and hidden form elements.
+ Side Effects: None
+ =cut
+ # ---------------------------------------------- search for courses based on last activity etc.
+ sub build_filters {
+     my ($filterlist,$crstype,$roleelement,$multelement,$filter,$action,
+         $numtitlesref,$caller,$cloneruname,$clonerudom,$typeelement,
+         $codetitlesref,$codedom,$formname,$fixeddom,$prevphase,
+         $cnameelement,$cnumelement,$cdomelement,$setroles,
+         $clonetext,$clonewarning) = @_;
+     my ($list,$jscript);
+     my $onchange = 'javascript:updateFilters(this)';
+     my ($domainselectform,$sincefilterform,$createdfilterform,
+         $ownerdomselectform,$persondomselectform,$instcodeform,
+         $typeselectform,$instcodetitle);
+     if ($formname eq '') {
+         $formname = $caller;
+     }
+     foreach my $item (@{$filterlist}) {
+         unless (($item eq 'descriptfilter') || ($item eq 'instcodefilter') ||
+                 ($item eq 'sincefilter') || ($item eq 'createdfilter')) {
+             if ($item eq 'domainfilter') {
+                 $filter->{$item} = &LONCAPA::clean_domain($filter->{$item});
+             } elsif ($item eq 'coursefilter') {
+                 $filter->{$item} = &LONCAPA::clean_courseid($filter->{$item});
+             } elsif ($item eq 'ownerfilter') {
+                 $filter->{$item} = &LONCAPA::clean_username($filter->{$item});
+             } elsif ($item eq 'ownerdomfilter') {
+                 $filter->{'ownerdomfilter'} =
+                     &LONCAPA::clean_domain($filter->{$item});
+                 $ownerdomselectform = &select_dom_form($filter->{'ownerdomfilter'},
+                                                        'ownerdomfilter',1);
+             } elsif ($item eq 'personfilter') {
+                 $filter->{$item} = &LONCAPA::clean_username($filter->{$item});
+             } elsif ($item eq 'persondomfilter') {
+                 $persondomselectform = &select_dom_form($filter->{'persondomfilter'},
+                                                         'persondomfilter',1);
              } else {
-                 push(@{$checkparms->{$name}},$value);
+                 $filter->{$item} =~ s/\W//g;
              }
-         } elsif ($item eq 'resourcetag') {
+             if (!$filter->{$item}) {
-             if ($name eq 'responsetype') {
+                 $filter->{$item} = '';
-                 $checkresponsetypes->{$value} = $Apache::lonnet::needsrelease{$key}
+             }
+         }
+         if ($item eq 'domainfilter') {
+             my $allow_blank = 1;
+             if ($formname eq 'portform') {
+                 $allow_blank=0;
+             } elsif ($formname eq 'studentform') {
+                 $allow_blank=0;
              }
-         } elsif ($item eq 'course') {
+             if ($fixeddom) {
-             if ($name eq 'crstype') {
+                 $domainselectform = '<input type="hidden" name="domainfilter"'.
-                 $checkcrstypes->{$value} = $Apache::lonnet::needsrelease{$key};
+                                     ' value="'.$codedom.'" />'.
+                                     &Apache::lonnet::domain($codedom,'description');
+             } else {
+                 $domainselectform = &select_dom_form($filter->{$item},
+                                                      'domainfilter',
+                                                       $allow_blank,'',$onchange);
              }
+         } else {
+             $list->{$item} = &HTML::Entities::encode($filter->{$item},'<>&"');
+         }
+     }
+     # last course activity filter and selection
+     $sincefilterform = &timebased_select_form('sincefilter',$filter);
+     # course created filter and selection
+     if (exists($filter->{'createdfilter'})) {
+         $createdfilterform = &timebased_select_form('createdfilter',$filter);
+     }
+     my %lt = &Apache::lonlocal::texthash(
+                 'cac' => "$crstype Activity",
+                 'ccr' => "$crstype Created",
+                 'cde' => "$crstype Title",
+                 'cdo' => "$crstype Domain",
+                 'ins' => 'Institutional Code',
+                 'inc' => 'Institutional Categorization',
+                 'cow' => "$crstype Owner/Co-owner",
+                 'cop' => "$crstype Personnel Includes",
+                 'cog' => 'Type',
+              );
+     if (($formname eq 'ccrs') || ($formname eq 'requestcrs')) {
+         my $typeval = 'Course';
+         if ($crstype eq 'Community') {
+             $typeval = 'Community';
+         }
+         $typeselectform = '<input type="hidden" name="type" value="'.$typeval.'" />';
+     } else {
+         $typeselectform =  '<select name="type" size="1"';
+         if ($onchange) {
+             $typeselectform .= ' onchange="'.$onchange.'"';
+         }
+         $typeselectform .= '>'."\n";
+         foreach my $posstype ('Course','Community') {
+             $typeselectform.='<option value="'.$posstype.'"'.
+                 ($posstype eq $crstype ? ' selected="selected" ' : ''). ">".&mt($posstype)."</option>\n";
+         }
+         $typeselectform.="</select>";
+     }
+     my ($cloneableonlyform,$cloneabletitle);
+     if (exists($filter->{'cloneableonly'})) {
+         my $cloneableon = '';
+         my $cloneableoff = ' checked="checked"';
+         if ($filter->{'cloneableonly'}) {
+             $cloneableon = $cloneableoff;
+             $cloneableoff = '';
+         }
+         $cloneableonlyform = '<span class="LC_nobreak"><label><input type="radio" name="cloneableonly" value="1" '.$cloneableon.'/>&nbsp;'.&mt('Required').'</label>'.('&nbsp;'x3).'<label><input type="radio" name="cloneableonly" value="" '.$cloneableoff.' />&nbsp;'.&mt('No restriction').'</label></span>';
+         if ($formname eq 'ccrs') {
+             $cloneabletitle = &mt('Cloneable for [_1]',$cloneruname.':'.$clonerudom);
+         } else {
+             $cloneabletitle = &mt('Cloneable by you');
+         }
+     }
+     my $officialjs;
+     if ($crstype eq 'Course') {
+         if (exists($filter->{'instcodefilter'})) {
+ #            if (($fixeddom) || ($formname eq 'requestcrs') ||
+ #                ($formname eq 'modifycourse') || ($formname eq 'filterpicker')) {
+             if ($codedom) {
+                 $officialjs = 1;
+                 ($instcodeform,$jscript,$$numtitlesref) =
+                     &Apache::courseclassifier::instcode_selectors($codedom,'filterpicker',
+                                                                   $officialjs,$codetitlesref);
+                 if ($jscript) {
+                     $jscript = '<script type="text/javascript">'."\n".
+                                '// <![CDATA['."\n".
+                                $jscript."\n".
+                                '// ]]>'."\n".
+                                '</script>'."\n";
+                 }
+             }
+             if ($instcodeform eq '') {
+                 $instcodeform =
+                     '<input type="text" name="instcodefilter" size="10" value="'.
+                     $list->{'instcodefilter'}.'" />';
+                 $instcodetitle = $lt{'ins'};
+             } else {
+                 $instcodetitle = $lt{'inc'};
+             }
+             if ($fixeddom) {
+                 $instcodetitle .= '<br />('.$codedom.')';
+             }
+         }
+     }
+     my $output = qq|
+ <form method="post" name="filterpicker" action="$action">
+ <input type="hidden" name="form" value="$formname" />
+ |;
+     if ($formname eq 'modifycourse') {
+         $output .= '<input type="hidden" name="phase" value="courselist" />'."\n".
+                    '<input type="hidden" name="prevphase" value="'.
+                    $prevphase.'" />'."\n";
+     } elsif ($formname eq 'quotacheck') {
+         $output .= qq|
+ <input type="hidden" name="sortby" value="" />
+ <input type="hidden" name="sortorder" value="" />
+ |;
+     } else {
+         my $name_input;
+         if ($cnameelement ne '') {
+             $name_input = '<input type="hidden" name="cnameelement" value="'.
+                           $cnameelement.'" />';
+         }
+         $output .= qq|
+ <input type="hidden" name="cnumelement" value="$cnumelement" />
+ <input type="hidden" name="cdomelement" value="$cdomelement" />
+ $name_input
+ $roleelement
+ $multelement
+ $typeelement
+ |;
+         if ($formname eq 'portform') {
+             $output .= '<input type="hidden" name="setroles" value="'.$setroles.'" />'."\n";
          }
      }
-     ($anonsurvey->{major},$anonsurvey->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:anonsurvey'});
+     if ($fixeddom) {
-     ($randomizetry->{major},$randomizetry->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:randomizetry'});
+         $output .= '<input type="hidden" name="fixeddom" value="'.$fixeddom.'" />'."\n";
+     }
+     $output .= "<br />\n".&Apache::lonhtmlcommon::start_pick_box();
+     if ($sincefilterform) {
+         $output .= &Apache::lonhtmlcommon::row_title($lt{'cac'})
+                   .$sincefilterform
+                   .&Apache::lonhtmlcommon::row_closure();
+     }
+     if ($createdfilterform) {
+         $output .= &Apache::lonhtmlcommon::row_title($lt{'ccr'})
+                   .$createdfilterform
+                   .&Apache::lonhtmlcommon::row_closure();
+     }
+     if ($domainselectform) {
+         $output .= &Apache::lonhtmlcommon::row_title($lt{'cdo'})
+                   .$domainselectform
+                   .&Apache::lonhtmlcommon::row_closure();
+     }
+     if ($typeselectform) {
+         if (($formname eq 'ccrs') || ($formname eq 'requestcrs')) {
+             $output .= $typeselectform;
+         } else {
+             $output .= &Apache::lonhtmlcommon::row_title($lt{'cog'})
+                       .$typeselectform
+                       .&Apache::lonhtmlcommon::row_closure();
+         }
+     }
+     if ($instcodeform) {
+         $output .= &Apache::lonhtmlcommon::row_title($instcodetitle)
+                   .$instcodeform
+                   .&Apache::lonhtmlcommon::row_closure();
+     }
+     if (exists($filter->{'ownerfilter'})) {
+         $output .= &Apache::lonhtmlcommon::row_title($lt{'cow'}).
+                    '<table><tr><td>'.&mt('Username').'<br />'.
+                    '<input type="text" name="ownerfilter" size="20" value="'.
+                    $list->{'ownerfilter'}.'" /></td><td>'.&mt('Domain').'<br />'.
+                    $ownerdomselectform.'</td></tr></table>'.
+                    &Apache::lonhtmlcommon::row_closure();
+     }
+     if (exists($filter->{'personfilter'})) {
+         $output .= &Apache::lonhtmlcommon::row_title($lt{'cop'}).
+                    '<table><tr><td>'.&mt('Username').'<br />'.
+                    '<input type="text" name="personfilter" size="20" value="'.
+                    $list->{'personfilter'}.'" /></td><td>'.&mt('Domain').'<br />'.
+                    $persondomselectform.'</td></tr></table>'.
+                    &Apache::lonhtmlcommon::row_closure();
+     }
+     if (exists($filter->{'coursefilter'})) {
+         $output .= &Apache::lonhtmlcommon::row_title(&mt('LON-CAPA course ID'))
+                   .'<input type="text" name="coursefilter" size="25" value="'
+                   .$list->{'coursefilter'}.'" />'
+                   .&Apache::lonhtmlcommon::row_closure();
+     }
+     if ($cloneableonlyform) {
+         $output .= &Apache::lonhtmlcommon::row_title($cloneabletitle).
+                    $cloneableonlyform.&Apache::lonhtmlcommon::row_closure();
+     }
+     if (exists($filter->{'descriptfilter'})) {
+         $output .= &Apache::lonhtmlcommon::row_title($lt{'cde'})
+                   .'<input type="text" name="descriptfilter" size="40" value="'
+                   .$list->{'descriptfilter'}.'" />'
+                   .&Apache::lonhtmlcommon::row_closure(1);
+     }
+     $output .= &Apache::lonhtmlcommon::end_pick_box().'<p>'.$clonetext."\n".
+                '<input type="hidden" name="updater" value="" />'."\n".
+                '<input type="submit" name="gosearch" value="'.
+                &mt('Search').'" /></p>'."\n".'</form>'."\n".'<hr />'."\n";
+     return $jscript.$clonewarning.$output;
+ }
+ =pod
+ =item * &timebased_select_form()
+ Create markup for a dropdown list used to select a time-based
+ filter e.g., Course Activity, Course Created, when searching for courses
+ or communities
+ Inputs:
+ item - name of form element (sincefilter or createdfilter)
+ filter - anonymous hash of criteria and their values
+ Returns: HTML for a select box contained a blank, then six time selections,
+          with value set in incoming form variables currently selected.
+ Side Effects: None
+ =cut
+ sub timebased_select_form {
+     my ($item,$filter) = @_;
+     if (ref($filter) eq 'HASH') {
+         $filter->{$item} =~ s/[^\d-]//g;
+         if (!$filter->{$item}) { $filter->{$item}=-1; }
+         return &select_form(
+                             $filter->{$item},
+                             $item,
+                             {      '-1' => '',
+                                 '86400' => &mt('today'),
+                                '604800' => &mt('last week'),
+                               '2592000' => &mt('last month'),
+                               '7776000' => &mt('last three months'),
+                              '15552000' => &mt('last six months'),
+                              '31104000' => &mt('last year'),
+                     'select_form_order' =>
+                            ['-1','86400','604800','2592000','7776000',
+                             '15552000','31104000']});
+     }
+ }
+ =pod
+ =item * &js_changer()
+ Create script tag containing Javascript used to submit course search form
+ when course type or domain is changed, and also to hide 'Searching ...' on
+ page load completion for page showing search result.
+ Inputs: None
+ Returns: markup containing updateFilters() and hideSearching() javascript functions.
+ Side Effects: None
+ =cut
+ sub js_changer {
+     return <<ENDJS;
+ <script type="text/javascript">
+ // <![CDATA[
+ function updateFilters(caller) {
+     if (typeof(caller) != "undefined") {
+         document.filterpicker.updater.value = caller.name;
+     }
+     document.filterpicker.submit();
+ }
+ function hideSearching() {
+     if (document.getElementById('searching')) {
+         document.getElementById('searching').style.display = 'none';
+     }
      return;
  }
+ // ]]>
+ </script>
+ ENDJS
+ }
+ =pod
+ =item * &search_courses()
+ Process selected filters form course search form and pass to lonnet::courseiddump
+ to retrieve a hash for which keys are courseIDs which match the selected filters.
+ Inputs:
+ dom - domain being searched
+ type - course type ('Course' or 'Community' or '.' if any).
+ filter - anonymous hash of criteria and their values
+ numtitles - for institutional codes - number of categories
+ cloneruname - optional username of new course owner
+ clonerudom - optional domain of new course owner
+ domcloner - Optional "domcloner" flag; has value=1 if user has ccc priv in domain being filtered by,
+             (used when DC is using course creation form)
+ codetitles - reference to array of titles of components in institutional codes (official courses).
+ Returns: %courses - hash of courses satisfying search criteria, keys = course IDs, values are corresponding colon-separated escaped description, institutional code, owner and type.
+ Side Effects: None
+ =cut
+ sub search_courses {
+     my ($dom,$type,$filter,$numtitles,$cloneruname,$clonerudom,$domcloner,$codetitles) = @_;
+     my (%courses,%showcourses,$cloner);
+     if (($filter->{'ownerfilter'} ne '') ||
+         ($filter->{'ownerdomfilter'} ne '')) {
+         $filter->{'combownerfilter'} = $filter->{'ownerfilter'}.':'.
+                                        $filter->{'ownerdomfilter'};
+     }
+     foreach my $item ('descriptfilter','coursefilter','combownerfilter') {
+         if (!$filter->{$item}) {
+             $filter->{$item}='.';
+         }
+     }
+     my $now = time;
+     my $timefilter =
+        ($filter->{'sincefilter'}==-1?1:$now-$filter->{'sincefilter'});
+     my ($createdbefore,$createdafter);
+     if (($filter->{'createdfilter'} ne '') && ($filter->{'createdfilter'} !=-1)) {
+         $createdbefore = $now;
+         $createdafter = $now-$filter->{'createdfilter'};
+     }
+     my ($instcodefilter,$regexpok);
+     if ($numtitles) {
+         if ($env{'form.official'} eq 'on') {
+             $instcodefilter =
+                 &Apache::courseclassifier::instcode_search_str($dom,$numtitles,$codetitles);
+             $regexpok = 1;
+         } elsif ($env{'form.official'} eq 'off') {
+             $instcodefilter = &Apache::courseclassifier::instcode_search_str($dom,$numtitles,$codetitles);
+             unless ($instcodefilter eq '') {
+                 $regexpok = -1;
+             }
+         }
+     } else {
+         $instcodefilter = $filter->{'instcodefilter'};
+     }
+     if ($instcodefilter eq '') { $instcodefilter = '.'; }
+     if ($type eq '') { $type = '.'; }
+     if (($clonerudom ne '') && ($cloneruname ne '')) {
+         $cloner = $cloneruname.':'.$clonerudom;
+     }
+     %courses = &Apache::lonnet::courseiddump($dom,
+                                              $filter->{'descriptfilter'},
+                                              $timefilter,
+                                              $instcodefilter,
+                                              $filter->{'combownerfilter'},
+                                              $filter->{'coursefilter'},
+                                              undef,undef,$type,$regexpok,undef,undef,
+                                              undef,undef,$cloner,$env{'form.cc_clone'},
+                                              $filter->{'cloneableonly'},
+                                              $createdbefore,$createdafter,undef,
+                                              $domcloner);
+     if (($filter->{'personfilter'} ne '') && ($filter->{'persondomfilter'} ne '')) {
+         my $ccrole;
+         if ($type eq 'Community') {
+             $ccrole = 'co';
+         } else {
+             $ccrole = 'cc';
+         }
+         my %rolehash = &Apache::lonnet::get_my_roles($filter->{'personfilter'},
+                                                      $filter->{'persondomfilter'},
+                                                      'userroles',undef,
+                                                      [$ccrole,'in','ad','ep','ta','cr'],
+                                                      $dom);
+         foreach my $role (keys(%rolehash)) {
+             my ($cnum,$cdom,$courserole) = split(':',$role);
+             my $cid = $cdom.'_'.$cnum;
+             if (exists($courses{$cid})) {
+                 if (ref($courses{$cid}) eq 'HASH') {
+                     if (ref($courses{$cid}{roles}) eq 'ARRAY') {
+                         if (!grep(/^\Q$courserole\E$/,@{$courses{$cid}{roles}})) {
+                             push (@{$courses{$cid}{roles}},$courserole);
+                         }
+                     } else {
+                         $courses{$cid}{roles} = [$courserole];
+                     }
+                     $showcourses{$cid} = $courses{$cid};
+                 }
+             }
+         }
+         %courses = %showcourses;
+     }
+     return %courses;
+ }
+ =pod
+ =back
+ =head1 Routines for version requirements for current course.
+ =over 4
+ =item * &check_release_required()
+ Compares required LON-CAPA version with version on server, and
+ if required version is newer looks for a server with the required version.
+ Looks first at servers in user's owen domain; if none suitable, looks at
+ servers in course's domain are permitted to host sessions for user's domain.
+ Inputs:
+ $loncaparev - Version on current server (format: Major.Minor.Subrelease-datestamp)
+ $courseid - Course ID of current course
+ $rolecode - User's current role in course (for switchserver query string).
+ $required - LON-CAPA version needed by course (format: Major.Minor).
+ Returns:
+ $switchserver - query string tp append to /adm/switchserver call (if
+                 current server's LON-CAPA version is too old.
+ $warning - Message is displayed if no suitable server could be found.
+ =cut
+ sub check_release_required {
+     my ($loncaparev,$courseid,$rolecode,$required) = @_;
+     my ($switchserver,$warning);
+     if ($required ne '') {
+         my ($reqdmajor,$reqdminor) = ($required =~ /^(\d+)\.(\d+)$/);
+         my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
+         if ($reqdmajor ne '' && $reqdminor ne '') {
+             my $otherserver;
+             if (($major eq '' && $minor eq '') ||
+                 (($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor)))) {
+                 my ($userdomserver) = &Apache::lonnet::choose_server($env{'user.domain'},undef,$required,1);
+                 my $switchlcrev =
+                     &Apache::lonnet::get_server_loncaparev($env{'user.domain'},
+                                                            $userdomserver);
+                 my ($swmajor,$swminor) = ($switchlcrev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
+                 if (($swmajor eq '' && $swminor eq '') || ($reqdmajor > $swmajor) ||
+                     (($reqdmajor == $swmajor) && ($reqdminor > $swminor))) {
+                     my $cdom = $env{'course.'.$courseid.'.domain'};
+                     if ($cdom ne $env{'user.domain'}) {
+                         my ($coursedomserver,$coursehostname) = &Apache::lonnet::choose_server($cdom,undef,$required,1);
+                         my $serverhomeID = &Apache::lonnet::get_server_homeID($coursehostname);
+                         my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID);
+                         my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom);
+                         my %udomdefaults = &Apache::lonnet::get_domain_defaults($env{'user.domain'});
+                         my $remoterev = &Apache::lonnet::get_server_loncaparev($serverhomedom,$coursedomserver);
+                         my $canhost =
+                             &Apache::lonnet::can_host_session($env{'user.domain'},
+                                                               $coursedomserver,
+                                                               $remoterev,
+                                                               $udomdefaults{'remotesessions'},
+                                                               $defdomdefaults{'hostedsessions'});
+                         if ($canhost) {
+                             $otherserver = $coursedomserver;
+                         } else {
+                             $warning = &mt('Requires LON-CAPA version [_1].',$env{'course.'.$courseid.'.internal.releaserequired'}).'<br />'. &mt("No suitable server could be found amongst servers in either your own domain or in the course's domain.");
+                         }
+                     } else {
+                         $warning = &mt('Requires LON-CAPA version [_1].',$env{'course.'.$courseid.'.internal.releaserequired'}).'<br />'.&mt("No suitable server could be found amongst servers in your own domain (which is also the course's domain).");
+                     }
+                 } else {
+                     $otherserver = $userdomserver;
+                 }
+             }
+             if ($otherserver ne '') {
+                 $switchserver = 'otherserver='.$otherserver.'&amp;role='.$rolecode;
+             }
+         }
+     }
+     return ($switchserver,$warning);
+ }
+ =pod
+ =item * &check_release_result()
+ Inputs:
+ $switchwarning - Warning message if no suitable server found to host session.
+ $switchserver - query string to append to /adm/switchserver containing lonHostID
+                 and current role.
+ Returns: HTML to display with information about requirement to switch server.
+          Either displaying warning with link to Roles/Courses screen or
+          display link to switchserver.
+ =cut
+ sub check_release_result {
+     my ($switchwarning,$switchserver) = @_;
+     my $output = &start_page('Selected course unavailable on this server').
+                  '<p class="LC_warning">';
+     if ($switchwarning) {
+         $output .= $switchwarning.'<br /><a href="/adm/roles">';
+         if (&show_course()) {
+             $output .= &mt('Display courses');
+         } else {
+             $output .= &mt('Display roles');
+         }
+         $output .= '</a>';
+     } elsif ($switchserver) {
+         $output .= &mt('This course requires a newer version of LON-CAPA than is installed on this server.').
+                    '<br />'.
+                    '<a href="/adm/switchserver?'.$switchserver.'">'.
+                    &mt('Switch Server').
+                    '</a>';
+     }
+     $output .= '</p>'.&end_page();
+     return $output;
+ }
+ =pod
+ =item * &needs_coursereinit()
+ Determine if course contents stored for user's session needs to be
+ refreshed, because content has changed since "Big Hash" last tied.
+ Check for change is made if time last checked is more than 10 minutes ago
+ (by default).
+ Inputs:
+ $loncaparev - Version on current server (format: Major.Minor.Subrelease-datestamp)
+ $interval (optional) - Time which may elapse (in s) between last check for content
+                        change in current course. (default: 600 s).
+ Returns: an array; first element is:
+ =over 4
+ 'switch' - if content updates mean user's session
+            needs to be switched to a server running a newer LON-CAPA version
+ 'update' - if course session needs to be refreshed (i.e., Big Hash needs to be reloaded)
+            on current server hosting user's session
+ ''       - if no action required.
+ =back
+ If first item element is 'switch':
+ second item is $switchwarning - Warning message if no suitable server found to host session.
+ third item is $switchserver - query string to append to /adm/switchserver containing lonHostID
+                               and current role.
+ otherwise: no other elements returned.
+ =back
+ =cut
+ sub needs_coursereinit {
+     my ($loncaparev,$interval) = @_;
+     return() unless ($env{'request.course.id'} && $env{'request.course.tied'});
+     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+     my $now = time;
+     if ($interval eq '') {
+         $interval = 600;
+     }
+     if (($now-$env{'request.course.timechecked'})>$interval) {
+         my $lastchange = &Apache::lonnet::get_coursechange($cdom,$cnum);
+         &Apache::lonnet::appenv({'request.course.timechecked'=>$now});
+         if ($lastchange > $env{'request.course.tied'}) {
+             my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired');
+             if ($curr_reqd_hash{'internal.releaserequired'} ne '') {
+                 my $required = $env{'course.'.$cdom.'_'.$cnum.'.internal.releaserequired'};
+                 if ($curr_reqd_hash{'internal.releaserequired'} ne $required) {
+                     &Apache::lonnet::appenv({'course.'.$cdom.'_'.$cnum.'.internal.releaserequired' =>
+                                              $curr_reqd_hash{'internal.releaserequired'}});
+                     my ($switchserver,$switchwarning) =
+                         &check_release_required($loncaparev,$cdom.'_'.$cnum,$env{'request.role'},
+                                                 $curr_reqd_hash{'internal.releaserequired'});
+                     if ($switchwarning ne '' || $switchserver ne '') {
+                         return ('switch',$switchwarning,$switchserver);
+                     }
+                 }
+             }
+             return ('update');
+         }
+     }
+     return ();
+ }
  sub update_content_constraints {
      my ($cdom,$cnum,$chome,$cid) = @_;
      my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired');
      my ($reqdmajor,$reqdminor) = split(/\./,$curr_reqd_hash{'internal.releaserequired'});
      my %checkresponsetypes;
      foreach my $key (keys(%Apache::lonnet::needsrelease)) {
-         my ($item,$name,$value) = split(/:/,$key);
+         my ($item,$name,$value,$valmatch) = split(/:/,$key);
          if ($item eq 'resourcetag') {
              if ($name eq 'responsetype') {
                  $checkresponsetypes{$value} = $Apache::lonnet::needsrelease{$key}
- Line 15024  sub create_recaptcha {
+ Line 16273  sub create_recaptcha {
      my $captcha = Captcha::reCAPTCHA->new;
      return $captcha->get_options_setter({theme => 'white'})."\n".
             $captcha->get_html($pubkey,undef,$use_ssl).
-            &mt('If either word is hard to read, [_1] will replace them.',
+            &mt('If the text is hard to read, [_1] will replace them.',
                 '<img src="/res/adm/pages/refresh.gif" alt="reCAPTCHA refresh" />').
             '<br /><br />';
  }
- Line 15081  sub cleanup_html {
+ Line 16330  sub cleanup_html {
      return $outgoing;
  }
+ # Checks for critical messages and returns a redirect url if one exists.
+ # $interval indicates how often to check for messages.
+ sub critical_redirect {
+     my ($interval) = @_;
+     if ((time-$env{'user.criticalcheck.time'})>$interval) {
+         my @what=&Apache::lonnet::dump('critical', $env{'user.domain'},
+                                         $env{'user.name'});
+         &Apache::lonnet::appenv({'user.criticalcheck.time'=>time});
+         my $redirecturl;
+         if ($what[0]) {
+ 	    if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
+ 	        $redirecturl='/adm/email?critical=display';
+ 	        my $url=&Apache::lonnet::absolute_url().$redirecturl;
+                 return (1, $url);
+             }
+         }
+     }
+     return ();
+ }
  # Use:
  #   my $answer=reply("encrypt:passwd:$udom:$uname:$upass",$tryserver);
  #
- Line 15123  sub des_decrypt {
+ Line 16392  sub des_decrypt {
      return $plaintext;
  }
- =pod
- =back
- =cut
 ;
  __END__;

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

Removed from v.1.1075.2.67
changed lines
	Added in v.1.1219