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

Diff for /loncom/interface/loncommon.pm between versions 1.1004 and 1.1006

version 1.1004, 2011/05/03 23:51:18 version 1.1006, 2011/05/27 18:36:51
Line 443  sub resourcebrowser_javascript { Line 443  sub resourcebrowser_javascript {
 // <![CDATA[  // <![CDATA[
     var reseditbrowser;      var reseditbrowser;
     function openresbrowser(formname,reslink) {      function openresbrowser(formname,reslink) {
         var url = '/adm/pickresource?form='+formname+'&reslink='.reslink;          var url = '/adm/pickresource?form='+formname+'&reslink='+reslink;
         var title = 'Resource_Browser';          var title = 'Resource_Browser';
         var options = 'scrollbars=1,resizable=1,menubar=0';          var options = 'scrollbars=1,resizable=1,menubar=0';
         options += ',width=700,height=600';          options += ',width=700,height=500';
         reseditbrowser = open(url,title,options,'1');          reseditbrowser = open(url,title,options,'1');
         reseditbrowser.focus();          reseditbrowser.focus();
     }      }
Line 8929  sub modify_html_refs { Line 8929  sub modify_html_refs {
                 if ($allfiles{$ref}) {                  if ($allfiles{$ref}) {
                     my $newname =  $orig;                      my $newname =  $orig;
                     my ($attrib_regexp,$codebase);                      my ($attrib_regexp,$codebase);
                     my $attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i});                      $attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i});
                     if ($attrib_regexp =~ /:/) {                      if ($attrib_regexp =~ /:/) {
                         $attrib_regexp =~ s/\:/|/g;                          $attrib_regexp =~ s/\:/|/g;
                     }                      }
Line 8938  sub modify_html_refs { Line 8938  sub modify_html_refs {
                         $count += $numchg;                          $count += $numchg;
                     }                      }
                     if ($env{'form.embedded_codebase_'.$i} ne '') {                      if ($env{'form.embedded_codebase_'.$i} ne '') {
                         my $codebase = &unescape($env{'form.embedded_codebase_'.$i});                          $codebase = &unescape($env{'form.embedded_codebase_'.$i});
                         my $numchg = ($content =~ s/(codebase\s*=\s*["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs                          my $numchg = ($content =~ s/(codebase\s*=\s*["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs
                         $codebasecount ++;                          $codebasecount ++;
                     }                      }
Removed from v.1.1004  
changed lines
  Added in v.1.1006

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