%
' container
targetContainer = true
targetContainerHeadline = "Scale of school meal debt revealed as over £1M in Scotland"
targetContainerUrl = "/news-archive/2022/scale-of-school-meal-debt-revealed-as-over.htm"
%>
<% splitKeywords = Split("Alumni and Development;Research;Social inclusion;UK;External;Article;Social Sciences;2022", ";")
splitCategoryKeywords = Split("Audience:Alumni and Development;Audience:Research;Audience:Social inclusion;Campus:UK;News/events audience:External;PageType:Article;School:Social Sciences;System:2022", ";")
bannedList = "Noticeboard*News*Article*External*2023*2022*2021*2020*2019"
whitelistKeywords = Array("Alumni and Development", "Athena Swan", "Business and Industry", "Conferences", "Graduate Apprenticeships", "Graduation", "Open Days", "Public Engagement", "Research")
whitelistTheme = Array("Brewing and Distilling", "Design thinking", "Earth and Marine", "Health and care", "Lyell Centre", "Mathematical and Computer Sciences", "National Robotarium", "Panmure House", "Social Inclusion", "Sustainability and Net Zero")
metaKeywords = ""
for each x in splitCategoryKeywords
tempCatKey = Split(x, ":")
tempCategory = tempCatKey(0)
tempKeyword = tempCatKey(1)
tempSchool = ""
tempResearch = ""
tempSubject = ""
' campus
if tempCategory = "Campus" then
funnelbackGscope = funnelbackGscope & "|" & "campus-" & LCase(Replace(tempKeyword, " ", ""))
' brand
elseif tempCategory = "School" then
if tempKeyword = "Edinburgh Business School" then
tempSchool = "ebs"
elseif tempKeyword = "Textiles and Design" then
tempSchool = "tex"
end if
if tempSchool <> "" then
funnelbackGscope = funnelbackGscope & "|" & "brand-" & tempSchool
end if
' research
elseif tempCategory = "Research Institute" then
funnelbackResearch = funnelbackResearch & "|" & tempKeyword
' subject
elseif tempCategory = "Subject" or tempCategory = "Subject area" then
funnelbackSubject = funnelbackSubject & "|" & tempKeyword
' generic
'elseif instr(bannedList, tempKeyword) = 0 then
else
for each z in whitelistKeywords
if tempKeyword = z or instr(tempKeyword, z) > 0 or instr(z, tempKeyword) > 0 then
dataKeywords = dataKeywords & "|" & z
%><%
exit for
end if
next
for each z in whitelistTheme
if tempKeyword = z or instr(tempKeyword, z) > 0 or instr(z, tempKeyword) > 0 then
dataKeywords = dataKeywords & "|" & z
%><%
exit for
end if
next
end if
next
if funnelbackGscope = "" then
funnelbackGscope = "campus-uk"
else
funnelbackGscope = Replace(funnelbackGscope, "Edinburgh Business School", "ebs")
funnelbackGscope = Replace(funnelbackGscope, "Textiles and Design", "tex")
end if
funnelbackGscope = funnelbackGscope & "|featured-article"
funnelbackKeywords = dataKeywords
useCreated = "2022-06-06"
useCreatedPretty = "6 Jun 2022"
if "" <> "" then
useCreated = ""
useCreatedPretty = Right("", 2) & " " & MonthName(CInt(Mid("", 6, 2)), true) & " " & Left("", 4)
end if %>
Research from the Institute of Social Policy, Housing and Equalities Research (I-SPHERE) on behalf of Aberlour, Scotland's Children's Charity has revealed that more than £1M is currently owed by Scottish families who can't afford to pay for their children's school meals.
The report, led by Professor Morag Treanor from Heriot-Watt University and commissioned by the charity, has for the first time revealed the extent of the hidden hunger impacting Scottish pupils.
Speaking exclusively to the Guardian today, Professor Treanor described the figure of £1, 032,500 as “just the tip of the iceberg” with the majority of money owed by pupils in the final years of primary school. For those in Primary 1-4, school meals in Scotland are funded by the Scottish Government.
Treanor also told the newspaper that there are “unquantified levels of hidden hunger in secondary schools” with a huge variation between councils over how debt is recovered with some referring it on to debt recovery services when it reaches as little as £10.
Pupils who were interviewed as part of the research spoke of friends who are not currently eligible for free meals going hungry while others save their lunch money to give it back to their parents.
One pupil said: “In my friend group, I'd say about half of them can't eat food when we go out, so you see people buying food for their friends … We go to Greggs and, because I've got like £3 or £3.50 to spend, I'll get two yum yums and a sausage roll, and I'll give them the yum yums.”
The report also discussed how secondary pupils are likely to feel stigmatised when going to the school office to request a voucher when they are unable to pay for a school meal with some local authorities only providing a voucher on a discretionary basis or limiting the holder to certain food choices.
The report calls for the Scottish Government to increase the free school meal threshold to £25,190 and increase it annually in line with inflation. It also asks for the Scottish Government to commit to universal free school meal entitlement for all primary classes immediately, and for a similar entitlement for secondary pupils to be implemented before the end of this parliament.
Martin Canavan, head of policy and participation at Aberlour Children's Charity said: “The Scottish Government can do that through devolved powers. Far fewer families are eligible for free school meals now than they were 20 years ago when the thresholds were first introduced, despite the fact that in the last 10 years we've seen child poverty significantly rise.
“Holyrood should consider access to food as a children's rights issue. Scotland is looking to incorporate the UNCRC [UN convention on the rights of the child], which is a significant commitment we absolutely support, but we need to recognise that the issue of school hunger and significant numbers of children going hungry every single day is actually a breach of children's human rights. Looking towards universal provision would be one way to make sure all children have that right to eat and be fed.”
<% if "Key info - Contact" = "Key info" then %>
<% ADname = ""
if ADname <> "" then %>
<%
if ADname <> "" then
Set oCon = Server.CreateObject("ADODB.Connection")
sUser = "cn=opentextuser,cn=Users,dc=hw,dc=ac,dc=uk"
sPassword = "Fr56+Mx"
oCon.Provider = "ADsDSOObject"
oCon.Open "ADProvider", sUser, sPassword
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
'sDomainADsPath = "LDAP://dc06.hw.ac.uk:389/DC=hw,DC=ac,DC=uk"
sDomainADsPath = "LDAP://LDAP-ED.hw.ac.uk:389/DC=hw,DC=ac,DC=uk"
sProperties = "givenName,SN,displayName,title,mail,telephoneNumber,facsimileTelephoneNumber,department,physicalDeliveryOfficeName,hwCampus"
oCmd.CommandText = "<" & sDomainADsPath & ">;(&(objectCategory=person)(objectClass=user)(sAMAccountName=" & ADname & "));" & sProperties & ";subtree"
oCmd.Properties("Page Size") = 100
Set rs = oCmd.Execute
While Not rs.EOF
fullName = rs("givenName") & " " & rs("SN")
displayName = rs("displayName")
email = rs("mail")
phone = rs("telephoneNumber")
jobTitle = rs("title")
department = rs("department")
roomNumber = rs("physicalDeliveryOfficeName")
campusName = rs("hwCampus")
rs.MoveNext
Wend
rs.Close
oCon.Close
Set rs = Nothing
Set oCon = Nothing
end if
%>
<% else
fullName = "Annie Pugh"
email = "a.pugh@hw.ac.uk"
phone = ""
jobTitle = ""
end if
' international phone format
if phone <> "" then
if Left(phone,2) = "01" then
phone = Replace(phone,"01","+44 1")
end if
end if
' lower-case email
if email <> "" then
email = LCase(email)
end if
%>
<% if fullName <> "" then
if template = "course" then %>
<% end if
end if %>
<% else %>
<% end if %>
<%
' Force aside tag on main page
customFeatured = "yes"
%>
<%
function getRobots()
getRobots = "index"
end function
function getCanonical()
getCanonical = "https://www.hw.ac.uk/news-archive/2022/scale-of-school-meal-debt-revealed-as-over.htm"
end function
function getPreload()
getPreload = ""
getPreload = ""
getPreload = ""
end function
function getMeta()
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
if "" = "" then
tempMeta = tempMeta & ""
if "2022-06-06" <> "2022-09-02" then
tempMeta = tempMeta & ""
end if
else
tempMeta = tempMeta & ""
end if
tempMeta = tempMeta & tempKeywords
getMeta = tempMeta
end function
%>