--- loncom/interface/loncommon.pm	2003/08/26 17:20:45	1.113
+++ loncom/interface/loncommon.pm	2003/09/10 15:06:34	1.115
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.113 2003/08/26 17:20:45 bowersj2 Exp $
+# $Id: loncommon.pm,v 1.115 2003/09/10 15:06:34 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1780,7 +1780,7 @@ show a snapshot of what student was look
 
 sub get_student_view {
   my ($symb,$username,$domain,$courseid,$target) = @_;
-  my ($map,$id,$feedurl) = split(/___/,$symb);
+  my ($map,$id,$feedurl) = &Apache::lonnet::decode_symb($symb);
   my (%old,%moreenv);
   my @elements=('symb','courseid','domain','username');
   foreach my $element (@elements) {
@@ -1816,7 +1816,7 @@ show a snapshot of how student was answe
 
 sub get_student_answers {
   my ($symb,$username,$domain,$courseid,%form) = @_;
-  my ($map,$id,$feedurl) = split(/___/,$symb);
+  my ($map,$id,$feedurl) = &Apache::lonnet::decode_symb($symb);
   my (%old,%moreenv);
   my @elements=('symb','courseid','domain','username');
   foreach my $element (@elements) {
@@ -2542,6 +2542,23 @@ sub csv_samples_select_table {
 }
 
 =pod
+
+=item clean_excel_name($name)
+
+Returns a replacement for $name which does not contain any illegal characters.
+
+=cut
+
+sub clean_excel_name {
+    my ($name) = @_;
+    $name =~ s/[:\*\?\/\\]//g;
+    if (length($name) > 31) {
+        $name = substr($name,0,31);
+    }
+    return $name;
+}
+
+=pod
 
 =item * check_if_partid_hidden($id,$symb,$udom,$uname)