--- loncom/interface/loncommon.pm 2008/08/13 08:17:58 1.674
+++ loncom/interface/loncommon.pm 2008/09/04 22:06:27 1.679
@@ -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.679 2008/09/04 22:06:27 riegler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -5360,6 +5360,10 @@ hr.LC_edit_problem_divide {
height: 3px;
border: 0px;
}
+img.stift{
+ border-width:0;
+ vertical-align:middle;
+}
END
}
@@ -8511,9 +8515,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 +8584,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 +9384,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;
+ }
}
}
|