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

Diff for /loncom/interface/loncommon.pm between versions 1.590 and 1.595

version 1.590, 2007/09/27 15:36:23 version 1.595, 2007/10/26 00:22:36
Line 407  sub coursebrowser_javascript { Line 407  sub coursebrowser_javascript {
                             '&cdomelement='+udom+                              '&cdomelement='+udom+
                                     '&cnameelement='+desc;                                      '&cnameelement='+desc;
         if (extra_element !=null && extra_element != '') {          if (extra_element !=null && extra_element != '') {
             if (formname == 'rolechoice') {              if (formname == 'rolechoice' || formname == 'studentform') {
                 url += '&roleelement='+extra_element;                  url += '&roleelement='+extra_element;
                 if (domainfilter == null || domainfilter == '') {                  if (domainfilter == null || domainfilter == '') {
                     url += '&domainfilter='+extra_element;                      url += '&domainfilter='+extra_element;
Line 1593  input: 4 arguments (two required, two op Line 1593  input: 4 arguments (two required, two op
                             option, and selected by default.                               option, and selected by default. 
     $hide - Value of 'hide' causes hiding of the name of the server,       $hide - Value of 'hide' causes hiding of the name of the server, 
                             if 1 server found, or default, if 0 found.                              if 1 server found, or default, if 0 found.
 output: returns 1 items:   output: returns 2 items: 
 (a) form element which contains either:  (a) form element which contains either:
    (i) <select name="$name">     (i) <select name="$name">
         <option value="$hostid1">$hostid $servers{$hostid}</option>          <option value="$hostid1">$hostid $servers{$hostid}</option>
Line 1798  END Line 1798  END
     }      }
   
     my $radioval = "'nochange'";      my $radioval = "'nochange'";
     if (exists($in{'curr_authtype'}) &&      if (defined($in{'curr_authtype'})) {
         defined($in{'curr_authtype'}) &&          if ($in{'curr_authtype'} ne '') {
         $in{'curr_authtype'} ne '') {              $radioval = "'".$in{'curr_authtype'}."arg'";
         $radioval = "'$in{'curr_authtype'}arg'";          }
     }      }
     my $argfield = 'null';      my $argfield = 'null';
     if ( grep/^mode$/,(keys %in) ) {      if (defined($in{'mode'})) {
         if ($in{'mode'} eq 'modifycourse')  {          if ($in{'mode'} eq 'modifycourse')  {
             if ( grep/^curr_authtype$/,(keys %in) ) {              if (defined($in{'curr_autharg'})) {
                 $radioval = "'$in{'curr_authtype'}'";                  if ($in{'curr_autharg'} ne '') {
             }  
             if ( grep/^curr_autharg$/,(keys %in) ) {  
                 unless ($in{'curr_autharg'} eq '') {  
                     $argfield = "'$in{'curr_autharg'}'";                      $argfield = "'$in{'curr_autharg'}'";
                 }                  }
             }              }
Line 1907  sub authform_nochange{ Line 1904  sub authform_nochange{
     return $result;      return $result;
 }  }
   
 sub authform_kerberos{    sub authform_kerberos {
     my %in = (      my %in = (
               formname => 'document.cu',                formname => 'document.cu',
               kerb_def_dom => 'MSU.EDU',                kerb_def_dom => 'MSU.EDU',
Line 1923  sub authform_kerberos{ Line 1920  sub authform_kerberos{
        $check4 = ' checked="on"';         $check4 = ' checked="on"';
     }      }
     $krbarg = $in{'kerb_def_dom'};      $krbarg = $in{'kerb_def_dom'};
     if (grep(/^curr_authtype$/,(keys(%in)))) {      if (defined($in{'curr_authtype'})) {
         if ($in{'curr_authtype'} =~ m/^krb(\d+)$/) {          if ($in{'curr_authtype'} eq 'krb') {
             $krbver = $1;  
             $krbcheck = ' checked="on"';              $krbcheck = ' checked="on"';
             if ($krbver eq '5') {              if (defined($in{'curr_kerb_ver'})) {
                 $check5 = ' checked="on"';                  if ($in{'curr_krb_ver'} eq '5') {
                 $check4 = '';                      $check5 = ' checked="on"';
             } else {                      $check4 = '';
                 $check4 = ' checked="on"';                  } else {
                 $check5 = '';                      $check4 = ' checked="on"';
                       $check5 = '';
                   }
             }              }
             if (grep(/^curr_autharg$/,(keys(%in)))) {              if (defined($in{'curr_autharg'})) {
                 $krbarg = $in{'curr_autharg'};                  $krbarg = $in{'curr_autharg'};
             }              }
             if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {              if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {
                 if (grep(/^curr_autharg$/,(keys(%in)))) {                  if (defined($in{'curr_autharg'})) {
                     $result =                       $result = 
     &mt('Currently Kerberos authenticated with domain [_1] Version [_2].',      &mt('Currently Kerberos authenticated with domain [_1] Version [_2].',
         $in{'curr_autharg'},$krbver);          $in{'curr_autharg'},$krbver);
Line 1957  sub authform_kerberos{ Line 1955  sub authform_kerberos{
     if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {      if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {
         return;          return;
     } elsif ($authtype eq '') {      } elsif ($authtype eq '') {
         if (grep(/^mode$/,(keys(%in)))) {          if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {              if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {                  if ($authnum == 1) {
                     $authtype = '<input type="hidden" name="login" value="krb">';                      $authtype = '<input type="hidden" name="login" value="krb">';
Line 2018  sub authform_internal{ Line 2016  sub authform_internal{
                 );                  );
     my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall);      my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall);
     my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});      my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});
     if (grep(/^curr_authtype$/,(keys(%in)))) {      if (defined($in{'curr_authtype'})) {
         if ($in{'curr_authtype'} eq 'internal:') {          if ($in{'curr_authtype'} eq 'int') {
             if ($can_assign{'int'}) {              if ($can_assign{'int'}) {
                 $intcheck = 'checked="on" ';                  $intcheck = 'checked="on" ';
                 if (grep(/^curr_autharg$/,(keys(%in)))) {                  if (defined($in{'curr_autharg'})) {
                     $intarg = $in{'curr_autharg'};                      $intarg = $in{'curr_autharg'};
                 }                  }
             } else {              } else {
Line 2038  sub authform_internal{ Line 2036  sub authform_internal{
     if (!$can_assign{'int'}) {      if (!$can_assign{'int'}) {
         return;          return;
     } elsif ($authtype eq '') {      } elsif ($authtype eq '') {
         if (grep(/^mode$/,(keys(%in)))) {          if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {              if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {                  if ($authnum == 1) {
                     $authtype = '<input type="hidden" name="login" value="int">';                      $authtype = '<input type="hidden" name="login" value="int">';
Line 2067  sub authform_local{ Line 2065  sub authform_local{
               );                );
     my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall);      my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall);
     my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});      my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});
     if (grep(/^curr_authtype$/,(keys(%in)))) {      if (defined($in{'curr_authtype'})) {
         if ($in{'curr_authtype'} eq 'localauth:') {          if ($in{'curr_authtype'} eq 'loc') {
             if ($can_assign{'loc'}) {              if ($can_assign{'loc'}) {
                 $loccheck = 'checked="on" ';                  $loccheck = 'checked="on" ';
                 if (grep(/^curr_autharg$/,(keys(%in)))) {                  if (defined($in{'curr_autharg'})) {
                     $locarg = $in{'curr_autharg'};                      $locarg = $in{'curr_autharg'};
                 }                  }
             } else {              } else {
Line 2087  sub authform_local{ Line 2085  sub authform_local{
     if (!$can_assign{'loc'}) {      if (!$can_assign{'loc'}) {
         return;          return;
     } elsif ($authtype eq '') {      } elsif ($authtype eq '') {
         if (grep(/^mode$/,(keys(%in)))) {          if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {              if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {                  if ($authnum == 1) {
                     $authtype = '<input type="hidden" name="login" value="loc">';                      $authtype = '<input type="hidden" name="login" value="loc">';
Line 2116  sub authform_filesystem{ Line 2114  sub authform_filesystem{
               );                );
     my ($fsyscheck,$result,$authtype,$autharg,$jscall);      my ($fsyscheck,$result,$authtype,$autharg,$jscall);
     my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});      my ($authnum,%can_assign) =  &get_assignable_auth($in{'domain'});
     if (grep(/^curr_authtype$/,(keys(%in)))) {      if (defined($in{'curr_authtype'})) {
         if ($in{'curr_authtype'} eq 'unix:') {          if ($in{'curr_authtype'} eq 'fsys') {
             if ($can_assign{'fsys'}) {              if ($can_assign{'fsys'}) {
                 $fsyscheck = 'checked="on" ';                  $fsyscheck = 'checked="on" ';
             } else {              } else {
Line 2133  sub authform_filesystem{ Line 2131  sub authform_filesystem{
     if (!$can_assign{'fsys'}) {      if (!$can_assign{'fsys'}) {
         return;          return;
     } elsif ($authtype eq '') {      } elsif ($authtype eq '') {
         if (grep(/^mode$/,(keys(%in)))) {          if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {              if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {                  if ($authnum == 1) {
                     $authtype = '<input type="hidden" name="login" value="fsys">';                      $authtype = '<input type="hidden" name="login" value="fsys">';
Line 3162  sub pprmlink { Line 3160  sub pprmlink {
     if (!$symb) { $symb=&Apache::lonnet::symbread(); }      if (!$symb) { $symb=&Apache::lonnet::symbread(); }
     $symb=&escape($symb);      $symb=&escape($symb);
     if ($target) { $target="target=\"$target\""; }      if ($target) { $target="target=\"$target\""; }
     return '<a href="/adm/parmset?&command=set&'.      return '<a href="/adm/parmset?command=set&amp;'.
  'symb='.$symb.'&uname='.$uname.   'symb='.$symb.'&amp;uname='.$uname.
  '&udom='.$udom.'" '.$target.'>'.$text.'</a>';   '&amp;udom='.$udom.'" '.$target.'>'.$text.'</a>';
 }  }
 ##############################################  ##############################################
   
Line 4131  table.thinborder tr td { Line 4129  table.thinborder tr td {
   
 form, .inline { display: inline; }  form, .inline { display: inline; }
 .center { text-align: center; }  .center { text-align: center; }
 .LC_filename {font-family: $mono;}  .LC_filename {font-family: $mono; white-space:pre;}
 .LC_error {  .LC_error {
   color: red;    color: red;
   font-size: larger;    font-size: larger;
Line 4981  table.LC_double_column tr td.LC_right_co Line 4979  table.LC_double_column tr td.LC_right_co
   vertical-align: top;    vertical-align: top;
 }  }
   
   span.LC_role_level {
     font-weight: bold;
   }
   
   div.LC_left_float {
     float: left;
     padding-right: 5%;
     padding:bottom: 4px;
   }
   
   div.LC_clear_float_header {
     padding:bottom: 2px;
   }
   
   div.LC_clear_float_footer {
     padding:top: 10px;
     clear: both;
   }
   
 END  END
 }  }
   
Line 5097  Inputs: none Line 5114  Inputs: none
 sub xml_begin {  sub xml_begin {
     my $output='';      my $output='';
   
     &Apache::lonhtmlcommon::init_htmlareafields();      if ($env{'internal.start_page'}==1) {
    &Apache::lonhtmlcommon::init_htmlareafields();
       }
   
     if ($env{'browser.mathml'}) {      if ($env{'browser.mathml'}) {
  $output='<?xml version="1.0"?>'   $output='<?xml version="1.0"?>'
Line 6659  sub csv_print_samples { Line 6678  sub csv_print_samples {
     my ($r,$records) = @_;      my ($r,$records) = @_;
     my $samples = &get_samples($records,3);      my $samples = &get_samples($records,3);
   
     $r->print(&mt('Samples').'<br /><table border="2"><tr>');      $r->print(&mt('Samples').'<br />'.&start_data_table().
                 &start_data_table_header_row());
     foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {       foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { 
         $r->print('<th>'.&mt('Column&nbsp;[_1]',($sample+1)).'</th>'); }          $r->print('<th>'.&mt('Column&nbsp;[_1]',($sample+1)).'</th>'); }
     $r->print('</tr>');      $r->print(&end_data_table_header_row());
     foreach my $hash (@$samples) {      foreach my $hash (@$samples) {
  $r->print('<tr>');   $r->print(&start_data_table_row());
  foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {   foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {
     $r->print('<td>');      $r->print('<td>');
     if (defined($$hash{$sample})) { $r->print($$hash{$sample}); }      if (defined($$hash{$sample})) { $r->print($$hash{$sample}); }
     $r->print('</td>');      $r->print('</td>');
  }   }
  $r->print('</tr>');   $r->print(&end_data_table_row());
     }      }
     $r->print('</tr></table><br />'."\n");      $r->print(&end_data_table().'<br />'."\n");
 }  }
   
 ######################################################  ######################################################
Line 6697  sub csv_print_select_table { Line 6717  sub csv_print_select_table {
     my $i=0;      my $i=0;
     my $samples = &get_samples($records,1);      my $samples = &get_samples($records,1);
     $r->print(&mt('Associate columns with student attributes.')."\n".      $r->print(&mt('Associate columns with student attributes.')."\n".
      '<table border="2"><tr>'.        &start_data_table().&start_data_table_header_row().
               '<th>'.&mt('Attribute').'</th>'.                '<th>'.&mt('Attribute').'</th>'.
               '<th>'.&mt('Column').'</th></tr>'."\n");                '<th>'.&mt('Column').'</th>'.
                 &end_data_table_header_row()."\n");
     foreach my $array_ref (@$d) {      foreach my $array_ref (@$d) {
  my ($value,$display,$defaultcol)=@{ $array_ref };   my ($value,$display,$defaultcol)=@{ $array_ref };
  $r->print('<tr><td>'.$display.'</td>');   $r->print(&start_data_table_row().'<tr><td>'.$display.'</td>');
   
  $r->print('<td><select name=f'.$i.   $r->print('<td><select name=f'.$i.
   ' onchange="javascript:flip(this.form,'.$i.');">');    ' onchange="javascript:flip(this.form,'.$i.');">');
Line 6712  sub csv_print_select_table { Line 6733  sub csv_print_select_table {
                       ($sample eq $defaultcol ? ' selected="selected" ' : '').                        ($sample eq $defaultcol ? ' selected="selected" ' : '').
                       '>Column '.($sample+1).'</option>');                        '>Column '.($sample+1).'</option>');
  }   }
  $r->print('</select></td></tr>'."\n");   $r->print('</select></td>'.&end_data_table_row()."\n");
  $i++;   $i++;
     }      }
       $r->print(&end_data_table());
     $i--;      $i--;
     return $i;      return $i;
 }  }
Line 6741  sub csv_samples_select_table { Line 6763  sub csv_samples_select_table {
     my $i=0;      my $i=0;
     #      #
     my $samples = &get_samples($records,3);      my $samples = &get_samples($records,3);
     $r->print('<table border=2><tr><th>'.      $r->print(&start_data_table().
               &mt('Field').'</th><th>'.&mt('Samples').'</th></tr>');                &start_data_table_header_row().'<th>'.
                 &mt('Field').'</th><th>'.&mt('Samples').'</th>'.
                 &end_data_table_header_row());
   
     foreach my $key (sort(keys(%{ $samples->[0] }))) {      foreach my $key (sort(keys(%{ $samples->[0] }))) {
  $r->print('<tr><td><select name="f'.$i.'"'.   $r->print(&start_data_table_row().'<td><select name="f'.$i.'"'.
   ' onchange="javascript:flip(this.form,'.$i.');">');    ' onchange="javascript:flip(this.form,'.$i.');">');
  foreach my $option (@$d) {   foreach my $option (@$d) {
     my ($value,$display,$defaultcol)=@{ $option };      my ($value,$display,$defaultcol)=@{ $option };
Line 6759  sub csv_samples_select_table { Line 6783  sub csv_samples_select_table {
  $r->print($samples->[$line]{$key}."<br />\n");    $r->print($samples->[$line]{$key}."<br />\n"); 
     }      }
  }   }
  $r->print('</td></tr>');   $r->print('</td>'.&end_data_table_row());
  $i++;   $i++;
     }      }
       $r->print(&end_data_table());
     $i--;      $i--;
     return($i);      return($i);
 }  }
Removed from v.1.590  
changed lines
  Added in v.1.595

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