[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.266 and 1.267

version 1.266, 2005/06/06 19:51:05 version 1.267, 2005/06/06 20:31:24
Line 2000  sub track_student_link { Line 2000  sub track_student_link {
     return qq{<a href="$link" title="$title" $target>$linktext</a>};      return qq{<a href="$link" title="$title" $target>$linktext</a>};
 }  }
   
 # --------------------------------------------------------- Links into grading, etc  
   
 sub parm_direct_link {  
     my ($linktext,$sname,$sdom,$symb,$target)=@_;  
     unless ($sname) { return ''; }  
     unless ($sdom) { return ''; }  
     unless ($symb) { return ''; }  
   
     my $link ="/adm/parmset";  
     my $title = 'Change parameters';  
     if (defined($sname) && $sname !~ /^\s*$/ &&  
         defined($sdom)  && $sdom  !~ /^\s*$/) {  
         $link .= "?uname=$sname&udom=$sdom&action=settable&symb=".  
     &Apache::lonnet::escape($symb);  
     }  
     if (defined($target) && $target !~ /^\s*$/) {  
         $target = qq{target="$target"};  
     } else {  
         $target = '';  
     }  
     return qq{<a href="$link" title="$title" $target>$linktext</a>};  
 }  
   
 sub grds_direct_link {  
     my ($linktext,$sname,$sdom,$symb,$target)=@_;  
     unless ($sname) { return ''; }  
     unless ($sdom) { return ''; }  
     unless ($symb) { return ''; }  
     my $url=(&Apache::lonnet::decode_symb($symb))[2];  
     my $link ="/adm/grades";  
     my $title = 'Change grades';  
     if (defined($sname) && $sname !~ /^\s*$/ &&  
         defined($sdom)  && $sdom  !~ /^\s*$/) {  
         $link .= "?stuinfo=$sname:$sdom&symb=".  
     &Apache::lonnet::escape($symb)."&url=".  
     &Apache::lonnet::escape($url).  
     "&showgrading=yes&lastsub=all&vProp=yes&vAns=yes&command=processGroup";  
     }  
     if (defined($target) && $target !~ /^\s*$/) {  
         $target = qq{target="$target"};  
     } else {  
         $target = '';  
     }  
     return qq{<a href="$link" title="$title" $target>$linktext</a>};  
 }  
   
 =pod  =pod
   
 =back  =back
Removed from v.1.266  
changed lines
  Added in v.1.267

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>