--- loncom/homework/outputtags.pm	2006/05/12 03:46:54	1.48
+++ loncom/homework/outputtags.pm	2008/11/14 21:27:17	1.52
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # tags that create controlled output
 #
-# $Id: outputtags.pm,v 1.48 2006/05/12 03:46:54 albertel Exp $
+# $Id: outputtags.pm,v 1.52 2008/11/14 21:27:17 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -26,6 +26,67 @@
 # http://www.lon-capa.org/
 #
 
+=head1 NAME
+
+Apache::outputtags;
+
+=head1 SYNOPSIS
+
+Handles tags associated with output. Seems to
+relate to due dates of the assignment.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 HANDLER SUBROUTINE
+
+start_displayduedate()
+
+=head1 OTHER SUBROUTINES
+
+=over
+
+=item *
+
+initialize_outputtags() : Empties the hash of tags that have already been displayed that should only be displayed once.
+
+=item *
+
+end_displayduedate()
+
+=item *
+
+start_displaytitle()
+
+=item *
+
+end_displaytitle()
+
+=item *
+
+multipart()
+
+=item *
+
+start_displayweight()
+
+=item *
+
+end_displayweight()
+
+=item *
+
+start_displaystudentphoto()
+
+=item *
+
+end_displaystudentphoto()
+
+
+=back
+
+=cut
+
 package Apache::outputtags; 
 
 use strict;
@@ -36,9 +97,7 @@ use POSIX qw(strftime);
 BEGIN {
     &Apache::lonxml::register('Apache::outputtags',('displayduedate','displaytitle','displayweight','displaystudentphoto'));
 }
-#  Empties the hash of tags that have already been displayed
-#  that should only be displayed once.
-#
+
 sub initialize_outputtags {
     %Apache::outputtags::showonce=();
 }
@@ -169,7 +228,7 @@ sub end_displaytitle {
 sub multipart {
     my ($uri)=@_;
     if (!defined($uri)) { $uri=$env{'request.uri'}; }
-    my ($symb)=&Apache::lonxml::whichuser();
+    my ($symb)=&Apache::lonnet::whichuser();
 
     my @parts;
     my $metadata = &Apache::lonnet::metadata($uri,'packages');
@@ -236,7 +295,7 @@ sub end_displayweight {
 sub start_displaystudentphoto {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result;
-    my (undef,undef,$domain,$user) = &Apache::lonxml::whichuser();
+    my (undef,undef,$domain,$user) = &Apache::lonnet::whichuser();
     if ($target eq 'web' && $user eq $env{'user.name'}) {
 	my $url=&Apache::lonnet::studentphoto($domain,$user,"gif");
 	my $args;