[LON-CAPA-cvs] cvs: loncom /interface londropadd.pm
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Tue, 28 Aug 2007 13:00:46 -0000
raeburn Tue Aug 28 09:00:46 2007 EDT
Modified files:
/loncom/interface londropadd.pm
Log:
- remove debugging line
- calls to &header() were missing froe three blocks in &handler().
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.166 loncom/interface/londropadd.pm:1.167
--- loncom/interface/londropadd.pm:1.166 Sun Aug 26 17:09:42 2007
+++ loncom/interface/londropadd.pm Tue Aug 28 09:00:45 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.166 2007/08/26 21:09:42 raeburn Exp $
+# $Id: londropadd.pm,v 1.167 2007/08/28 13:00:45 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2661,7 +2661,6 @@
foreach my $item (@search) {
$srch->{$item} = $env{'form.'.$item};
}
- print STDERR "phase = $env{'form.phase'}\n";
if ($env{'form.phase'} eq 'get_user_info') {
my ($currstate,$response,$forcenewuser,$results) =
&Apache::loncreateuser::user_search_result($srch);
@@ -2732,6 +2731,7 @@
&get_student_username_domain_form($r,$elements);
}
} elsif ($env{'form.action'} eq 'classlist' && $permission->{'view'}) {
+ $r->print(&header());
&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/dropadd?action=classlist',
text=>"View Classlist"});
@@ -2747,6 +2747,7 @@
&print_html_classlist($r,undef,$permission);
}
} elsif ($env{'form.action'} eq 'modifystudent' && $permission->{'enrl'}) {
+ $r->print(&header());
&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/dropadd?action=modifystudent',
text=>"Modify Student Data"});
@@ -2766,6 +2767,7 @@
&Apache::lonnet::logthis("Undetermined state in londropadd.pm. ".
"form.action = ".$env{'form.action'}.
"Someone should fix this.");
+ $r->print(&header());
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager'));
&print_main_menu($r,$permission);
}