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

Diff for /loncom/homework/edit.pm between versions 1.74 and 1.75

version 1.74, 2003/12/18 19:59:24 version 1.75, 2004/01/09 23:22:18
Line 766  target="imagechoice">Click Coordinate Pa Line 766  target="imagechoice">Click Coordinate Pa
 ENDBUTTON  ENDBUTTON
     return $result;      return $result;
 }  }
   
   # coordinate polygon (x1,y1)-(x2,y2)...
   sub entercoordpolygon {
       my ($id,$mode,$width,$height) = @_;
       unless ($Apache::edit::bgimgsrc) { return ''; }
       my $bgfile=&Apache::lonnet::escape($Apache::edit::bgimgsrc);
       my $form    = 'lonhomework';
       my $element;
       if (! defined($mode) || $mode eq 'attribute') {
           $element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth");
       } elsif ($mode eq 'textnode') {  # for data between <tag> ... </tag>
           $element = &Apache::lonnet::escape('homework_edit_'.
                                              $Apache::lonxml::curdepth);
       }
       my $id=&Apache::loncommon::get_cgi_id();
       my %data=("cgi.$id.mode"      =>'polygon',
         "cgi.$id.formname"  =>$form,
         "cgi.$id.file"      =>$bgfile,
         "cgi.$id.formcoord" =>$element);
       if ($height) {
    $data{"cgi.$id.formheight"}=$height.'_'.$Apache::edit::bgimgsrccurdepth;
       }
       if ($width) {
    $data{"cgi.$id.formwidth"}=$width.'_'.$Apache::edit::bgimgsrccurdepth;
       }
       &Apache::lonnet::appenv(%data);
       my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">Create Polygon Data</a>';
       return $result;
   }
 #----------------------------------------------------- browse  #----------------------------------------------------- browse
 sub browse {  sub browse {
     # insert a link to call up the filesystem browser (lonindexer)      # insert a link to call up the filesystem browser (lonindexer)
Removed from v.1.74  
changed lines
  Added in v.1.75

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