--- loncom/interface/domainprefs.pm 2007/04/03 18:47:23 1.6 +++ loncom/interface/domainprefs.pm 2007/04/04 00:10:01 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.6 2007/04/03 18:47:23 raeburn Exp $ +# $Id: domainprefs.pm,v 1.7 2007/04/04 00:10:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -313,7 +313,7 @@ sub print_login { my @images = ('img','logo','domlogo'); my @bgs = ('pgbg','mainbg','sidebg'); my @links = ('link','alink','vlink'); - my %designhash = &Apache::lonnet::get_domainconf($dom); + my %designhash = &Apache::loncommon::get_domainconf($dom); my %defaultdesign = %Apache::loncommon::defaultdesign; my (%is_custom,%designs); my %defaults = ( @@ -446,7 +446,7 @@ sub print_rolecolors { my @links = ('link','alink','vlink'); my @images = ('img'); my %alt_text = &Apache::lonlocal::texthash(img => "Banner for $role role"); - my %designhash = &Apache::lonnet::get_domainconf($dom); + my %designhash = &Apache::loncommon::get_domainconf($dom); my %defaultdesign = %Apache::loncommon::defaultdesign; my (%is_custom,%designs); my %defaults = ( @@ -1134,7 +1134,7 @@ sub default_change_checker { sub display_colorchgs { my ($dom,$changes,$roles,$confhash) = @_; my (%choices,$resulttext); - &Apache::lonnet::devalidate_domconfig_cache($dom); + &Apache::loncommon::devalidate_domconfig_cache($dom); if (!grep(/^login$/,@{$roles})) { $resulttext = &mt('Changes made:').'
'; }