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.925.2.17 and 1.994

-version 1.925.2.17, 2010/11/09 00:08:06
+version 1.994, 2011/01/05 18:39:38
  Line 483  ENDAUTHORBRW
  sub coursebrowser_javascript {
      my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_;
-     my $wintitle = &mt('Course Browser');
+     my $wintitle = 'Course_Browser';
-     if ($crstype ne '') {
+     if ($crstype eq 'Community') {
-         $wintitle = &mt($crstype);
+         $wintitle = 'Community_Browser';
      }
      my $id_functions = &javascript_index_functions();
      my $output = '
  Line 900  sub select_language {
              $langchoices{$code} = &plainlanguagedescription($id);
          }
      }
-     return &select_form($selected,$name,%langchoices);
+     return &select_form($selected,$name,\%langchoices);
  }
  =pod
  Line 1072  END
  =pod
- =item * &help_open_topic($topic,$text,$stayOnPage,$width,$height)
+ =item * &help_open_topic($topic,$text,$stayOnPage,$width,$height,$imgid)
  Returns a string corresponding to an HTML link to the given help
  $topic, where $topic corresponds to the name of a .tex file in
  Line 1090  a new window using Javascript. (Default
  $width and $height are optional numerical parameters that will
  override the width and height of the popped up window, which may
  be useful for certain help topics with big pictures included.
+ $imgid is the id of the img tag used for the help icon. This may be
+ used in a javascript call to switch the image src.  See
+ lonhtmlcommon::htmlareaselectactive() for an example.
  =cut
  sub help_open_topic {
-     my ($topic, $text, $stayOnPage, $width, $height) = @_;
+     my ($topic, $text, $stayOnPage, $width, $height, $imgid) = @_;
      $text = "" if (not defined $text);
      $stayOnPage = 0 if (not defined $stayOnPage);
      $width = 350 if (not defined $width);
- Line 1124  sub help_open_topic {
+ Line 1128  sub help_open_topic {
      # (Always) Add the graphic
      my $title = &mt('Online Help');
      my $helpicon=&lonhttpdurl("/adm/help/help.png");
+     if ($imgid ne '') {
+         $imgid = ' id="'.$imgid.'"';
+     }
      $template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'
                .'<img src="'.$helpicon.'" border="0"'
                .' alt="'.&mt('Help: [_1]',$topic).'"'
-               .' title="'.$title.'"'
+               .' title="'.$title.'" style="vertical-align:middle;"'.$imgid
                .' /></a>';
      if ($text ne "") {
          $template.='</span>';
- Line 1202  ENDOUTPUT
+ Line 1209  ENDOUTPUT
  sub help_open_menu {
      my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text)
  	= @_;
-     $stayOnPage = 0 if (not defined $stayOnPage);
+     $stayOnPage = 1;
-     # only use pop-up help (stayOnPage == 0)
-     # if environment.remote is on (using remote control UI)
-     if ($env{'environment.remote'} eq 'off' ) {
-         $stayOnPage=1;
-     }
      my $output;
      if ($component_help) {
  	if (!$text) {
- Line 1228  sub help_open_menu {
+ Line 1230  sub help_open_menu {
  sub top_nav_help {
      my ($text) = @_;
      $text = &mt($text);
-     my $stay_on_page =
+     my $stay_on_page = 1;
- 	($env{'environment.remote'} eq 'off' );
      my $link = ($stay_on_page) ? "javascript:helpMenu('display')"
  	                     : "javascript:helpMenu('open')";
      my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);
- Line 1244  END
+ Line 1246  END
  sub help_menu_js {
      my ($text) = @_;
+     my $stayOnPage = 1;
-     my $stayOnPage =
- 	($env{'environment.remote'} eq 'off' );
      my $width = 620;
      my $height = 600;
      my $helptopic=&general_help();
- Line 1304  sub help_open_bug {
+ Line 1303  sub help_open_bug {
      unless ($env{'user.adv'}) { return ''; }
      unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }
      $text = "" if (not defined $text);
-     $stayOnPage = 0 if (not defined $stayOnPage);
-     if ($env{'environment.remote'} eq 'off' ) {
  	$stayOnPage=1;
-     }
      $width = 600 if (not defined $width);
      $height = 600 if (not defined $height);
- Line 1348  sub help_open_faq {
+ Line 1344  sub help_open_faq {
      unless ($env{'user.adv'}) { return ''; }
      unless ($Apache::lonnet::perlvar{'FAQHost'}) { return ''; }
      $text = "" if (not defined $text);
-     $stayOnPage = 0 if (not defined $stayOnPage);
-     if ($env{'environment.remote'} eq 'off' ) {
  	$stayOnPage=1;
-     }
      $width = 350 if (not defined $width);
      $height = 400 if (not defined $height);
- Line 1719  sub create_workbook {
+ Line 1712  sub create_workbook {
      my $workbook  = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
      if (! defined($workbook)) {
          $r->log_error("Error creating excel spreadsheet $filename: $!");
-         $r->print('<p>'.&mt("Unable to create new Excel file.  ".
+         $r->print(
-                             "This error has been logged.  ".
+             '<p class="LC_error">'
-                             "Please alert your LON-CAPA administrator").
+            .&mt('Problems occurred in creating the new Excel file.')
-                   '</p>');
+            .' '.&mt('This error has been logged.')
+            .' '.&mt('Please alert your LON-CAPA administrator.')
+            .'</p>'
+         );
          return (undef);
      }
      #
- Line 1762  sub create_text_file {
+ Line 1758  sub create_text_file {
      $fh = Apache::File->new('>/home/httpd'.$filename);
      if (! defined($fh)) {
          $r->log_error("Couldn't open $filename for output $!");
-         $r->print(&mt('Problems occurred in creating the output file. '
+         $r->print(
-                      .'This error has been logged. '
+             '<p class="LC_error">'
-                      .'Please alert your LON-CAPA administrator.'));
+            .&mt('Problems occurred in creating the output file.')
+            .' '.&mt('This error has been logged.')
+            .' '.&mt('Please alert your LON-CAPA administrator.')
+            .'</p>'
+         );
      }
      return ($fh,$filename)
  }
  Line 1793  sub domain_select {
  	return &multiple_select_form($name,$value,4,\%domains);
      } else {
  	$domains{'select_form_order'} = [sort {lc($a) cmp lc($b) } (keys(%domains))];
- 	return &select_form($name,$value,%domains);
+ 	return &select_form($name,$value,\%domains);
      }
  }
  Line 1855  sub multiple_select_form {
  =pod
- =item * &select_form($defdom,$name,%hash)
+ =item * &select_form($defdom,$name,$hashref,$onchange)
  Returns a string containing a <select name='$name' size='1'> form to
- allow a user to select options from a hash option_name => displayed text.
+ allow a user to select options from a ref to a hash containing:
+ option_name => displayed text. An optional $onchange can include
+ a javascript onchange item, e.g., onchange="this.form.submit();"
  See lonrights.pm for an example invocation and use.
  =cut
  #-------------------------------------------
  sub select_form {
-     my ($def,$name,%hash) = @_;
+     my ($def,$name,$hashref,$onchange) = @_;
-     my $selectform = "<select name=\"$name\" size=\"1\">\n";
+     return unless (ref($hashref) eq 'HASH');
+     if ($onchange) {
+         $onchange = ' onchange="'.$onchange.'"';
+     }
+     my $selectform = "<select name=\"$name\" size=\"1\"$onchange>\n";
      my @keys;
-     if (exists($hash{'select_form_order'})) {
+     if (exists($hashref->{'select_form_order'})) {
- 	@keys=@{$hash{'select_form_order'}};
+ 	@keys=@{$hashref->{'select_form_order'}};
      } else {
- 	@keys=sort(keys(%hash));
+ 	@keys=sort(keys(%{$hashref}));
      }
      foreach my $key (@keys) {
          $selectform.=
  	    '<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.
              ($key eq $def ? 'selected="selected" ' : '').
-                 ">".$hash{$key}."</option>\n";
+                 ">".$hashref->{$key}."</option>\n";
      }
      $selectform.="</select>";
      return $selectform;
- Line 1895  sub display_filter {
+ Line 1902  sub display_filter {
             &mt('Filter [_1]',
  	   &select_form($env{'form.displayfilter'},
  			'displayfilter',
- 			('currentfolder' => 'Current folder/page',
+ 			{'currentfolder' => 'Current folder/page',
  			 'containing' => 'Containing phrase',
- 			 'none' => 'None'))).
+ 			 'none' => 'None'})).
  			 '<input type="text" name="containingphrase" size="30" value="'.&HTML::Entities::encode($env{'form.containingphrase'}).'" /></span>';
  }
- Line 1978  sub select_dom_form {
+ Line 1985  sub select_dom_form {
              ($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;
          if ($showdomdesc) {
              if ($dom ne '') {
-                 my $domdesc;
+                 my $domdesc = &Apache::lonnet::domain($dom,'description');
-                 if ($name eq 'srchdomain') {
-                     if ($dom eq 'gci') {
-                         $domdesc = 'Faculty';
-                     } else {
-                         $domdesc = 'Students';
-                     }
-                 } else {
-                     $domdesc = &Apache::lonnet::domain($dom,'description');
-                 }
                  if ($domdesc ne '') {
                      $selectdomain .= ' ('.$domdesc.')';
                  }
- Line 2276  function changed_text(choice,currentform
+ Line 2274  function changed_text(choice,currentform
  }
  function set_auth_radio_buttons(newvalue,currentform) {
+     var numauthchoices = currentform.login.length;
+     if (typeof numauthchoices  == "undefined") {
+         return;
+     }
      var i=0;
-     while (i < currentform.login.length) {
+     while (i < numauthchoices) {
          if (currentform.login[i].value == newvalue) { break; }
          i++;
      }
-     if (i == currentform.login.length) {
+     if (i == numauthchoices) {
          return;
      }
      current.radiovalue = newvalue;
- Line 2478  sub authform_internal{
+ Line 2480  sub authform_internal{
      }
      $autharg = '<input type="password" size="10" name="intarg" value="'.
                 $intarg.'" onchange="'.$jscall.'" />';
-     my $authtext = '[_1] Internally authenticated (with initial password [_2])';
+     $result = &mt
-     if ($in{'caller'} eq 'requestcrs') {
+         ('[_1] Internally authenticated (with initial password [_2])',
-         $authtext = "[_1] Students' password, if none in the uploaded file: [_2]";
+          '<label>'.$authtype,'</label>'.$autharg);
-     }
-     $result = &mt($authtext,'<label>'.$authtype,'</label>'.$autharg);
      $result.="<label><input type=\"checkbox\" name=\"visible\" onclick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';
      return $result;
  }
  Line 3250  sub filemimetype {
  sub filecategoryselect {
      my ($name,$value)=@_;
      return &select_form($value,$name,
- 			'' => &mt('Any category'),
+                         {'' => &mt('Any category'), map { $_,$_ } sort(keys(%category_extensions))});
- 			map { $_,$_ } sort(keys(%category_extensions)));
  }
  =pod
- Line 3416  sub get_previous_attempt {
+ Line 3415  sub get_previous_attempt {
        }
        $prevattempts=&start_data_table().&start_data_table_header_row();
        $prevattempts.='<th>'.&mt('History').'</th>';
+       my (%typeparts,%lasthidden);
+       my $showsurv=&Apache::lonnet::allowed('vas',$env{'request.course.id'});
        foreach my $key (sort(keys(%lasthash))) {
  	my ($ign,@parts) = split(/\./,$key);
  	if ($#parts > 0) {
  	  my $data=$parts[-1];
+           next if ($data eq 'foilorder');
  	  pop(@parts);
- 	  $prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.'&nbsp;</th>';
+           if ($data eq 'type') {
+               unless ($showsurv) {
+                   my $id = join(',',@parts);
+                   $typeparts{$ign.'.'.$id} = $lasthash{$key};
+                   if (($lasthash{$key} eq 'anonsurvey') || ($lasthash{$key} eq 'anonsurveycred')) {
+                       $lasthidden{$ign.'.'.$id} = 1;
+                   }
+               }
+               delete($lasthash{$key});
+           } else {
+ 	      $prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.'&nbsp;</th>';
+           }
  	} else {
  	  if ($#parts == 0) {
  	    $prevattempts.='<th>'.$parts[0].'</th>';
- Line 3433  sub get_previous_attempt {
+ Line 3446  sub get_previous_attempt {
        $prevattempts.=&end_data_table_header_row();
        if ($getattempt eq '') {
  	for ($version=1;$version<=$returnhash{'version'};$version++) {
- 	  $prevattempts.=&start_data_table_row().
+             my @hidden;
- 	      '<td>'.&mt('Transaction [_1]',$version).'</td>';
+             if (%typeparts) {
- 	    foreach my $key (sort(keys(%lasthash))) {
+                 foreach my $id (keys(%typeparts)) {
- 		my $value = &format_previous_attempt_value($key,
+                     if (($returnhash{$version.':'.$id.'.type'} eq 'anonsurvey') || ($returnhash{$version.':'.$id.'.type'} eq 'anonsurveycred')) {
- 							   $returnhash{$version.':'.$key});
+                         push(@hidden,$id);
- 		$prevattempts.='<td>'.$value.'&nbsp;</td>';
+                     }
- 	    }
+                 }
- 	  $prevattempts.=&end_data_table_row();
+             }
+             $prevattempts.=&start_data_table_row().
+                            '<td>'.&mt('Transaction [_1]',$version).'</td>';
+             if (@hidden) {
+                 foreach my $key (sort(keys(%lasthash))) {
+                     next if ($key =~ /\.foilorder$/);
+                     my $hide;
+                     foreach my $id (@hidden) {
+                         if ($key =~ /^\Q$id\E/) {
+                             $hide = 1;
+                             last;
+                         }
+                     }
+                     if ($hide) {
+                         my ($id,$data) = ($key =~ /^(.+)\.([^.]+)$/);
+                         if (($data eq 'award') || ($data eq 'awarddetail')) {
+                             my $value = &format_previous_attempt_value($key,
+                                              $returnhash{$version.':'.$key});
+                             $prevattempts.='<td>'.$value.'&nbsp;</td>';
+                         } else {
+                             $prevattempts.='<td>&nbsp;</td>';
+                         }
+                     } else {
+                         if ($key =~ /\./) {
+                             my $value = &format_previous_attempt_value($key,
+                                               $returnhash{$version.':'.$key});
+                             $prevattempts.='<td>'.$value.'&nbsp;</td>';
+                         } else {
+                             $prevattempts.='<td>&nbsp;</td>';
+                         }
+                     }
+                 }
+             } else {
+ 	        foreach my $key (sort(keys(%lasthash))) {
+                     next if ($key =~ /\.foilorder$/);
+ 		    my $value = &format_previous_attempt_value($key,
+ 			            $returnhash{$version.':'.$key});
+ 		    $prevattempts.='<td>'.$value.'&nbsp;</td>';
+ 	        }
+             }
+ 	    $prevattempts.=&end_data_table_row();
  	 }
        }
+       my @currhidden = keys(%lasthidden);
        $prevattempts.=&start_data_table_row().'<td>'.&mt('Current').'</td>';
        foreach my $key (sort(keys(%lasthash))) {
- 	my $value = &format_previous_attempt_value($key,$lasthash{$key});
+           next if ($key =~ /\.foilorder$/);
- 	if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}
+           if (%typeparts) {
- 	$prevattempts.='<td>'.$value.'&nbsp;</td>';
+               my $hidden;
+               foreach my $id (@currhidden) {
+                   if ($key =~ /^\Q$id\E/) {
+                       $hidden = 1;
+                       last;
+                   }
+               }
+               if ($hidden) {
+                   my ($id,$data) = ($key =~ /^(.+)\.([^.]+)$/);
+                   if (($data eq 'award') || ($data eq 'awarddetail')) {
+                       my $value = &format_previous_attempt_value($key,$lasthash{$key});
+                       if ($key =~/$regexp$/ && (defined &$gradesub)) {
+                           $value = &$gradesub($value);
+                       }
+                       $prevattempts.='<td>'.$value.'&nbsp;</td>';
+                   } else {
+                       $prevattempts.='<td>&nbsp;</td>';
+                   }
+               } else {
+                   my $value = &format_previous_attempt_value($key,$lasthash{$key});
+                   if ($key =~/$regexp$/ && (defined &$gradesub)) {
+                       $value = &$gradesub($value);
+                   }
+                   $prevattempts.='<td>'.$value.'&nbsp;</td>';
+               }
+           } else {
+ 	      my $value = &format_previous_attempt_value($key,$lasthash{$key});
+ 	      if ($key =~/$regexp$/ && (defined &$gradesub)) {
+                   $value = &$gradesub($value);
+               }
+ 	      $prevattempts.='<td>'.$value.'&nbsp;</td>';
+           }
        }
        $prevattempts.= &end_data_table_row().&end_data_table();
      } else {
- Line 3470  sub format_previous_attempt_value {
+ Line 3555  sub format_previous_attempt_value {
  	$value = &Apache::lonlocal::locallocaltime($value);
      } elsif (ref($value) eq 'ARRAY') {
  	$value = '('.join(', ', @{ $value }).')';
+     } elsif ($key =~ /answerstring$/) {
+         my %answers = &Apache::lonnet::str2hash($value);
+         my @anskeys = sort(keys(%answers));
+         if (@anskeys == 1) {
+             my $answer = $answers{$anskeys[0]};
+             if ($answer =~ m{\Q\0\E}) {
+                 $answer =~ s{\Q\0\E}{, }g;
+             }
+             my $tag_internal_answer_name = 'INTERNAL';
+             if ($anskeys[0] eq $tag_internal_answer_name) {
+                 $value = $answer;
+             } else {
+                 $value = $anskeys[0].'='.$answer;
+             }
+         } else {
+             foreach my $ans (@anskeys) {
+                 my $answer = $answers{$ans};
+                 if ($answer =~ m{\Q\0\E}) {
+                     $answer =~ s{\Q\0\E}{, }g;
+                 }
+                 $value .=  $ans.'='.$answer.'<br />';;
+             }
+         }
      } else {
  	$value = &unescape($value);
      }
- Line 3620  sub submlink {
+ Line 3728  sub submlink {
      }
      if (!$symb) { $symb=&Apache::lonnet::symbread(); }
      $symb=&escape($symb);
-     if ($target) { $target="target=\"$target\""; }
+     if ($target) { $target=" target=\"$target\""; }
-     return '<a href="/adm/grades?&command=submission&'.
+     return
- 	'symb='.$symb.'&student='.$uname.
+         '<a href="/adm/grades?command=submission'.
- 	'&userdom='.$udom.'" '.$target.'>'.$text.'</a>';
+         '&amp;symb='.$symb.
+         '&amp;student='.$uname.
+         '&amp;userdom='.$udom.'"'.
+         $target.'>'.$text.'</a>';
  }
  ##############################################
- Line 3745  sub findallcourses {
+ Line 3856  sub findallcourses {
          $udom = $env{'user.domain'};
      }
      if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
-         my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname);
+         my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
+         my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,'.',undef,
+                                               $extra);
          if (!%roles) {
              %roles = (
                         cc => 1,
- Line 4150  sub get_domainconf {
+ Line 4263  sub get_domainconf {
      if (defined($cached)) { return %{$result}; }
      my %domconfig = &Apache::lonnet::get_dom('configuration',
- 					     ['login','rolecolors'],$udom);
+ 					     ['login','rolecolors','autoenroll'],$udom);
      my (%designhash,%legacy);
      if (keys(%domconfig) > 0) {
          if (ref($domconfig{'login'}) eq 'HASH') {
              if (keys(%{$domconfig{'login'}})) {
                  foreach my $key (keys(%{$domconfig{'login'}})) {
                      if (ref($domconfig{'login'}{$key}) eq 'HASH') {
-                         foreach my $img (keys(%{$domconfig{'login'}{$key}})) {
+                         if ($key eq 'loginvia') {
-                             $designhash{$udom.'.login.'.$key.'_'.$img} =
+                             if (ref($domconfig{'login'}{'loginvia'}) eq 'HASH') {
-                                 $domconfig{'login'}{$key}{$img};
+                                 my @ids = &Apache::lonnet::current_machine_ids();
+                                 foreach my $hostname (@ids) {
+                                     if (ref($domconfig{'login'}{'loginvia'}{$hostname}) eq 'HASH') {
+                                         if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) {
+                                             my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'};
+                                             $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}{'serverpath'};
+                                             }
+                                             if ($domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}) {
+                                                 $designhash{$udom.'.login.loginvia_exempt_'.$hostname} = $domconfig{'login'}{'loginvia'}{$hostname}{'exempt'};
+                                             }
+                                         }
+                                     }
+                                 }
+                             }
+                         } else {
+                             foreach my $img (keys(%{$domconfig{'login'}{$key}})) {
+                                 $designhash{$udom.'.login.'.$key.'_'.$img} =
+                                     $domconfig{'login'}{$key}{$img};
+                             }
                          }
                      } else {
                          $designhash{$udom.'.login.'.$key}=$domconfig{'login'}{$key};
- Line 4186  sub get_domainconf {
+ Line 4322  sub get_domainconf {
          } else {
              $legacy{'rolecolors'} = 1;
          }
+         if (ref($domconfig{'autoenroll'}) eq 'HASH') {
+             if ($domconfig{'autoenroll'}{'co-owners'}) {
+                 $designhash{$udom.'.autoassign.co-owners'}=$domconfig{'autoenroll'}{'co-owners'};
+             }
+         }
          if (keys(%legacy) > 0) {
              my %legacyhash = &get_legacy_domconf($udom);
              foreach my $item (keys(%legacyhash)) {
- Line 4345  Returns: HTML div with $content
+ Line 4486  Returns: HTML div with $content
  sub head_subbox {
      my ($content)=@_;
      my $output =
-         '<div id="LC_head_subbox">'
+         '<div class="LC_head_subbox">'
         .$content
         .'</div>'
  }
- Line 4441  Inputs:
+ Line 4582  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 4461  other decorations will be returned.
+ Line 4599  other decorations will be returned.
  sub bodytag {
      my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,
-         $no_nav_bar,$bgcolor,$no_inline_link,$args)=@_;
+         $no_nav_bar,$bgcolor,$args)=@_;
+     my $public;
+     if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
+         || ($env{'user.name'} eq '') && ($env{'user.domain'} eq '')) {
+         $public = 1;
+     }
      if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }
      $function = &get_users_function() if (!$function);
- Line 4478  sub bodytag {
+ Line 4621  sub bodytag {
  		   'link'    => &designparm($function.'.link',$domain),);
      @design{keys(%$addentries)} = @$addentries{keys(%$addentries)};
-     my $custommenu;
-     if ($env{'environment.remote'} eq 'off') {
-         $custommenu = &needs_gci_custom();
-     }
   # role and realm
      my ($role,$realm) = split(/\./,$env{'request.role'},2);
      if ($role  eq 'ca') {
- Line 4491  sub bodytag {
+ Line 4630  sub bodytag {
  # realm
      if ($env{'request.course.id'}) {
          if ($env{'request.role'} !~ /^cr/) {
-             if (($custommenu) && (($role eq 'cm') || ($env{'form.context'} eq 'requestcrs'))) {
+             $role = &Apache::lonnet::plaintext($role,&course_type());
-                 undef($role);
-             } else {
-                 $role = &Apache::lonnet::plaintext($role,&course_type());
-             }
          }
-         if (defined($role) && $env{'request.course.sec'}) {
+         if ($env{'request.course.sec'}) {
              $role .= ('&nbsp;'x2).'-&nbsp;'.&mt('section:').'&nbsp;'.$env{'request.course.sec'};
          }
-         if ($env{'form.context'} eq 'requestcrs') {
+ 	$realm = $env{'course.'.$env{'request.course.id'}.'.description'};
-             undef($realm);
-         } else {
- 	    $realm = $env{'course.'.$env{'request.course.id'}.'.description'};
-         }
      } else {
-         if (($custommenu) && ($role eq 'cm')) {
+         $role = &Apache::lonnet::plaintext($role);
-             undef($role);
-         } else {
-             $role = &Apache::lonnet::plaintext($role);
-         }
      }
      if (!$realm) { $realm='&nbsp;'; }
- # Set messages
-     my $messages=&domainlogo($domain);
      my $extra_body_attr = &make_attr_string($forcereg,\%design);
- Line 4528  sub bodytag {
+ Line 4653  sub bodytag {
      }
      my $name = &plainname($env{'user.name'},$env{'user.domain'});
-     if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
+     if ($public) {
  	undef($role);
      } else {
  	$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'});
- Line 4549  sub bodytag {
+ Line 4674  sub bodytag {
      $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
      &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);
-     if ($env{'environment.remote'} eq 'off') {
-         # No Remote
          if ($no_nav_bar || $env{'form.inhibitmenu'} eq 'yes') {
              return $bodytag;
          }
- Line 4561  sub bodytag {
+ Line 4684  sub bodytag {
          #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
          #    }
-         my $role_selector;
-         if (($custommenu) && !($env{'form.context'} eq 'requestcrs') &&
-             ($env{'request.course.id'}) &&
-             ($env{'course.'.$env{'request.course.id'}.'.domain'} eq 'gcitest')) {
-             $role_selector = &Apache::lonmenu::roles_selector(
-                         $env{'course.' . $env{'request.course.id'} . '.domain'},
-                         $env{'course.' . $env{'request.course.id'} . '.num'}  );
-             if ($role_selector) {
-                 $role_selector = '<br />'.$role_selector;
-             }
-         }
-         my $cid = $env{'request.course.id'};
-         my %gcicourses = (
-                            gci_9615072b469884921gcil1 => 'review',
-                            gci_1H96711d710194bfegcil1 => 'submit',
-                            gci_5422913620b814c90gcil1 => 'tutorial',
-                          );
-         if (($custommenu && $cid && !$gcicourses{$cid}) &&
-              !($env{'form.context'} eq 'requestcrs') ||
-              ($env{'user.domain'} eq 'gcitest')) {
-             my $role = 'st';
-             if ($custommenu) {
-                 $role = 'cc';
-             }
-             my ($switcher_js,$switcher,$formname);
-             $formname = 'pickrole';
-             my %courses = &existing_gcitest_courses($role);
-             my $numcourses = keys(%courses);
-             my $reqdcount = 0;
-             if ($cid) {
-                 if ($courses{$cid}) {
-                     $reqdcount = 1;
-                 }
-             }
-             if ($numcourses > $reqdcount) {
-                 $switcher = &gcitest_switcher($role,$formname,%courses);
-                 my $current;
-                 if ($cid) {
-                     $current = $role.'./'.$env{'course.'.$cid.'.domain'}.
-                                '/'.$env{'course.'.$cid.'.num'};
-                 }
-                 $switcher_js = &Apache::loncommon::gcitest_switcher_js($current,$numcourses,$formname);
-                 if ($switcher_js) {
-                     $switcher_js= <<"ENDSCRIPT";
- <script type="text/javascript">
- // <![CDATA[
- $switcher_js
- // ]]>
- </script>
- ENDSCRIPT
-                 }
-             }
-             if ($switcher) {
-                 $switcher = $switcher_js.$switcher;
-                 if ($role_selector) {
-                     $role_selector .= '&nbsp;&nbsp;&nbsp;'.$switcher;
-                 } else {
-                     $role_selector .= '<br />'.$switcher;
-                 }
-             }
-         }
          if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
               if ($dc_info) {
- Line 4633  ENDSCRIPT
+ Line 4694  ENDSCRIPT
                  <em>$realm</em> $dc_info</div>|;
              return $bodytag;
          }
-         if ($env{'request.noversionuri'} eq '/adm/navmaps' &&
-                 $env{'environment.remotenavmap'} eq 'on') {
-             return $bodytag;
-         }
-         if ($cid && $gcicourses{$cid} eq 'tutorial') {
+         unless ($env{'request.symb'} =~ m/\.page___\d+___/) {
-             $bodytag .= '<div class="LC_page_header">';
+             $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>|;
          }
-         $bodytag .= qq|<div id="LC_nav_bar">$name $role $role_selector</div>|;
          $bodytag .= Apache::lonhtmlcommon::scripttag(
-             Apache::lonmenu::utilityfunctions('',$custommenu), 'start');
+             Apache::lonmenu::utilityfunctions(), 'start');
          $bodytag .= Apache::lonmenu::primary_menu();
- Line 4653  ENDSCRIPT
+ Line 4708  ENDSCRIPT
              $dc_info = &dc_courseid_toggle($dc_info);
          }
          $bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|;
-         if ($cid && $gcicourses{$cid} eq 'tutorial') {
-             $bodytag .= '</div>';
-         }
          #don't show menus for public users
-         if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){
+         if (!$public){
-             if (($custommenu) &&
+             $bodytag .= Apache::lonmenu::secondary_menu();
-                 ($env{'request.role'} !~ m{^st\./gcitest/$match_courseid})) {
-                 $bodytag .= &Apache::lonmenu::gci_secondary_menu();
-             } elsif ($env{'request.role'} ne 'cm' || &check_for_gci_dc()) {
-                 $bodytag .= Apache::lonmenu::secondary_menu();
-             }
              $bodytag .= Apache::lonmenu::serverform();
              $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
              if ($env{'request.state'} eq 'construct') {
-                 $bodytag .= &Apache::lonmenu::innerregister($forcereg,'',
+                 $bodytag .= &Apache::lonmenu::innerregister($forcereg,
                                  $args->{'bread_crumbs'});
              } elsif ($forcereg) {
                  $bodytag .= &Apache::lonmenu::innerregister($forcereg);
-             } elsif ($custommenu && $env{'request.course.id'} &&
-                      &Apache::lonnet::allowed('mdc', $env{'request.course.id'})) {
-                 if ((($env{'request.noversionuri'} eq '/adm/navmaps') &&
-                     ($env{'request.noversionuri'} ne 'on')) ||
-                     (($env{'request.noversionuri'} eq '/adm/coursedocs') &&
-                      (!($env{'form.context'} eq 'requestcrs'))) ||
-                     (($env{'request.noversionuri'} eq '/adm/createuser') &&
-                      (!($env{'form.context'} eq 'requestcrs'))) ||
-                     ($env{'request.noversionuri'} eq '/adm/whatsnew') ||
-                     ($env{'request.noversionuri'} eq '/cgi-bin/printout.pl') ||
-                     ($env{'request.noversionuri'} eq '/adm/printout') ||
-                     ($env{'request.noversionuri'} eq '/adm/statistics')) {
-                     my @advtools = &concept_test_manager();
-                     &Apache::lonhtmlcommon::clear_breadcrumbs();
-                     &Apache::lonhtmlcommon::add_breadcrumb_tool(
-                                       'advtools',@advtools);
-                     my $advlinks;
-                     my $legendtext = '<a class="LC_menubuttons_link" href="/adm/menu">'.&mt('Management').'</a>';
-                     &Apache::lonhtmlcommon::render_advtools(\$advlinks,$legendtext);
-                     $bodytag .= $advlinks;
-                 }
              }
          }else{
              # this is to seperate menu from content when there's no secondary
- Line 4703  ENDSCRIPT
+ Line 4728  ENDSCRIPT
          }
          return $bodytag;
-     }
- #
- # Top frame rendering, Remote is up
- #
-     my $imgsrc = $img;
-     if ($img =~ /^\/adm/) {
-         $imgsrc = &lonhttpdurl($img);
-     }
-     my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';
-     # 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>|;
-     }
-     $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>
-             <ol class="LC_primary_menu LC_right">
-                 <li>$menu</li>
-             </ol><div id="LC_realm"> $realm $dc_info</div>| unless $env{'form.inhibitmenu'};
-     return(<<ENDBODY);
- $bodytag
- <table id="LC_title_bar" class="LC_with_remote">
- <tr><td>$upperleft</td>
-     <td>$messages&nbsp;</td>
- </tr>
- <tr><td>$titleinfo $dc_info $menu</td>
- </tr>
- </table>
- ENDBODY
- }
- sub concept_test_manager {
-     my @advtools;
-     my  %items = (
-                    docs => {
-                               desc    => 'Edit Test',
-                               action  => "go('/adm/coursedocs')",
-                               tooltip => 'Assemble or modify Concept Test'
-                            },
-                    cprv => {
-                               desc => 'Enrollment/Activity',
-                               action => "go('/adm/createuser')",
-                               tooltip => 'Enrollment and student activity',
-                            },
-                    new => {
-                               desc   => "What's New?",
-                               action => "go('/adm/whatsnew')",
-                               tooltip => 'Recent events/action items in Concept Test' ,
-                            },
-                    prnt => {
-                               desc => 'Print Test',
-                               action => "go('/adm/printout');",
-                               tooltip => 'Prepare printable Concept Test',
-                            },
-                    chrt => {
-                               desc   => 'Test Statistics',
-                               action => "go('/adm/statistics');",
-                               tooltip => 'Concept Test Statistics',
-                            },
-                    rcrs => {
-                               desc   => 'Create New Test',
-                               action  => "switchpage('createtest');",
-                               tooltip => 'Create new Concept Test',
-                            },
-                  );
-     my @ordered = ('docs','cprv','new','prnt','chrt','rcrs');
-     foreach my $item (@ordered) {
-          push(@advtools,
-                   '<a title="'.$items{$item}{tooltip}.'" class="LC_menubuttons_link" href="javascript:'.
-                   $items{$item}{action}.';">'.
-                   '<img src="'.'/res/adm/pages/'.$item.'22.png" alt="'.$items{$item}{tooltip}.
-                   '" border="0" class="LC_icon" />'.
-                   '<span class="LC_menubuttons_inline_text">'.$items{$item}{desc}.'</span></a>');
-     }
-     return @advtools;
  }
  sub dc_courseid_toggle {
      my ($dc_info) = @_;
-     return ' <span id="dccidtext" class="LC_cusr_subheading">'.
+     return ' <span id="dccidtext" class="LC_cusr_subheading LC_nobreak">'.
             '<a href="javascript:showCourseID();">'.
             &mt('(More ...)').'</a></span>'.
             '<div id="dccid" class="LC_dccid">'.$dc_info.'</div>';
- Line 4814  sub make_attr_string {
+ Line 4759  sub make_attr_string {
  		delete($attr_ref->{$key});
  	    }
  	}
- 	$attr_ref->{'onload'}  =
+ 	$attr_ref->{'onload'}  = $on_load;
- 	    &Apache::lonmenu::loadevents().  $on_load;
+ 	$attr_ref->{'onunload'}= $on_unload;
- 	$attr_ref->{'onunload'}=
- 	    &Apache::lonmenu::unloadevents().$on_unload;
-     }
- # Accessibility font enhance
-     if ($env{'browser.fontenhance'} eq 'on') {
- 	my $style;
- 	foreach my $key (keys(%{$attr_ref})) {
- 	    if (lc($key) eq 'style') {
- 		$style.=$attr_ref->{$key}.';';
- 		delete($attr_ref->{$key});
- 	    }
- 	}
- 	$attr_ref->{'style'}=$style.'; font-size: x-large;';
      }
      my $attr_string;
- Line 4903  sub standard_css {
+ Line 4834  sub standard_css {
      my $vlink  = &designparm($function.'.vlink', $domain);
      my $link   = &designparm($function.'.link',  $domain);
-     my $loginbg = &designparm('login.sidebg',$domain);
-     my $bgcol = &designparm('login.bgcol',$domain);
-     my $textcol = &designparm('login.textcol',$domain);
      my $sans                 = 'Verdana,Arial,Helvetica,sans-serif';
      my $mono                 = 'monospace';
      my $data_table_head      = $sidebg;
- Line 4925  sub standard_css {
+ Line 4852  sub standard_css {
      my $table_header         = '#DDDDDD';
      my $feedback_link_bg     = '#BBBBBB';
      my $lg_border_color      = '#C8C8C8';
+     my $button_hover         = '#BF2317';
      my $border = ($env{'browser.type'} eq 'explorer' ||
        $env{'browser.type'} eq 'safari'     ) ? '0 2px 0 2px'
- Line 4932  sub standard_css {
+ Line 4860  sub standard_css {
      return <<END;
+ /* needed for iframe to allow 100% height in FF */
+ body, html {
+     margin: 0;
+     padding: 0 0.5%;
+     height: 99%; /* to avoid scrollbars */
+ }
  body {
    font-family: $sans;
    line-height:130%;
- Line 4939  body {
+ Line 4875  body {
    color:$font;
  }
- a:focus {
+ a:focus,
+ a:focus img {
    color: red;
    background: yellow;
  }
- Line 4956  form, .inline {
+ Line 4893  form, .inline {
    vertical-align:middle;
  }
- /* just for tests */
  .LC_400Box {
    width:400px;
  }
- /* end */
+ .LC_iframecontainer {
+     width: 98%;
+     margin: 0;
+     position: fixed;
+     top: 8.5em;
+     bottom: 0;
+ }
+ .LC_iframecontainer iframe{
+     border: none;
+     width: 100%;
+     height: 100%;
+ }
  .LC_filename {
    font-family: $mono;
- Line 5074  table#LC_title_bar {
+ Line 5023  table#LC_title_bar {
  }
  table#LC_title_bar,
- table.LC_breadcrumbs,
+ table.LC_breadcrumbs, /* obsolete? */
  table#LC_title_bar.LC_with_remote {
    width: 100%;
    border-color: $pgbg;
- Line 5108  ul.LC_breadcrumb_tools_outerlist li {
+ Line 5057  ul.LC_breadcrumb_tools_outerlist li {
      float: right;
  }
- div.LC_GCI_Menu {
-     width:900px;
- }
- div.LC_GCI_Menu:after {
-     content:'';
-     display:block;
-     clear:both;
- }
- div.LC_GCI_Menu_left {
-     float:left;
-     width:400px;
- }
- div.LC_GCI_Menu_right {
-     float:left;
-     width:400px;;
- }
- dl.LC_GCI_Menu {
-     width:300px;
-     float:left;
-     margin-right:2em;
- }
- dl.LC_GCI_Menu dt {
-     font-weight: bold;
-     font-size:0.9em;
-     margin-bottom:0.7em;
- }
- dl.LC_GCI_Menu dt a {
-     color: $font;
- }
- dl.LC_GCI_Menu dd {
-     font-size:0.8em;
-     margin:0 0 2em 0;
-     padding-left:4.5em;
-     line-height:1.5em;
-     background:none no-repeat left top;
- }
  table#LC_title_bar td {
    background: $tabbg;
  }
- Line 5162  table#LC_menubuttons img {
+ Line 5067  table#LC_menubuttons img {
  .LC_breadcrumbs_component {
    float: right;
-   margin: 0.25em 1em;
+   margin: 0 1em;
  }
  .LC_breadcrumbs_component img {
    vertical-align: middle;
- Line 5184  td.LC_table_cell_checkbox {
+ Line 5089  td.LC_table_cell_checkbox {
    overflow: hidden;
    margin: 0;
    padding: 0;
-   text-align: left;
  }
- /* Preliminary fix to hide breadcrumbs inside remote control window */
+ .LC_head_subbox {
- #LC_remote #LC_breadcrumbs {
-   display:none;
- }
- #LC_head_subbox {
    clear:both;
    background: #F8F8F8; /* $sidebg; */
    border: 1px solid $sidebg;
-   margin: 0 0 0 0;
+   margin: 0 0 10px 0;
+   padding: 3px;
  }
  .LC_fontsize_medium {
- Line 5213  td.LC_table_cell_checkbox {
+ Line 5113  td.LC_table_cell_checkbox {
    padding-left:3px;
  }
+ .LC_menubuttons_inline_text img{
+   vertical-align: middle;
+ }
+ li.LC_menubuttons_inline_text img,a {
+   cursor:pointer;
+ }
  .LC_menubuttons_link {
    text-decoration: none;
  }
- Line 5232  td.LC_menubuttons_text {
+ Line 5140  td.LC_menubuttons_text {
    background: $tabbg;
  }
- table.LC_data_table,
+ table.LC_data_table {
- table.LC_mail_list {
    border: 1px solid #000000;
    border-collapse: separate;
    border-spacing: 1px;
- Line 5259  table.LC_nested {
+ Line 5166  table.LC_nested {
    width: 100%;
  }
+ .ui-accordion,
+ .ui-accordion table.LC_data_table,
+ .ui-accordion table.LC_nested_outer{
+   border: 0px;
+   border-spacing: 0px;
+   margin: 3px;
+ }
  table.LC_data_table tr th,
  table.LC_calendar tr th,
- table.LC_mail_list tr th,
  table.LC_prior_tries tr th,
  table.LC_innerpickbox tr th {
    font-weight: bold;
- Line 5314  table.LC_data_table tr td.LC_leftcol_hea
+ Line 5228  table.LC_data_table tr td.LC_leftcol_hea
  table.LC_data_table tr.LC_empty_row td,
  table.LC_nested tr.LC_empty_row td {
-   background-color: #FFFFFF;
    font-weight: bold;
    font-style: italic;
    text-align: center;
    padding: 8px;
  }
+ table.LC_data_table tr.LC_empty_row td {
+   background-color: $sidebg;
+ }
+ table.LC_nested tr.LC_empty_row td {
+   background-color: #FFFFFF;
+ }
  table.LC_caption {
  }
- Line 5368  table.LC_nested tr td.LC_right_item {
+ Line 5289  table.LC_nested tr td.LC_right_item {
    text-align: right;
  }
+ .ui-accordion table.LC_nested tr.LC_odd_row td.LC_left_item,
+ .ui-accordion table.LC_nested tr.LC_even_row td.LC_left_item {
+   text-align: right;
+   width: 40%;
+   padding-right:10px;
+   vertical-align: top;
+   padding: 5px;
+ }
+ .ui-accordion table.LC_nested tr.LC_odd_row td.LC_right_item,
+ .ui-accordion table.LC_nested tr.LC_even_row td.LC_right_item {
+   text-align: left;
+   width: 60%;
+   padding: 2px 4px;
+ }
  table.LC_nested tr.LC_odd_row td {
    background-color: #EEEEEE;
  }
- Line 5409  table.LC_calendar tr td.LC_calendar_day_
+ Line 5346  table.LC_calendar tr td.LC_calendar_day_
    background-color: $data_table_highlight;
  }
- table.LC_mail_list tr.LC_mail_new {
+ table.LC_data_table tr td.LC_mail_new {
    background-color: $mail_new;
  }
- table.LC_mail_list tr.LC_mail_new:hover {
+ table.LC_data_table tr.LC_mail_new:hover {
    background-color: $mail_new_hover;
  }
- table.LC_mail_list tr.LC_mail_read {
+ table.LC_data_table tr td.LC_mail_read {
    background-color: $mail_read;
  }
- table.LC_mail_list tr.LC_mail_read:hover {
+ /*
+ table.LC_data_table tr.LC_mail_read:hover {
    background-color: $mail_read_hover;
  }
+ */
- table.LC_mail_list tr.LC_mail_replied {
+ table.LC_data_table tr td.LC_mail_replied {
    background-color: $mail_replied;
  }
- table.LC_mail_list tr.LC_mail_replied:hover {
+ /*
+ table.LC_data_table tr.LC_mail_replied:hover {
    background-color: $mail_replied_hover;
  }
+ */
- table.LC_mail_list tr.LC_mail_other {
+ table.LC_data_table tr td.LC_mail_other {
    background-color: $mail_other;
  }
- table.LC_mail_list tr.LC_mail_other:hover {
+ /*
+ table.LC_data_table tr.LC_mail_other:hover {
    background-color: $mail_other_hover;
  }
+ */
  table.LC_data_table tr > td.LC_browser_file,
  table.LC_data_table tr > td.LC_browser_file_published {
- Line 5469  table.LC_data_table tr > td.LC_roles_is
+ Line 5412  table.LC_data_table tr > td.LC_roles_is
  }
  table.LC_data_table tr > td.LC_roles_future {
-   background: #FFFF77;
+   border-right: 8px solid #FFFF77;
  }
  table.LC_data_table tr > td.LC_roles_will {
-   background: #FFAA77;
+   border-right: 8px solid #FFAA77;
  }
  table.LC_data_table tr > td.LC_roles_expired {
-   background: #FF7777;
+   border-right: 8px solid #FF7777;
  }
  table.LC_data_table tr > td.LC_roles_will_not {
-   background: #AAFF77;
+   border-right: 8px solid #AAFF77;
  }
  table.LC_data_table tr > td.LC_roles_selected {
-   background: #11CC55;
+   border-right: 8px solid #11CC55;
  }
  span.LC_current_location {
- Line 5520  span.LC_parm_symb {
+ Line 5463  span.LC_parm_symb {
    color: #AAAAAA;
  }
+ ul.LC_parm_parmlist li {
+   display: inline-block;
+   padding: 0.3em 0.8em;
+   vertical-align: top;
+   width: 150px;
+   border-top:1px solid $lg_border_color;
+ }
  td.LC_parm_overview_level_menu,
  td.LC_parm_overview_map_menu,
  td.LC_parm_overview_parm_selectors,
- Line 5680  table.LC_group_priv td {
+ Line 5631  table.LC_group_priv td {
    padding: 0;
  }
- table.LC_notify_front_page {
-   background: white;
-   border: 1px solid black;
-   padding: 8px;
- }
- table.LC_notify_front_page td {
-   padding: 8px;
- }
  .LC_navbuttons {
    margin: 2ex 0ex 2ex 0ex;
  }
- Line 5709  table.LC_notify_front_page td {
+ Line 5650  table.LC_notify_front_page td {
    font-size: 1.2em;
  }
- .LC_topic_bar img {
-   vertical-align: bottom;
- }
  table.LC_course_group_status {
    margin: 20px;
  }
- Line 5951  div.LC_clear_float_footer {
+ Line 5888  div.LC_clear_float_footer {
  }
  div.LC_grade_show_user {
-   margin-top: 20px;
+ /*  border-left: 5px solid $sidebg; */
-   border: 1px solid black;
+   border-top: 5px solid #000000;
+   margin: 50px 0 0 0;
+   padding: 15px 0 5px 10px;
  }
- div.LC_grade_user_name {
+ div.LC_grade_show_user_odd_row {
-   background: #DDDDEE;
+ /*  border-left: 5px solid #000000; */
-   border-bottom: 1px solid black;
-   font-weight: bold;
-   font-size: large;
  }
- div.LC_grade_show_user_odd_row div.LC_grade_user_name {
+ div.LC_grade_show_user div.LC_Box {
-   background: #DDEEDD;
+   margin-right: 50px;
  }
- div.LC_grade_show_problem,
  div.LC_grade_submissions,
  div.LC_grade_message_center,
- div.LC_grade_info_links,
+ div.LC_grade_info_links {
- div.LC_grade_assign {
    margin: 5px;
    width: 99%;
    background: #FFFFFF;
  }
- div.LC_grade_show_problem_header,
  div.LC_grade_submissions_header,
- div.LC_grade_message_center_header,
+ div.LC_grade_message_center_header {
- div.LC_grade_assign_header {
    font-weight: bold;
    font-size: large;
  }
- div.LC_grade_show_problem_problem,
  div.LC_grade_submissions_body,
- div.LC_grade_message_center_body,
+ div.LC_grade_message_center_body {
- div.LC_grade_assign_body {
    border: 1px solid black;
    width: 99%;
    background: #FFFFFF;
  }
- span.LC_grade_check_note {
-   font-weight: normal;
-   font-size: medium;
-   display: inline;
-   position: absolute;
-   right: 1em;
- }
  table.LC_scantron_action {
    width: 100%;
  }
- Line 6034  div.LC_edit_problem_header_title {
+ Line 5956  div.LC_edit_problem_header_title {
  }
  table.LC_edit_problem_header_title {
-   font-size: larger;
-   font-weight:  bold;
    width: 100%;
-   border-color: $pgbg;
-   border-style: solid;
-   border-width: $border;
    background: $tabbg;
-   border-collapse: collapse;
-   padding: 0;
  }
  div.LC_edit_problem_discards {
- Line 6075  div.LC_createcourse {
+ Line 5990  div.LC_createcourse {
    display:none;
  }
- /* ---- Remove when done ----
- # The following styles is part of the redesign of LON-CAPA and are
- # subject to change during this project.
- # Don't rely on their current functionality as they might be
- # changed or removed.
- # --------------------------*/
  a:hover,
  ol.LC_primary_menu a:hover,
  ol#LC_MenuBreadcrumbs a:hover,
- Line 6089  ol#LC_PathBreadcrumbs a:hover,
+ Line 5997  ol#LC_PathBreadcrumbs a:hover,
  ul#LC_secondary_menu a:hover,
  .LC_FormSectionClearButton input:hover
  ul.LC_TabContent   li:hover a {
-   color:#BF2317;
+   color:$button_hover;
    text-decoration:none;
  }
- Line 6154  fieldset > legend {
+ Line 6062  fieldset > legend {
    padding: 0 5px 0 5px;
  }
- div.LC_page_header {
-   background-color: $pgbg_or_bgcolor;
-   margin: 0 0 1.0em 0;
- }
  #LC_nav_bar {
    float: left;
-   margin: 0.2em 0 0 0;
+   margin: 0 0 2px 0;
  }
  #LC_realm {
- Line 6178  div.LC_page_header {
+ Line 6081  div.LC_page_header {
  ol.LC_primary_menu {
    float: right;
-   margin: 0.2em 0 0 0;
+   margin: 0;
- }
- span.LC_new_message{
-   font-weight:bold;
-   color: darkred;
  }
  ol#LC_PathBreadcrumbs {
- Line 6198  ol.LC_primary_menu li {
+ Line 6096  ol.LC_primary_menu li {
  ol.LC_primary_menu li img {
    vertical-align: bottom;
+   height: 1.1em;
  }
  ol.LC_primary_menu a {
-   font-size: 90%;
    color: RGB(80, 80, 80);
    text-decoration: none;
  }
+ ol.LC_primary_menu a.LC_new_message {
+   font-weight:bold;
+   color: darkred;
+ }
+ ol.LC_docs_parameters {
+   margin-left: 0;
+   padding: 0;
+   list-style: none;
+ }
+ ol.LC_docs_parameters li {
+   margin: 0;
+   padding-right: 20px;
+   display: inline;
+ }
+ ol.LC_docs_parameters li:before {
+   content: "\\002022 \\0020";
+ }
+ li.LC_docs_parameters_title {
+   font-weight: bold;
+ }
+ ol.LC_docs_parameters li.LC_docs_parameters_title:before {
+   content: "";
+ }
  ul#LC_secondary_menu {
    clear: both;
    color: $fontmenu;
- Line 6245  ul#LC_secondary_menu li a {
+ Line 6172  ul#LC_secondary_menu li a {
  }
  ul.LC_TabContent {
-   min-height:1.5em;
+   min-height:20px;
  }
  ul.LC_TabContent li {
    vertical-align:middle;
-   padding: 0 10px 0 10px;
+   padding: 0 16px 0 10px;
    background-color:$tabbg;
    border-bottom:solid 1px $lg_border_color;
+   border-right: solid 1px $font;
  }
  ul.LC_TabContent .right {
- Line 6265  ul.LC_TabContent li {
+ Line 6193  ul.LC_TabContent li {
    text-decoration:none;
    font-size:95%;
    font-weight:bold;
-   padding-right: 16px;
+   min-height:20px;
+ }
+ ul.LC_TabContent li a:hover,
+ ul.LC_TabContent li a:focus {
+   color: $button_hover;
+   background:none;
+   outline:none;
+ }
+ ul.LC_TabContent li:hover {
+   color: $button_hover;
+   cursor:pointer;
  }
- ul.LC_TabContent li:hover,
  ul.LC_TabContent li.active {
+   color: $font;
    background:#FFFFFF url(/adm/lonIcons/open.gif) no-repeat scroll right center;
-   border-bottom:solid 2px #FFFFFF;
+   border-bottom:solid 1px #FFFFFF;
-   padding-right: 16px;
+   cursor: default;
  }
+ ul.LC_TabContent li.active a {
+   color:$font;
+   background:#FFFFFF;
+   outline: none;
+ }
  #maincoursedoc {
    clear:both;
  }
- Line 6293  ul.LC_TabContentBigger li {
+ Line 6238  ul.LC_TabContentBigger li {
    color: #737373;
  }
+ ul.LC_TabContentBigger li.active {
+   position: relative;
+   top: 1px;
+ }
  ul.LC_TabContentBigger li a {
    background:url('/adm/lonIcons/tabbgleft.gif') left bottom no-repeat;
- Line 6301  ul.LC_TabContentBigger li a {
+ Line 6250  ul.LC_TabContentBigger li a {
    text-align: center;
    display: block;
    text-decoration: none;
+   outline: none;
  }
- ul.LC_TabContentBigger li:hover a,
  ul.LC_TabContentBigger li.active a {
    background:url('/adm/lonIcons/tabbgleft.gif') left top no-repeat;
    color:$font;
-   text-decoration: underline;
  }
  ul.LC_TabContentBigger li b {
    background: url('/adm/lonIcons/tabbgright.gif') no-repeat right bottom;
    display: block;
    float: left;
    padding: 0 30px;
+   border-bottom: 1px solid $lg_border_color;
+ }
+ ul.LC_TabContentBigger li:hover b {
+   color:$button_hover;
  }
- ul.LC_TabContentBigger li:hover b,
  ul.LC_TabContentBigger li.active b {
    background:url('/adm/lonIcons/tabbgright.gif') right top no-repeat;
    color:$font;
-   border-bottom: 1px solid #FFFFFF;
+   border: 0;
+   cursor:default;
  }
- Line 6339  ol#LC_MenuBreadcrumbs,
+ Line 6291  ol#LC_MenuBreadcrumbs,
  ol#LC_PathBreadcrumbs {
    padding-left: 10px;
    margin: 0;
-   margin: 0;
    height: 2.5em;  /* equal to #LC_breadcrumbs line-height */
  }
- Line 6347  ol#LC_MenuBreadcrumbs li,
+ Line 6298  ol#LC_MenuBreadcrumbs li,
  ol#LC_PathBreadcrumbs li,
  ul.LC_CourseBreadcrumbs li {
    display: inline;
    white-space: normal;
  }
  ol#LC_MenuBreadcrumbs li a,
- Line 6460  div.LC_columnSection>* {
+ Line 6411  div.LC_columnSection>* {
    overflow:hidden;
  }
- .LC_loginpage_container {
-   text-align:left;
-   margin : 0 auto;
-   width:90%;
-   padding: 10px;
-   height: auto;
-   background-color:#FFFFFF;
-   border:1px solid #CCCCCC;
- }
- .LC_loginpage_loginContainer {
-   float:left;
-   width: 182px;
-   padding: 2px;
-   border:1px solid #CCCCCC;
-   background-color:$loginbg;
- }
- .LC_loginpage_loginContainer h2 {
-   margin-top: 0;
-   display:block;
-   background:$bgcol;
-   color:$textcol;
-   padding-left:5px;
- }
- .LC_loginpage_loginInfo {
-   float:left;
-   width:182px;
-   border:1px solid #CCCCCC;
-   padding:2px;
- }
- .LC_loginpage_space {
-   clear: both;
-   margin-bottom: 20px;
-   border-bottom: 1px solid #CCCCCC;
- }
- .LC_loginpage_floatLeft {
-   float: left;
-   width: 200px;
-   margin: 0;
- }
  table em {
    font-weight: bold;
    font-style: normal;
- Line 6541  a#LC_content_toolbar_firsthomework {
+ Line 6446  a#LC_content_toolbar_firsthomework {
    background-image:url(/res/adm/pages/open-first-problem.gif);
  }
- a#LC_content_toolbar_launchnav {
-   background-image:url(/res/adm/pages/start-navigation.gif);
- }
- a#LC_content_toolbar_closenav {
-   background-image:url(/res/adm/pages/close-navigation.gif);
- }
  a#LC_content_toolbar_everything {
    background-image:url(/res/adm/pages/show-all.gif);
  }
- Line 6569  a#LC_content_toolbar_changefolder_toggle
+ Line 6466  a#LC_content_toolbar_changefolder_toggle
    background-image:url(/res/adm/pages/open-all-folders.gif);
  }
- a#LC_content_toolbar_management {
-   background-image:url(/res/adm/pages/conf.png);
- }
  ul#LC_toolbar li a:hover {
    background-position: bottom center;
  }
- Line 6613  ul.LC_funclist {
+ Line 6506  ul.LC_funclist {
  }
  ul.LC_funclist > li:first-child {
      font-weight:bold;
      margin-left:0.8em;
  }
- Line 6637  ul.LC_funclist li {
+ Line 6530  ul.LC_funclist li {
    line-height: 150%;
  }
- #gciheader {
+ .ui-accordion .LC_advanced_toggle {
-   float:left;
+   float: right;
-   width:100%;
+   font-size: 90%;
-   background:#DAE0D2 url("/gcimenu_bg.gif") repeat-x bottom;
+   padding: 0px 4px
-   font-size:93%;
-   line-height:normal;
-   margin: 0.5em 0 0.5em 0;
- }
- #gciheader ul {
-   margin:0;
-   padding:10px 10px 0;
-   list-style:none;
- }
- #gciheader li {
-   float:left;
-   background:url("/gcimenu_left.gif") no-repeat left top;
-   margin:0;
-   padding:0 0 0 9px;
- }
- #gciheader a {
-   display:block;
-   background:url("/gcimenu_right.gif") no-repeat right top;
-   padding:5px 15px 4px 6px;
- }
- #gciheader #current {
-   background-image:url("/gcimenu_left_on.gif");
  }
- #gciheader #current a {
-   background-image:url("/gcimenu_right_on.gif");
+ .LC_hidden {
-   padding-bottom:5px;
+   display: none;
  }
  END
- Line 6720  sub headtag {
+ Line 6591  sub headtag {
      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 6747  ADDMETA
+ Line 6618  ADDMETA
      $result .= '<title> LON-CAPA '.$title.'</title>'
  	.'<link rel="stylesheet" type="text/css" href="'.$url.'" />'
  	.$head_extra;
-     return $result;
+     return $result.'</head>';
  }
  =pod
- Line 6782  Inputs: none
+ Line 6653  Inputs: none
  sub xml_begin {
      my $output='';
-     if ($env{'internal.start_page'}==1) {
- 	&Apache::lonhtmlcommon::init_htmlareafields();
-     }
      if ($env{'browser.mathml'}) {
  	$output='<?xml version="1.0"?>'
              #.'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>'."\n"
- Line 6804  sub xml_begin {
+ Line 6671  sub xml_begin {
  =pod
- =item * &endheadtag()
- Returns a uniform </head> for LON-CAPA web pages.
- Inputs: none
- =cut
- sub endheadtag {
-     return '</head>';
- }
- =pod
- =item * &head()
- Returns a uniform complete <head>..</head> section for LON-CAPA web pages.
- Inputs:
- =over 4
- $title - optional title for the page
- $head_extra - optional extra HTML to put inside the <head>
- =back
- =cut
- sub head {
-     my ($title,$head_extra,$args) = @_;
-     return &headtag($title,$head_extra,$args).&endheadtag();
- }
- =pod
  =item * &start_page()
  Returns a complete <html> .. <body> section for LON-CAPA web pages.
- Line 6878  $args - additional optional args support
+ Line 6708  $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_components ->  if exists show it as headline else show only the breadcrumbs
+              bread_crumbs_component ->  if exists show it as headline else show only the breadcrumbs
  =back
- Line 6896  $args - additional optional args support
+ Line 6724  $args - additional optional args support
  sub start_page {
      my ($title,$head_extra,$args) = @_;
      #&Apache::lonnet::logthis("start_page ".join(':',caller(0)));
+ #SD
+ #I don't see why we copy certain elements of %$args to %head_args
+ #head args is passed to headtag() and this routine only reads those
+ #keys that are needed. There doesn't happen any writes or any processing
+ #of other keys.
+ #proposal: just pass $args to headtag instead of \%head_args and delete
+ #marked lines
+ #<- MARK
      my %head_args;
      foreach my $arg ('redirect','force_register','domain','function',
  		     'bgcolor','frameset','no_nav_bar','only_body',
- Line 6904  sub start_page {
+ Line 6740  sub start_page {
  	    $head_args{$arg} = $args->{$arg};
  	}
      }
+ #MARK ->
      $env{'internal.start_page'}++;
      my $result;
      if (! exists($args->{'skip_phases'}{'head'}) ) {
- 	$result.=
+         $result .=
- 	    &xml_begin().
+                   &xml_begin() . &headtag($title,$head_extra,\%head_args);
- 	    &headtag($title,$head_extra,\%head_args).&endheadtag();
+ #replace prev line by
+ #                 &xml_begin() . &headtag($title, $head_extra, $args);
      }
      if (! exists($args->{'skip_phases'}{'body'}) ) {
- Line 6924  sub start_page {
+ Line 6763  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);
          }
      }
- Line 6941  sub start_page {
+ Line 6779  sub start_page {
      #            $result .= &build_functionlist();
      #}
-     # Don't add anything more if only_body wanted
+     # Don't add anything more if only_body wanted or in const space
-     return $result if $args->{'only_body'};
+     return $result if    $args->{'only_body'}
+                       || $env{'request.state'} eq 'construct';
-     #Breadcrumbs for Construction Space provided by &bodytag.
-     if (($env{'environment.remote'} eq 'off') && ($env{'request.state'} eq 'construct')) {
-         return $result;
-     }
      #Breadcrumbs
      if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {
  		&Apache::lonhtmlcommon::clear_breadcrumbs();
- Line 6962  sub start_page {
+ Line 6796  sub start_page {
  		#if bread_crumbs_component exists show it as headline else show only the breadcrumbs
  		if(exists($args->{'bread_crumbs_component'})){
  			$result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});
- 		} elsif (exists($args->{'bread_crumbs_menulink'})) {
+ 		}else{
- 			$result .= &Apache::lonhtmlcommon::breadcrumbs('','',$args->{'bread_crumbs_menulink'});
+ 			$result .= &Apache::lonhtmlcommon::breadcrumbs();
-                 } else {
- 			$result .= &Apache::lonhtmlcommon::breadcrumbs();
  		}
      }
      return $result;
  }
- =pod
- =item * &head()
- Returns a complete </body></html> section for LON-CAPA web pages.
- Inputs:         $args - additional optional args supported are:
-                  js_ready     -> return a string ready for being used in
-                                  a javascript writeln
-                  html_encode  -> return a string ready for being used in
-                                  a html attribute
-                  frameset     -> if true will start with a <frameset>
-                                  rather than <body>
-                  dicsussion   -> if true will get discussion from
-                                   lonxml::xmlend
-                                  (you can pass the target and parser arguments
-                                   through optional 'target' and 'parser' args
-                                   to this routine)
- =cut
  sub end_page {
      my ($args) = @_;
      $env{'internal.end_page'}++;
- Line 7082  sub simple_error_page {
+ Line 6892  sub simple_error_page {
  {
      my @row_count;
+     sub start_data_table_count {
+         unshift(@row_count, 0);
+         return;
+     }
+     sub end_data_table_count {
+         shift(@row_count);
+         return;
+     }
      sub start_data_table {
  	my ($add_class) = @_;
  	my $css_class = (join(' ','LC_data_table',$add_class));
- 	unshift(@row_count,0);
+ 	&start_data_table_count();
  	return '<table class="'.$css_class.'">'."\n";
      }
      sub end_data_table {
- 	shift(@row_count);
+ 	&end_data_table_count();
  	return '</table>'."\n";;
      }
      sub start_data_table_row {
- 	my ($add_class) = @_;
+ 	my ($add_class, $id) = @_;
  	$row_count[0]++;
  	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
  	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
- 	return  '<tr class="'.$css_class.'">'."\n";;
+         $id = (' id="'.$id.'"') unless ($id eq '');
+         return  '<tr class="'.$css_class.'"'.$id.'>'."\n";
      }
      sub continue_data_table_row {
- 	my ($add_class) = @_;
+ 	my ($add_class, $id) = @_;
  	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
- 	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');;
+ 	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
- 	return  '<tr class="'.$css_class.'">'."\n";;
+         $id = (' id="'.$id.'"') unless ($id eq '');
+         return  '<tr class="'.$css_class.'"'.$id.'>'."\n";
      }
      sub end_data_table_row {
- Line 7269  role status: active, previous or future.
+ Line 7092  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 $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
+     my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname,'.',undef,$extra);
      my @uroles = keys %userinfo;
      my $srchstr;
      my $active_chk = 'none';
- Line 7852  sub get_secgrprole_info {
+ Line 7676  sub get_secgrprole_info {
  }
  sub user_picker {
-     my ($dom,$srch,$forcenewuser,$caller,$cancreate,$usertype) = @_;
+     my ($dom,$srch,$forcenewuser,$caller,$cancreate,$usertype,$context) = @_;
      my $currdom = $dom;
      my %curr_selected = (
                          srchin => 'dom',
- Line 7896  sub user_picker {
+ Line 7720  sub user_picker {
                      'whse'      => "When searching by last,first you must include at least one character in the first name.",
                       'thfo'     => "The following need to be corrected before the search can be run:",
                                         );
-     my $domform = &select_dom_form($currdom,'srchdomain',undef,1);
+     my $domform = &select_dom_form($currdom,'srchdomain',1,1);
      my $srchinsel = ' <select name="srchin">';
      my @srchins = ('crs','dom','alc','instd');
      foreach my $option (@srchins) {
- Line 7908  sub user_picker {
+ Line 7732  sub user_picker {
          next if ($option eq 'alc');
          next if (($option eq 'crs') && ($env{'form.form'} eq 'requestcrs'));
          next if ($option eq 'crs' && !$env{'request.course.id'});
-         next if ($option eq 'instd');
          if ($curr_selected{'srchin'} eq $option) {
              $srchinsel .= '
-        <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';
+    <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';
          } else {
              $srchinsel .= '
-     <option value="'.$option.'">'.$lt{$option}.'</option>';
+    <option value="'.$option.'">'.$lt{$option}.'</option>';
          }
      }
      $srchinsel .= "\n  </select>\n";
- Line 7944  sub user_picker {
+ Line 7767  sub user_picker {
      $srchtypesel .= "\n  </select>\n";
      my ($newuserscript,$new_user_create);
+     my $context_dom = $env{'request.role.domain'};
+     if ($context eq 'requestcrs') {
+         if ($env{'form.coursedom'} ne '') {
+             $context_dom = $env{'form.coursedom'};
+         }
+     }
      if ($forcenewuser) {
          if (ref($srch) eq 'HASH') {
-             if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $env{'request.role.domain'}) {
+             if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $context_dom) {
                  if ($cancreate) {
                      $new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';
                  } else {
- Line 7958  sub user_picker {
+ Line 7786  sub user_picker {
                      );
                      $new_user_create = '<p class="LC_warning">'
                                        .&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.")
-                                       .'<br />'
+                                       .' '
-                                       .&mt('Enter a valid e-mail address as the username for the new user.').' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.'
+                                       .&mt('Please contact the [_1]helpdesk[_2] for assistance.'
-                                       ,'<a href="'.$helplink.'">','</a>')
+                                           ,'<a href="'.$helplink.'">','</a>')
                                        .'</p><br />';
                  }
              }
- Line 7986  function setSearch(createnew,callingForm
+ Line 7814  function setSearch(createnew,callingForm
              }
          }
          for (var i=0; i<callingForm.srchdomain.length; i++) {
-             if (callingForm.srchdomain.options[i].value == '$env{'request.role.domain'}') {
+             if (callingForm.srchdomain.options[i].value == '$context_dom') {
                  callingForm.srchdomain.selectedIndex = i;
              }
          }
- Line 8309  sub get_institutional_codes {
+ Line 8137  sub get_institutional_codes {
      return;
  }
+ sub get_standard_codeitems {
+     return ('Year','Semester','Department','Number','Section');
+ }
  =pod
  =head1 Slot Helpers
- Line 8500  sub get_env_multiple {
+ Line 8332  sub get_env_multiple {
  sub ask_for_embedded_content {
      my ($actionurl,$state,$allfiles,$codebase,$args)=@_;
-     my $upload_output = '
+     my (%subdependencies,%dependencies,%mapping,%existing,%newfiles,%pathchanges);
-    <form name="upload_embedded" action="'.$actionurl.'"
-                   method="post" enctype="multipart/form-data">';
-     $upload_output .= $state;
-     $upload_output .= '<b>Upload embedded files</b>:<br />'.&start_data_table();
      my $num = 0;
-     foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%{$allfiles})) {
+     my $numremref = 0;
+     my $numinvalid = 0;
+     my $numpathchg = 0;
+     my $numexisting = 0;
+     my ($output,$upload_output,$toplevel,$url,$udom,$uname,$getpropath);
+     if (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) {
+         my $current_path='/';
+         if ($env{'form.currentpath'}) {
+             $current_path = $env{'form.currentpath'};
+         }
+         if ($actionurl eq '/adm/coursegrp_portfolio') {
+             $udom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+             $uname = $env{'course.'.$env{'request.course.id'}.'.num'};
+             $url = '/userfiles/groups/'.$env{'form.group'}.'/portfolio';
+         } else {
+             $udom = $env{'user.domain'};
+             $uname = $env{'user.name'};
+             $url = '/userfiles/portfolio';
+         }
+         $toplevel = $url.'/';
+         $url .= $current_path;
+         $getpropath = 1;
+     } elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank') ||
+              ($actionurl eq '/adm/imsimport')) {
+         ($uname,my $rest) = ($args->{'current_path'} =~ m{/priv/($match_username)/?(.*)$});
+         $url = '/home/'.$uname.'/public_html/';
+         $toplevel = $url;
+         if ($rest ne '') {
+             $url .= $rest;
+         }
+     } elsif ($actionurl eq '/adm/coursedocs') {
+         if (ref($args) eq 'HASH') {
+            $url = $args->{'docs_url'};
+            $toplevel = $url;
+         }
+     }
+     my $now = time();
+     foreach my $embed_file (keys(%{$allfiles})) {
+         my $absolutepath;
+         if ($embed_file =~ m{^\w+://}) {
+             $newfiles{$embed_file} = 1;
+             $mapping{$embed_file} = $embed_file;
+         } else {
+             if ($embed_file =~ m{^/}) {
+                 $absolutepath = $embed_file;
+                 $embed_file =~ s{^(/+)}{};
+             }
+             if ($embed_file =~ m{/}) {
+                 my ($path,$fname) = ($embed_file =~ m{^(.+)/([^/]*)$});
+                 $path = &check_for_traversal($path,$url,$toplevel);
+                 my $item = $fname;
+                 if ($path ne '') {
+                     $item = $path.'/'.$fname;
+                     $subdependencies{$path}{$fname} = 1;
+                 } else {
+                     $dependencies{$item} = 1;
+                 }
+                 if ($absolutepath) {
+                     $mapping{$item} = $absolutepath;
+                 } else {
+                     $mapping{$item} = $embed_file;
+                 }
+             } else {
+                 $dependencies{$embed_file} = 1;
+                 if ($absolutepath) {
+                     $mapping{$embed_file} = $absolutepath;
+                 } else {
+                     $mapping{$embed_file} = $embed_file;
+                 }
+             }
+         }
+     }
+     foreach my $path (keys(%subdependencies)) {
+         my %currsubfile;
+         if (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) {
+             my @subdir_list = &Apache::lonnet::dirlist($url.$path,$udom,$uname,$getpropath);
+             foreach my $line (@subdir_list) {
+                 my ($file_name,$rest) = split(/\&/,$line,2);
+                 $currsubfile{$file_name} = 1;
+             }
+         } elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank')) {
+             if (opendir(my $dir,$url.'/'.$path)) {
+                 my @subdir_list = grep(!/^\./,readdir($dir));
+                 map {$currsubfile{$_} = 1;} @subdir_list;
+             }
+         }
+         foreach my $file (keys(%{$subdependencies{$path}})) {
+             if ($currsubfile{$file}) {
+                 my $item = $path.'/'.$file;
+                 unless ($mapping{$item} eq $item) {
+                     $pathchanges{$item} = 1;
+                 }
+                 $existing{$item} = 1;
+                 $numexisting ++;
+             } else {
+                 $newfiles{$path.'/'.$file} = 1;
+             }
+         }
+     }
+     my %currfile;
+     if (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) {
+         my @dir_list = &Apache::lonnet::dirlist($url,$udom,$uname,$getpropath);
+         foreach my $line (@dir_list) {
+             my ($file_name,$rest) = split(/\&/,$line,2);
+             $currfile{$file_name} = 1;
+         }
+     } elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank')) {
+         if (opendir(my $dir,$url)) {
+             my @dir_list = grep(!/^\./,readdir($dir));
+             map {$currfile{$_} = 1;} @dir_list;
+         }
+     }
+     foreach my $file (keys(%dependencies)) {
+         if ($currfile{$file}) {
+             unless ($mapping{$file} eq $file) {
+                 $pathchanges{$file} = 1;
+             }
+             $existing{$file} = 1;
+             $numexisting ++;
+         } else {
+             $newfiles{$file} = 1;
+         }
+     }
+     foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%newfiles)) {
          $upload_output .= &start_data_table_row().
-             '<td>'.$embed_file.'</td><td>';
+                           '<td><span class="LC_filename">'.$embed_file.'</span>';
+         unless ($mapping{$embed_file} eq $embed_file) {
+             $upload_output .= '<br /><span class="LC_info" style="font-size:smaller;">'.&mt('changed from: [_1]',$mapping{$embed_file}).'</span>';
+         }
+         $upload_output .= '</td><td>';
          if ($args->{'ignore_remote_references'}
              && $embed_file =~ m{^\w+://}) {
              $upload_output.='<span class="LC_warning">'.&mt("URL points to other server.").'</span>';
+             $numremref++;
          } elsif ($args->{'error_on_invalid_names'}
              && $embed_file ne &Apache::lonnet::clean_filename($embed_file,{'keep_path' => 1,})) {
-             $upload_output.='<span class="LC_warning">'.&mt("Invalid characters").'</span>';
+             $upload_output.='<span class="LC_warning">'.&mt('Invalid characters').'</span>';
+             $numinvalid++;
          } else {
-             $upload_output .='
+             $upload_output .= &embedded_file_element('upload_embedded',$num,
-            <input name="embedded_item_'.$num.'" type="file" value="" />
+                                                      $embed_file,\%mapping,
-            <input name="embedded_orig_'.$num.'" type="hidden" value="'.&escape($embed_file).'" />';
+                                                      $allfiles,$codebase);
-             my $attrib = join(':',@{$$allfiles{$embed_file}});
+             $num++;
-             $upload_output .=
+         }
-                 "\n\t\t".
+         $upload_output .= '</td>'.&Apache::loncommon::end_data_table_row()."\n";
-                 '<input name="embedded_attrib_'.$num.'" type="hidden" value="'.
+     }
-                 $attrib.'" />';
+     foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%existing)) {
-             if (exists($$codebase{$embed_file})) {
+         $upload_output .= &start_data_table_row().
-                 $upload_output .=
+                           '<td><span class="LC_filename">'.$embed_file.'</span></td>'.
-                     "\n\t\t".
+                           '<td><span class="LC_warning">'.&mt('Already exists').'</span></td>'.
-                     '<input name="codebase_'.$num.'" type="hidden" value="'.
+                           &Apache::loncommon::end_data_table_row()."\n";
-                     &escape($$codebase{$embed_file}).'" />';
+     }
-             }
+     if ($upload_output) {
-         }
+         $upload_output = &start_data_table().
-         $upload_output .= '</td>'.&Apache::loncommon::end_data_table_row();
+                          $upload_output.
-         $num++;
+                          &end_data_table()."\n";
      }
-     $upload_output .= &Apache::loncommon::end_data_table().'<br />
+     my $applies = 0;
-    <input type ="hidden" name="number_embedded_items" value="'.$num.'" />
+     if ($numremref) {
-    <input type ="submit" value="'.&mt('Upload Listed Files').'" />
+         $applies ++;
-    '.&mt('(only files for which a location has been provided will be uploaded)').'
+     }
-    </form>';
+     if ($numinvalid) {
-     return $upload_output;
+         $applies ++;
+     }
+     if ($numexisting) {
+         $applies ++;
+     }
+     if ($num) {
+         $output = '<form name="upload_embedded" action="'.$actionurl.'"'.
+                   ' method="post" enctype="multipart/form-data">'."\n".
+                   $state.
+                   '<h3>'.&mt('Upload embedded files').
+                   ':</h3>'.$upload_output.'<br />'."\n".
+                   '<input type ="hidden" name="number_embedded_items" value="'.
+                   $num.'" />'."\n";
+         if ($actionurl eq '') {
+             $output .=  '<input type="hidden" name="phase" value="three" />';
+         }
+     } elsif ($applies) {
+         $output = '<b>'.&mt('Referenced files').'</b>:<br />';
+         if ($applies > 1) {
+             $output .=
+                 &mt('No files need to be uploaded, as one of the following applies to each reference:').'<ul>';
+             if ($numremref) {
+                 $output .= '<li>'.&mt('reference is to a URL which points to another server').'</li>'."\n";
+             }
+             if ($numinvalid) {
+                 $output .= '<li>'.&mt('reference is to file with a name containing invalid characters').'</li>'."\n";
+             }
+             if ($numexisting) {
+                 $output .= '<li>'.&mt('reference is to an existing file at the specified location').'</li>'."\n";
+             }
+             $output .= '</ul><br />';
+         } elsif ($numremref) {
+             $output .= '<p>'.&mt('None to upload, as all references are to URLs pointing to another server.').'</p>';
+         } elsif ($numinvalid) {
+             $output .= '<p>'.&mt('None to upload, as all references are to files with names containing invalid characters.').'</p>';
+         } elsif ($numexisting) {
+             $output .= '<p>'.&mt('None to upload, as all references are to existing files.').'</p>';
+         }
+         $output .= $upload_output.'<br />';
+     }
+     my ($pathchange_output,$chgcount);
+     $chgcount = $num;
+     if (keys(%pathchanges) > 0) {
+         foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%pathchanges)) {
+             if ($num) {
+                 $output .= &embedded_file_element('pathchange',$chgcount,
+                                                   $embed_file,\%mapping,
+                                                   $allfiles,$codebase);
+             } else {
+                 $pathchange_output .=
+                     &start_data_table_row().
+                     '<td><input type ="checkbox" name="namechange" value="'.
+                     $chgcount.'" checked="checked" /></td>'.
+                     '<td>'.$mapping{$embed_file}.'</td>'.
+                     '<td>'.$embed_file.
+                     &embedded_file_element('pathchange',$numpathchg,$embed_file,
+                                            \%mapping,$allfiles,$codebase).
+                     '</td>'.&end_data_table_row();
+             }
+             $numpathchg ++;
+             $chgcount ++;
+         }
+     }
+     if ($num) {
+         if ($numpathchg) {
+             $output .= '<input type ="hidden" name="number_pathchange_items" value="'.
+                        $numpathchg.'" />'."\n";
+         }
+         if (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank') ||
+             ($actionurl eq '/adm/imsimport')) {
+             $output .= '<input type="hidden" name="phase" value="three" />'."\n";
+         } elsif ($actionurl eq '/adm/portfolio' || $actionurl eq '/adm/coursegrp_portfolio') {
+             $output .= '<input type="hidden" name="action" value="upload_embedded" />';
+         }
+         $output .=  '<input type ="submit" value="'.&mt('Upload Listed Files').'" />'."\n".
+                     &mt('(only files for which a location has been provided will be uploaded)').'</form>'."\n";
+     } elsif ($numpathchg) {
+         my %pathchange = ();
+         $output .= &modify_html_form('pathchange',$actionurl,$state,\%pathchange,$pathchange_output);
+         if (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) {
+             $output .= '<p>'.&mt('or').'</p>';
+         }
+     }
+     return ($output,$num,$numpathchg);
+ }
+ sub embedded_file_element {
+     my ($context,$num,$embed_file,$mapping,$allfiles,$codebase) = @_;
+     return unless ((ref($mapping) eq 'HASH') && (ref($allfiles) eq 'HASH') &&
+                    (ref($codebase) eq 'HASH'));
+     my $output;
+     if ($context eq 'upload_embedded') {
+        $output = '<input name="embedded_item_'.$num.'" type="file" value="" />'."\n";
+     }
+     $output .= '<input name="embedded_orig_'.$num.'" type="hidden" value="'.
+                &escape($embed_file).'" />';
+     unless (($context eq 'upload_embedded') &&
+             ($mapping->{$embed_file} eq $embed_file)) {
+         $output .='
+         <input name="embedded_ref_'.$num.'" type="hidden" value="'.&escape($mapping->{$embed_file}).'" />';
+     }
+     my $attrib;
+     if (ref($allfiles->{$mapping->{$embed_file}}) eq 'ARRAY') {
+         $attrib = &escape(join(':',@{$allfiles->{$mapping->{$embed_file}}}));
+     }
+     $output .=
+         "\n\t\t".
+         '<input name="embedded_attrib_'.$num.'" type="hidden" value="'.
+         $attrib.'" />';
+     if (exists($codebase->{$mapping->{$embed_file}})) {
+         $output .=
+             "\n\t\t".
+             '<input name="codebase_'.$num.'" type="hidden" value="'.
+             &escape($codebase->{$mapping->{$embed_file}}).'" />';
+     }
+     return $output;
  }
  sub upload_embedded {
      my ($context,$dirpath,$uname,$udom,$dir_root,$url_root,$group,$disk_quota,
-         $current_disk_usage) = @_;
+         $current_disk_usage,$hiddenstate,$actionurl) = @_;
-     my $output;
+     my (%pathchange,$output,$modifyform,$footer,$returnflag);
      for (my $i=0; $i<$env{'form.number_embedded_items'}; $i++) {
          next if (!exists($env{'form.embedded_item_'.$i.'.filename'}));
          my $orig_uploaded_filename =
              $env{'form.embedded_item_'.$i.'.filename'};
+         foreach my $type ('orig','ref','attrib','codebase') {
-         $env{'form.embedded_orig_'.$i} =
+             if ($env{'form.embedded_'.$type.'_'.$i} ne '') {
-             &unescape($env{'form.embedded_orig_'.$i});
+                 $env{'form.embedded_'.$type.'_'.$i} =
+                     &unescape($env{'form.embedded_'.$type.'_'.$i});
+             }
+         }
          my ($path,$fname) =
              ($env{'form.embedded_orig_'.$i} =~ m{(.*/)([^/]*)});
          # no path, whole string is fname
          if (!$fname) { $fname = $env{'form.embedded_orig_'.$i} };
-         $path = $env{'form.currentpath'}.$path;
          $fname = &Apache::lonnet::clean_filename($fname);
          # See if there is anything left
          next if ($fname eq '');
- Line 8573  sub upload_embedded {
+ Line 8644  sub upload_embedded {
              if ($group ne '') {
                  $port_path = "groups/$group/$port_path";
              }
-             ($state,$msg) = &check_for_upload($path,$fname,$group,'embedded_item_'.$i,
+             ($state,$msg) = &check_for_upload($env{'form.currentpath'}.$path,
+                                               $fname,$group,'embedded_item_'.$i,
                                                $dir_root,$port_path,$disk_quota,
                                                $current_disk_usage,$uname,$udom);
              if ($state eq 'will_exceed_quota'
-                 || $state eq 'file_locked'
+                 || $state eq 'file_locked') {
-                 || $state eq 'file_exists' ) {
                  $output .= $msg;
                  next;
              }
- Line 8592  sub upload_embedded {
+ Line 8663  sub upload_embedded {
          # Check if extension is valid
          if (($fname =~ /\.(\w+)$/) &&
              (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
-             $output .= &mt('Invalid file extension ([_1]) - reserved for LONCAPA use - rename the file with a different extension and re-upload. ',$1);
+             $output .= &mt('Invalid file extension ([_1]) - reserved for LONCAPA use - rename the file with a different extension and re-upload. ',$1).'<br />';
              next;
          } elsif (($fname =~ /\.(\w+)$/) &&
                   (!defined(&Apache::loncommon::fileembstyle($1)))) {
-             $output .= &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1);
+             $output .= &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1).'<br />';
              next;
          } elsif ($fname=~/\.(\d+)\.(\w+)$/) {
-             $output .= &mt('File name not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2);
+             $output .= &mt('File name not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2).'<br />';
              next;
          }
          $env{'form.embedded_item_'.$i.'.filename'}=$fname;
          if ($context eq 'portfolio') {
-             my $result=
+             my $result;
-                 &Apache::lonnet::userfileupload('embedded_item_'.$i,'',
+             if ($state eq 'existingfile') {
-                                                 $dirpath.$path);
+                 $result=
+                     &Apache::lonnet::userfileupload('embedded_item_'.$i,'existingfile',
+                                                     $dirpath.$env{'form.currentpath'}.$path);
+             } else {
+                 $result=
+                     &Apache::lonnet::userfileupload('embedded_item_'.$i,'',
+                                                     $dirpath.
+                                                     $env{'form.currentpath'}.$path);
+                 if ($result !~ m|^/uploaded/|) {
+                     $output .= '<span class="LC_error">'
+                                .&mt('An error occurred ([_1]) while trying to upload [_2] for embedded element [_3].'
+                                ,$result,$orig_uploaded_filename,$env{'form.embedded_orig_'.$i})
+                                .'</span><br />';
+                     next;
+                 } else {
+                     $output .= &mt('Uploaded [_1]','<span class="LC_filename">'.
+                                $path.$fname.'</span>').'<br />';
+                 }
+             }
+         } elsif ($context eq 'coursedoc') {
+             my $result =
+                 &Apache::lonnet::userfileupload('embedded_item_'.$i,'coursedoc',
+                                                 $dirpath.'/'.$path);
              if ($result !~ m|^/uploaded/|) {
                  $output .= '<span class="LC_error">'
-                       .&mt('An error occurred ([_1]) while trying to upload [_2] for embedded element [_3].'
+                            .&mt('An error occurred ([_1]) while trying to upload [_2] for embedded element [_3].'
                             ,$result,$orig_uploaded_filename,$env{'form.embedded_orig_'.$i})
-                       .'</span><br />';
+                            .'</span><br />';
-                 next;
+                     next;
              } else {
-                 $output .= '<p>'.&mt('Uploaded [_1]','<span class="LC_filename">'.
+                 $output .= &mt('Uploaded [_1]','<span class="LC_filename">'.
-                            $path.$fname.'</span>').'</p>';
+                            $path.$fname.'</span>').'<br />';
              }
          } else {
  # Save the file
- Line 8646  sub upload_embedded {
+ Line 8739  sub upload_embedded {
                                &mt('An error occurred while writing the file [_1] for embedded element [_2].',$orig_uploaded_filename,$env{'form.embedded_orig_'.$i}).
                                '</span><br />';
                  } else {
-                     if ($context eq 'testbank') {
+                     $output .= &mt('Uploaded [_1]','<span class="LC_filename">'.
-                         $output .= &mt('Embedded file uploaded successfully:').
+                                $url.'</span>').'<br />';
-                                    '&nbsp;<a href="'.$url.'">'.
+                     unless ($context eq 'testbank') {
-                                    $orig_uploaded_filename.'</a><br />';
+                         $footer .= &mt('View embedded file: [_1]',
-                     } else {
+                                        '<a href="'.$url.'">'.$fname.'</a>').'<br />';
-                         $output .= '<span class=\"LC_fontsize_large\">'.
-                                    &mt('View embedded file: [_1]','<a href="'.$url.'">'.
-                                    $orig_uploaded_filename.'</a>').'</span><br />';
                      }
                  }
                  close($fh);
              }
          }
+         if ($env{'form.embedded_ref_'.$i}) {
+             $pathchange{$i} = 1;
+         }
+     }
+     if ($output) {
+         $output = '<p>'.$output.'</p>';
+     }
+     $output .= &modify_html_form('upload_embedded',$actionurl,$hiddenstate,\%pathchange);
+     $returnflag = 'ok';
+     if (keys(%pathchange) > 0) {
+         if ($context eq 'portfolio') {
+             $output .= '<p>'.&mt('or').'</p>';
+         } elsif ($context eq 'testbank') {
+             $output .=  '<p>'.&mt('Or [_1]continue[_2] the testbank import without modifying the reference(s).','<a href="javascript:document.testbankForm.submit();">','</a>').'</p>';
+             $returnflag = 'modify_orightml';
+         }
+     }
+     return ($output.$footer,$returnflag);
+ }
+ sub modify_html_form {
+     my ($context,$actionurl,$hiddenstate,$pathchange,$pathchgtable) = @_;
+     my $end = 0;
+     my $modifyform;
+     if ($context eq 'upload_embedded') {
+         return unless (ref($pathchange) eq 'HASH');
+         if ($env{'form.number_embedded_items'}) {
+             $end += $env{'form.number_embedded_items'};
+         }
+         if ($env{'form.number_pathchange_items'}) {
+             $end += $env{'form.number_pathchange_items'};
+         }
+         if ($end) {
+             for (my $i=0; $i<$end; $i++) {
+                 if ($i < $env{'form.number_embedded_items'}) {
+                     next unless($pathchange->{$i});
+                 }
+                 $modifyform .=
+                     &start_data_table_row().
+                     '<td><input type ="checkbox" name="namechange" value="'.$i.'" '.
+                     'checked="checked" /></td>'.
+                     '<td>'.$env{'form.embedded_ref_'.$i}.
+                     '<input type="hidden" name="embedded_ref_'.$i.'" value="'.
+                     &escape($env{'form.embedded_ref_'.$i}).'" />'.
+                     '<input type="hidden" name="embedded_codebase_'.$i.'" value="'.
+                     &escape($env{'form.embedded_codebase_'.$i}).'" />'.
+                     '<input type="hidden" name="embedded_attrib_'.$i.'" value="'.
+                     &escape($env{'form.embedded_attrib_'.$i}).'" /></td>'.
+                     '<td>'.$env{'form.embedded_orig_'.$i}.
+                     '<input type="hidden" name="embedded_orig_'.$i.'" value="'.
+                     &escape($env{'form.embedded_orig_'.$i}).'" /></td>'.
+                     &end_data_table_row();
+             }
+         }
+     } else {
+         $modifyform = $pathchgtable;
+         if (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank')) {
+             $hiddenstate .= '<input type="hidden" name="phase" value="four" />';
+         } elsif (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) {
+             $hiddenstate .= '<input type="hidden" name="action" value="modify_orightml" />';
+         }
+     }
+     if ($modifyform) {
+         return '<h3>'.&mt('Changes in content of HTML file required').'</h3>'."\n".
+                '<p>'.&mt('Changes need to be made to the reference(s) used for one or more of the dependencies, if your HTML file is to work correctly:').'<ol>'."\n".
+                '<li>'.&mt('For consistency between the reference(s) and the location of the corresponding stored file within LON-CAPA.').'</li>'."\n".
+                '<li>'.&mt('To change absolute paths to relative paths, or replace directory traversal via "../" within the original reference.').'</li>'."\n".
+                '</ol></p>'."\n".'<p>'.
+                &mt('LON-CAPA can make the required changes to your HTML file.').'</p>'."\n".
+                '<form method="post" name="refchanger" action="'.$actionurl.'">'.
+                &start_data_table()."\n".
+                &start_data_table_header_row().
+                '<th>'.&mt('Change?').'</th>'.
+                '<th>'.&mt('Current reference').'</th>'.
+                '<th>'.&mt('Required reference').'</th>'.
+                &end_data_table_header_row()."\n".
+                $modifyform.
+                &end_data_table().'<br />'."\n".$hiddenstate.
+                '<input type="submit" name="pathchanges" value="'.&mt('Modify HTML file').'" />'.
+                '</form>'."\n";
+     }
+     return;
+ }
+ sub modify_html_refs {
+     my ($context,$dirpath,$uname,$udom,$dir_root) = @_;
+     my $container;
+     if ($context eq 'portfolio') {
+         $container = $env{'form.container'};
+     } elsif ($context eq 'coursedoc') {
+         $container = $env{'form.primaryurl'};
+     } else {
+         $container = $env{'form.filename'};
+         $container =~ s{^/priv/(\Q$uname\E)/(.*)}{/home/$1/public_html/$2};
+     }
+     my (%allfiles,%codebase,$output,$content);
+     my @changes = &get_env_multiple('form.namechange');
+     return unless (@changes > 0);
+     if (($context eq 'portfolio') || ($context eq 'coursedoc')) {
+         return unless ($container =~ m{^/uploaded/\Q$udom\E/\Q$uname\E/});
+         $content = &Apache::lonnet::getfile($container);
+         return if ($content eq '-1');
+     } else {
+         return unless ($container =~ /^\Q$dir_root\E/);
+         if (open(my $fh,"<$container")) {
+             $content = join('', <$fh>);
+             close($fh);
+         } else {
+             return;
+         }
+     }
+     my ($count,$codebasecount) = (0,0);
+     my $mm = new File::MMagic;
+     my $mime_type = $mm->checktype_contents($content);
+     if ($mime_type eq 'text/html') {
+         my $parse_result =
+             &Apache::lonnet::extract_embedded_items($container,\%allfiles,
+                                                     \%codebase,\$content);
+         if ($parse_result eq 'ok') {
+             foreach my $i (@changes) {
+                 my $orig = &unescape($env{'form.embedded_orig_'.$i});
+                 my $ref = &unescape($env{'form.embedded_ref_'.$i});
+                 if ($allfiles{$ref}) {
+                     my $newname =  $orig;
+                     my ($attrib_regexp,$codebase);
+                     my $attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i});
+                     if ($attrib_regexp =~ /:/) {
+                         $attrib_regexp =~ s/\:/|/g;
+                     }
+                     if ($content =~ m{($attrib_regexp\s*=\s*['"]?)\Q$ref\E(['"]?)}) {
+                         my $numchg = ($content =~ s{($attrib_regexp\s*=\s*['"]?)\Q$ref\E(['"]?)}{$1$newname$2}gi);
+                         $count += $numchg;
+                     }
+                     if ($env{'form.embedded_codebase_'.$i} ne '') {
+                         my $codebase = &unescape($env{'form.embedded_codebase_'.$i});
+                         my $numchg = ($content =~ s/(codebase\s*=\s*["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs
+                         $codebasecount ++;
+                     }
+                 }
+             }
+             if ($count || $codebasecount) {
+                 my $saveresult;
+                 if ($context eq 'portfolio' || $context eq 'coursedoc') {
+                     my $url = &Apache::lonnet::store_edited_file($container,$content,$udom,$uname,\$saveresult);
+                     if ($url eq $container) {
+                         my ($fname) = ($container =~ m{/([^/]+)$});
+                         $output = '<p>'.&mt('Updated [quant,_1,reference] in [_2].',
+                                             $count,'<span class="LC_filename">'.
+                                             $fname.'</span>').'</p>';
+                     } else {
+                          $output = '<p class="LC_error">'.
+                                    &mt('Error: update failed for: [_1].',
+                                    '<span class="LC_filename">'.
+                                    $container.'</span>').'</p>';
+                     }
+                 } else {
+                     if (open(my $fh,">$container")) {
+                         print $fh $content;
+                         close($fh);
+                         $output = '<p>'.&mt('Updated [quant,_1,reference] in [_2].',
+                                   $count,'<span class="LC_filename">'.
+                                   $container.'</span>').'</p>';
+                     } else {
+                          $output = '<p class="LC_error">'.
+                                    &mt('Error: could not update [_1].',
+                                    '<span class="LC_filename">'.
+                                    $container.'</span>').'</p>';
+                     }
+                 }
+             }
+         } else {
+             &logthis('Failed to parse '.$container.
+                      ' to modify references: '.$parse_result);
+         }
      }
      return $output;
  }
- Line 8682  sub check_for_existing {
+ Line 8946  sub check_for_existing {
  sub check_for_upload {
      my ($path,$fname,$group,$element,$portfolio_root,$port_path,
          $disk_quota,$current_disk_usage,$uname,$udom) = @_;
-     my $filesize = (length($env{'form.'.$element})) / 1000; #express in k (1024?)
+     my $filesize = length($env{'form.'.$element});
+     if (!$filesize) {
+         my $msg = '<span class="LC_error">'.
+                   &mt('Unable to upload [_1]. (size = [_2] bytes)',
+                       '<span class="LC_filename">'.$fname.'</span>',
+                       $filesize).'<br />'.
+                   &mt('Either the file you attempted to upload was empty, or your web browser was unable to read its contents.').'<br />';
+                   '</span>';
+         return ('zero_bytes',$msg);
+     }
+     $filesize =  $filesize/1000; #express in k (1024?)
      my $getpropath = 1;
      my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$path,$udom,$uname,
                                              $getpropath);
      my $found_file = 0;
      my $locked_file = 0;
+     my @lockers;
+     my $navmap;
+     if ($env{'request.course.id'}) {
+         $navmap = Apache::lonnavmaps::navmap->new();
+     }
      foreach my $line (@dir_list) {
-         my ($file_name)=split(/\&/,$line,2);
+         my ($file_name,$rest)=split(/\&/,$line,2);
          if ($file_name eq $fname){
              $file_name = $path.$file_name;
              if ($group ne '') {
                  $file_name = $group.$file_name;
              }
              $found_file = 1;
-             if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
+             if (&Apache::lonnet::is_locked($file_name,$udom,$uname,\@lockers) eq 'true') {
-                 $locked_file = 1;
+                 foreach my $lock (@lockers) {
+                     if (ref($lock) eq 'ARRAY') {
+                         my ($symb,$crsid) = @{$lock};
+                         if ($crsid eq $env{'request.course.id'}) {
+                             if (ref($navmap)) {
+                                 my $res = $navmap->getBySymb($symb);
+                                 foreach my $part (@{$res->parts()}) {
+                                     my ($slot_status,$slot_time,$slot_name)=$res->check_for_slot($part);
+                                     unless (($slot_status == $res->RESERVED) ||
+                                             ($slot_status == $res->RESERVED_LOCATION)) {
+                                         $locked_file = 1;
+                                     }
+                                 }
+                             } else {
+                                 $locked_file = 1;
+                             }
+                         } else {
+                             $locked_file = 1;
+                         }
+                     }
+                 }
+             } else {
+                 my @info = split(/\&/,$rest);
+                 my $currsize = $info[6]/1000;
+                 if ($currsize < $filesize) {
+                     my $extra = $filesize - $currsize;
+                     if (($current_disk_usage + $extra) > $disk_quota) {
+                         my $msg = '<span class="LC_error">'.
+                                   &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>'.
+                                   '<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',
+                                                $disk_quota,$current_disk_usage);
+                         return ('will_exceed_quota',$msg);
+                     }
+                 }
              }
          }
      }
- Line 8715  sub check_for_upload {
+ Line 9028  sub check_for_upload {
              return ('file_locked',$msg);
          } else {
              my $msg = '<span class="LC_error">';
-             $msg .= &mt('Unable to upload [_1]. A file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$port_path.$env{'form.currentpath'});
+             $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 .= '<br />';
+             return ('existingfile',$msg);
-             $msg .= &mt('To upload, rename or delete existing [_1] in [_2].','<span class="LC_filename">'.$fname.'</span>', $port_path.$env{'form.currentpath'});
-             return ('file_exists',$msg);
          }
      }
  }
+ sub check_for_traversal {
+     my ($path,$url,$toplevel) = @_;
+     my @parts=split(/\//,$path);
+     my $cleanpath;
+     my $fullpath = $url;
+     for (my $i=0;$i<@parts;$i++) {
+         next if ($parts[$i] eq '.');
+         if ($parts[$i] eq '..') {
+             $fullpath =~ s{([^/]+/)$}{};
+         } else {
+             $fullpath .= $parts[$i].'/';
+         }
+     }
+     if ($fullpath =~ /^\Q$url\E(.*)$/) {
+         $cleanpath = $1;
+     } elsif ($fullpath =~ /^\Q$toplevel\E(.*)$/) {
+         my $curr_toprel = $1;
+         my @parts = split(/\//,$curr_toprel);
+         my ($url_toprel) = ($url =~ /^\Q$toplevel\E(.*)$/);
+         my @urlparts = split(/\//,$url_toprel);
+         my $doubledots;
+         my $startdiff = -1;
+         for (my $i=0; $i<@urlparts; $i++) {
+             if ($startdiff == -1) {
+                 unless ($urlparts[$i] eq $parts[$i]) {
+                     $startdiff = $i;
+                     $doubledots .= '../';
+                 }
+             } else {
+                 $doubledots .= '../';
+             }
+         }
+         if ($startdiff > -1) {
+             $cleanpath = $doubledots;
+             for (my $i=$startdiff; $i<@parts; $i++) {
+                 $cleanpath .= $parts[$i].'/';
+             }
+         }
+     }
+     $cleanpath =~ s{(/)$}{};
+     return $cleanpath;
+ }
  =pod
- Line 10285  sub check_clone {
+ Line 10638  sub check_clone {
                                           'userroles',['active'],[$ccrole],
  					 [$args->{'clonedomain'}]);
  	        if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {
- 		    $can_clone = 1;
+                     $can_clone = 1;
- 	        } else {
+                 } elsif (&Apache::lonnet::is_course_owner($args->{'clonedomain'},$args->{'clonecourse'},$args->{'ccuname'},$args->{'ccdomain'})) {
+                     $can_clone = 1;
+                 } else {
                      if ($args->{'crstype'} eq 'Community') {
                          $clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});
                      } else {
- Line 10346  sub construct_course {
+ Line 10701  sub construct_course {
      # if anyone ever decides to not show this, and Utils::Course::new
      # will need to be suitably modified.
      $outcome .= &mt('New LON-CAPA [_1] ID: [_2]',$crstype,$$courseid).$linefeed;
+     if ($$courseid =~ /^error:/) {
+         return (0,$outcome);
+     }
  #
  # Check if created correctly
  #
      ($$crsudom,$$crsunum)= &LONCAPA::split_courseid($$courseid);
      my $crsuhome=&Apache::lonnet::homeserver($$crsunum,$$crsudom);
+     if ($crsuhome eq 'no_host') {
+         $outcome .= &mt('Course creation failed, unrecognized course home server.').$linefeed;
+         return (0,$outcome);
+     }
      $outcome .= &mt('Created on').': '.$crsuhome.$linefeed;
  #
- Line 10369  sub construct_course {
+ Line 10732  sub construct_course {
  	$cenv{'url'}=$oldcenv{'url'};
  # Restore title
  	$cenv{'description'}=$oldcenv{'description'};
+ # Restore creation date, creator and creation context.
+         $cenv{'internal.created'}=$oldcenv{'internal.created'};
+         $cenv{'internal.creator'}=$oldcenv{'internal.creator'};
+         $cenv{'internal.creationcontext'}=$oldcenv{'internal.creationcontext'};
  # Mark as cloned
  	$cenv{'clonedfrom'}=$cloneid;
  # Need to clone grading mode
- Line 10615  sub construct_course {
+ Line 10982  sub construct_course {
  	    $title=&mt('Syllabus');
              $url='/public/'.$$crsudom.'/'.$$crsunum.'/syllabus';
          } else {
-             $title=&mt('Navigate Contents');
+             $title=&mt('Table of Contents');
              $url='/adm/navmaps';
          }
- Line 10626  sub construct_course {
+ Line 10993  sub construct_course {
          $outcome .= ($fatal?$errtext:'write ok').$linefeed;
      }
-     if ($args->{'cloneroster'}) {
-         my ($numadded,$clisterror) = &Apache::lonclonecourse::copyroster($cloneid,$$courseid,$args->{'startaccess'},$args->{'endaccess'});
-         if ($clisterror) {
-             $outcome .= "\0".&mt('An error occurred when copying the student roster from the old course to the new course; the error was: [_1].',$clisterror).$linefeed;
-             if ($numadded) {
-                 $outcome .= &mt('Although [quant,_1,student] have received roles in the new course the roster does not report this. It is  ').$linefeed;
-             }
-         } else {
-             if ($numadded) {
-                 $outcome .= "\0".&mt('[quant,_1,student] copied from roster for old course to roster for new course.',$numadded).$linefeed;
-             } else {
-                 $outcome .= "\0".&mt('No students have been enrolled in the new Concept Test.').' '.&mt('This is because either (a) an error occurred, or (b) there were no students with either current access or access which ended on/after the current default end date set for access to the old course.').$linefeed;
-             }
-         }
-     }
      return (1,$outcome);
  }
  ############################################################
  ############################################################
+ #SD
+ # only Community and Course, or anything else?
  sub course_type {
      my ($cid) = @_;
      if (!defined($cid)) {
- Line 10812  sub init_user_environment {
+ Line 11166  sub init_user_environment {
      my %userenv = &Apache::lonnet::dump('environment',$domain,$username);
      my ($tmp) = keys(%userenv);
      if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
- 	# default remote control to off
- 	if ($userenv{'remote'} ne 'on') { $userenv{'remote'} = 'off'; }
      } else {
  	undef(%userenv);
      }
      if (($userenv{'interface'}) && (!$form->{'interface'})) {
  	$form->{'interface'}=$userenv{'interface'};
      }
-     $env{'environment.remote'}=$userenv{'remote'};
      if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }
  # --------------- Do not trust query string to be put directly into environment
- Line 10852  sub init_user_environment {
+ Line 11203  sub init_user_environment {
  	    $initial_env{"browser.localres"}   = $form->{'localres'};
          }
- 	if ($public) {
- 	    $initial_env{"environment.remote"} = "off";
- 	}
  	if ($form->{'interface'}) {
  	    $form->{'interface'}=~s/\W//gs;
  	    $initial_env{"browser.interface"} = $form->{'interface'};
  	    $env{'browser.interface'}=$form->{'interface'};
  	}
+         my %is_adv = ( is_adv => $env{'user.adv'} );
+         my %domdef = &Apache::lonnet::get_domain_defaults($domain);
          foreach my $tool ('aboutme','blog','portfolio') {
              $userenv{'availabletools.'.$tool} =
-                 &Apache::lonnet::usertools_access($username,$domain,$tool,'reload');
+                 &Apache::lonnet::usertools_access($username,$domain,$tool,'reload',
+                                                   undef,\%userenv,\%domdef,\%is_adv);
          }
          foreach my $crstype ('official','unofficial','community') {
              $userenv{'canrequest.'.$crstype} =
                  &Apache::lonnet::usertools_access($username,$domain,$crstype,
-                                                   'reload','requestcourses');
+                                                   'reload','requestcourses',
+                                                   \%userenv,\%domdef,\%is_adv);
          }
  	$env{'user.environment'} = "$lonids/$cookie.id";
- Line 10907  sub _add_to_env {
+ Line 11260  sub _add_to_env {
      }
  }
- sub new_roles_update {
-     my $rolecount = 0;
-     foreach my $envkey (keys(%env)) {
-         next unless ($envkey =~ /^user\.role\./);
-         $rolecount ++;
-     }
-     my $newrolecount = 0;
-     if (!$rolecount) {
-         my %userenv;
-         foreach my $crstype ('official','unofficial','community') {
-             $userenv{'canrequest.'.$crstype} =
-                 &Apache::lonnet::usertools_access($env{'user.name'},
-                 $env{'user.domain'},$crstype,'reload','requestcourses');
-         }
-         my $then=$env{'user.login.time'};
-         my $refresh=time;
-         my (%userroles,%allroles,%allgroups,@newroles);
-         my %roleshash =
-             &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles',['active','future','previous'],undef,undef,1);
-         foreach my $item (keys(%roleshash)) {
-             my ($uname,$udom,$role,$section) = split(':',$item);
-             my $where = '/'.$udom.'/'.$uname;
-             my ($tstart,$tend) = split(':',$roleshash{$item});
-             if ($section ne '') {
-                 $where .= '/'.$section;
-             }
-             my $spec = $role.'.'.$where;
-             &Apache::lonnet::set_arearole($role,$where,$tstart,$tend,
-                                           $env{'user.domain'},$env{'user.name'});
-             $userroles{'user.role.'.$spec} = $tstart.'.'.$tend;
-             $newrolecount ++;
-             unless (grep(/^\Q$role\E$/,@newroles)) {
-                 push(@newroles,$role);
-             }
-             my $status =
-                 &Apache::lonnet::curr_role_status($tstart,$tend,$refresh,$then);
-             if ($status eq 'active') {
-                 &Apache::lonnet::gather_roleprivs(\%allroles,\%allgroups,\%userroles,
-                                                   $where,$role,$tstart,$tend);
-             }
-         }
-         if (@newroles) {
-             my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles,
-                                                                \%allgroups);
-             &Apache::lonnet::appenv(\%userroles,[@newroles,'cm']);
-             $userenv{'user.adv'} = $adv;
-             $userenv{'user.author'} = $author;
-             $userenv{'user.refresh.time'} = $refresh;
-         }
-         &Apache::lonnet::appenv(\%userenv);
-     }
-     return $newrolecount;
- }
  # --- Get the symbolic name of a problem and the url
  sub get_symb {
      my ($request,$silent) = @_;
- Line 11002  sub clean_symb {
+ Line 11301  sub clean_symb {
      return ($symb,$enc);
  }
- sub needs_gci_custom {
+ sub build_release_hashes {
-     my $custommenu;
+     my ($checkparms,$checkresponsetypes,$checkcrstypes,$anonsurvey,$randomizetry) = @_;
-     my $numdc = &check_for_gci_dc();
+     return unless((ref($checkparms) eq 'HASH') && (ref($checkresponsetypes) eq 'HASH') &&
-     unless ($numdc) {
+                   (ref($checkcrstypes) eq 'HASH') && (ref($anonsurvey) eq 'HASH') &&
-         my $then=$env{'user.login.time'};
+                   (ref($randomizetry) eq 'HASH'));
-         my $now = time;
+     foreach my $key (keys(%Apache::lonnet::needsrelease)) {
-         my %cnums = (
+         my ($item,$name,$value) = split(/:/,$key);
-                         review => '9615072b469884921gcil1',
+         if ($item eq 'parameter') {
-                         submit => '1H96711d710194bfegcil1',
+             if (ref($checkparms->{$name}) eq 'ARRAY') {
-                     );
+                 unless(grep(/^\Q$name\E$/,@{$checkparms->{$name}})) {
-         if ($env{'user.role.st./gci/'.$cnums{'review'}}) {
+                     push(@{$checkparms->{$name}},$value);
-             my ($start,$end) =
-                 split('.',$env{'user.role.st./gci/'.$cnums{'review'}});
-             if (((!$start) || ($start && $start <= $now)) &&
-                 ((!$end) || ($end > $now))) {
-                 $custommenu = 1;
-                 if ($env{'user.role.cc./gci/'.$cnums{'review'}}) {
-                     my ($ccstart,$ccend) =
-                         split('.',$env{'user.role.cc./gci/'.$cnums{'review'}});
-                     if (((!$start) || ($start && $start <= $now)) &&
-                             ((!$end) || ($end > $now))) {
-                         $custommenu = '';
-                     }
                  }
+             } else {
+                 push(@{$checkparms->{$name}},$value);
              }
-         }
+         } elsif ($item eq 'resourcetag') {
-     }
+             if ($name eq 'responsetype') {
-     return $custommenu;
+                 $checkresponsetypes->{$value} = $Apache::lonnet::needsrelease{$key}
- }
- sub check_for_gci_dc {
-     my $then=$env{'user.login.time'};
-     my $numdc = 0;
-     foreach my $dom ('gci','gcitest') {
-         if ($env{'user.role.dc./'.$dom.'/'}) {
-             my $livedc = 1;
-             my ($tstart,$tend)=split(/\./,$env{'user.role.dc./'.$dom.'/'});
-             if ($tstart && $tstart>$then) { $livedc = 0; }
-             if ($tend   && $tend  <$then) { $livedc = 0; }
-             if ($livedc) {
-                 $numdc++;
              }
-         }
+         } elsif ($item eq 'course') {
-     }
+             if ($name eq 'crstype') {
-     return $numdc;
+                 $checkcrstypes->{$value} = $Apache::lonnet::needsrelease{$key};
- }
- sub existing_gcitest_courses {
-     my ($role) = @_;
-     my %courses;
-     my $cdom = 'gcitest';
-     my $now = time;
-     foreach my $envkey (keys(%env)) {
-         my $cnum;
-         if ($envkey =~ m{^user\.role\.\Q$role\E\./\Q$cdom\E/($match_courseid)$}) {
-             $cnum = $1;
-         } else {
-             next;
-         }
-         my ($tstart,$tend) = split(/\./,$env{$envkey});
-         if (((!$tstart) || ($tstart < $now)) && ((!$tend) || ($tend > $now))) {
-             my $descr = $env{'course.'.$cdom.'_'.$cnum.'.description'};
-             if ($descr ne '') {
-                 $courses{$cdom.'_'.$cnum}{'description'} = $descr;
-             }
-         }
-     }
-     return %courses;
- }
- sub gcitest_switcher {
-     my ($role,$formname,%courses) = @_;
-     my $output;
-     my %Sortby;
-     foreach my $course (sort(keys(%courses))) {
-         next unless (ref($courses{$course}) eq 'HASH');
-         my $clean_title = $courses{$course}{'description'};
-         $clean_title =~ s/\W+//g;
-         if ($clean_title eq '') {
-             $clean_title = $courses{$course}{'description'};
-         }
-         push(@{$Sortby{$clean_title}},$course);
-     }
-     my @sorted_courses = sort { lc($a) cmp lc($b) } (keys(%Sortby));
-     my $default;
-     if (@sorted_courses > 1) {
-         if (($env{'request.course.id'}) && ($courses{$env{'request.course.id'}})) {
-             $default = &mt('Switch concept test ...');
-         } else {
-             $default = &mt('Select a concept test ...');
-         }
-     } else {
-         unless (($env{'request.course.id'}) && ($courses{$env{'request.course.id'}})) {
-             $default = &mt('Select concept test ...');
-         }
-     }
-     if ($default) {
-         $output = '<form name="'.$formname.'" action="/adm/roles" method="post">'.
-                   '<select name="newrole" onchange="javascript:courseswitcher();">'.
-                   '<option value="" selected="selected">'.$default.'</option>';
-         foreach my $item (@sorted_courses) {
-             foreach my $course (@{$Sortby{$item}}) {
-                 my ($cdom,$cnum) = split('_',$course);
-                 $output .= '<option value="'.$role.'./'.$cdom.'/'.$cnum.'">'.$courses{$course}{'description'}.'</option>';
              }
          }
-         $output .= '</select><input type="hidden" name="selectrole" value="" /></form>';
      }
-     return $output;
+     ($anonsurvey->{major},$anonsurvey->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:anonsurvey'});
- }
+     ($randomizetry->{major},$randomizetry->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:randomizetry'});
- sub gcitest_switcher_js {
-     my ($current,$numcourses,$formname) = @_;
-     my $output = <<"ENDJS";
- function courseswitcher(caller) {
-     var numcourses = $numcourses;
-     var current = '$current';
-     var choice = document.$formname.newrole.options[document.$formname.newrole.selectedIndex].value;
-     if (choice == '') {
-         if (caller == 'icon') {
-             alert('No Concept Test selected');
-         }
-         document.$formname.selectrole.value = '';
-         return;
-     }
-     if (choice == current) {
-         if ((caller != 'icon') && (numcourses > 1)) {
-             alert('You have selected the current course.\\nPlease select a different Concept Test course');
-         }
-         document.$formname.newrole.selectedIndex = 0;
-         document.$formname.selectrole.value = '';
-         return;
-     }
-     document.$formname.selectrole.value = '1';
-     document.$formname.submit();
      return;
  }
- ENDJS
-     return $output;
- }
  =pod
  =back

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

Removed from v.1.925.2.17
changed lines
	Added in v.1.994