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

Diff for /loncom/interface/lonextresedit.pm between versions 1.2 and 1.3

version 1.2, 2012/12/02 18:25:11 version 1.3, 2012/12/02 22:40:09
Line 211  sub extedit_form { Line 211  sub extedit_form {
         $urlid = 'suppexturl';          $urlid = 'suppexturl';
     }      }
     my ($link,$legend,$active,$srcclass,$extsrc,$preview,$title,$save,      my ($link,$legend,$active,$srcclass,$extsrc,$preview,$title,$save,
         $fieldsetstyle,$action,$hiddenelem);          $fieldsetstyle,$action,$hiddenelem,$form);
     $fieldsetstyle = 'display: none;';      $fieldsetstyle = 'display: none;';
     $action = '/adm/coursedocs';      $action = '/adm/coursedocs';
     if ($residx) {      if ($residx) {
Line 228  sub extedit_form { Line 228  sub extedit_form {
                               &HTML::Entities::encode(&escape($orig_title),'<>&"').'" />';                                &HTML::Entities::encode(&escape($orig_title),'<>&"').'" />';
             }              }
         } else {                  } else {        
             $link = '<a class="LC_docs_ext_edit" href="javascript:editext('."'$residx'".');">'.$lt{'ed'}.'</a>';              $link = '<a class="LC_docs_ext_edit" href="javascript:editext('."'$residx'".');">'.$lt{'ed'}.'</a>&nbsp;'."\n";
             $size = 40;              $size = 40;
             $active = '<input type="hidden" name="active" value="'.$tabid.'" />';               $active = '<input type="hidden" name="active" value="'.$tabid.'" />';
         }          }
         $formname = "editext_$residx";          $formname = "editext_$residx";
         $fieldsetid = "uploadext$residx";          $fieldsetid = "uploadext$residx";
Line 252  sub extedit_form { Line 252  sub extedit_form {
         $save = $lt{'al'};          $save = $lt{'al'};
         $pathitem .= '<br />';          $pathitem .= '<br />';
     }      }
     return <<ENDFORM      $form = <<ENDFORM;
 $link  
 <form action="$action" method="post" name="$formname">  <form action="$action" method="post" name="$formname">
 <fieldset id="$fieldsetid" style="$fieldsetstyle">  <fieldset id="$fieldsetid" style="$fieldsetstyle">
 $legend  $legend
Line 275  $hiddenelem Line 274  $hiddenelem
 </fieldset>  </fieldset>
 </form>  </form>
 ENDFORM  ENDFORM
       if (wantarray) {
           return ($link,$form);
       } else {
           return $link.$form;
       }
 }  }
   
 sub display_editor {  sub display_editor {
Removed from v.1.2  
changed lines
  Added in v.1.3

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