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

Diff for /loncom/interface/lonpopulate.pm between versions 1.36 and 1.37

version 1.36, 2006/02/07 22:15:56 version 1.37, 2006/02/08 23:47:23
Line 866  your changes.</td> Line 866  your changes.</td>
                   <table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"2\">                    <table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"2\">
                    <tr>                     <tr>
                     <td align=\"left\"><b>$$tasktitleref{$action}</b><br/>                      <td align=\"left\"><b>$$tasktitleref{$action}</b><br/>
                        Currently: Student photo import:  <i>$photosets[$enrollvar{showphotos}]</i>                         Currently: Student photo import:  <i>$photosets[$enrollvar{showphoto}]</i>
                     </td>                      </td>
                    </tr>                     </tr>
                   </table>                    </table>
Line 876  your changes.</td> Line 876  your changes.</td>
                          Automatic import of student photos from institutional data repository:&nbsp;&nbsp;                           Automatic import of student photos from institutional data repository:&nbsp;&nbsp;
   
       ");        ");
       if ($enrollvar{showphotos}) {        if ($enrollvar{showphoto}) {
           $r->print("            $r->print("
                         <input type=\"radio\" name=\"showphotos\" value=\"1\" checked=\"true\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;                          <input type=\"radio\" name=\"showphotos\" value=\"1\" checked=\"true\" />&nbsp;Yes&nbsp;&nbsp;&nbsp;
                         <input type=\"radio\" name=\"showphotos\" value=\"0\" />&nbsp;No                          <input type=\"radio\" name=\"showphotos\" value=\"0\" />&nbsp;No
Line 1021  Note: Any students previously added manu Line 1021  Note: Any students previously added manu
                      <td align=\"left\"><b>$$tasktitleref{$action}</b>                       <td align=\"left\"><b>$$tasktitleref{$action}</b>
                      </td>                       </td>
                     </tr><tr><td>");                      </tr><tr><td>");
       if ($enrollvar{'showphotos'}) {        if ($enrollvar{'showphoto'}) {
           my ($update,$commentary) = &Apache::lonnet::auto_photochoice($crs,            my ($update,$commentary) = &Apache::lonnet::auto_photochoice($crs,
        $dom);         $dom);
           $r->print('<br />'.$commentary.'<br /><br />            $r->print('<br />'.$commentary.'<br /><br />
Line 2114  sub photo_permission { Line 2114  sub photo_permission {
     my %settings = &Apache::lonnet::get('environment',      my %settings = &Apache::lonnet::get('environment',
  ['internal.courseowner',   ['internal.courseowner',
  'internal.photopermission',   'internal.photopermission',
  'internal.showphotos'],   'internal.showphoto'],
  $dom,$crs);   $dom,$crs);
     my ($showphotos,$response);      my ($showphotos,$response);
     if (exists($env{'form.cancel_agreement'})) {      if (exists($env{'form.cancel_agreement'})) {
Line 2248  sub print_photos_response { Line 2248  sub print_photos_response {
             }              }
         }          }
     }      }
     my %settings = &Apache::lonnet::get('environment',['internal.showphotos'],      my %settings = &Apache::lonnet::get('environment',['internal.showphoto'],
  $dom,$crs);   $dom,$crs);
     my $currphotos = $settings{'internal.showphotos'};      my $currphotos = $settings{'internal.showphoto'};
     my $response = "";      my $response = "";
     if (defined($photopermission)) {      if (defined($photopermission)) {
         if ($photopermission eq 'yes') {          if ($photopermission eq 'yes') {
Line 2260  sub print_photos_response { Line 2260  sub print_photos_response {
             $showphotos = 0;              $showphotos = 0;
         }          }
     }      }
     my %cenv = ('internal.showphotos' => $showphotos);      my %cenv = ('internal.showphoto' => $showphotos);
     my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs);      my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs);
     if ($reply !~ /^ok$/) {      if ($reply !~ /^ok$/) {
  $response .= "There was a problem processing your requested change. The student photo retrieval setting for this course has been left unchanged.<br/>";   $response .= "There was a problem processing your requested change. The student photo retrieval setting for this course has been left unchanged.<br/>";
Line 2392  sub print_update_result () { Line 2392  sub print_update_result () {
     my $logmsg = '';      my $logmsg = '';
     my $newusermsg = '';      my $newusermsg = '';
     my %phototypes = ();      my %phototypes = ();
     my %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.sectionnums','internal.crosslistings','internal.authtype','internal.autharg','internal.showphotos'],$dom,$crs);      my %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.sectionnums','internal.crosslistings','internal.authtype','internal.autharg','internal.showphoto'],$dom,$crs);
     my $coursecode = $settings{'internal.coursecode'};      my $coursecode = $settings{'internal.coursecode'};
     my $authtype = $settings{'internal.authtype'};      my $authtype = $settings{'internal.authtype'};
     my $autharg = $settings{'internal.autharg'};      my $autharg = $settings{'internal.autharg'};
     my $showphotos = $settings{'internal.showphotos'};      my $showphotos = $settings{'internal.showphoto'};
     my ($startaccess,$endaccess) = &get_dates_from_form();      my ($startaccess,$endaccess) = &get_dates_from_form();
     if ( exists($env{'form.updateadds'}) ) {      if ( exists($env{'form.updateadds'}) ) {
         $updateadds = $env{'form.updateadds'};          $updateadds = $env{'form.updateadds'};
Removed from v.1.36  
changed lines
  Added in v.1.37

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