[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[matthew]

matthew		Wed Feb 18 10:40:23 2004 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  Added &define_excel_formats.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.179 loncom/interface/loncommon.pm:1.180
--- loncom/interface/loncommon.pm:1.179	Wed Feb  4 10:29:06 2004
+++ loncom/interface/loncommon.pm	Wed Feb 18 10:40:23 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.179 2004/02/04 15:29:06 matthew Exp $
+# $Id: loncommon.pm,v 1.180 2004/02/18 15:40:23 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -709,6 +709,9 @@
 
 }
 
+###############################################################
+###############################################################
+
 =pod
 
 =item * csv_translate($text) 
@@ -718,12 +721,68 @@
 
 =cut
 
+###############################################################
+###############################################################
 sub csv_translate {
     my $text = shift;
     $text =~ s/\"/\"\"/g;
     $text =~ s/\n//g;
     return $text;
 }
+
+
+###############################################################
+###############################################################
+
+=pod
+
+=item * define_excel_formats
+
+Define some commonly used Excel cell formats.
+
+Currently supported formats:
+
+=over 4
+
+=item header
+
+=item bold
+
+=item h1
+
+=item h2
+
+=item h3
+
+=item date
+
+=back
+
+Inputs: $workbook
+
+Returns: $format, a hash reference.
+
+=cut
+
+###############################################################
+###############################################################
+sub define_excel_formats {
+    my ($workbook) = @_;
+    my $format;
+    $format->{'header'} = $workbook->add_format(bold      => 1, 
+                                                bottom    => 1,
+                                                align     => 'center');
+    $format->{'bold'} = $workbook->add_format(bold=>1);
+    $format->{'h1'}   = $workbook->add_format(bold=>1, size=>18);
+    $format->{'h2'}   = $workbook->add_format(bold=>1, size=>16);
+    $format->{'h3'}   = $workbook->add_format(bold=>1, size=>14);
+    $format->{'date'} = $workbook->add_format(num_format=>
+                                            'mmm d yyyy hh:mm AM/PM');
+    return $format;
+}
+
+###############################################################
+###############################################################
 
 =pod