loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.114, 2003/09/09 18:46:28
+version 1.116, 2003/09/11 22:37:54
  Line 1835  sub get_student_answers {
  =pod
+ =item * &submlink()
+ Inputs: $text $uname $udom $symb
+ Returns: A link to grades.pm such as to see the SUBM view of a student
+ =cut
+ ###############################################
+ sub submlink {
+     my ($text,$uname,$udom,$symb)=@_;
+     if (!($uname && $udom)) {
+ 	(my $cursymb, my $courseid,$udom,$uname)=
+ 	    &Apache::lonxml::whichuser($symb);
+ 	if (!$symb) { $symb=$cursymb; }
+     }
+     if (!$symb) { $symb=&symbread(); }
+     return '<a href="/adm/grades?symb='.$symb.'&student='.$uname.
+ 	'&userdom='.$udom.'&command=submission">'.$text.'</a>';
+ }
+ ##############################################
+ =pod
  =back
  =cut
- Line 2542  sub csv_samples_select_table {
+ Line 2566  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)