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

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

version 1.264, 2005/06/03 15:47:29 version 1.266, 2005/06/06 19:51:05
Line 683  sub help_open_menu { Line 683  sub help_open_menu {
     my $template;      my $template;
     if ($text ne "") {      if ($text ne "") {
  $template .=    $template .= 
   "<table bgcolor='#773311' cellspacing='1' cellpadding='1' border='0'><tr>".    "<table bgcolor='#CC3300' cellspacing='1' cellpadding='1' border='0'><tr>".
   "<td bgcolor='#886622'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";    "<td bgcolor='#CC6600'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
     }      }
     my $nothing=&Apache::lonhtmlcommon::javascript_nothing();      my $nothing=&Apache::lonhtmlcommon::javascript_nothing();
     my $html=&Apache::lonxml::xmlbegin();      my $html=&Apache::lonxml::xmlbegin();
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.264  
changed lines
  Added in v.1.266

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