[LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm /localize/localize de.pm

[raeburn]

raeburn		Wed Aug  7 14:41:42 2013 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
    /loncom/localize/localize	de.pm 
  Log:
  - Colorchooser jquery plugin used for color selection for Text color and Box 
    color in Log-in header.
  - Consistent capitalization for row items (Font Menu -> Font menu).
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.200 loncom/interface/domainprefs.pm:1.201
--- loncom/interface/domainprefs.pm:1.200	Wed Aug  7 03:13:31 2013
+++ loncom/interface/domainprefs.pm	Wed Aug  7 14:41:39 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.200 2013/08/07 03:13:31 raeburn Exp $
+# $Id: domainprefs.pm,v 1.201 2013/08/07 14:41:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1288,7 +1288,7 @@
                     &login_header_options($img,$role,$defaults,$is_custom,$choices);
                 $logincolors =
                     &login_text_colors($img,$role,$logintext,$phase,$choices,
-                                            $designs);
+                                       $designs,$defaults);
             } elsif ($img ne 'domlogo') {
                 $datatable.= &logo_display_options($img,$defaults,$designs);
             }
@@ -1367,12 +1367,12 @@
                 $datatable .= &image_changes($is_custom->{$img},$alt_text->{$img},$img_import,
                                              $showfile,$fullsize,$role,$img,$imgfile,$logincolors);
             } else {
-                $datatable .= '<td colspan="2" class="LC_right_item"><br />'.
-                              &mt('Upload:');
+                $datatable .= '<td> </td><td class="LC_left_item">'.
+                              &mt('Upload:').'<br />';
             }
         } else {
-            $datatable .= '<td colspan="2" class="LC_right_item"><br />'.
-                          &mt('Upload:');
+            $datatable .= '<td> </td><td class="LC_left_item">'.
+                          &mt('Upload:').'<br />';
         }
         if ($switchserver) {
             $datatable .= &mt('Upload to library server: [_1]',$switchserver);
@@ -1402,7 +1402,7 @@
                   '<table border="0"><tr>';
 
     foreach my $item (@{$bgs}) {
-        $datatable .= '<td align="center">';
+        $datatable .= '<td align="center">'.$choices->{$item};
 	my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item};
         if ($designs->{'bgs'}{$item}) {
             $datatable .= ' ';
@@ -1430,7 +1430,7 @@
                   '<table border="0"><tr>';
     foreach my $item (@{$links}) {
 	my $color = $designs->{'link'}{$item} ? $designs->{'link'}{$item} : $defaults->{'links'}{$item};
-        $datatable .= '<td align="center">'."\n";
+        $datatable .= '<td align="center">'.$choices->{$item}."\n";
 
         if ($designs->{'links'}{$item}) {
             $datatable.=' ';
@@ -1489,17 +1489,14 @@
 }
 
 sub login_text_colors {
-    my ($img,$role,$logintext,$phase,$choices,$designs) = @_;
+    my ($img,$role,$logintext,$phase,$choices,$designs,$defaults) = @_;
     my $color_menu = '<table border="0"><tr>';
     foreach my $item (@{$logintext}) {
-        my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'logintext'}{$item});
-        $color_menu .= '<td align="center">'.$link;
-        if ($designs->{'logintext'}{$item}) {
-            $color_menu .= ' <span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'logintext'}{$item}.';">   </span>';
-        }
-        $color_menu .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.
-                       $designs->{'logintext'}{$item}.'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>'.
-                       '<td> </td>';
+        $color_menu .= '<td align="center">'.$choices->{$item};
+        my $color = $designs->{'logintext'}{$item} ? $designs->{'logintext'}{$item} : $defaults->{'logintext'}{$item};
+        $color_menu .= '<br /><input type="text" class="colorchooser" size="8" name="'.$role.'_'.$item.'" value="'.$color.
+                      '" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>';
+
     }
     $color_menu .= '</tr></table><br />';
     return $color_menu;
@@ -1531,20 +1528,12 @@
                        $role.'_del_'.$img.'" value="1" />'.&mt('Delete?').
                        '</label> '.&mt('Replace:').'</span><br />';
         } else {
-            $output .= '<td valign="bottom">'.$logincolors.&mt('Upload:').'<br />';
+            $output .= '<td valign="middle">'.$logincolors.&mt('Upload:').'<br />';
         }
     }
     return $output;
 }
 
-sub color_pick {
-    my ($phase,$role,$item,$desc,$curcol) = @_;
-    my $link = '<a href="javascript:pjump('."'color_custom','".$desc.
-               "','".$curcol."','".$role.'_'.$item."','parmform.pres','psub'".
-               ');">'.$desc.'</a>';
-    return $link;
-}
-
 sub print_quotas {
     my ($dom,$settings,$rowtotal,$action) = @_;
     my $context;
@@ -5085,7 +5074,7 @@
             links => "Link colors",
             images => "Images",
             font => "Font color",
-            fontmenu => "Font Menu",
+            fontmenu => "Font menu",
             pgbg => "Page",
             tabbg => "Header",
             sidebg => "Border",
Index: loncom/localize/localize/de.pm
diff -u loncom/localize/localize/de.pm:1.517 loncom/localize/localize/de.pm:1.518
--- loncom/localize/localize/de.pm:1.517	Wed Jul 24 18:21:36 2013
+++ loncom/localize/localize/de.pm	Wed Aug  7 14:41:42 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # German Localization Lexicon
 #
-# $Id: de.pm,v 1.517 2013/07/24 18:21:36 bisitz Exp $
+# $Id: de.pm,v 1.518 2013/08/07 14:41:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -20159,7 +20159,7 @@
    'Filename of bubblesheet data file:'
 => 'Dateiname der Bubblesheet-Daten-Datei:',
 
-   'Font Menu'
+   'Font menu'
 => 'Schriftfarbe im Menü',
 
    'Format of bubblesheet data file:'