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

Diff for /loncom/interface/loncommon.pm between versions 1.1000 and 1.1003

version 1.1000, 2011/02/07 18:12:35 version 1.1003, 2011/05/03 21:38:40
Line 436  sub studentbrowser_javascript { Line 436  sub studentbrowser_javascript {
 ENDSTDBRW  ENDSTDBRW
 }  }
   
   sub resourcebrowser_javascript {
      unless ($env{'request.course.id'}) { return ''; }
      return (<<'ENDSTDBRW');
   <script type="text/javascript" language="Javascript">
   // <![CDATA[
       var reseditbrowser;
       function openresbrowser(formname,uname,udom,clicker,roleflag,ignorefilter,courseadvonly) {
           var url = '/adm/pickresource?';
           var title = 'Resource_Browser';
           var options = 'scrollbars=1,resizable=1,menubar=0';
           options += ',width=700,height=600';
           stdeditbrowser = open(url,title,options,'1');
           stdeditbrowser.focus();
       }
   // ]]>
   </script>
   ENDSTDBRW
   }
   
 sub selectstudent_link {  sub selectstudent_link {
    my ($form,$unameele,$udomele,$courseadvonly,$clickerid)=@_;     my ($form,$unameele,$udomele,$courseadvonly,$clickerid)=@_;
    my $callargs = "'".&Apache::lonhtmlcommon::entity_encode($form)."','".     my $callargs = "'".&Apache::lonhtmlcommon::entity_encode($form)."','".
Line 3564  sub format_previous_attempt_value { Line 3583  sub format_previous_attempt_value {
         my @anskeys = sort(keys(%answers));          my @anskeys = sort(keys(%answers));
         if (@anskeys == 1) {          if (@anskeys == 1) {
             my $answer = $answers{$anskeys[0]};              my $answer = $answers{$anskeys[0]};
             if ($answer =~ m{\Q\0\E}) {              if ($answer =~ m{\0}) {
                 $answer =~ s{\Q\0\E}{, }g;                  $answer =~ s{\0}{,}g;
             }              }
             my $tag_internal_answer_name = 'INTERNAL';              my $tag_internal_answer_name = 'INTERNAL';
             if ($anskeys[0] eq $tag_internal_answer_name) {              if ($anskeys[0] eq $tag_internal_answer_name) {
Line 3576  sub format_previous_attempt_value { Line 3595  sub format_previous_attempt_value {
         } else {          } else {
             foreach my $ans (@anskeys) {              foreach my $ans (@anskeys) {
                 my $answer = $answers{$ans};                  my $answer = $answers{$ans};
                 if ($answer =~ m{\Q\0\E}) {                  if ($answer =~ m{\0}) {
                     $answer =~ s{\Q\0\E}{, }g;                      $answer =~ s{\0}{,}g;
                 }                  }
                 $value .=  $ans.'='.$answer.'<br />';;                  $value .=  $ans.'='.$answer.'<br />';;
             }               } 
Line 5125  td.LC_table_cell_checkbox { Line 5144  td.LC_table_cell_checkbox {
   
 li.LC_menubuttons_inline_text img,a {  li.LC_menubuttons_inline_text img,a {
   cursor:pointer;    cursor:pointer;
     text-decoration: none;
 }  }
   
 .LC_menubuttons_link {  .LC_menubuttons_link {
Removed from v.1.1000  
changed lines
  Added in v.1.1003

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