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

Diff for /loncom/interface/slotrequest.pm between versions 1.30 and 1.33

version 1.30, 2005/11/14 23:21:55 version 1.33, 2005/11/21 18:55:41
Line 231  sub make_reservation { Line 231  sub make_reservation {
     return undef;      return undef;
 }  }
   
   sub remove_registration {
       my ($r) = @_;
       my $name = &Apache::loncommon::plainname($env{'form.uname'},
        $env{'form.udom'});
   
       my $title = &Apache::lonnet::gettitle($env{'form.symb'});
   
       my $hidden_input;
       foreach my $parm ('uname','udom','slotname','entry','symb') {
    $hidden_input .=
       '<input type="hidden" name="'.$parm.'" value="'
       .&HTML::Entities::encode($env{'form.'.$parm},'"<>&\'').'" />'."\n";
       }
       $r->print(<<"END_CONFIRM");
   <p> Remove $name from slot $env{'form.slotname'} for $title</p>
   <form action="/adm/slotrequest" method="POST">
       <input type="hidden" name="command" value="release" />
       $hidden_input
       <input type="submit" name="Yes" value="yes" />
   </form>
   <form action="/adm/slotrequest" method="POST">
       <input type="hidden" name="command" value="showslots" />
       <input type="submit" name="No" value="no" />
   </form>
   END_CONFIRM
   
   }
   
 sub release_slot {  sub release_slot {
     my ($r,$symb,$slot_name,$inhibit_return_link)=@_;      my ($r,$symb,$slot_name,$inhibit_return_link,$mgr)=@_;
   
     if ($slot_name eq '') { $slot_name=$env{'form.slotname'}; }      if ($slot_name eq '') { $slot_name=$env{'form.slotname'}; }
     my ($cnum,$cdom)=&get_course();      my ($cnum,$cdom)=&get_course();
   
       my ($uname,$udom) = ($env{'user.name'}, $env{'user.domain'});
       if ($mgr eq 'F' 
    && defined($env{'form.uname'}) && defined($env{'form.udom'})) {
    ($uname,$udom) = ($env{'form.uname'}, $env{'form.udom'});
       }
   
       if ($mgr eq 'F' 
    && defined($env{'form.symb'})) {
    $symb = $env{'form.symb'};
       }
   
     # get parameter string, check for existance, rebuild string with the slot      # get parameter string, check for existance, rebuild string with the slot
          
     my @slots = split(/:/,&Apache::lonnet::EXT("resource.0.availablestudent",      my @slots = split(/:/,&Apache::lonnet::EXT("resource.0.availablestudent",
        $symb,$env{'user.domain'},         $symb,$udom,$uname));
        $env{'user.name'}));  
     my @new_slots;      my @new_slots;
     foreach my $exist_slot (@slots) {      foreach my $exist_slot (@slots) {
  if ($exist_slot eq $slot_name) { next; }   if ($exist_slot eq $slot_name) { next; }
Line 253  sub release_slot { Line 291  sub release_slot {
     my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,      my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
        "^$slot_name\0");         "^$slot_name\0");
     foreach my $entry (keys(%consumed)) {      foreach my $entry (keys(%consumed)) {
  if ( $consumed{$entry}->{'name'} eq    if ( $consumed{$entry}->{'name'} eq ($uname.'@'.$udom) ) {
      ($env{'user.name'}.'@'.$env{'user.domain'}) ) {  
     &Apache::lonnet::del('slot_reservations',[$entry],      &Apache::lonnet::del('slot_reservations',[$entry],
  $cdom,$cnum);   $cdom,$cnum);
  }   }
     }      }
   
     # store new parameter string      # store new parameter string
     my $result=&Apache::lonparmset::storeparm_by_symb($symb,      my $result=&Apache::lonparmset::storeparm_by_symb($symb,
       '0_availablestudent',        '0_availablestudent',
       1, $new_param, 'string',        1, $new_param, 'string',
       $env{'user.name'},        $uname,$udom);
       $env{'user.domain'});  
     my %slot=&Apache::lonnet::get_slot($slot_name);      my %slot=&Apache::lonnet::get_slot($slot_name);
     my $description=&get_description($env{'form.slotname'},\%slot);      my $description=&get_description($env{'form.slotname'},\%slot);
     $r->print("<p>Released Reservation: $description</p>");      $r->print("<p>Released Reservation: $description</p>");
       if ($mgr eq 'F') {
    $r->print('<p><a href="/adm/slotrequest?command=showslots">'.
     &mt('Return to slot list').'</a></p>');
       }
     if (!$inhibit_return_link) {      if (!$inhibit_return_link) {
  $r->print('<p><a href="/adm/flip?postdata=return:">'.   $r->print('<p><a href="/adm/flip?postdata=return:">'.
   &mt('Return to last resource').'</a></p>');    &mt('Return to last resource').'</a></p>');
Line 493  sub to_show { Line 534  sub to_show {
     return 1;      return 1;
 }  }
   
   sub remove_link {
       my ($slotname,$entry,$uname,$udom,$symb) = @_;
   
       $slotname  = &Apache::lonnet::escape($slotname);
       $entry     = &Apache::lonnet::escape($entry);
       $uname     = &Apache::lonnet::escape($uname);
       $udom      = &Apache::lonnet::escape($udom);
       $symb      = &Apache::lonnet::escape($symb);
   
       my $remove= &mt('Remove');
   
       return <<"END_LINK";
    <a href="/adm/slotrequest?command=remove_registration&slotname=$slotname&entry=$entry&uname=$uname&udom=$udom&symb=$symb"
      >($remove)</a>
   END_LINK
   
   }
   
 sub show_table {  sub show_table {
     my ($r,$mgr)=@_;      my ($r,$mgr)=@_;
   
Line 611  sub show_table { Line 670  sub show_table {
  my $ids;   my $ids;
  foreach my $entry (sort(keys(%consumed))) {   foreach my $entry (sort(keys(%consumed))) {
     my (undef,$id)=split("\0",$entry);      my (undef,$id)=split("\0",$entry);
     $ids.= $id.'-> '.$consumed{$entry}->{'name'}.'<br />';      my ($uname,$udom) = split('@',$consumed{$entry}{'name'});
       my $name = &Apache::loncommon::plainname($uname,$udom);
       $ids.= '<nobr>'.$name.&remove_link($slot,$entry,$uname,$udom,
          $consumed{$entry}{'symb'})
    .'</nobr><br />';
  }   }
   
  my $start=($slots{$slot}->{'starttime'}?   my $start=($slots{$slot}->{'starttime'}?
    &Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'}):'');     &Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'}):'');
  my $end=($slots{$slot}->{'endtime'}?   my $end=($slots{$slot}->{'endtime'}?
Line 625  sub show_table { Line 689  sub show_table {
     $unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.      $unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.
  localtime($slots{$slot}{'uniqueperiod'}[1]);   localtime($slots{$slot}{'uniqueperiod'}[1]);
  }   }
   
  my $title;   my $title;
  if (exists($slots{$slot}{'symb'})) {   if (exists($slots{$slot}{'symb'})) {
     my (undef,undef,$res)=      my (undef,undef,$res)=
Line 633  sub show_table { Line 698  sub show_table {
     $title = &Apache::lonnet::gettitle($slots{$slot}{'symb'});      $title = &Apache::lonnet::gettitle($slots{$slot}{'symb'});
     $title='<a href="'.$res.'?symb='.$slots{$slot}{'symb'}.'">'.$title.'</a>';      $title='<a href="'.$res.'?symb='.$slots{$slot}{'symb'}.'">'.$title.'</a>';
  }   }
   
  my @proctors;   my @proctors;
  my $rowspan=1;   my $rowspan=1;
  my $colspan=1;   my $colspan=1;
Line 652  sub show_table { Line 718  sub show_table {
  }   }
  my $proctors=join(', ',@proctors);   my $proctors=join(', ',@proctors);
   
  my $edit=(<<EDITFORM);   my $edit=(<<EDITLINK);
 <form method="POST" action="/adm/helper/newslot.helper">  <a href="/adm/helper/newslot.helper?name=$slot">Edit</a>
   <input type="hidden" name="name" value="$slot" />  EDITLINK
   <input type="submit" name="Edit" value="Edit" />  
 </form>  
 EDITFORM  
     
         $r->print("<tr>\n<td rowspan=\"$rowspan\">$edit</td>\n");          $r->print("<tr>\n<td rowspan=\"$rowspan\">$edit</td>\n");
  if (exists($show{'name'})) {   if (exists($show{'name'})) {
     $colspan++;$r->print("<td>$slot</td>");      $colspan++;$r->print("<td>$slot</td>");
  }   }
  if (exists($show{'type'})) {  
     $colspan++;$r->print("<td>$slots{$slot}->{'type'}</td>\n");  
  }  
  if (exists($show{'description'})) {   if (exists($show{'description'})) {
     $colspan++;$r->print("<td>$description</td>\n");      $colspan++;$r->print("<td>$description</td>\n");
  }   }
    if (exists($show{'type'})) {
       $colspan++;$r->print("<td>$slots{$slot}->{'type'}</td>\n");
    }
  if (exists($show{'starttime'})) {   if (exists($show{'starttime'})) {
     $colspan++;$r->print("<td>$start</td>\n");      $colspan++;$r->print("<td>$start</td>\n");
  }   }
Line 887  sub csv_upload_assign { Line 950  sub csv_upload_assign {
     my $cname=$env{'course.'.$env{'request.course.id'}.'.num'};      my $cname=$env{'course.'.$env{'request.course.id'}.'.num'};
     my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
     my $countdone=0;      my $countdone=0;
       my @errors;
     foreach my $slot (@slotdata) {      foreach my $slot (@slotdata) {
  my %slot;   my %slot;
  my %entries=&Apache::loncommon::record_sep($slot);   my %entries=&Apache::loncommon::record_sep($slot);
  my $domain;   my $domain;
  my $name=$entries{$fields{'name'}};   my $name=$entries{$fields{'name'}};
    if ($name=~/^\s*$/) {
       push(@errors,"Did not create slot with no name");
       next;
    }
    if ($name=~/\s/) { 
       push(@errors,"$name not created -- Name must not contain spaces");
       next;
    }
    if ($name=~/\W/) { 
       push(@errors,"$name not created -- Name must contain only letters, numbers and _");
       next;
    }
  if ($entries{$fields{'type'}}) {   if ($entries{$fields{'type'}}) {
     $slot{'type'}=$entries{$fields{'type'}};      $slot{'type'}=$entries{$fields{'type'}};
  } else {   } else {
     $slot{'type'}='preassigned';      $slot{'type'}='preassigned';
  }   }
    if ($slot{'type'} ne 'preassigned' &&
       $slot{'type'} ne 'schedulable_student') {
       push(@errors,"$name not created -- invalid type ($slot{'type'}) must be either preassigned or schedulable_student");
       next;
    }
  if ($entries{$fields{'starttime'}}) {   if ($entries{$fields{'starttime'}}) {
     $slot{'starttime'}=&UnixDate($entries{$fields{'starttime'}},"%s");      $slot{'starttime'}=&UnixDate($entries{$fields{'starttime'}},"%s");
  }   }
Line 925  sub csv_upload_assign { Line 1006  sub csv_upload_assign {
  $r->rflush();   $r->rflush();
  $countdone++;   $countdone++;
     }      }
     $r->print("<br />Created $countdone slots\n");      $r->print("<p>Created $countdone slots\n</p>");
     $r->print("<br />\n");      foreach my $error (@errors) {
    $r->print("<p>$error\n</p>");
       }
     &show_table($r,$mgr);      &show_table($r,$mgr);
     return '';      return '';
 }  }
Line 953  sub handler { Line 1036  sub handler {
   
     if ($env{'form.command'} eq 'showslots' && $vgr eq 'F') {      if ($env{'form.command'} eq 'showslots' && $vgr eq 'F') {
  &show_table($r,$mgr);   &show_table($r,$mgr);
       } elsif ($env{'form.command'} eq 'remove_registration' && $mgr eq 'F') {
    &remove_registration($r);
       } elsif ($env{'form.command'} eq 'release' && $mgr eq 'F') {
    &release_slot($r,undef,undef,undef,$mgr);
     } elsif ($env{'form.command'} eq 'uploadstart' && $mgr eq 'F') {      } elsif ($env{'form.command'} eq 'uploadstart' && $mgr eq 'F') {
  &upload_start($r);   &upload_start($r);
     } elsif ($env{'form.command'} eq 'csvuploadmap' && $mgr eq 'F') {      } elsif ($env{'form.command'} eq 'csvuploadmap' && $mgr eq 'F') {
Removed from v.1.30  
changed lines
  Added in v.1.33

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