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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.124 and 1.125

version 1.124, 2013/05/15 17:31:52 version 1.125, 2013/05/15 17:47:57
Line 71  sub handler { Line 71  sub handler {
     }      }
 # ------------------------------------- There is such a course, get environment  # ------------------------------------- There is such a course, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
       my $crstype = &Apache::loncommon::course_type();
   
 # ------------------------------------------------------------ Print the screen  # ------------------------------------------------------------ Print the screen
   
Line 117  sub handler { Line 118  sub handler {
         }          }
         unless ($allowed && $forceedit) {          unless ($allowed && $forceedit) {
             my $file=&Apache::lonnet::filelocation("",$item);              my $file=&Apache::lonnet::filelocation("",$item);
             if ($file =~ /\.(sty|css|js|txt|tex|html?)$/) {                if ($file =~ /\.(tex|x?html?)$/) {  
                 my $filetype;                  my $filetype = $1;
                 if ($file =~ /\.(sty|css|js|txt|tex)$/) {  
                     $filetype=$1;  
                 } else {  
                     $filetype='html';  
                 }  
                 my $result = '';  
                 my $filecontents=&Apache::lonnet::getfile($file);                  my $filecontents=&Apache::lonnet::getfile($file);
                 if ($filecontents eq -1) {                  if ($filecontents eq -1) {
                     $r->print(&mt('Syllabus file unavailable'));                      $r->print(&mt('Syllabus file unavailable'));
                 } elsif ($filetype eq 'html') {                  } elsif ($filetype eq 'tex') {
                       my $result = &Apache::lontexconvert::converted(\$filecontents,
                                                                   $env{'form.texengine'});
                       my %args;
                       &get_breadcrumbs($cdom,$cnum,$crstype,\%args);
                       $r->print(&Apache::loncommon::start_page("Syllabus",undef,\%args).
                                 $result.
                                 &Apache::loncommon::end_page());
                   } else {
                     my %mystyle;                      my %mystyle;
                     &Apache::structuretags::reset_problem_globals();                      &Apache::structuretags::reset_problem_globals();
                     my $oldfile = $env{'request.filename'};                      my $oldfile = $env{'request.filename'};
                     $env{'request.filename'} = $item;                      $env{'request.filename'} = $item;
                     $result = &Apache::lonxml::xmlparse($r,'web',$filecontents,                      my $result = &Apache::lonxml::xmlparse($r,'web',$filecontents,
                                                         '',%mystyle);                                                             '',%mystyle);
                     &Apache::structuretags::reset_problem_globals();                      &Apache::structuretags::reset_problem_globals();
                     &Apache::lonhomework::finished_parsing();                      &Apache::lonhomework::finished_parsing();
                     $env{'request.filename'} = $oldfile;                      $env{'request.filename'} = $oldfile;
Line 153  sub handler { Line 156  sub handler {
         }          }
     }      }
   
     my $crstype = &Apache::loncommon::course_type();  
   
 # ------------------------------ The buck stops here: internal syllabus display  # ------------------------------ The buck stops here: internal syllabus display
 # --------------------------------------------------------- The syllabus fields  # --------------------------------------------------------- The syllabus fields
Line 664  ENDSCRIPT Line 666  ENDSCRIPT
               {href=>$r->uri,                {href=>$r->uri,
                text=>"Course syllabus"});                 text=>"Course syllabus"});
         $args->{'bread_crumbs'} = $brcrum;          $args->{'bread_crumbs'} = $brcrum;
     } elsif ($env{'form.folderpath'} =~ /^supplemental/) {      } else {
           &get_breadcrumbs($cdom,$cnum,$crstype,$args);
       }
       if ($allowed) {
           my %loaditem = (
                            onload => 'setTemplateBoxes();',
                          );
           $args->{'add_entries'} = \%loaditem;
       }
       my $start_page =
           &Apache::loncommon::start_page("Syllabus", $rss_link.$js,$args);
       if ($start_page) {
           $r->print($start_page);
       }
   }
   
   sub get_breadcrumbs{
       my ($cdom,$cnum,$crstype,$args) = @_;
       return unless (ref($args) eq 'HASH');
       if ($env{'form.folderpath'} =~ /^supplemental/) {
         my $title = $env{'form.title'};          my $title = $env{'form.title'};
         if ($title eq '') {          if ($title eq '') {
             $title = &mt('Syllabus');              $title = &mt('Syllabus');
Line 685  ENDSCRIPT Line 706  ENDSCRIPT
                                       ];                                        ];
         }          }
     }      }
     if ($allowed) {      return;
         my %loaditem = (  
                          onload => 'setTemplateBoxes();',  
                        );  
         $args->{'add_entries'} = \%loaditem;  
     }  
     my $start_page =  
         &Apache::loncommon::start_page("Syllabus", $rss_link.$js,$args);  
     if ($start_page) {  
         $r->print($start_page);  
     }  
 }  }
   
 sub chooser {  sub chooser {
Line 817  sub syllabus_file_info { Line 828  sub syllabus_file_info {
     my $absurl = $protocol.'://'.&Apache::lonnet::hostname($lonhost).$item;      my $absurl = $protocol.'://'.&Apache::lonnet::hostname($lonhost).$item;
     my ($filename) = ($item =~ m{([^/]+)$});      my ($filename) = ($item =~ m{([^/]+)$});
     my $file=&Apache::lonnet::filelocation("",$item);      my $file=&Apache::lonnet::filelocation("",$item);
     my $depbutton;      my ($depbutton,$filetype,$editable);
     if ($file =~ /\.html?$/) {      if ($file =~ /\.(xhtml|xml|tex|html|htm)$/) {
           $filetype=$1;
       }
       if ($filetype) {
           unless ($filetype eq 'tex') {
               $filetype='html';
           }
       }
       if ($filetype eq 'html') {
         my $filecontents=&Apache::lonnet::getfile($file);          my $filecontents=&Apache::lonnet::getfile($file);
         unless ($filecontents eq -1) {          unless ($filecontents eq -1) {
             my $mm = new File::MMagic;              my $mm = new File::MMagic;
Line 833  sub syllabus_file_info { Line 852  sub syllabus_file_info {
                                                                  \%codebase,                                                                   \%codebase,
                                                                  {'context' => 'rewrites',                                                                   {'context' => 'rewrites',
                                                                   'ignore_remote_references' => 1,});                                                                    'ignore_remote_references' => 1,});
                 $depbutton = (' ' x 3).                  $editable = 1;
                              &editfile_button($item,$context).  
                              &editbutton_js();  
             }              }
         }          }
     }      }
       $depbutton = (' ' x 3).
                    &editfile_button($item,$context,$editable).
                    &editbutton_js();
     return ($absurl,$filename,$depbutton);      return ($absurl,$filename,$depbutton);
 }  }
   
