|
version 1.327, 2003/02/13 21:35:50
|
version 1.328, 2003/02/13 21:57:48
|
|
Line 1755 sub dump {
|
Line 1755 sub dump {
|
| |
|
| # --------------------------------------------------------------- currentdump |
# --------------------------------------------------------------- currentdump |
| sub currentdump { |
sub currentdump { |
| my ($sname,$sdom,$courseid)=@_; |
my ($courseid,$sdom,$sname)=@_; |
| $courseid = $ENV{'request.course.id'} if (! defined($courseid)); |
$courseid = $ENV{'request.course.id'} if (! defined($courseid)); |
| $sdom = $ENV{'user.domain'} if (! defined($sdom)); |
$sdom = $ENV{'user.domain'} if (! defined($sdom)); |
| $sname = $ENV{'user.name'} if (! defined($sname)); |
$sname = $ENV{'user.name'} if (! defined($sname)); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl