[BACK]Return to imagechoice.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/imagechoice.pl between versions 1.2 and 1.3

version 1.2, 2003/04/19 23:52:37 version 1.3, 2003/05/06 11:54:08
Line 46  $filename =~ s/%([a-fA-F0-9][a-fA-F0-9]) Line 46  $filename =~ s/%([a-fA-F0-9][a-fA-F0-9])
 if ((defined($data{'x'})) && (defined($data{'y'}))) {  if ((defined($data{'x'})) && (defined($data{'y'}))) {
     my $output='';      my $output='';
     if ($data{'formwidth'}) {      if ($data{'formwidth'}) {
  $output.='parent.'.$data{'formname'}.'.'.$data{'formwidth'}.   $output.='opener.document.forms.'.$data{'formname'}.'.'.$data{'formwidth'}.
     '.value=document.pickimg.width;';      '.value=document.pickimg.width;';
     }      }
     if ($data{'formheight'}) {      if ($data{'formheight'}) {
  $output.='parent.'.$data{'formname'}.'.'.$data{'formheight'}.   $output.='opener.document.forms.'.$data{'formname'}.'.'.$data{'formheight'}.
     '.value=document.pickimg.height;';      '.value=document.pickimg.height;';
     }      }
     if ($data{'formx'}) {      if ($data{'formx'}) {
  $output.='parent.'.$data{'formname'}.'.'.$data{'formx'}.   $output.='opener.document.forms.'.$data{'formname'}.'.'.$data{'formx'}.
     '.value='.$data{'x'}.';';      '.value='.$data{'x'}.';';
     }      }
     if ($data{'formy'}) {      if ($data{'formy'}) {
  $output.='parent.'.$data{'formname'}.'.'.$data{'formy'}.   $output.='opener.document.forms.'.$data{'formname'}.'.'.$data{'formy'}.
     '.value='.$data{'y'}.';';      '.value='.$data{'y'}.';';
     }      }
     print <<"ENDSUBM";      print <<"ENDSUBM";
Line 68  Content-type: text/html Line 68  Content-type: text/html
 <script>  <script>
     function submitthis() {      function submitthis() {
  $output   $output
    self.close();
     }      }
 </script>  </script>
 <body bgcolor="#FFFFFF" onLoad="submitthis()">  <body bgcolor="#FFFFFF" onLoad="submitthis()">
Removed from v.1.2  
changed lines
  Added in v.1.3

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