--- loncom/interface/loncreateuser.pm 2007/06/11 22:13:07 1.154 +++ loncom/interface/loncreateuser.pm 2007/07/20 23:57:06 1.159 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.154 2007/06/11 22:13:07 banghart Exp $ +# $Id: loncreateuser.pm,v 1.159 2007/07/20 23:57:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -65,7 +65,6 @@ use Apache::lonnet; use Apache::loncommon; use Apache::lonlocal; use Apache::longroup; -use lib '/home/httpd/lib/perl/'; use LONCAPA qw(:DEFAULT :match); my $loginscript; # piece of javascript used in two separate instances @@ -222,10 +221,10 @@ sub print_username_entry_form { $r->print(<<"ENDDOCUMENT"); $start_page
'. + ''. &Apache::loncommon::end_page()); } # -------------------------------------------------------- @@ -1735,7 +1733,7 @@ sub make_script_template { $return_script .= 'function set_'.$role.'() {'."\n"; my @temp = split(/:/,$Apache::lonnet::pr{$role.':c'}); my %role_c; - foreach my $priv(@temp) { + foreach my $priv (@temp) { my ($priv_item, $dummy) = split(/\&/,$priv); $role_c{$priv_item} = 1; } @@ -1933,7 +1931,7 @@ sub course_level_table { if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) { my $plrole=&Apache::lonnet::plaintext($role); $table .= &Apache::loncommon::start_data_table_row(). -'