--- loncom/interface/loncommon.pm	2013/04/30 13:25:45	1.1075.2.34
+++ loncom/interface/loncommon.pm	2012/07/07 21:58:14	1.1086
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1075.2.34 2013/04/30 13:25:45 raeburn Exp $
+# $Id: loncommon.pm,v 1.1086 2012/07/07 21:58:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -67,13 +67,9 @@ use Apache::lonhtmlcommon();
 use Apache::loncoursedata();
 use Apache::lontexconvert();
 use Apache::lonclonecourse();
-use Apache::lonuserutils();
-use Apache::lonuserstate();
 use LONCAPA qw(:DEFAULT :match);
 use DateTime::TimeZone;
 use DateTime::Locale::Catalog;
-use Authen::Captcha;
-use Captcha::reCAPTCHA;
 
 # ---------------------------------------------- Designs
 use vars qw(%defaultdesign);
@@ -528,8 +524,7 @@ ENDAUTHORBRW
 }
 
 sub coursebrowser_javascript {
-    my ($domainfilter,$sec_element,$formname,$role_element,$crstype,
-        $credits_element) = @_;
+    my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_;
     my $wintitle = 'Course_Browser';
     if ($crstype eq 'Community') {
         $wintitle = 'Community_Browser';
@@ -592,9 +587,8 @@ sub coursebrowser_javascript {
     }
 $id_functions
 ENDSTDBRW
-    if (($sec_element ne '') || ($role_element ne '') || ($credits_element ne '')) {
-        $output .= &setsec_javascript($sec_element,$formname,$role_element,
-                                      $credits_element);
+    if (($sec_element ne '') || ($role_element ne '')) {
+        $output .= &setsec_javascript($sec_element,$formname,$role_element);
     }
     $output .= '
 // ]]>
@@ -751,7 +745,7 @@ ENDUSERBRW
 }
 
 sub setsec_javascript {
-    my ($sec_element,$formname,$role_element,$credits_element) = @_;
+    my ($sec_element,$formname,$role_element) = @_;
     my (@courserolenames,@communityrolenames,$rolestr,$courserolestr,
         $communityrolestr);
     if ($role_element ne '') {
@@ -846,14 +840,6 @@ function setRole(crstype) {
 }
 |;
     }
-    if ($credits_element) {
-        $setsections .= qq|
-function setCredits(defaultcredits) {
-    document.$formname.$credits_element.value = defaultcredits;
-    return;
-}
-|;
-    }
     return $setsections;
 }
 
@@ -899,14 +885,10 @@ sub check_uncheck_jscript {
 function checkAll(field) {
     if (field.length > 0) {
         for (i = 0; i < field.length; i++) {
-            if (!field[i].disabled) {
-                field[i].checked = true;
-            }
+            field[i].checked = true ;
         }
     } else {
-        if (!field.disabled) {
-            field.checked = true;
-        }
+        field.checked = true
     }
 }
  
@@ -1008,7 +990,6 @@ sub select_language {
             $langchoices{$code} = &plainlanguagedescription($id);
         }
     }
-    %langchoices = &Apache::lonlocal::texthash(%langchoices);
     return &select_form($selected,$name,\%langchoices);
 }
 
@@ -1040,12 +1021,6 @@ linked_select_forms takes the following
 
 =item * $menuorder, the order of values in the first menu
 
-=item * $onchangefirst, additional javascript call to execute for an onchange
-        event for the first <select> tag
-
-=item * $onchangesecond, additional javascript call to execute for an onchange
-        event for the second <select> tag
-
 =back 
 
 Below is an example of such a hash.  Only the 'text', 'default', and 
@@ -1099,8 +1074,6 @@ sub linked_select_forms {
         $secondselectname, 
         $hashref,
         $menuorder,
-        $onchangefirst,
-        $onchangesecond
         ) = @_;
     my $second = "document.$formname.$secondselectname";
     my $first = "document.$formname.$firstselectname";
@@ -1157,7 +1130,7 @@ function select1_changed() {
 </script>
 END
     # output the initial values for the selection lists
-    $result .= "<select size=\"1\" name=\"$firstselectname\" onchange=\"select1_changed();$onchangefirst\">\n";
+    $result .= "<select size=\"1\" name=\"$firstselectname\" onchange=\"select1_changed()\">\n";
     my @order = sort(keys(%{$hashref}));
     if (ref($menuorder) eq 'ARRAY') {
         @order = @{$menuorder};
@@ -1170,11 +1143,7 @@ END
     $result .= "</select>\n";
     my %select2 = %{$hashref->{$firstdefault}->{'select2'}};
     $result .= $middletext;
-    $result .= "<select size=\"1\" name=\"$secondselectname\"";
-    if ($onchangesecond) {
-        $result .= ' onchange="'.$onchangesecond.'"';
-    }
-    $result .= ">\n";
+    $result .= "<select size=\"1\" name=\"$secondselectname\">\n";
     my $seconddefault = $hashref->{$firstdefault}->{'default'};
     
     my @secondorder = sort(keys(%select2));
@@ -2506,7 +2475,7 @@ END
     return $result;
 }
 
-sub authform_authorwarning {
+sub authform_authorwarning{
     my $result='';
     $result='<i>'.
         &mt('As a general rule, only authors or co-authors should be '.
@@ -2515,16 +2484,16 @@ sub authform_authorwarning {
     return $result;
 }
 
-sub authform_nochange {
+sub authform_nochange{  
     my %in = (
               formname => 'document.cu',
               kerb_def_dom => 'MSU.EDU',
               @_,
           );
-    my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); 
+    my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'}); 
     my $result;
-    if (!$authnum) {
-        $result = &mt('Under your current role you are not permitted to change login settings for this user');
+    if (keys(%can_assign) == 0) {
+        $result = &mt('Under you current role you are not permitted to change login settings for this user');  
     } else {
         $result = '<label>'.&mt('[_1] Do not change login data',
                   '<input type="radio" name="login" value="nochange" '.
@@ -2544,7 +2513,7 @@ sub authform_kerberos {
               );
     my ($check4,$check5,$krbcheck,$krbarg,$krbver,$result,$authtype,
         $autharg,$jscall);
-    my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
+    my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});
     if ($in{'kerb_def_auth'} eq 'krb5') {
        $check5 = ' checked="checked"';
     } else {
@@ -2594,7 +2563,7 @@ sub authform_kerberos {
         if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {
-                    $authtype = '<input type="radio" name="login" value="krb" />';
+                    $authtype = '<input type="hidden" name="login" value="krb" />';
                 }
             }
         }
@@ -2606,9 +2575,9 @@ sub authform_kerberos {
                     $krbcheck.' />';
     }
     if (($can_assign{'krb4'} && $can_assign{'krb5'}) ||
-        ($can_assign{'krb4'} && !$can_assign{'krb5'} &&
+        ($can_assign{'krb4'} && !$can_assign{'krb5'} && 
          $in{'curr_authtype'} eq 'krb5') ||
-        (!$can_assign{'krb4'} && $can_assign{'krb5'} &&
+        (!$can_assign{'krb4'} && $can_assign{'krb5'} && 
          $in{'curr_authtype'} eq 'krb4')) {
         $result .= &mt
         ('[_1] Kerberos authenticated with domain [_2] '.
@@ -2644,14 +2613,14 @@ sub authform_kerberos {
     return $result;
 }
 
-sub authform_internal {
+sub authform_internal{  
     my %in = (
                 formname => 'document.cu',
                 kerb_def_dom => 'MSU.EDU',
                 @_,
                 );
     my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall);
-    my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
+    my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});
     if (defined($in{'curr_authtype'})) {
         if ($in{'curr_authtype'} eq 'int') {
             if ($can_assign{'int'}) {
@@ -2680,7 +2649,7 @@ sub authform_internal {
         if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {
-                    $authtype = '<input type="radio" name="login" value="int" />';
+                    $authtype = '<input type="hidden" name="login" value="int" />';
                 }
             }
         }
@@ -2699,14 +2668,14 @@ sub authform_internal {
     return $result;
 }
 
-sub authform_local {
+sub authform_local{  
     my %in = (
               formname => 'document.cu',
               kerb_def_dom => 'MSU.EDU',
               @_,
               );
     my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall);
-    my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
+    my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});
     if (defined($in{'curr_authtype'})) {
         if ($in{'curr_authtype'} eq 'loc') {
             if ($can_assign{'loc'}) {
@@ -2735,7 +2704,7 @@ sub authform_local {
         if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {
-                    $authtype = '<input type="radio" name="login" value="loc" />';
+                    $authtype = '<input type="hidden" name="login" value="loc" />';
                 }
             }
         }
@@ -2753,14 +2722,14 @@ sub authform_local {
     return $result;
 }
 
-sub authform_filesystem {
+sub authform_filesystem{  
     my %in = (
               formname => 'document.cu',
               kerb_def_dom => 'MSU.EDU',
               @_,
               );
     my ($fsyscheck,$result,$authtype,$autharg,$jscall);
-    my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
+    my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});
     if (defined($in{'curr_authtype'})) {
         if ($in{'curr_authtype'} eq 'fsys') {
             if ($can_assign{'fsys'}) {
@@ -2786,7 +2755,7 @@ sub authform_filesystem {
         if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {
-                    $authtype = '<input type="radio" name="login" value="fsys" />';
+                    $authtype = '<input type="hidden" name="login" value="fsys" />';
                 }
             }
         }
@@ -3257,7 +3226,7 @@ sub aboutmewrapper {
     if (!defined($username)  && !defined($domain)) {
         return;
     }
-    return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.
+    return '<a href="/adm/'.$domain.'/'.$username.'/aboutme?forcestudent=1"'.
 	($target?' target="'.$target.'"':'').($class?' class="'.$class.'"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';
 }
 
@@ -4910,7 +4879,7 @@ sub CSTR_pageheader {
 
     my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
     my ($udom,$uname,$thisdisfn)=
-        ($trailfile =~ m{^\Q$londocroot\E/priv/([^/]+)/([^/]+)(?:|/(.*))$});
+        ($trailfile =~ m{^\Q$londocroot\E/priv/([^/]+)/([^/]+)/(.*)$});
     my $formaction = "/priv/$udom/$uname/$thisdisfn";
     $formaction =~ s{/+}{/}g;
 
@@ -4985,19 +4954,12 @@ 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,
                               should it have jsmath forced on by the
                               current page
 
-=item * $advtoolsref, optional argument, ref to an array containing
-            inlineremote items to be added in "Functions" menu below
-            breadcrumbs.
-
 =back
 
 Returns: A uniform header for LON-CAPA web pages.  
@@ -5009,7 +4971,7 @@ other decorations will be returned.
 
 sub bodytag {
     my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,
-        $no_nav_bar,$bgcolor,$no_inline_link,$args,$advtoolsref)=@_;
+        $no_nav_bar,$bgcolor,$args)=@_;
 
     my $public;
     if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
@@ -5085,25 +5047,11 @@ sub bodytag {
     $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
     &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);
 
-    if ($no_nav_bar || $env{'form.inhibitmenu'} eq 'yes') { 
-        return $bodytag; 
-    }
-
-    if ($env{'request.state'} eq 'construct') { $forcereg=1; }
+        if ($no_nav_bar || $env{'form.inhibitmenu'} eq 'yes') { 
+            return $bodytag; 
+        } 
 
-    my $funclist;
-    if (($env{'environment.remote'} eq 'on') && ($env{'request.state'} ne 'construct')) {
-        $bodytag .= Apache::lonhtmlcommon::scripttag(Apache::lonmenu::utilityfunctions(), 'start')."\n".
-                    Apache::lonmenu::serverform();
-        my $forbodytag;
-        &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
-                                            $forcereg,$args->{'group'},
-                                            $args->{'bread_crumbs'},
-                                            $advtoolsref,'',\$forbodytag);
-        unless (ref($args->{'bread_crumbs'}) eq 'ARRAY') {
-            $funclist = $forbodytag;
-        }
-    } else {
+        if ($env{'request.state'} eq 'construct') { $forcereg=1; }
 
         #    if ($env{'request.state'} eq 'construct') {
         #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
@@ -5112,11 +5060,11 @@ sub bodytag {
 
 
         if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
-            if ($dc_info) {
+             if ($dc_info) {
                  $dc_info = qq|<span class="LC_cusr_subheading">$dc_info</span>|;
-            }
-            $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />
-                           <em>$realm</em> $dc_info</div>|;
+             }
+             $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />
+                <em>$realm</em> $dc_info</div>|;
             return $bodytag;
         }
 
@@ -5143,17 +5091,7 @@ sub bodytag {
                 $bodytag .= &Apache::lonmenu::innerregister($forcereg,
                                 $args->{'bread_crumbs'});
             } elsif ($forcereg) { 
-                $bodytag .= &Apache::lonmenu::innerregister($forcereg,undef,
-                                                            $args->{'group'});
-            } else {
-                my $forbodytag;
-                &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
-                                                    $forcereg,$args->{'group'},
-                                                    $args->{'bread_crumbs'},
-                                                    $advtoolsref,'',\$forbodytag);
-                unless (ref($args->{'bread_crumbs'}) eq 'ARRAY') {
-                    $bodytag .= $forbodytag;
-                }
+                $bodytag .= &Apache::lonmenu::innerregister($forcereg);
             }
         }else{
             # this is to seperate menu from content when there's no secondary
@@ -5163,44 +5101,6 @@ sub bodytag {
         }
 
         return $bodytag;
-    }
-
-#
-# Top frame rendering, Remote is up
-#
-
-    my $imgsrc = $img;
-    if ($img =~ /^\/adm/) {
-        $imgsrc = &lonhttpdurl($img);
-    }
-    my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';
-
-    # 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>|;
-    }
-
-    unless ($env{'form.inhibitmenu'}) {
-        $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>|;
-    }
-    if ($env{'request.state'} eq 'construct') {
-        if (!$public){
-            if ($env{'request.state'} eq 'construct') {
-                $funclist = &Apache::lonhtmlcommon::scripttag(
-                                &Apache::lonmenu::utilityfunctions(), 'start').
-                            &Apache::lonhtmlcommon::scripttag('','end').
-                            &Apache::lonmenu::innerregister($forcereg,
-                                                            $args->{'bread_crumbs'});
-            }
-        }
-    }
-    return $bodytag."\n".$funclist;
 }
 
 sub dc_courseid_toggle {
@@ -5232,15 +5132,8 @@ sub make_attr_string {
 		delete($attr_ref->{$key});
 	    }
 	}
-        if ($env{'environment.remote'} eq 'on') {
-            $attr_ref->{'onload'}  =
-                &Apache::lonmenu::loadevents().  $on_load;
-            $attr_ref->{'onunload'}=
-                &Apache::lonmenu::unloadevents().$on_unload;
-        } else {  
-	    $attr_ref->{'onload'}  = $on_load;
-	    $attr_ref->{'onunload'}= $on_unload;
-        }
+	$attr_ref->{'onload'}  = $on_load;
+	$attr_ref->{'onunload'}= $on_unload;
     }
 
     my $attr_string;
@@ -5413,12 +5306,10 @@ form, .inline {
 
 .LC_error {
   color: red;
+  font-size: larger;
 }
 
-.LC_warning {
-  color: darkorange;
-}
-
+.LC_warning,
 .LC_diff_removed {
   color: red;
 }
@@ -5581,11 +5472,11 @@ td.LC_table_cell_checkbox {
   text-align: left;
 }
 
-.LC_head_subbox, .LC_actionbox {
+.LC_head_subbox {
   clear:both;
   background: #F8F8F8; /* $sidebg; */
   border: 1px solid $sidebg;
-  margin: 0 0 10px 0;
+  margin: 0 0 10px 0;      
   padding: 3px;
   text-align: left;
 }
@@ -5718,8 +5609,7 @@ table.LC_nested tr.LC_empty_row td {
   padding: 8px;
 }
 
-table.LC_data_table tr.LC_empty_row td,
-table.LC_data_table tr.LC_footer_row td {
+table.LC_data_table tr.LC_empty_row td {
   background-color: $sidebg;
 }
 
@@ -6281,6 +6171,7 @@ div.LC_docs_entry_move {
 
 table.LC_data_table tr > td.LC_docs_entry_commands,
 table.LC_data_table tr > td.LC_docs_entry_parameter {
+  background: #DDDDDD;
   font-size: x-small;
 }
 
@@ -6445,11 +6336,6 @@ div.LC_edit_problem_saves {
   padding-bottom: 5px;
 }
 
-.LC_edit_opt {
-  padding-left: 1em;
-  white-space: nowrap;
-}
-
 img.stift {
   border-width: 0;
   vertical-align: middle;
@@ -6658,7 +6544,7 @@ ol.LC_docs_parameters li.LC_docs_paramet
 }
 
 ul#LC_secondary_menu {
-  clear: right;
+  clear: both;
   color: $fontmenu;
   background: $tabbg;
   list-style: none;
@@ -6666,53 +6552,15 @@ ul#LC_secondary_menu {
   margin: 0;
   width: 100%;
   text-align: left;
-  float: left;
 }
 
 ul#LC_secondary_menu li {
   font-weight: bold;
   line-height: 1.8em;
-  border-right: 1px solid black;
-  vertical-align: middle;
-  float: left;
-}
-
-ul#LC_secondary_menu li.LC_hoverable:hover, ul#LC_secondary_menu li.hover {
-  background-color: $data_table_light;
-}
-
-ul#LC_secondary_menu li a {
   padding: 0 0.8em;
-}
-
-ul#LC_secondary_menu li ul {
-  display: none;
-}
-
-ul#LC_secondary_menu li:hover ul, ul#LC_secondary_menu li.hover ul {
-  display: block;
-  position: absolute;
-  margin: 0;
-  padding: 0;
-  list-style:none;
-  float: none;
-  background-color: $data_table_light;
-  z-index: 2;
-  margin-left: -1px;
-}
-
-ul#LC_secondary_menu li ul li {
-  font-size: 90%;
-  vertical-align: top;
-  border-left: 1px solid black;
   border-right: 1px solid black;
-  background-color: $data_table_light;
-  list-style:none;
-  float: none;
-}
-
-ul#LC_secondary_menu li ul li:hover, ul#LC_secondary_menu li ul li.hover {
-  background-color: $data_table_dark;
+  display: inline;
+  vertical-align: middle;
 }
 
 ul.LC_TabContent {
@@ -7159,27 +7007,6 @@ ul.LC_funclist li {
 		cursor:pointer;
 }
 
-/*
-  styles used by TTH when "Default set of options to pass to tth/m
-  when converting TeX" in course settings has been set
-
-  option passed: -t
-
-*/
-
-td div.comp { margin-top: -0.6ex; margin-bottom: -1ex;}
-td div.comb { margin-top: -0.6ex; margin-bottom: -.6ex;}
-td div.hrcomp { line-height: 0.9; margin-top: -0.8ex; margin-bottom: -1ex;}
-td div.norm {line-height:normal;}
-
-/*
-  option passed -y3
-*/
-
-span.roman {font-family: serif; font-style: normal; font-weight: normal;}
-span.overacc2 {position: relative;  left: .8em; top: -1.2ex;}
-span.overacc1 {position: relative;  left: .6em; top: -1.2ex;}
-
 END
 }
 
@@ -7233,8 +7060,8 @@ sub headtag {
     if (!$args->{'frameset'}) {
 	$result .= &Apache::lonhtmlcommon::htmlareaheaders();
     }
-    if ($args->{'force_register'}) {
-        $result .= &Apache::lonmenu::registerurl(1);
+    if ($args->{'force_register'} && $env{'request.noversionuri'} !~ m{^/res/adm/pages/}) {
+        $result .= Apache::lonxml::display_title();
     }
     if (!$args->{'no_nav_bar'} 
 	&& !$args->{'only_body'}
@@ -7443,16 +7270,12 @@ $args - additional optional args support
              skip_phases    -> hash ref of 
                                     head -> skip the <html><head> generation
                                     body -> skip all <body> generation
-             no_inline_link -> if true and in remote mode, don't show the
-                                    'Switch To Inline Menu' link
              no_auto_mt_title -> prevent &mt()ing the title arg
              inherit_jsmath -> when creating popup window in a page,
                                     should it have jsmath forced on by the
                                     current page
              bread_crumbs ->             Array containing breadcrumbs
              bread_crumbs_component ->  if exists show it as headline else show only the breadcrumbs
-             group          -> includes the current group, if page is for a
-                               specific group
 
 =back
 
@@ -7465,7 +7288,7 @@ sub start_page {
     #&Apache::lonnet::logthis("start_page ".join(':',caller(0)));
 
     $env{'internal.start_page'}++;
-    my ($result,@advtools);
+    my $result;
 
     if (! exists($args->{'skip_phases'}{'head'}) ) {
         $result .= &xml_begin() . &headtag($title, $head_extra, $args);
@@ -7482,8 +7305,7 @@ 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,                     \@advtools);
+                         $args->{'bgcolor'},        $args);
         }
     }
 
@@ -7512,10 +7334,6 @@ sub start_page {
 				&Apache::lonhtmlcommon::add_breadcrumb($crumb);
 			}
 		}
-                # if @advtools array contains items add then to the breadcrumbs
-                if (@advtools > 0) {
-                    &Apache::lonmenu::advtools_crumbs(@advtools);
-                }
 
 		#if bread_crumbs_component exists show it as headline else show only the breadcrumbs
 		if(exists($args->{'bread_crumbs_component'})){
@@ -7523,11 +7341,6 @@ sub start_page {
 		}else{
 			$result .= &Apache::lonhtmlcommon::breadcrumbs();
 		}
-    } elsif (($env{'environment.remote'} eq 'on') &&
-             ($env{'form.inhibitmenu'} ne 'yes') &&
-             ($env{'request.noversionuri'} =~ m{^/res/}) &&
-             ($env{'request.noversionuri'} !~ m{^/res/adm/pages/})) {
-        $result .= '<div style="padding:0;margin:0;clear:both"><hr /></div>';
     }
     return $result;
 }
@@ -7791,9 +7604,11 @@ sub LCprogressbar {
     $LCcurrentid=$$.'_'.$LCidcnt;
     my $starting=&mt('Starting');
     my $content=(<<ENDPROGBAR);
+<p>
   <div id="progressbar$LCcurrentid">
     <span class="pblabel">$starting</span>
   </div>
+</p>
 ENDPROGBAR
     &r_print($r,$content.&LCprogressbar_script($LCcurrentid));
 }
@@ -7914,7 +7729,7 @@ sub simple_error_page {
     my ($r,$title,$msg) = @_;
     my $page =
 	&Apache::loncommon::start_page($title).
-	'<p class="LC_error">'.&mt($msg).'</p>'.
+	&mt($msg).
 	&Apache::loncommon::end_page();
     if (ref($r)) {
 	$r->print($page);
@@ -8207,19 +8022,7 @@ sub get_sections {
     my %sectioncount;
     my $now = time;
 
-    my $check_students = 1;
-    my $only_students = 0;
-    if (ref($possible_roles) eq 'ARRAY') {
-        if (grep(/^st$/,@{$possible_roles})) {
-            if (@{$possible_roles} == 1) {
-                $only_students = 1;
-            }
-        } else {
-            $check_students = 0;
-        }
-    }
-
-    if ($check_students) {
+    if (!defined($possible_roles) || (grep(/^st$/,@$possible_roles))) {
 	my ($classlist) = &Apache::loncoursedata::get_classlist($cdom,$cnum);
 	my $sec_index = &Apache::loncoursedata::CL_SECTION();
 	my $status_index = &Apache::loncoursedata::CL_STATUS();
@@ -8246,9 +8049,6 @@ sub get_sections {
 	    }
 	}
     }
-    if ($only_students) {
-        return %sectioncount;
-    }
     my %courseroles = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
     foreach my $user (sort(keys(%courseroles))) {
 	if ($user !~ /^(\w{2})/) { next; }
@@ -9046,10 +8846,7 @@ sub user_rule_formats {
     my ($rules,$ruleorder) = &Apache::lonnet::inst_userrules($domain,$check);
     if ((ref($rules) eq 'HASH') && (ref($ruleorder) eq 'ARRAY')) {
         if (@{$ruleorder} > 0) {
-            $output = '<br />'.
-                      &mt($text{$check}.' with the following format(s) may [_1]only[_2] be used for verified users at [_3]:',
-                          '<span class="LC_cusr_emph">','</span>',$domdesc).
-                      ' <ul>';
+            $output = '<br />'.&mt("$text{$check} with the following format(s) may <span class=\"LC_cusr_emph\">only</span> be used for verified users at [_1]:",$domdesc).' <ul>';
             foreach my $rule (@{$ruleorder}) {
                 if (ref($curr_rules) eq 'ARRAY') {
                     if (grep(/^\Q$rule\E$/,@{$curr_rules})) {
@@ -9567,13 +9364,13 @@ sub ask_for_embedded_content {
             $toplevel = $url;
             if ($args->{'context'} eq 'paste') {
                 ($cdom,$cnum) = ($url =~ m{^\Q/uploaded/\E($match_domain)/($match_courseid)/});
-                ($path) =
+                ($path) = 
                     ($toplevel =~ m{^(\Q/uploaded/$cdom/$cnum/\E(?:docs|supplemental)/(?:default|\d+)/\d+)/});
                 $fileloc = &Apache::lonnet::filelocation('',$toplevel);
                 $fileloc =~ s{^/}{};
             }
         }
-    } elsif ($actionurl eq '/adm/dependencies') {
+    } elsif ($actionurl eq '/adm/dependencies')  {
         if ($env{'request.course.id'} ne '') {
             $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
             $cnum =  $env{'course.'.$env{'request.course.id'}.'.num'};
@@ -9761,7 +9558,7 @@ sub ask_for_embedded_content {
         ($args->{'context'} eq 'paste')) {
         $counter = scalar(keys(%existing));
         $numpathchg = scalar(keys(%pathchanges));
-        return ($output,$counter,$numpathchg,\%existing);
+        return ($output,$counter,$numpathchg,\%existing); 
     }
     foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%newfiles)) {
         if ($actionurl eq '/adm/dependencies') {
@@ -10105,7 +9902,7 @@ sub upload_embedded {
             $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('Filename not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2).'<br />';
+            $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;
@@ -10807,8 +10604,8 @@ sub process_decompression {
     my ($docudom,$docuname,$file,$destination,$dir_root,$hiddenelem) = @_;
     my ($dir,$error,$warning,$output);
     if ($file !~ /\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {
-        $error = &mt('Filename not a supported archive file type.').
-                 '<br />'.&mt('Filename should end with one of: [_1].',
+        $error = &mt('File name not a supported archive file type.').
+                 '<br />'.&mt('File name should end with one of: [_1].',
                               '.zip, .tar, .bz2, .gz, .tar.gz, .tar.bz2, .tgz');
     } else {
         my $docuhome = &Apache::lonnet::homeserver($docuname,$docudom);
@@ -11382,11 +11179,11 @@ sub process_extracted_files {
     if ($env{'form.folderpath'}) {
         my @items = split('&',$env{'form.folderpath'});
         $folders{'0'} = $items[-2];
-        if ($env{'form.folderpath'} =~ /\:1$/) {
-            $containers{'0'}='page';
-        } else {
-            $containers{'0'}='sequence';
-        }
+        $containers{'0'}='sequence';
+    } elsif ($env{'form.pagepath'}) {
+        my @items = split('&',$env{'form.pagepath'});
+        $folders{'0'} = $items[-2];
+        $containers{'0'}='page';
     }
     my @archdirs = &get_env_multiple('form.archive_directory');
     if ($numitems) {
@@ -11461,7 +11258,7 @@ sub process_extracted_files {
                             my ($outtext,$errtext) =
                                 &LONCAPA::map::storemap('/uploaded/'.$docudom.'/'.
                                                         $docuname.'/'.$folders{$outer}.
-                                                        '.'.$containers{$outer},1,1);
+                                                        '.'.$containers{$outer},1);
                             $newseqid{$i} = $newidx;
                             unless ($errtext) {
                                 $result .=  '<li>'.&mt('Folder: [_1] added to course',$docstitle).'</li>'."\n";
@@ -11494,7 +11291,7 @@ sub process_extracted_files {
                             my ($outtext,$errtext)=
                                 &LONCAPA::map::storemap('/uploaded/'.$docudom.'/'.
                                                         $docuname.'/'.$folders{$outer}.
-                                                        '.'.$containers{$outer},1,1);
+                                                        '.'.$containers{$outer},1);
                             unless ($errtext) {
                                 if (-e "$prefix$dir/$docstype/$mapinner{$outer}/$newidx/$title") {
                                     $result .= '<li>'.&mt('File: [_1] added to course',$docstitle).'</li>'."\n";
@@ -11504,7 +11301,7 @@ sub process_extracted_files {
                     }
                 }
             } else {
-                $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',$path).'<br />';
+                $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',$path).'<br />'; 
             }
         }
         for (my $i=1; $i<=$numitems; $i++) {
@@ -11526,7 +11323,7 @@ sub process_extracted_files {
                         }
                         if ($itemidx eq '') {
                             $itemidx =  0;
-                        }
+                        } 
                         if (grep(/^\Q$referrer{$i}\E$/,@archdirs)) {
                             if ($mapinner{$referrer{$i}}) {
                                 $fullpath = "$prefix$dir/$docstype/$mapinner{$referrer{$i}}";
@@ -11573,12 +11370,12 @@ sub process_extracted_files {
                                     $showpath = "$relpath/$title";
                                 } else {
                                     $showpath = "/$title";
-                                }
+                                } 
                                 $result .= '<li>'.&mt('[_1] included as a dependency',$showpath).'</li>'."\n";
-                            }
+                            } 
                             unless ($ishome) {
                                 my $fetch = "$fullpath/$title";
-                                $fetch =~ s/^\Q$prefix$dir\E//;
+                                $fetch =~ s/^\Q$prefix$dir\E//; 
                                 $prompttofetch{$fetch} = 1;
                             }
                         }
@@ -11588,7 +11385,7 @@ sub process_extracted_files {
                                     $path,$env{'form.archive_content_'.$referrer{$i}}).'<br />';
                 }
             } else {
-                $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',$path).'<br />';
+                $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',$path).'<br />'; 
             }
         }
         if (keys(%todelete)) {
@@ -11647,7 +11444,7 @@ sub cleanup_empty_dirs {
             my $numitems = 0;
             foreach my $item (@dircontents) {
                 if (-d "$path/$item") {
-                    &cleanup_empty_dirs("$path/$item");
+                    &recurse_dirs("$path/$item");
                     if (-e "$path/$item") {
                         $numitems ++;
                     }
@@ -13196,7 +12993,7 @@ sub commit_customrole {
 }
 
 sub commit_standardrole {
-    my ($udom,$uname,$url,$three,$start,$end,$one,$two,$sec,$context,$credits) = @_;
+    my ($udom,$uname,$url,$three,$start,$end,$one,$two,$sec,$context) = @_;
     my ($output,$logmsg,$linefeed);
     if ($context eq 'auto') {
         $linefeed = "\n";
@@ -13205,7 +13002,7 @@ sub commit_standardrole {
     }  
     if ($three eq 'st') {
         my $result = &commit_studentrole(\$logmsg,$udom,$uname,$url,$three,$start,$end,
-                                         $one,$two,$sec,$context,$credits);
+                                         $one,$two,$sec,$context);
         if (($result =~ /^error/) || ($result eq 'not_in_class') || 
             ($result eq 'unknown_course') || ($result eq 'refused')) {
             $output = $logmsg.' '.&mt('Error: ').$result."\n"; 
@@ -13236,8 +13033,7 @@ sub commit_standardrole {
 }
 
 sub commit_studentrole {
-    my ($logmsg,$udom,$uname,$url,$three,$start,$end,$one,$two,$sec,$context,
-        $credits) = @_;
+    my ($logmsg,$udom,$uname,$url,$three,$start,$end,$one,$two,$sec,$context) = @_;
     my ($result,$linefeed,$oldsecurl,$newsecurl);
     if ($context eq 'auto') {
         $linefeed = "\n";
@@ -13284,11 +13080,7 @@ sub commit_studentrole {
             }
         }
         if (($expire_role_result eq 'ok') || ($secchange == 0)) {
-            $modify_section_result = 
-                &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,
-                                                           undef,undef,undef,$sec,
-                                                           $end,$start,'','',$cid,
-                                                           '',$context,$credits);
+            $modify_section_result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,'','',$cid,'',$context);
             if ($modify_section_result =~ /^ok/) {
                 if ($secchange == 1) {
                     if ($sec eq '') {
@@ -13319,7 +13111,7 @@ sub commit_studentrole {
             $result = $modify_section_result;
         } elsif ($secchange == 1) {
             if ($oldsec eq '') {
-                $$logmsg .= &mt('Error when attempting to expire existing role without a section for [_1] in course [_2] -error: ',$uname,$cid).' '.$expire_role_result.$linefeed;
+                $$logmsg .= &mt('Error when attempting to expire existing role without a section for [_1] in course [_3] -error: ',$uname,$cid).' '.$expire_role_result.$linefeed;
             } else {
                 $$logmsg .= &mt('Error when attempting to expire existing role for [_1] in section [_2] in course [_3] -error: ',$uname,$oldsec,$cid).' '.$expire_role_result.$linefeed;
             }
@@ -13345,26 +13137,6 @@ sub commit_studentrole {
     return $result;
 }
 
-sub show_role_extent {
-    my ($scope,$context,$role) = @_;
-    $scope =~ s{^/}{};
-    my @courseroles = &Apache::lonuserutils::roles_by_context('course',1);
-    push(@courseroles,'co');
-    my @authorroles = &Apache::lonuserutils::roles_by_context('author');
-    if (($context eq 'course') || (grep(/^\Q$role\E/,@courseroles))) {
-        $scope =~ s{/}{_};
-        return '<span class="LC_cusr_emph">'.$env{'course.'.$scope.'.description'}.'</span>';
-    } elsif (($context eq 'author') || (grep(/^\Q$role\E/,@authorroles))) {
-        my ($audom,$auname) = split(/\//,$scope);
-        return &mt('[_1] Author Space','<span class="LC_cusr_emph">'.
-                   &Apache::loncommon::plainname($auname,$audom).'</span>');
-    } else {
-        $scope =~ s{/$}{};
-        return &mt('Domain: [_1]','<span class="LC_cusr_emph">'.
-                   &Apache::lonnet::domain($scope,'description').'</span>');
-    }
-}
-
 ############################################################
 ############################################################
 
@@ -13557,9 +13329,6 @@ sub construct_course {
     } else {
         $cenv{'internal.courseowner'} = $args->{'curruser'};
     }
-    if ($args->{'defaultcredits'}) {
-        $cenv{'internal.defaultcredits'} = $args->{'defaultcredits'};
-    }
     my @badclasses = (); # Used to accumulate sections/crosslistings that did not pass classlist access check for course owner.
     if ($args->{'crssections'}) {
         $cenv{'internal.sectionnums'} = '';
@@ -14009,20 +13778,6 @@ sub init_user_environment {
                                                   \%userenv,\%domdef,\%is_adv);
         }
 
-        $userenv{'canrequest.author'} =
-            &Apache::lonnet::usertools_access($username,$domain,'requestauthor',
-                                        'reload','requestauthor',
-                                        \%userenv,\%domdef,\%is_adv);
-        my %reqauthor = &Apache::lonnet::get('requestauthor',['author_status','author'],
-                                             $domain,$username);
-        my $reqstatus = $reqauthor{'author_status'};
-        if ($reqstatus eq 'approval' || $reqstatus eq 'approved') {
-            if (ref($reqauthor{'author'}) eq 'HASH') {
-                $userenv{'requestauthorqueued'} = $reqstatus.':'.
-                                                  $reqauthor{'author'}{'timestamp'};
-            }
-        }
-
 	$env{'user.environment'} = "$lonids/$cookie.id";
 
 	if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",
@@ -14174,32 +13929,6 @@ sub update_content_constraints {
     return;
 }
 
-sub allmaps_incourse {
-    my ($cdom,$cnum,$chome,$cid) = @_;
-    if ($cdom eq '' || $cnum eq '' || $chome eq '' || $cid eq '') {
-        $cid = $env{'request.course.id'};
-        $cdom = $env{'course.'.$cid.'.domain'};
-        $cnum = $env{'course.'.$cid.'.num'};
-        $chome = $env{'course.'.$cid.'.home'};
-    }
-    my %allmaps = ();
-    my $lastchange =
-        &Apache::lonnet::get_coursechange($cdom,$cnum);
-    if ($lastchange > $env{'request.course.tied'}) {
-        my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
-        unless ($ferr) {
-            &update_content_constraints($cdom,$cnum,$chome,$cid);
-        }
-    }
-    my $navmap = Apache::lonnavmaps::navmap->new();
-    if (defined($navmap)) {
-        foreach my $res ($navmap->retrieveResources(undef,sub { $_[0]->is_map() },1,0,1)) {
-            $allmaps{$res->src()} = 1;
-        }
-    }
-    return \%allmaps;
-}
-
 sub parse_supplemental_title {
     my ($title) = @_;
 
@@ -14223,232 +13952,6 @@ sub parse_supplemental_title {
     return $title;
 }
 
-sub symb_to_docspath {
-    my ($symb) = @_;
-    return unless ($symb);
-    my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($symb);
-    if ($resurl=~/\.(sequence|page)$/) {
-        $mapurl=$resurl;
-    } elsif ($resurl eq 'adm/navmaps') {
-        $mapurl=$env{'course.'.$env{'request.course.id'}.'.url'};
-    }
-    my $mapresobj;
-    my $navmap = Apache::lonnavmaps::navmap->new();
-    if (ref($navmap)) {
-        $mapresobj = $navmap->getResourceByUrl($mapurl);
-    }
-    $mapurl=~s{^.*/([^/]+)\.(\w+)$}{$1};
-    my $type=$2;
-    my $path;
-    if (ref($mapresobj)) {
-        my $pcslist = $mapresobj->map_hierarchy();
-        if ($pcslist ne '') {
-            foreach my $pc (split(/,/,$pcslist)) {
-                next if ($pc <= 1);
-                my $res = $navmap->getByMapPc($pc);
-                if (ref($res)) {
-                    my $thisurl = $res->src();
-                    $thisurl=~s{^.*/([^/]+)\.\w+$}{$1};
-                    my $thistitle = $res->title();
-                    $path .= '&'.
-                             &Apache::lonhtmlcommon::entity_encode($thisurl).'&'.
-                             &Apache::lonhtmlcommon::entity_encode($thistitle).
-                             ':'.$res->randompick().
-                             ':'.$res->randomout().
-                             ':'.$res->encrypted().
-                             ':'.$res->randomorder().
-                             ':'.$res->is_page();
-                }
-            }
-        }
-        $path =~ s/^\&//;
-        my $maptitle = $mapresobj->title();
-        if ($mapurl eq 'default') {
-            $maptitle = 'Main Course Documents';
-        }
-        $path .= (($path ne '')? '&' : '').
-                 &Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
-                 &Apache::lonhtmlcommon::entity_encode($maptitle).
-                 ':'.$mapresobj->randompick().
-                 ':'.$mapresobj->randomout().
-                 ':'.$mapresobj->encrypted().
-                 ':'.$mapresobj->randomorder().
-                 ':'.$mapresobj->is_page();
-    } else {
-        my $maptitle = &Apache::lonnet::gettitle($mapurl);
-        my $ispage = (($type eq 'page')? 1 : '');
-        if ($mapurl eq 'default') {
-            $maptitle = 'Main Course Documents';
-        }
-        $path = &Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
-                &Apache::lonhtmlcommon::entity_encode($maptitle).':::::'.$ispage;
-    }
-    unless ($mapurl eq 'default') {
-        $path = 'default&'.
-                &Apache::lonhtmlcommon::entity_encode('Main Course Documents').
-                ':::::&'.$path;
-    }
-    return $path;
-}
-
-sub captcha_display {
-    my ($context,$lonhost) = @_;
-    my ($output,$error);
-    my ($captcha,$pubkey,$privkey) = &get_captcha_config($context,$lonhost);
-    if ($captcha eq 'original') {
-        $output = &create_captcha();
-        unless ($output) {
-            $error = 'captcha';
-        }
-    } elsif ($captcha eq 'recaptcha') {
-        $output = &create_recaptcha($pubkey);
-        unless ($output) {
-            $error = 'recaptcha';
-        }
-    }
-    return ($output,$error);
-}
-
-sub captcha_response {
-    my ($context,$lonhost) = @_;
-    my ($captcha_chk,$captcha_error);
-    my ($captcha,$pubkey,$privkey) = &get_captcha_config($context,$lonhost);
-    if ($captcha eq 'original') {
-        ($captcha_chk,$captcha_error) = &check_captcha();
-    } elsif ($captcha eq 'recaptcha') {
-        $captcha_chk = &check_recaptcha($privkey);
-    } else {
-        $captcha_chk = 1;
-    }
-    return ($captcha_chk,$captcha_error);
-}
-
-sub get_captcha_config {
-    my ($context,$lonhost) = @_;
-    my ($captcha,$pubkey,$privkey,$hashtocheck);
-    my $hostname = &Apache::lonnet::hostname($lonhost);
-    my $serverhomeID = &Apache::lonnet::get_server_homeID($hostname);
-    my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID);
-    if ($context eq 'usercreation') {
-        my %domconfig = &Apache::lonnet::get_dom('configuration',[$context],$serverhomedom);
-        if (ref($domconfig{$context}) eq 'HASH') {
-            $hashtocheck = $domconfig{$context}{'cancreate'};
-            if (ref($hashtocheck) eq 'HASH') {
-                if ($hashtocheck->{'captcha'} eq 'recaptcha') {
-                    if (ref($hashtocheck->{'recaptchakeys'}) eq 'HASH') {
-                        $pubkey = $hashtocheck->{'recaptchakeys'}{'public'};
-                        $privkey = $hashtocheck->{'recaptchakeys'}{'private'};
-                    }
-                    if ($privkey && $pubkey) {
-                        $captcha = 'recaptcha';
-                    } else {
-                        $captcha = 'original';
-                    }
-                } elsif ($hashtocheck->{'captcha'} ne 'notused') {
-                    $captcha = 'original';
-                }
-            }
-        } else {
-            $captcha = 'captcha';
-        }
-    } elsif ($context eq 'login') {
-        my %domconfhash = &Apache::loncommon::get_domainconf($serverhomedom);
-        if ($domconfhash{$serverhomedom.'.login.captcha'} eq 'recaptcha') {
-            $pubkey = $domconfhash{$serverhomedom.'.login.recaptchakeys_public'};
-            $privkey = $domconfhash{$serverhomedom.'.login.recaptchakeys_private'};
-            if ($privkey && $pubkey) {
-                $captcha = 'recaptcha';
-            } else {
-                $captcha = 'original';
-            }
-        } elsif ($domconfhash{$serverhomedom.'.login.captcha'} eq 'original') {
-            $captcha = 'original';
-        }
-    }
-    return ($captcha,$pubkey,$privkey);
-}
-
-sub create_captcha {
-    my %captcha_params = &captcha_settings();
-    my ($output,$maxtries,$tries) = ('',10,0);
-    while ($tries < $maxtries) {
-        $tries ++;
-        my $captcha = Authen::Captcha->new (
-                                           output_folder => $captcha_params{'output_dir'},
-                                           data_folder   => $captcha_params{'db_dir'},
-                                          );
-        my $md5sum = $captcha->generate_code($captcha_params{'numchars'});
-
-        if (-e $Apache::lonnet::perlvar{'lonCaptchaDir'}.'/'.$md5sum.'.png') {
-            $output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".
-                      &mt('Type in the letters/numbers shown below').'&nbsp;'.
-                     '<input type="text" size="5" name="code" value="" /><br />'.
-                     '<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" />';
-            last;
-        }
-    }
-    return $output;
-}
-
-sub captcha_settings {
-    my %captcha_params = (
-                           output_dir     => $Apache::lonnet::perlvar{'lonCaptchaDir'},
-                           www_output_dir => "/captchaspool",
-                           db_dir         => $Apache::lonnet::perlvar{'lonCaptchaDb'},
-                           numchars       => '5',
-                         );
-    return %captcha_params;
-}
-
-sub check_captcha {
-    my ($captcha_chk,$captcha_error);
-    my $code = $env{'form.code'};
-    my $md5sum = $env{'form.crypt'};
-    my %captcha_params = &captcha_settings();
-    my $captcha = Authen::Captcha->new(
-                      output_folder => $captcha_params{'output_dir'},
-                      data_folder   => $captcha_params{'db_dir'},
-                  );
-    $captcha_chk = $captcha->check_code($code,$md5sum);
-    my %captcha_hash = (
-                        0       => 'Code not checked (file error)',
-                       -1      => 'Failed: code expired',
-                       -2      => 'Failed: invalid code (not in database)',
-                       -3      => 'Failed: invalid code (code does not match crypt)',
-    );
-    if ($captcha_chk != 1) {
-        $captcha_error = $captcha_hash{$captcha_chk}
-    }
-    return ($captcha_chk,$captcha_error);
-}
-
-sub create_recaptcha {
-    my ($pubkey) = @_;
-    my $captcha = Captcha::reCAPTCHA->new;
-    return $captcha->get_options_setter({theme => 'white'})."\n".
-           $captcha->get_html($pubkey).
-           &mt('If either word is hard to read, [_1] will replace them.',
-               '<image src="/res/adm/pages/refresh.gif" alt="reCAPTCHA refresh" />').
-           '<br /><br />';
-}
-
-sub check_recaptcha {
-    my ($privkey) = @_;
-    my $captcha_chk;
-    my $captcha = Captcha::reCAPTCHA->new;
-    my $captcha_result =
-        $captcha->check_answer(
-                                $privkey,
-                                $ENV{'REMOTE_ADDR'},
-                                $env{'form.recaptcha_challenge_field'},
-                                $env{'form.recaptcha_response_field'},
-                              );
-    if ($captcha_result->{is_valid}) {
-        $captcha_chk = 1;
-    }
-    return $captcha_chk;
-}
-
 =pod
 
 =back