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

Diff for /loncom/publisher/lonpublisher.pm between versions 1.249.2.1 and 1.253

version 1.249.2.1, 2009/11/24 00:57:11 version 1.253, 2009/03/18 13:46:20
Line 1282  END Line 1282  END
         $keywordout.='<label><input type="checkbox" name="keywords" value="'.$word.'"';          $keywordout.='<label><input type="checkbox" name="keywords" value="'.$word.'"';
         if ($metadatafields{'keywords'}) {          if ($metadatafields{'keywords'}) {
             if ($metadatafields{'keywords'}=~/\Q$word\E/) {              if ($metadatafields{'keywords'}=~/\Q$word\E/) {
                 $keywordout.=' checked="on"';                  $keywordout.=' checked="checked"';
                 $env{'form.keywords'}.=$word.',';                  $env{'form.keywords'}.=$word.',';
             }              }
         } elsif (&Apache::loncommon::keyword($word)) {          } elsif (&Apache::loncommon::keyword($word)) {
             $keywordout.=' checked="on"';              $keywordout.=' checked="checked"';
             $env{'form.keywords'}.=$word.',';              $env{'form.keywords'}.=$word.',';
         }          }
         $keywordout.=' />'.$word.'</label></td>';          $keywordout.=' />'.$word.'</label></td>';
Line 1878  sub publishdirectory { Line 1878  sub publishdirectory {
   &checkbox('pubrec','include subdirectories').    &checkbox('pubrec','include subdirectories').
   &checkbox('forcerepub','force republication of previously published files').    &checkbox('forcerepub','force republication of previously published files').
                   &checkbox('obsolete','make file(s) obsolete').                    &checkbox('obsolete','make file(s) obsolete').
   &checkbox('forceoverride','force directory level catalog information over existing').    &checkbox('forceoverride','force directory level metadata over existing').
   '<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>');    '<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>');
         $lock=0;          $lock=0;
     } else {      } else {
Line 1949  sub defaultmetapublish { Line 1949  sub defaultmetapublish {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
   
     $r->print(&Apache::loncommon::start_page('Catalog Information Publication'));      $r->print(&Apache::loncommon::start_page('Metadata Publication'));
   
 # ---------------------------------------------------------------- Write Source  # ---------------------------------------------------------------- Write Source
     my $copyfile=$target;      my $copyfile=$target;
Line 1984  sub defaultmetapublish { Line 1984  sub defaultmetapublish {
 # ------------------------------------------------------------------- Link back  # ------------------------------------------------------------------- Link back
     my $link=$fn;      my $link=$fn;
     $link=~s/^\/home\/$cuname\/public_html\//\/priv\/$cuname\//;      $link=~s/^\/home\/$cuname\/public_html\//\/priv\/$cuname\//;
     $r->print("<a href='$link'>".&mt('Back to Catalog Information').'</a>');      $r->print("<a href='$link'>".&mt('Back to Metadata').'</a>');
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
Removed from v.1.249.2.1  
changed lines
  Added in v.1.253

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