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

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

version 1.265, 2005/06/04 19:09:17 version 1.266, 2005/06/06 19:51:05
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
   
Removed from v.1.265  
changed lines
  Added in v.1.266

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