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

Diff for /loncom/interface/lonpickresource.pm between versions 1.1 and 1.2

version 1.1, 2011/05/04 01:49:08 version 1.2, 2011/05/21 01:02:27
Line 52  sub handler { Line 52  sub handler {
                                              {'no_nav_bar' => 1}));                                               {'no_nav_bar' => 1}));
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['form','reslink']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['form','reslink']);
     my $form='opener.document.'.$env{'form.form'};      my $form='opener.document.forms.'.$env{'form.form'};
     my $reslink=$env{'form.reslink'};      my $reslink=$env{'form.reslink'};
   
     $r->print('<form name="pickresource" action="/adm/pickresource">');      $r->print('<form name="pickresource" action="/adm/pickresource">');
     $r->print(&Apache::lonstathelpers::problem_selector('.',undef,1,1,'resource'));      $r->print(&Apache::lonstathelpers::problem_selector('.',undef,1,1,'resource'));
       $r->print(<<ENDGETVALUE);
   <script type="text/javascript">
   function getCheckedValue(radioObj) {
    if(!radioObj)
    return "";
    var radioLength = radioObj.length;
    if(radioLength == undefined)
    if(radioObj.checked)
    return radioObj.value;
    else
    return "";
    for(var i = 0; i < radioLength; i++) {
    if(radioObj[i].checked) {
    return radioObj[i].value;
    }
    }
    return "";
   }
   </script>
   ENDGETVALUE
     $r->print('<input type="button" value="'.&mt('Pick').      $r->print('<input type="button" value="'.&mt('Pick').
       '" onClick="if (this.form.resourcesymb.value!=null) { '.        '" onClick="val=getCheckedValue(this.form.resourcesymb);if (val) { '.
                     $form.'.resourcesymb.value=this.form.resourcesymb.value;'.                      $form.'.resourcesymb.value=val;'.
                     $form.".cmd.value='".$reslink."';} window.close();".'" />');                      $form.".cmd.value='".$reslink."';".
                       $form.".submit();} window.close();".'" />');
     $r->print('</form>');      $r->print('</form>');
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
Removed from v.1.1  
changed lines
  Added in v.1.2

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