loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.115, 2003/09/10 15:06:34
+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