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

Diff for /loncom/xml/lonxml.pm between versions 1.196 and 1.200

version 1.196, 2002/09/13 20:46:09 version 1.200, 2002/10/11 20:09:36
Line 99  use Apache::edit(); Line 99  use Apache::edit();
 use Apache::lonnet();  use Apache::lonnet();
 use Apache::File();  use Apache::File();
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonfeedback();
   use Apache::lonmsg();
   
 #==================================================   Main subroutine: xmlparse    #==================================================   Main subroutine: xmlparse  
 #debugging control, to turn on debugging modify the correct handler  #debugging control, to turn on debugging modify the correct handler
Line 232  sub xmlend { Line 234  sub xmlend {
           }            }
           if ($discussiononly) {            if ($discussiononly) {
       $discussion.=(<<ENDDISCUSS);        $discussion.=(<<ENDDISCUSS);
 <form action="/adm/feedback" method="post">  <form action="/adm/feedback" method="post" name="mailform">
 <input type="submit" name="discuss" value="Post Discussion" />  <input type="submit" name="discuss" value="Post Discussion" />
 <input type="submit" name="anondiscuss" value="Post Anonymous Discussion" />  <input type="submit" name="anondiscuss" value="Post Anonymous Discussion" />
 <input type="hidden" name="symb" value="$symb" />  <input type="hidden" name="symb" value="$symb" />
Line 243  course faculty</font><br /> Line 245  course faculty</font><br />
 <textarea name=comment cols=60 rows=10 wrap=hard></textarea>  <textarea name=comment cols=60 rows=10 wrap=hard></textarea>
 </form>  </form>
 ENDDISCUSS  ENDDISCUSS
                $discussion.=&Apache::lonfeedback::generate_preview_button();
           }            }
        }         }
     }      }
Line 363  sub registerurl { Line 366  sub registerurl {
     my $forcereg=shift;      my $forcereg=shift;
     my $target = shift;      my $target = shift;
     my $result = '';      my $result = '';
       
     if ($target eq 'edit') {      if ($target eq 'edit') {
         $result .="<script>\n".          $result .="<script>\n".
             "if (typeof menu != 'undefined') {menu.currentURL=null;}\n".              "if (typeof menu != 'undefined') {menu.currentURL=null;}\n".
Line 379  sub registerurl { Line 383  sub registerurl {
     $Apache::lonxml::registered=1;      $Apache::lonxml::registered=1;
     my $nothing='';      my $nothing='';
     if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }      if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }
       my $newmail='';
       if (&Apache::lonmsg::newmail()) { 
          $newmail='menu.setstatus("you have","got mail");';
       }
     my $timesync='menu.syncclock(1000*'.time.');';      my $timesync='menu.syncclock(1000*'.time.');';
     if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {      if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
         my $hwkadd='';          my $hwkadd='';
Line 408  ENDPARM Line 416  ENDPARM
   menu=window.open("$nothing","LONCAPAmenu","",false);    menu=window.open("$nothing","LONCAPAmenu","",false);
           menu.clearTimeout(menu.menucltim);            menu.clearTimeout(menu.menucltim);
           $timesync            $timesync
             $newmail
   menu.currentURL=window.location.pathname;    menu.currentURL=window.location.pathname;
           menu.reloadURL=window.location.pathname;            menu.reloadURL=window.location.pathname;
           menu.currentStale=0;            menu.currentStale=0;
Line 575  sub latex_special_symbols { Line 584  sub latex_special_symbols {
     $current_token=~s/\\/\\char92 /g;      $current_token=~s/\\/\\char92 /g;
     $current_token=~s/\^/\\char94 /g;      $current_token=~s/\^/\\char94 /g;
     $current_token=~s/\~/\\char126 /g;      $current_token=~s/\~/\\char126 /g;
     $current_token=~s/(&[^a-z#])/\\$1/g;      $current_token=~s/(&[^a-z\#])/\\$1/g;
     $current_token=~s/([^&]\#)/\\$1/g;      if ($current_token=~/ \#\w/) {
    $current_token=~s/ \#(\w)/ \\#$1/;
       } else {
    $current_token=~s/([^&])(\#)/$1\\$2/g;
       }
     $current_token=~s/(\$|_|{|})/\\$1/g;      $current_token=~s/(\$|_|{|})/\\$1/g;
     $current_token=~s/\\char92 /\\texttt{\\char92}/g;      $current_token=~s/\\char92 /\\texttt{\\char92}/g;
     $current_token=~s/>/\$>\$/g; #more      $current_token=~s/>/\$>\$/g; #more
Removed from v.1.196  
changed lines
  Added in v.1.200

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