Fiks av obligatoriske op-gr

Rapporteket · Nov 13, 2023 · 034e532 · 034e532
1 parent c44a488
commit 034e532
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/modul_admtab.R b/R/modul_admtab.R
@@ -180,7 +180,7 @@ admtab <- function(input, output, session, reshID, RegData, userRole,
 
     if (input$kun_oblig) {
       # tmp <- tmp[tmp$ForlopsID %in% RegData$ForlopsID[RegData$Op_gr %in% 1:7], ]
-      tmp <- tmp[tmp$Op_gr %in% 1:7, ]
+      tmp <- tmp[tmp$Op_gr %in% 1:8, ]
     }
 
     tmp$SkjemaStatus[tmp$SkjemaStatus==-1] <- 0
@@ -262,7 +262,7 @@ admtab <- function(input, output, session, reshID, RegData, userRole,
                    by = 'ForlopsID', all.x = T, suffixes = c('', '_oppf'))
 
       if (input$kun_oblig) {
-        tmp <- tmp[tmp$Op_gr %in% 1:7, ]
+        tmp <- tmp[tmp$Op_gr %in% 1:8, ]
       }
 
       tmp$SkjemaStatus[tmp$SkjemaStatus==-1] <- 0
@@ -295,7 +295,7 @@ admtab <- function(input, output, session, reshID, RegData, userRole,
 
       if (input$kun_oblig) {
         # tmp <- tmp[tmp$ForlopsID %in% RegData$ForlopsID[RegData$Op_gr %in% 1:7], ]
-        tmp <- tmp[tmp$Op_gr %in% 1:7, ]
+        tmp <- tmp[tmp$Op_gr %in% 1:8, ]
       }
 
       tmp$SkjemaStatus[tmp$SkjemaStatus==-1] <- 0