2 % $cgi->param('error', $error );
3 <% $cgi->redirect(popurl(2). "sched_item.html?". $cgi->query_string ) %>
5 <% $cgi->redirect(popurl(3). "browse/sched_item.html") %>
9 #XXX more specific AccessRight for scheduling
11 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
13 my $itemnum = $cgi->param('itemnum');
15 my $sched_item = qsearchs('sched_item', { 'itemnum' => $itemnum })
16 or die "unknown itemnum $itemnum";
19 foreach my $wday (0..6) {
20 if ( $cgi->param("sched_avail$wday") eq 'Y' ) {
21 push @sched_avail, new FS::sched_avail {
22 'itemnum' => $itemnum,
24 'stime' => $cgi->param("sched_avail$wday".'_stime'),
25 'etime' => $cgi->param("sched_avail$wday".'_etime'),
30 my $error = $sched_item->replace_sched_avail(@sched_avail);