[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.4

version 1.2, 2012/12/02 18:25:11 version 1.4, 2012/12/03 14:47:30
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 {
Line 291  sub display_editor { Line 294  sub display_editor {
             &Apache::lonnet::decode_symb($symb);              &Apache::lonnet::decode_symb($symb);
         $title = &Apache::lonnet::gettitle($symb);          $title = &Apache::lonnet::gettitle($symb);
         my $path = &Apache::lonnet::getdocspath($symb);          my $path = &Apache::lonnet::getdocspath($symb);
         if ($map =~ /\.page$/) {          $pathitem = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($path,'<>&"').'" />';
             $pathitem = '<input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($path,'<>&"').'" />';  
         } else {  
             $pathitem = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($path,'<>&"').'" />';  
         }  
     }      }
     my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());      my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());
     my $args = { 'force_register' => $env{'form.register'} };      my $args = { 'force_register' => $env{'form.register'} };
Removed from v.1.2  
changed lines
  Added in v.1.4

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