--- loncom/interface/loncommon.pm 2008/08/13 08:17:58 1.674
+++ loncom/interface/loncommon.pm 2008/09/01 17:58:29 1.676
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.674 2008/08/13 08:17:58 bisitz Exp $
+# $Id: loncommon.pm,v 1.676 2008/09/01 17:58:29 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -8511,9 +8511,10 @@ sub assign_categories_table {
$checked = ' checked="checked" ';
}
}
- $output .= '
'
- .''.$parent.' | ';
+ $output .= '
'.
+ ''.$parent.''.
+ ' | ';
my $depth = 1;
push(@path,$parent);
$output .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);
@@ -8579,7 +8580,9 @@ sub assign_category_rows {
}
$text .= '
| ';
+ $item.'"'.$checked.' />'.$name.''.
+ ''.
+ ' | ';
if (ref($path) eq 'ARRAY') {
push(@{$path},$name);
$text .= &assign_category_rows($itemcount,$cats,$deeper,$name,$path,$currcategories);
@@ -9377,9 +9380,11 @@ sub init_user_environment {
sub _add_to_env {
my ($idf,$env_data,$prefix) = @_;
- while (my ($key,$value) = each(%$env_data)) {
- $idf->{$prefix.$key} = $value;
- $env{$prefix.$key} = $value;
+ if (ref($env_data) eq 'HASH') {
+ while (my ($key,$value) = each(%$env_data)) {
+ $idf->{$prefix.$key} = $value;
+ $env{$prefix.$key} = $value;
+ }
}
}
|