loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.138, 2003/10/29 15:47:52
+version 1.139, 2003/10/29 16:20:14
  Line 69  use Apache::Constants qw(:common :http :
  use Apache::lonmsg();
  use Apache::lonmenu();
  use Apache::lonlocal;
+ use HTML::Entities;
  my $readit;
- Line 3013  sub DrawXYYGraph {
+ Line 3014  sub DrawXYYGraph {
  }
  ############################################################
+ ############################################################
+ =pod
+ =head1 Statistics helper routines?
+ Bad place for them but what the hell.
+ =item &chartlink
+ Returns a link to the chart for a specific student.
+ Inputs:
+ =over 4
+ =item $linktext: The text of the link
+ =item $sname: The students username
+ =item $sdomain: The students domain
+ =back
+ =cut
+ ############################################################
+ ############################################################
+ sub chartlink {
+     my ($linktext, $sname, $sdomain) = @_;
+     my $link = '<a href="/adm/statistics?reportSelected=student_assessment'.
+         '&SelectedStudent='.&Apache::lonnet::escape($sname.':'.$sdomain).
+         '&chartoutputmode='.HTML::Entities::encode('html, with all links').
+        '">'.$linktext.'</a>';
+ }
+ ############################################################
  ############################################################
  =pod