Line 1232  END Line 1252  END
   
 sub update_syllabus_env {  sub update_syllabus_env {
     my ($cdom,$cnum,$courseenv,$saved,$uploaded,$minimal,$external) = @_;      my ($cdom,$cnum,$courseenv,$saved,$uploaded,$minimal,$external) = @_;
     return unless(ref($courseenv) eq 'HASH');      return ($uploaded,$minimal,$external) unless(ref($courseenv) eq 'HASH');
     my $now = time;      my $now = time;
     my (@envkeys,%storehash);      my (@envkeys,%storehash);
     if ($saved eq 'template') {      if ($saved eq 'template') {
Line 1307  sub home_http_host { Line 1327  sub home_http_host {
     if ($home ne 'no_host') {      if ($home ne 'no_host') {
         my $protocol = $Apache::lonnet::protocol{$home};          my $protocol = $Apache::lonnet::protocol{$home};
         $protocol = 'http' if ($protocol ne 'https');          $protocol = 'http' if ($protocol ne 'https');
         return $protocol.'//'.$home;          return $protocol.'://'.$home;
     }      }
     return;      return;
 }  }
Line 1397  sub return_to_editor { Line 1417  sub return_to_editor {
 }  }
   
 sub editfile_button {  sub editfile_button {
     my ($url,$context) = @_;      my ($url,$context,$editable) = @_;
     my $edittext=&mt('Edit');      my $edittext=&mt('Edit');
     my $deltext=&mt('Delete');      my $deltext=&mt('Delete');
     return <<"END";      my $output;
                 <input type="button" value="$edittext" onclick="javascript:gotoeditor('$url');" name="edit_$context" />      if ($editable) {
                 &nbsp;&nbsp;&nbsp;          $output = '
                 <input type="button" value="$deltext" onclick="javascript:dodelete('$context');" name="del_$context" />                  <input type="button" value="'.$edittext.'" onclick="javascript:gotoeditor('."'$url'".');" name="edit_'.$context.'" />
                   &nbsp;&nbsp;&nbsp;';
       }
       $output .= '
                   <input type="button" value="'.$deltext.'" onclick="javascript:dodelete('."'$context'".');" name="del_'.$context.'" />
                 <input type="hidden" value="" name="deleteuploaded" />                  <input type="hidden" value="" name="deleteuploaded" />
 END      ';
       return $output;
 }  }
   
 sub editbutton_js {  sub editbutton_js {
Removed from v.1.124  
changed lines
  Added in v.1.125

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